Changeset 126 for trunk/widplt


Ignore:
Timestamp:
Dec 4, 2009 5:00:50 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/widplt

    • Property rcs:date changed from 1999/10/11 19:46:43 to 2000/04/10 20:07:43
    • Property rcs:lines changed from +6 -2 to +24 -6
    • Property rcs:rev changed from 1.5 to 1.6
    r111 r126  
    713713
    714714# create the graph
    715 set box [graph .g]
    716 Blt_ZoomStack $box
    717 Blt_ActiveLegend $box
    718 Blt_ClosestPoint $box
     715if [catch {
     716    set box [graph .g]
     717} errmsg] {
     718    tk_dialog .err "BLT Error" \
     719"BLT Setup Error: could not create a graph (msg: $errmsg). \
     720There is a problem with the setup of BLT on your system.
     721See the expgui.html file for more info." \
     722            error 0 "Quit"
     723exit
     724}
     725if [catch {
     726    Blt_ZoomStack $box
     727    Blt_ActiveLegend $box
     728    Blt_ClosestPoint $box
     729} errmsg] {
     730    tk_dialog .err "BLT Error" \
     731"BLT Setup Error: could not access a Blt_ routine (msg: $errmsg). \
     732The pkgIndex.tcl is probably not loading bltGraph.tcl.
     733See the expgui.html file for more info." \
     734            error 0 "Limp ahead"
     735}
    719736$box config -title {}
    720737$box yaxis config -title {FWHM}
    721738setlegend $box $graph(legend)
     739
    722740#frame .a -bd 8 -relief groove
    723741frame .a -bd 2 -relief groove
Note: See TracChangeset for help on using the changeset viewer.