Changeset 923 for trunk/excledt.tcl


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

# on 2008/07/14 01:15:07, toby did:
fix "crazy line" bug due to tick mark numbers
make msg boxes a child of excl plot window
eliminate bind of <Configure> for windows, since it prevents the window
from changing size

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/excledt.tcl

    • Property rcs:date changed from 2008/04/15 17:12:02 to 2008/07/14 01:15:07
    • Property rcs:lines changed from +125 -82 to +26 -20
    • Property rcs:rev changed from 1.15 to 1.16
    r907 r923  
    6666                set Ispec 0
    6767                set X -999
    68                 scan [string range $line 8 end] %e%e%e%e \
     68                scan [string range $line 9 end] %e%e%e%e \
    6969                        X Iobs Icalc Ispec
    70                 #puts $line
    71                 lappend allxlist $X
    7270                # eliminate excluded points
    7371                if {$Ispec > 0.0 && $X >= 0} {
     72                    lappend allxlist $X
    7473                    lappend xlist $X
    7574                    lappend obslist $Iobs
    7675                    lappend calclist $Icalc
    7776                } elseif {$X != -999} {
     77                    lappend allxlist $X
    7878                    lappend exclistx $X
    7979                    lappend exclistobs $Iobs
     
    340340}
    341341
    342 proc GetSymbolOpts {"sym obs" {parent ""} {
     342proc GetSymbolOpts {"sym obs" {parent ""}} {
    343343    global expgui peakinfo
    344344    set box $parent.out
     
    13161316        set graph(plot) [graph $graph(exclbox).g -plotbackground white]
    13171317    } errmsg] {
     1318        set msg "BLT Setup Error: could not create a graph"
     1319        append msg "\n(error msg: $errmsg)."
     1320        append msg "\nThere is a problem with the setup of BLT on your system."
     1321        append msg "\nSee the expgui.html file for more info."
    13181322        MyMessageBox -parent $graph(exclbox) -title "BLT Error" \
    1319                 -message "BLT Setup Error: could not create a graph \
    1320 (error msg: $errmsg). \
    1321 There is a problem with the setup of BLT on your system. \
    1322 See the expgui.html file for more info." \
    1323         -helplink "expgui.html blt" \
     1323            -message $msg \
     1324            -helplink "expgui.html blt" \
    13241325        -icon warning -type Skip -default "skip"
    13251326        destroy $graph(exclbox)
     
    13291330        Blt_ZoomStack $graph(plot)
    13301331    } errmsg] {
     1332        set msg "BLT Setup Error: could not access a Blt_ routine"
     1333        append msg "\nBLT Setup Error: "
     1334        append msg "\n(error msg: $errmsg)."
     1335        append msg "\nSee the expgui.html file for more info."
     1336        append msg "\nThe pkgIndex.tcl is probably not loading bltGraph.tcl."
     1337        append msg "\nSee the expgui.html file for more info."
    13311338        MyMessageBox -parent $graph(exclbox) -title "BLT Error" \
    1332                 -message "BLT Setup Error: could not access a Blt_ routine \
    1333 (msg: $errmsg). \
    1334 The pkgIndex.tcl is probably not loading bltGraph.tcl.
    1335 See the expgui.html file for more info." \
    1336         -helplink "expgui.html blt" \
    1337         -icon warning -type {"Limp Ahead"} -default "limp Ahead"
     1339            -message $msg \
     1340            -helplink "expgui.html blt" \
     1341            -icon warning -type {"Limp Ahead"} -default "limp Ahead"
    13381342    }
    13391343    $graph(plot) element create 3 -color black -linewidth 0 -label Obs \
     
    15541558    # catch exits -- launch POWPREF; if changes non-zero
    15551559    wm protocol $graph(exclbox) WM_DELETE_WINDOW "CheckChanges $startchanges;destroy $graph(exclbox)"
    1556     # respond to resize events
    1557     bind $graph(exclbox) <Configure> scheduleFillExclRegionBox
    1558     bind all <Control-KeyPress-c> "CheckChanges $startchanges;destroy $graph(exclbox)"
     1560    # respond to resize events & control C (except on Windows)
     1561    if {$::tcl_platform(platform) != "windows"} {
     1562        bind $graph(exclbox) <Configure> scheduleFillExclRegionBox
     1563        bind all <Control-KeyPress-c> "CheckChanges $startchanges;destroy $graph(exclbox)"
     1564    }
    15591565    #putontop $graph(exclbox)
    1560     wm deiconify $graph(exclbox)
     1566    #wm deiconify $graph(exclbox)
    15611567    wm iconify .
    15621568    update
Note: See TracChangeset for help on using the changeset viewer.