Changeset 284 for trunk/addcmds.tcl

Timestamp:

Dec 4, 2009 5:03:29 PM (14 years ago)

Author:

toby

Message:

# on 2000/09/25 20:09:50, toby did:
Display a message returned by the import_*.tcl on the add/replace phase box
Note: not displayed if coordinates (only) are imported

File:

• trunk/addcmds.tcl (modified) (2 diffs, 3 props)

trunk/addcmds.tcl

@@ -1141 +1141 @@
     }
     set expgui(coordList) [lindex $input 2]
+    set msg [lindex $input 3]
+    if {$msg != ""} {
+        grid [label $np.msg -text $msg -fg red -justify left -bd 4 -relief raised] \
+                -column 0 -columnspan 8 -row 20 -sticky ew
+    }
 }
 
@@ -1268 +1273 @@
         grid columnconfig $top.fr 0 -pad 10
         grid columnconfig $top.fr 1 -pad 10
-        grid columnconfig $top 4 -weight 1
+#       grid columnconfig $top 4 -weight 1
+        grid columnconfig $top 2 -weight 1
     }