Changeset 126 for trunk

Timestamp:

Dec 4, 2009 5:00:50 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/widplt (modified) (1 diff, 3 props)

trunk/widplt

@@ -713 +713 @@
 
 # create the graph
-set box [graph .g]
-Blt_ZoomStack $box
-Blt_ActiveLegend $box
-Blt_ClosestPoint $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
+    Blt_ActiveLegend $box
+    Blt_ClosestPoint $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 config -title {}
 $box yaxis config -title {FWHM} 
 setlegend $box $graph(legend)
+
 #frame .a -bd 8 -relief groove
 frame .a -bd 2 -relief groove