[PD-cvs] externals/tkwidgets checkbutton.c, 1.10, 1.11 text.c, 1.16, 1.17

Hans-Christoph Steiner eighthave at users.sourceforge.net
Mon Nov 26 21:54:18 CET 2007


Update of /cvsroot/pure-data/externals/tkwidgets
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26288

Modified Files:
	checkbutton.c text.c 
Log Message:
don't draw iolets when in GOP; erase_iolets() is not necessary in eraseme() since Tk's destroy is recursive and is using all_tag

Index: checkbutton.c
===================================================================
RCS file: /cvsroot/pure-data/externals/tkwidgets/checkbutton.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** checkbutton.c	24 Nov 2007 17:39:44 -0000	1.10
--- checkbutton.c	26 Nov 2007 20:54:16 -0000	1.11
***************
*** 129,135 ****
               x->widget_id->s_name, x->tcl_namespace->s_name, 
               x->receive_name->s_name, x->tcl_namespace->s_name);
!     tkwidgets_draw_iolets((t_object*)x, glist, 
!                           x->canvas_id, x->iolets_tag, x->all_tag,
!                           x->width, x->height);
      sys_vgui("%s create window %d %d -anchor nw -window %s -tags {%s %s}\n", 
               x->canvas_id->s_name, 
--- 129,136 ----
               x->widget_id->s_name, x->tcl_namespace->s_name, 
               x->receive_name->s_name, x->tcl_namespace->s_name);
!     if(x->x_glist == x->x_canvas) // if GOP, don't draw inlets
!         tkwidgets_draw_iolets((t_object*)x, glist, 
!                               x->canvas_id, x->iolets_tag, x->all_tag,
!                               x->width, x->height);
      sys_vgui("%s create window %d %d -anchor nw -window %s -tags {%s %s}\n", 
               x->canvas_id->s_name, 

Index: text.c
===================================================================
RCS file: /cvsroot/pure-data/externals/tkwidgets/text.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** text.c	24 Nov 2007 07:00:45 -0000	1.16
--- text.c	26 Nov 2007 20:54:16 -0000	1.17
***************
*** 184,190 ****
      set_tkwidgets_ids(x,glist_getcanvas(glist));	
      create_widget(x);	
!     tkwidgets_draw_iolets((t_object*)x, glist, 
!                           x->canvas_id, x->iolets_tag, x->all_tag,
!                           x->width, x->height);
      if(x->have_scrollbars) 
          tkwidgets_draw_y_scrollbar(x->widget_id, x->scrollbar_id);
--- 184,191 ----
      set_tkwidgets_ids(x,glist_getcanvas(glist));	
      create_widget(x);	
!     if(x->x_glist == x->x_canvas) // if GOP, don't draw inlets
!         tkwidgets_draw_iolets((t_object*)x, glist, 
!                               x->canvas_id, x->iolets_tag, x->all_tag,
!                               x->width, x->height);
      if(x->have_scrollbars) 
          tkwidgets_draw_y_scrollbar(x->widget_id, x->scrollbar_id);
***************
*** 200,204 ****
  {
      DEBUG(post("eraseme: canvas %lx", x->x_canvas););
-     tkwidgets_erase_iolets(x->canvas_id, x->iolets_tag);
      sys_vgui("destroy %s\n", x->frame_id->s_name);
      sys_vgui("%s delete %s\n", x->canvas_id->s_name, x->all_tag->s_name);
--- 201,204 ----





More information about the Pd-cvs mailing list