Changeset 665 for trunk/gsascmds.tcl

Timestamp:

Dec 4, 2009 5:09:58 PM (14 years ago)

Author:

toby

Message:

# on 2002/12/30 17:14:03, toby did:
update pleasewait to include latest options

File:

• trunk/gsascmds.tcl (modified) (1 diff, 3 props)

trunk/gsascmds.tcl

@@ -285 +285 @@
 
 # tell'em what is happening
-proc pleasewait {{message {}}} {
+#    message    is a text message to display
+#    statusvar  is a variable name containing a message that gets updated
+#    parent     is the name of the parent window
+#    button     defines a button for the window. Element 0 in $button is the
+#               text for the button and Element 1 is the command to execute.
+proc pleasewait {{message {}} {statusvar {}} {parent .} {button ""}} {
     catch {destroy .msg}
     toplevel .msg
     wm transient .msg [winfo toplevel .]
-    pack [frame .msg.f -bd 4 -relief groove]
-    pack [message .msg.f.m -text "Please wait $message"]
+    pack [frame .msg.f -bd 4 -relief groove] -padx 5 -pady 5
+    pack [message .msg.f.m -text "Please wait $message"] -side top
+    if {$statusvar != ""} {
+        pack [label .msg.f.status -textvariable $statusvar] -side top
+    }
+    if {$button != ""} {
+        pack [button .msg.f.button -text [lindex $button 0] \
+                -command [lindex $button 1]] -side top
+    }
     wm withdraw .msg
     update idletasks
-    # place the message on top of the main window
-    set x [expr [winfo x .] + [winfo width .]/2 - \
-            [winfo reqwidth .msg]/2 - [winfo vrootx .]]
+    # place the message on top of the parent window
+    set x [expr [winfo x $parent] + [winfo width $parent]/2 - \
+            [winfo reqwidth .msg]/2 - [winfo vrootx $parent]]
     if {$x < 0} {set x 0}
-    set y [expr [winfo y .] + [winfo height .]/2 - \
-            [winfo reqheight .msg]/2 - [winfo vrooty .]]
+    set y [expr [winfo y $parent] + [winfo height $parent]/2 - \
+            [winfo reqheight .msg]/2 - [winfo vrooty $parent]]
     if {$y < 0} {set y 0}
     wm geom .msg +$x+$y