[PD-cvs] pd/src desire.tk,1.1.2.438,1.1.2.439

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
canvas: removed texteditor, menusave, menusaveas


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.438
retrieving revision 1.1.2.439
diff -C2 -d -r1.1.2.438 -r1.1.2.439
*** desire.tk	31 Aug 2006 19:20:25 -0000	1.1.2.438
--- desire.tk	31 Aug 2006 19:47:25 -0000	1.1.2.439
***************
*** 1223,1227 ****
      	return [menu_opentext $dirname/$basename]
      } else {
!     	pd "pd open [pdtk_enquote $basename] [pdtk_enquote $dirname] ;"
      }
  }
--- 1223,1227 ----
      	return [menu_opentext $dirname/$basename]
      } else {
!     	pd pd open [pdtk_enquote $basename] [pdtk_enquote $dirname]
      }
  }
***************
*** 1456,1460 ****
  	}
  }
! def Canvas reload {} {pd ".$self map 0; .$self map 1"}
  
  def Canvas redraw {} {
--- 1456,1460 ----
  	}
  }
! def Canvas reload {} {pd .$self map 0; pd .$self map 1}
  
  def Canvas redraw {} {
***************
*** 3463,3467 ****
  
  def CanvasPropertiesDialog apply {} {
! 	pd ".$self donecanvasdialog $@xscale $@yscale $@graphme ;"
  }
  
--- 3463,3467 ----
  
  def CanvasPropertiesDialog apply {} {
! 	pd .$@of donecanvasdialog $@xscale $@yscale $@graphme
  }
  
***************
*** 3486,3489 ****
--- 3486,3498 ----
  }
  
+ class_new BoxPropertiesDialog {PropertiesDialog}
+ def Box popup_properties {} {BoxPropertiesDialog new $self}
+ def BoxPropertiesDialog init {of} {
+ 	super $of
+ 	wm title .$self "Box Properties"
+ 	pack [label .$self.huh  -text "huh..."]
+ 	pack [label .$self.huh2 -text "this is where some #V properties should go"]
+ }
+ 
  class_new GAtomPropertiesDialog {PropertiesDialog}
  
***************
*** 3491,3496 ****
  
  def GAtomPropertiesDialog apply {} {
! 	pd ".$@of param $@w $@min $@max [gatom_escape $@lab] $@pos \
! 		[gatom_escape $@rcv] [gatom_escape $@snd] ;"
  }
  
--- 3500,3504 ----
  
  def GAtomPropertiesDialog apply {} {
! 	pd .$@of param $@w $@min $@max [gatom_escape $@lab] $@pos [gatom_escape $@rcv] [gatom_escape $@snd]
  }
  
***************
*** 3518,3522 ****
  
  def GraphPropertiesDialog apply {} {
! 	pd ".$self dialog $@x1 $@y1 $@x2 $@y2 $@xpix $@ypix ;"
  }
  
--- 3526,3530 ----
  
  def GraphPropertiesDialog apply {} {
! 	pd .$@of dialog $@x1 $@y1 $@x2 $@y2 $@xpix $@ypix
  }
  
***************
*** 3546,3553 ****
  	if {[string index $mofo 0] == "$"} {
  		set mofo [string replace $mofo 0 0 #] }
! 	pd ".$self arraydialog $mofo $@n $@saveit $@otherflag ;"
  }
  
  def ArrayPropertiesDialog init {of} {
  	super $of
  	foreach var {name n saveit} {set @$var $_($of:$var)}
--- 3554,3568 ----
  	if {[string index $mofo 0] == "$"} {
  		set mofo [string replace $mofo 0 0 #] }
! 	pd .$@apply arraydialog $mofo $@n $@saveit $@otherflag
  }
  
  def ArrayPropertiesDialog init {of} {
+ #    sprintf(cmdbuf, ((x->x_name->s_name[0] == '$') ?
+ #        "pdtk_array_dialog %%s \\%s %d %d 0\n" :
+ #        "pdtk_array_dialog %%s %s %d %d 0\n"),
+ #            x->x_name->s_name, a->a_n, x->x_saveit + 
+ #            2 * (int)(template_getfloat(template_findbyname(sc->sc_template),
+ #            gensym("style"), x->x_scalar->sc_vec, 1)));
+ 
  	super $of
  	foreach var {name n saveit} {set @$var $_($of:$var)}