Changeset 3804 for branches/1.3


Ignore:
Timestamp:
Jul 15, 2013 11:25:45 AM (7 years ago)
Author:
gah
Message:

fix limits on axis

Location:
branches/1.3/gui/scripts
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/1.3/gui/scripts/molvisviewer.tcl

    r3800 r3804  
    450450        -param          ""
    451451    }
    452     array set params $settings
     452    array set params $options
    453453
    454454    set pos [lsearch -exact $dataobj $_dlist]
  • branches/1.3/gui/scripts/resultviewer.tcl

    r3800 r3804  
    118118                set slot [lindex $_dataslots $i]
    119119                foreach dobj $slot {
     120                    if {"" != $_mode} {
     121                        $_mode2widget($_mode) delete $dobj
     122                    }
    120123                    itcl::delete object $dobj
    121124                }
     
    138141                }
    139142
     143                if {"" != $_mode} {
     144                    $_mode2widget($_mode) delete $dobj
     145                }
    140146                # destroy the object and forget it
    141147                itcl::delete object $dobj
  • branches/1.3/gui/scripts/xyresult.tcl

    r3802 r3804  
    11311131            } else {
    11321132                # Set the axis range from the entry values.
    1133                 set min $_axisPopup($axis-min)
    1134                 set max $_axisPopup($axis-max)
     1133                set label $_axisPopup(label)
     1134                set min $_axisPopup(${label}-min)
     1135                set max $_axisPopup(${label}-max)
    11351136                $g axis configure $axis -min $min -max $max
    11361137            }
     
    11581159                return
    11591160            }
    1160             set _axisPopup($axis-min) $min
     1161            set label $_axisPopup(label)
     1162            set _axisPopup(${label}-min) $min
    11611163        }
    11621164        "max" {
     
    11681170                return
    11691171            }
    1170             set _axisPopup($axis-max) $max
     1172            set label $_axisPopup(label)
     1173            set _axisPopup(${label}-max) $max
    11711174        }
    11721175    }
     
    13391342    }
    13401343    set amin ""
    1341     if { [info exists _limits(${axis}${type}-min)] } {
    1342         set amin $_limits(${axis}${type}-min)
     1344    set label $_axisPopup(label)
     1345    if { [info exists _limits(${label}-min)] } {
     1346        set amin $_limits(${label}-min)
    13431347    }
    13441348    set amax ""
    1345     if { [info exists _limits(${axis}${type}-max)] } {
    1346         set amax $_limits(${axis}${type}-max)
     1349    if { [info exists _limits(${label}-max)] } {
     1350        set amax $_limits(${label}-max)
    13471351    }
    13481352    set auto 1
     
    13551359    set _axisPopup(auto)  $_axisPopup($axis-auto)
    13561360    SetAxisRangeState $axis
    1357     if { ![info exists _axisPopup($axis-min)] } {
     1361    if { ![info exists _axisPopup(${label}-min)] } {
    13581362        if { $amin != "" } {
    1359             set _axisPopup($axis-min) $amin
    1360             set _axisPopup(min)   $_axisPopup($axis-min)
     1363            set _axisPopup(${label}-min) $amin
     1364            set _axisPopup(min)   $_axisPopup(${label}-min)
    13611365            SetAxis min
    13621366        } else {
    1363             set _axisPopup($axis-min) $min
    1364         }
    1365     }
    1366     if { ![info exists _axisPopup($axis-max)] } {
     1367            set _axisPopup(${label}-min) $min
     1368        }
     1369    }
     1370    if { ![info exists _axisPopup(${label}-max)] } {
    13671371        if { $amax != "" } {
    1368             set _axisPopup($axis-max) $amax
    1369             set _axisPopup(max)   $_axisPopup($axis-max)
     1372            set _axisPopup(${label}-max) $amax
     1373            set _axisPopup(max)   $_axisPopup(${label}-max)
    13701374            SetAxis max
    13711375        } else {
    1372             set _axisPopup($axis-max) $max
    1373         }
    1374     }
    1375     set _axisPopup(min)   $_axisPopup($axis-min)
    1376     set _axisPopup(max)   $_axisPopup($axis-max)
     1376            set _axisPopup(${label}-max) $max
     1377        }
     1378    }
     1379    set _axisPopup(min)  $_axisPopup(${label}-min)
     1380    set _axisPopup(max)  $_axisPopup(${label}-max)
    13771381    set _axisPopup(axis) $axis
    13781382
     
    14801484            if { $min != "" && ( ![info exists _limits($tag)] ||
    14811485                                   $_limits($tag) > $min ) } {
    1482                 set _limits(tag) $min
     1486                set _limits($tag) $min
    14831487            }
    14841488            set tag ${label}-max
Note: See TracChangeset for help on using the changeset viewer.