[PD-cvs] pd/src desire.tk,1.1.2.164,1.1.2.165
chunlee
chunlee at users.sourceforge.net
Wed Apr 19 16:18:29 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20866
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
object_moveto and reload worx from the client, also add the dropdown menu for the pdrc editor
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.164
retrieving revision 1.1.2.165
diff -C2 -d -r1.1.2.164 -r1.1.2.165
*** desire.tk 19 Apr 2006 00:57:53 -0000 1.1.2.164
--- desire.tk 19 Apr 2006 14:18:24 -0000 1.1.2.165
***************
*** 1920,1928 ****
puts "something moved ::: $@selection"
! #foreach obj $@selection {
##this could be wrong....
! #mset {x y} [$obj xy]
! #pd .$self object_moveto !$obj $x $y
! #}
#puts "....select_by:$@select_by"
--- 1920,1928 ----
puts "something moved ::: $@selection"
! foreach obj $@selection {
##this could be wrong....
! mset {x y} [$obj xy]
! pd .$self object_moveto !$obj $x $y
! }
#puts "....select_by:$@select_by"
***************
*** 3418,3426 ****
label $f.label -text [lindex $label 0]
pack $f.label $f -side left
foreach part [lrange $label 1 end] {
! radiobutton $f.$i -text $part -value $i -variable _($self:$name) -anchor w
! pack $f.$i -side top -fill x
! incr i
}
}
toggle {
--- 3418,3434 ----
label $f.label -text [lindex $label 0]
pack $f.label $f -side left
+
+ set m [menu .popupMenu -tearoff 0]
foreach part [lrange $label 1 end] {
! $m add command -label $part -command [list dropmenu_set $f $part]
! #radiobutton $f.$i -text $part -value $i -variable _($self:$name) -anchor w
! #pack $f.$i -side top -fill x
! #incr i
}
+ label $f.label_set -text "default" -relief raised
+ balloon $f.label_set "click to change setting"
+ pack $f.label_set -side top -fill x
+ bind $f.label_set <1> {tk_popup .popupMenu [expr %X - 100] %Y}
+
}
toggle {
***************
*** 3436,3447 ****
#label $f.label -text $label -wraplength 200 -justify left
- set length [string length $label]
- set break [string first ":" $label 0]
- #puts "$label | $length | $break"
- #puts "$label | $name"
- #set tip [string $label 0 $break]
- #set real_label [string $label $break end]
- #puts "$tip <> $real_label"
-
label $f.label -text $label
balloon $f.label $name
--- 3444,3447 ----
***************
*** 3473,3479 ****
############ .pdrc editor
# this makes the tooltip
proc balloon {w help} {
! bind $w <Any-Enter> "after 1000 [list balloon:show %W [list $help]]"
bind $w <Any-Leave> "destroy %W.balloon"
}
--- 3473,3486 ----
############ .pdrc editor
+ proc dropmenu_set {frame name} {
+
+ $frame.label_set configure -text $name
+ puts "$name is selected in the drop down menu!!!"
+
+ }
+
# this makes the tooltip
proc balloon {w help} {
! bind $w <Any-Enter> "after 500 [list balloon:show %W [list $help]]"
bind $w <Any-Leave> "destroy %W.balloon"
}
More information about the Pd-cvs
mailing list