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 {} {