[PD-cvs] SF.net SVN: pure-data:[10703] branches/pd-extended/0.41/pd/src/u_main.tk
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Sat Jan 31 17:49:34 CET 2009
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.
More information about the Pd-cvs
mailing list