[PD-cvs] pd/src desire.tk,1.1.2.573,1.1.2.574
Mathieu Bouchard
matju at users.sourceforge.net
Mon Nov 20 04:38:22 CET 2006
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
More information about the Pd-cvs
mailing list