Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28144
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed bug in GAtomProperties (swapping of send/receive symbols)
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.452 retrieving revision 1.1.2.453 diff -C2 -d -r1.1.2.452 -r1.1.2.453 *** desire.tk 2 Sep 2006 04:10:00 -0000 1.1.2.452 --- desire.tk 3 Sep 2006 16:46:22 -0000 1.1.2.453 *************** *** 1798,1806 **** }
- def ObjectBox unedit {} { - super - $self erase ;# (why?) - } - #-----------------------------------------------------------------------------------# def Canvas name= {name} {set @name $name ; $self update_title} --- 1798,1801 ---- *************** *** 2245,2249 ****
def Canvas cut {} { ! $@history atomically "Cut" { $self copy $self delete_selection --- 2240,2244 ----
def Canvas cut {} { ! $@history atomically [list cut] { $self copy $self delete_selection *************** *** 3182,3187 **** set fields(vdl) $fields(hradio) set fields(coords) {foo bar xfrom yfrom xto yto w h gop x1 y1} ;# goes with #N canvas ! set fields(floatatom) {foo bar x1 y1 w min max pos lab snd rcv} ! set fields(symbolatom) {foo bar x1 y1 w min max pos lab snd rcv} set fields(array) {name n elemtype flags}
--- 3177,3182 ---- set fields(vdl) $fields(hradio) set fields(coords) {foo bar xfrom yfrom xto yto w h gop x1 y1} ;# goes with #N canvas ! set fields(floatatom) {foo bar x1 y1 w min max pos lab rcv snd} ! set fields(symbolatom) {foo bar x1 y1 w min max pos lab rcv snd} set fields(array) {name n elemtype flags}
*************** *** 3525,3528 **** --- 3520,3532 ---- }
+ class_new WirePropertiesDialog {PropertiesDialog} + def Box popup_properties {} {WirePropertiesDialog new $self} + def WirePropertiesDialog init {of} { + super $of + wm title .$self "Wire Properties" + pack [label .$self.huh -text "huh..."] + pack [label .$self.huh2 -text "this is where some #V properties should go"] + } + class_new GAtomPropertiesDialog {PropertiesDialog}
*************** *** 3536,3540 **** super $of foreach var {w min max pos} {set @$var $_($of:$var)} ! foreach var {lab snd rcv} {set @$var [gatom_unescape $_($of:$var)]} wm title .$self "Atom" global properties --- 3540,3544 ---- super $of foreach var {w min max pos} {set @$var $_($of:$var)} ! foreach var {lab rcv snd} {set @$var [gatom_unescape $_($of:$var)]} wm title .$self "Atom" global properties *************** *** 6003,6010 ****
def FontBombDialog init {} { - global font super cancel ok set f .$self ! $self add_fontbomb $f foo } ############ other stuff ######### --- 6007,6013 ----
def FontBombDialog init {} { super cancel ok set f .$self ! $self add_fontbomb $f foo } ############ other stuff #########