Changeset 125

Timestamp:

Dec 4, 2009 5:00:49 PM (14 years ago)

Author:

toby

Message:

# on 2000/04/10 20:07:43, toby did:
revise BLT error for bad pkgIndex.tcl file

File:

• trunk/liveplot (modified) (1 diff, 3 props)

trunk/liveplot

@@ -826 +826 @@
 refposvec notify never
 # create the graph
-set box [graph .g]
-Blt_ZoomStack $box
+if [catch {
+    set box [graph .g]
+} errmsg] {
+    tk_dialog .err "BLT Error" \
+"BLT Setup Error: could not create a graph (msg: $errmsg). \
+There is a problem with the setup of BLT on your system.
+See the expgui.html file for more info." \
+            error 0 "Quit"
+exit
+}
+if [catch {
+    Blt_ZoomStack $box
+} errmsg] {
+    tk_dialog .err "BLT Error" \
+"BLT Setup Error: could not access a Blt_ routine (msg: $errmsg). \
+The pkgIndex.tcl is probably not loading bltGraph.tcl.
+See the expgui.html file for more info." \
+            error 0 "Limp ahead"
+}
 $box element create obs -color black -linewidth 0 \
         -symbol $peakinfo(obssym) \