[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