[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