[PD-cvs] pd/src desire.c, 1.1.2.217.2.39, 1.1.2.217.2.40 desire.tk, 1.1.2.600.2.39, 1.1.2.600.2.40

Mathieu Bouchard matju at users.sourceforge.net
Fri Dec 8 00:31:36 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27922

Modified Files:
      Tag: desiredata
	desire.c desire.tk 
Log Message:
canvas_vis() -> def Canvas havewindow=


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.39
retrieving revision 1.1.2.600.2.40
diff -C2 -d -r1.1.2.600.2.39 -r1.1.2.600.2.40
*** desire.tk	7 Dec 2006 22:02:55 -0000	1.1.2.600.2.39
--- desire.tk	7 Dec 2006 23:31:32 -0000	1.1.2.600.2.40
***************
*** 2303,2306 ****
--- 2303,2313 ----
  def Canvas children {} {return $@children}
  
+ def Canvas havewindow= {flag} {
+     set was [winfo exists .$self]
+     if {$flag && $was} {$self raise}
+     if {$flag && !$was} {$self init_window}   ;#???
+     if {!$flag && $was} {$self delete_window} ;#???
+ }
+ 
  def Canvas children_idx {obj} {return [lsearch $@children $obj]}
  

Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.217.2.39
retrieving revision 1.1.2.217.2.40
diff -C2 -d -r1.1.2.217.2.39 -r1.1.2.217.2.40
*** desire.c	7 Dec 2006 19:16:51 -0000	1.1.2.217.2.39
--- desire.c	7 Dec 2006 23:31:31 -0000	1.1.2.217.2.40
***************
*** 706,717 ****
  }
  
- /* canvas_vis(,1) makes a canvas client-existing, client-updated, visible, mapped, raised. gops get open.
-    canvas_vis(,0) removes the canvas from the client if it's non-gop. contrast with canvas_map.
-    for GOPs this is *not* the same as in Miller's */
  static void canvas_vis(t_canvas *x, t_floatarg f) {
!     /* this is WRONG */
!     if (f && x->havewindow) sys_mgui(x,"raise","");
!     if (f && !x->havewindow) canvas_map(x,1);
!     if (!f && x->havewindow) {sys_mgui(x,"delete",""); canvas_map(x,0);}
      x->havewindow = (unsigned)f;
  }
--- 706,711 ----
  }
  
  static void canvas_vis(t_canvas *x, t_floatarg f) {
!     sys_mgui(x,"havewindow=","f",f);
      x->havewindow = (unsigned)f;
  }
***************
*** 7252,7259 ****
      SET(log_height,256);
      SET(is_log,0);
!     x->w=5;
!     x->h=14;
!     x->min=-1.0e+37;
!     x->max=1.0e+37;
      x->buf[0]=0;
      SET(change,0);
--- 7246,7253 ----
      SET(log_height,256);
      SET(is_log,0);
!     SET(w,5);
!     SET(h,14);
!     SET(min,-1.0e+37);
!     SET(max,1.0e+37);
      x->buf[0]=0;
      SET(change,0);





More information about the Pd-cvs mailing list