Ignore:
Timestamp:
Aug 16, 2012 3:39:00 PM (9 years ago)
Author:
toby
Message:

manage abs constraints; changes to support MakeHistBox? in dialog

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/expgui

    r1204 r1211  
    6868catch {if $env(DEBUG) {set expgui(debug) 1}}
    6969#set expgui(debug) 1
    70 
     70set expgui(HistSelectList) {}
    7171# location for web pages, if not found locally
    7272set expgui(website) 11bm.xor.aps.anl.gov/expguidoc/
     
    16371637            -yscrollcommand "$frm.y set" \
    16381638            ] -row 2 -column 0 -sticky news
    1639     lappend expgui(HistSelectList) $frm
     1639    if {[lsearch $expgui(HistSelectList) $frm] < 0} {
     1640        lappend expgui(HistSelectList) $frm
     1641    }
    16401642    grid [scrollbar $frm.x -orient horizontal \
    16411643            -command "move2boxesX \" $frm.title $frm.lbox \" "
     
    16611663    }
    16621664    foreach lbox $expgui(HistSelectList) {
     1665        if {! [winfo exists $lbox]} continue
    16631666        $lbox.title delete 0 end
    16641667        $lbox.lbox delete 0 end
     
    17231726    # title field needs to match longest title
    17241727    foreach lbox $expgui(HistSelectList) {
     1728        if {! [winfo exists $lbox]} continue
    17251729        $lbox.title insert end [format "%2s %s %4s %8s  %-67s" \
    17261730                "h#" \
     
    17581762        }
    17591763        foreach lbox $expgui(HistSelectList) {
     1764            if {! [winfo exists $lbox]} continue
    17601765            $lbox.lbox insert end [format "%2d  %s %4d %8s  %-67s" \
    17611766                    $h \
Note: See TracChangeset for help on using the changeset viewer.