[PD-cvs] pd/src desire.tk,1.1.2.600.2.108,1.1.2.600.2.109

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
class_new IEMGUI {} is a mixin that fixes the missing properties_apply in [vu], [cnv], [nbx]


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.108
retrieving revision 1.1.2.600.2.109
diff -C2 -d -r1.1.2.600.2.108 -r1.1.2.600.2.109
*** desire.tk	19 Dec 2006 02:56:57 -0000	1.1.2.600.2.108
--- desire.tk	19 Dec 2006 03:08:02 -0000	1.1.2.600.2.109
***************
*** 4544,4548 ****
  }
  
! class_new BlueBox {Labeled Box}
  #class_new BlueBox {Box Labeledo}
  
--- 4544,4549 ----
  }
  
! class_new IEMGUI {}
! class_new BlueBox {Labeled IEMGUI Box}
  #class_new BlueBox {Box Labeledo}
  
***************
*** 4562,4566 ****
  }
  
! def BlueBox popup_properties {} {IEMPropertiesDialog new $self}
  
  class_new PropertiesDialog {Dialog}
--- 4563,4567 ----
  }
  
! def IEMGUI popup_properties {} {IEMPropertiesDialog new $self}
  
  class_new PropertiesDialog {Dialog}
***************
*** 4584,4593 ****
  class_new IEMPropertiesDialog {PropertiesDialog}
  
! def BlueBox properties_apply {args} {
! 	global fields
  	set orig [list $self properties_apply]
! 	foreach var [lrange $fields($@class) 5 end] {lappend orig $@$var}
  	[$@canvas history] add $orig
- 	set tosend {}
  	foreach v $args {switch -- $v {{} {set v "empty"}}; lappend props $v}
  	netsend [concat [list .$self reload] $props]
--- 4585,4592 ----
  class_new IEMPropertiesDialog {PropertiesDialog}
  
! def IEMGUI properties_apply {args} {
  	set orig [list $self properties_apply]
! 	foreach var [lrange $::fields($@class) 5 end] {lappend orig $@$var}
  	[$@canvas history] add $orig
  	foreach v $args {switch -- $v {{} {set v "empty"}}; lappend props $v}
  	netsend [concat [list .$self reload] $props]
***************
*** 4930,4935 ****
  }
  def SymbolBox motion {x y f target} {}
! class_new NumBox {Labeled AtomBox}
! def NumBox popup_properties {} {IEMPropertiesDialog new $self}
  
  def NumBox init {mess} {
--- 4929,4933 ----
  }
  def SymbolBox motion {x y f target} {}
! class_new NumBox {Labeled IEMGUI AtomBox}
  
  def NumBox init {mess} {
***************
*** 5228,5232 ****
  }
  
! class_new Vu {Box}
  
  set vu_col {
--- 5226,5230 ----
  }
  
! class_new Vu {IEMGUI Box}
  
  set vu_col {
***************
*** 5235,5240 ****
  }
  
- def Vu popup_properties {} {IEMPropertiesDialog new $self}
- 
  def Vu init {mess} {
  	super $mess
--- 5233,5236 ----
***************
*** 5336,5342 ****
  def Dropper erase {} {destroy $@canvas.${self}DROP; super}
  
! class_new Cnv {Labeled Box}
! 
! def Cnv popup_properties {} {IEMPropertiesDialog new $self}
  
  def Cnv draw {} {
--- 5332,5336 ----
  def Dropper erase {} {destroy $@canvas.${self}DROP; super}
  
! class_new Cnv {Labeled IEMGUI Box}
  
  def Cnv draw {} {