Changeset 489


Ignore:
Timestamp:
Dec 4, 2009 5:07:01 PM (13 years ago)
Author:
toby
Message:

# on 2001/11/19 19:50:05, toby did:
improve error message
deal with duplicate points in BKGEDIT

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/liveplot

    • Property rcs:date changed from 2001/10/31 20:04:21 to 2001/11/19 19:50:05
    • Property rcs:lines changed from +54 -34 to +10 -4
    • Property rcs:rev changed from 1.22 to 1.23
    r477 r489  
    196196        set loadtime [time {
    197197            if {$expgui(tcldump) == ""} {
     198                set p HSTDMP
    198199                readdata_hst $box
    199200            } else {
     201                set p TCLDUMP
    200202                readdata_tcl $box
    201203            }
     
    211213        }
    212214        $box config -title "Read error"
    213         tk_dialog .err "Read Error" "Read Error -- $errmsg" \
    214                 error 0 OK
     215        MyMessageBox -parent . -title "$p Error" \
     216                -message "There was an error running the $p program. The most common reason for this is that POWPREF & GENLES have not been run.\n\nError message: $errmsg" \
     217                -icon error -type Continue -default continue \
     218                -helplink "expguierr.html TCLDUMPError"
    215219        update
    216220    }
     
    938942        set dth [expr {$th1 - $th2}]
    939943        set xsbar [expr {cos($thbar)}]
     944        # skip duplicate points
     945        if {$xs2 == $xs1} continue
    940946        set ybar [expr {($xsbar - $xs1) / ($xs2 - $xs1) * ($y2 - $y1) + $y1}]
    941947        # seems to work better starting with just 2 terms
Note: See TracChangeset for help on using the changeset viewer.