Revision: 10703 http://pure-data.svn.sourceforge.net/pure-data/?rev=10703&view=rev Author: eighthave Date: 2009-01-31 16:49:33 +0000 (Sat, 31 Jan 2009)
Log Message: ----------- cleaned up find panel based on pd-devel experience
Modified Paths: -------------- branches/pd-extended/0.41/pd/src/u_main.tk
Modified: branches/pd-extended/0.41/pd/src/u_main.tk =================================================================== --- branches/pd-extended/0.41/pd/src/u_main.tk 2009-01-31 16:26:44 UTC (rev 10702) +++ branches/pd-extended/0.41/pd/src/u_main.tk 2009-01-31 16:49:33 UTC (rev 10703) @@ -1274,6 +1274,7 @@ proc find_ok {name} { global find_string global find_canvas + if {$find_string eq ""} {return} regsub -all ; $find_string " _semi_ " find_string2 regsub -all , $find_string2 " _comma_ " find_string3 # puts stderr [concat $find_canvas find $find_string3 \ @@ -1298,32 +1299,20 @@ set find_canvas $canvas
toplevel $name - wm geometry $name =250x100+250+100 + wm geometry $name =400x125+150+100 wm resizable $name 0 0 + catch {wm attributes $name -topmost}
- #bind $name <FocusIn> "puts stderr "bind focus $name.entry"" pdtk_panelkeybindings $name "find"
- label $name.label -text {find...} - pack $name.label -side top - - entry $name.entry -textvariable find_string - pack $name.entry -side top - - frame $name.buttonframe - pack $name.buttonframe -side bottom -fill x -pady 2m - button $name.buttonframe.cancel -text {Cancel}\ - -command "find_cancel $name" - button $name.buttonframe.ok -text {OK}\ - -command "find_ok $name" - pack $name.buttonframe.cancel -side left -expand 1 - pack $name.buttonframe.ok -side left -expand 1 - - $name.entry select from 0 - $name.entry select adjust end - #puts stderr "before focus $name.entry" + entry $name.entry -width 54 -font 18 -textvariable find_string \ + -highlightthickness 2 -highlightcolor blue -relief sunken focus $name.entry - #puts stderr "after focus $name.entry" + pack $name.entry -side top -padx 10 -pady 10 + + button $name.close -text "Close" -command "find_cancel $name" -width 9 + button $name.button -text "Find" -command "find_ok $name" -width 9 -default active + pack $name.button $name.close -side right -padx 10 -pady 15 }
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.