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}