[PD-cvs] pd/src desire.tk,1.1.2.184,1.1.2.185

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15319

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fix for $f.popup


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.184
retrieving revision 1.1.2.185
diff -C2 -d -r1.1.2.184 -r1.1.2.185
*** desire.tk	22 Apr 2006 17:25:30 -0000	1.1.2.184
--- desire.tk	22 Apr 2006 17:30:48 -0000	1.1.2.185
***************
*** 3407,3416 ****
  		pack [label $f.label -text [lindex $label 0]] $f -side left
  		# this which is not good, need to sort it out...
! 		set m [menu .$which -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
--- 3407,3414 ----
  		pack [label $f.label -text [lindex $label 0]] $f -side left
  		# this which is not good, need to sort it out...
! 		set m [menu $f.$name -tearoff 0]
  		foreach part [lrange $label 1 end] {
  			$m add command -label $part -command [list dropmenu_set $f $part]
! 			
  		}
  		label $f.label_set -text "default" -relief raised
***************
*** 3418,3422 ****
  		pack $f.label_set -side top -fill x
  		# need to sort this out.......
! 		bind $f.label_set <1> "tk_popup .$which \[expr %X - 100\] %Y"
  		
  	    }
--- 3416,3420 ----
  		pack $f.label_set -side top -fill x
  		# need to sort this out.......
! 		bind $f.label_set <1> "tk_popup $f.$name \[expr %X - 100\] %Y"
  		
  	    }
***************
*** 3578,3582 ****
    void -noadc "suppress audio input"
    alias -noaudio|-nosound {list -nodac -noadc}
!   radio {"" -alsa -jack -mmio -portaudio|-pa|-asio -oss} {
      "Sound API: "
      "default"
--- 3576,3580 ----
    void -noadc "suppress audio input"
    alias -noaudio|-nosound {list -nodac -noadc}
!   radio {"audio_popup" -alsa -jack -mmio -portaudio|-pa|-asio -oss} {
      "Sound API: "
      "default"
***************
*** 3696,3700 ****
  }
  
! def ServerPrefsDialog _delete {} {super; catch {destroy .server}}
  
  #################### ClientPrefsDialog
--- 3694,3698 ----
  }
  
! def ServerPrefsDialog _delete {} {super}
  
  #################### ClientPrefsDialog
***************
*** 3801,3805 ****
  }
  
! def ClientPrefsDialog _delete {} {super; catch {destroy .client}}
  
  
--- 3799,3803 ----
  }
  
! def ClientPrefsDialog _delete {} {super}