Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23752
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed properties dialog of [tgl] [nbx] [cnv]
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.573 retrieving revision 1.1.2.574 diff -C2 -d -r1.1.2.573 -r1.1.2.574 *** desire.tk 20 Nov 2006 03:12:11 -0000 1.1.2.573 --- desire.tk 20 Nov 2006 03:38:19 -0000 1.1.2.574 *************** *** 2834,2852 ****
def Canvas popup {id x y} { ! set p .$self.popup ! catch {destroy $p} ! menu $p -tearoff false ! if {$id == ""} { ! $self populate_menu $p {popup_properties popup_help} ! } { ! if {[$id class] == "Wire"} { ! $id populate_menu $p {popup_insert} ! } else { ! $id populate_menu $p {popup_properties popup_open popup_help \ ! popup_clear_wires popup_auto_wire} ! } ! ! } ! tk_popup $p [expr $x-5] [expr $y-5] }
--- 2834,2849 ----
def Canvas popup {id x y} { ! set p .$self.popup ! catch {destroy $p} ! menu $p -tearoff false ! if {$id == ""} { ! $self populate_menu $p {popup_properties popup_help} ! } elseif {[$id class] == "Wire"} { ! $id populate_menu $p {popup_insert} ! } else { ! $id populate_menu $p {popup_properties popup_open popup_help ! popup_clear_wires popup_auto_wire} ! } ! tk_popup $p [expr $x-5] [expr $y-5] }
*************** *** 4535,4538 **** --- 4532,4538 ---- on {continue} change {list integer} + nonzero {list float -width 9} + log_height {list float -width 9} + hh {continue} default {error "huh? ($prop)"} }]] *************** *** 4619,4623 ****
class_new WirePropertiesDialog {PropertiesDialog} ! def Box popup_properties {} {WirePropertiesDialog new $self} def WirePropertiesDialog init {of} { super $of --- 4619,4623 ----
class_new WirePropertiesDialog {PropertiesDialog} ! def Wire popup_properties {} {WirePropertiesDialog new $self} def WirePropertiesDialog init {of} { super $of *************** *** 4864,4867 **** --- 4864,4869 ----
class_new NumBox {Labeled Box} + def Box popup_properties {} {IEMPropertiesDialog new $self} + def NumBox init {mess} { super $mess