Changeset 4770 for branches/1.3/gui


Ignore:
Timestamp:
Nov 23, 2014, 4:24:53 AM (10 years ago)
Author:
ldelgass
Message:

merge r4769 from trunk

Location:
branches/1.3
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/1.3

    • Property svn:mergeinfo changed
      /trunkmerged: 4769

  • branches/1.3/gui/scripts/vtkheightmapviewer.tcl

    r4768 r4770  
    218218
    219219    array set _settings {
    220         -axisflymode            "static"
     220        -axisflymode            "static"
    221221        -axislabels             1
    222         -axisminorticks         1
    223         -axisvisible            1
     222        -axisminorticks         1
     223        -axisvisible            1
    224224        -colormap               BCGYR
    225225        -colormapdiscrete       0
    226226        -colormapvisible        1
    227         -edges                  0
    228         -field                  "Default"
    229         -heightmapscale         50
    230         -isheightmap            0
     227        -edges                  0
     228        -field                  "Default"
     229        -heightmapscale         50
     230        -isheightmap            0
    231231        -isolinecolor           black
    232232        -isolinesvisible        1
    233233        -legendvisible          1
    234         -lighting               1
    235         -numisolines            10
     234        -lighting               1
     235        -numisolines            10
    236236        -opacity                100
    237         -outline                0
    238         -savelighting           1
    239         -saveopacity            100
    240         -saveoutline            0
    241         -stretchtofit           0
    242         -wireframe              0
    243         -xgrid                  0
    244         -ygrid                  0
    245         -zgrid                  0
     237        -outline                0
     238        -savelighting           1
     239        -saveopacity            100
     240        -saveoutline            0
     241        -stretchtofit           0
     242        -wireframe              0
     243        -xgrid                  0
     244        -ygrid                  0
     245        -zgrid                  0
    246246    }
    247247    array set _changed {
    … …  
    13801380            SendCmd "axis visible all $bool"
    13811381        }
    1382         "-xgrid" - "-ygrid" - "-zgrid" {
    1383             set axis [string tolower [string range $what 1 1]]
    1384             set bool $_settings($what)
    1385             SendCmd "axis grid $axis $bool"
    1386         }
    13871382        "-background" {
    13881383            set bg [$itk_component(background) value]
    … …  
    16681663            SendCmd "heightmap wireframe $bool"
    16691664        }
     1665        "-xgrid" - "-ygrid" - "-zgrid" {
     1666            set axis [string tolower [string range $what 1 1]]
     1667            set bool $_settings($what)
     1668            SendCmd "axis grid $axis $bool"
     1669        }
    16701670        default {
    16711671            error "don't know how to fix $what"
    … …  
    17791779    SendCmd "heightmap colormap $_currentColormap"
    17801780}
    1781 
    17821781
    17831782#
    … …  
    20932092}
    20942093
    2095 
    20962094itcl::body Rappture::VtkHeightmapViewer::BuildCameraTab {} {
    20972095    set inner [$itk_component(main) insert end \
    … …  
    21122110        0,0 $inner.view_l -anchor e -pady 2 \
    21132111        0,1 $inner.view -anchor w -pady 2
     2112    blt::table configure $inner r0 -resize none
    21142113
    21152114    set labels { qx qy qz qw xpan ypan zoom }
    … …  
    21392138    incr row
    21402139
    2141     blt::table configure $inner c* r* -resize none
     2140    blt::table configure $inner c* -resize none
    21422141    blt::table configure $inner c2 -resize expand
    21432142    blt::table configure $inner r$row -resize expand

  • branches/1.3/gui/scripts/vtkimageviewer.tcl

    r4768 r4770  
    8080    private method EventuallyRequestLegend {}
    8181    private method EventuallyResize { w h }
    82     private method EventuallyRotate { q } 
     82    private method EventuallyRotate { q }
    8383    private method GetImage { args }
    8484    private method GetVtkData { args }
    … …  
    213213
    214214    array set _settings {
    215         axisFlymode             "static"
    216         axisLabels              1
    217         axisMinorTicks          1
    218         axisVisible             1
    219         axisXGrid               0
    220         axisYGrid               0
    221         axisZGrid               0
    222         backingColor            white
    223         backingVisible          1
    224         colormapDiscrete        0
    225         field                   "Default"
    226         legendVisible           0
    227         level                   127.5
    228         numColors               256
    229         opacity                 100
    230         outline                 0
    231         saveOpacity             100
    232         stretchToFit            0
    233         view3D                  0
    234         window                  255.0
     215        -axisflymode            "static"
     216        -axislabels             1
     217        -axisminorticks         1
     218        -axisvisible            1
     219        -backingcolor           white
     220        -backingvisible         1
     221        -colormapdiscrete       0
     222        -field                  "Default"
     223        -legendvisible          0
     224        -level                  127.5
     225        -numcolors              256
     226        -opacity                100
     227        -outline                0
     228        -saveopacity            100
     229        -stretchtofit           0
     230        -view3d                 0
     231        -window                 255.0
     232        -xgrid                  0
     233        -ygrid                  0
     234        -zgrid                  0
    235235    }
    236236    array set _changed {
    237         opacity                 0
    238         colormap                0
     237        -colormap               0
     238        -opacity                0
    239239    }
    240240    itk_component add view {
    … …  
    315315            -onimage [Rappture::icon surface] \
    316316            -offimage [Rappture::icon surface] \
    317             -variable [itcl::scope _settings(view3D)] \
    318             -command [itcl::code $this AdjustSetting view3D] \
     317            -variable [itcl::scope _settings(-view3d)] \
     318            -command [itcl::code $this AdjustSetting -view3d] \
    319319    }
    320320    Rappture::Tooltip::for $itk_component(mode) \
    … …  
    326326            -onimage [Rappture::icon stretchtofit] \
    327327            -offimage [Rappture::icon stretchtofit] \
    328             -variable [itcl::scope _settings(stretchToFit)] \
    329             -command [itcl::code $this AdjustSetting stretchToFit] \
     328            -variable [itcl::scope _settings(-stretchtofit)] \
     329            -command [itcl::code $this AdjustSetting -stretchtofit] \
    330330    }
    331331    Rappture::Tooltip::for $itk_component(stretchtofit) \
    … …  
    655655    }
    656656    if { [array size found] > 1 } {
    657         set _settings(stretchToFit) 1
     657        set _settings(-stretchtofit) 1
    658658    } else {
    659659        # Check if the range of the x and y axes requires that we stretch
    … …  
    664664        if { (($xmax - $xmin) > (($ymax -$ymin) * $_maxScale)) ||
    665665             ((($xmax - $xmin) * $_maxScale) < ($ymax -$ymin)) } {
    666             set _settings(stretchToFit) 1
     666            set _settings(-stretchtofit) 1
    667667        }
    668668    }
    … …  
    918918        $_arcball resize $w $h
    919919        DoResize
    920         if { $_settings(stretchToFit) } {
    921             AdjustSetting stretchToFit
     920        if { $_settings(-stretchtofit) } {
     921            AdjustSetting -stretchToFit
    922922        }
    923923    }
    … …  
    926926        # Reset the camera and other view parameters
    927927        #
    928         InitSettings view3D background
     928        InitSettings -view3d -background
    929929
    930930        SendCmd "axis lrot z 90"
    931931        $_arcball quaternion [ViewToQuaternion]
    932         if {$_settings(view3D) } {
     932        if {$_settings(-view3d) } {
    933933            if { $_view(-ortho)} {
    934934                SendCmd "camera mode ortho"
    … …  
    10181018        $itk_component(field) value $_curFldLabel
    10191019    }
    1020     InitSettings stretchToFit outline
     1020    InitSettings -stretchtofit -outline
    10211021
    10221022    if { $_reset } {
    … …  
    10481048        #
    10491049        $_arcball quaternion [ViewToQuaternion]
    1050         if {$_settings(view3D) } {
     1050        if {$_settings(-view3d) } {
    10511051            if { $_view(-ortho)} {
    10521052                SendCmd "camera mode ortho"
    … …  
    10581058        }
    10591059        PanCamera
    1060         InitSettings axisXGrid axisYGrid axisZGrid \
    1061             axisVisible axisLabels field view3D
     1060        InitSettings -xgrid -ygrid -zgrid \
     1061            -axisvisible -axislabels -field -view3d
    10621062        if { [array size _fields] < 2 } {
    10631063            catch {blt::table forget $itk_component(field) $itk_component(field_l)}
    … …  
    11561156            }
    11571157            $_arcball quaternion [ViewToQuaternion]
    1158             if {$_settings(view3D) } {
     1158            if {$_settings(-view3d) } {
    11591159                DoRotate
    11601160            }
    … …  
    12901290itcl::body Rappture::VtkImageViewer::InitSettings { args } {
    12911291    foreach spec $args {
    1292         if { [info exists _settings($_first-$spec)] } {
     1292        if { [info exists _settings($_first${spec})] } {
    12931293            # Reset global setting with dataobj specific setting
    1294             set _settings($spec) $_settings($_first-$spec)
     1294            set _settings($spec) $_settings($_first${spec})
    12951295        }
    12961296        AdjustSetting $spec
    … …  
    13101310    }
    13111311    switch -- $what {
    1312         "axisFlymode" {
     1312        "-axisflymode" {
    13131313            set mode [$itk_component(axisflymode) value]
    13141314            set mode [$itk_component(axisflymode) translate $mode]
    … …  
    13161316            SendCmd "axis flymode $mode"
    13171317        }
    1318         "axisLabels" {
     1318        "-axislabels" {
    13191319            set bool $_settings($what)
    13201320            SendCmd "axis labels all $bool"
    13211321        }
    1322         "axisMinorTicks" {
     1322        "-axisminorticks" {
    13231323            set bool $_settings($what)
    13241324            SendCmd "axis minticks all $bool"
    13251325        }
    1326         "axisVisible" {
     1326        "-axisvisible" {
    13271327            set bool $_settings($what)
    13281328            SendCmd "axis visible all $bool"
    13291329        }
    1330         "axisXGrid" - "axisYGrid" - "axisZGrid" {
    1331             set axis [string tolower [string range $what 4 4]]
    1332             set bool $_settings($what)
    1333             SendCmd "axis grid $axis $bool"
    1334         }
    1335         "background" {
     1330        "-background" {
    13361331            set bg [$itk_component(background) value]
    13371332            array set fgcolors {
    … …  
    13481343            DrawLegend
    13491344        }
    1350         "backingColor" {
     1345        "-backingcolor" {
    13511346            set color [$itk_component(backingcolor) value]
    13521347            if { $color == "none" } {
    1353                 if { $_settings(backingVisible) } {
     1348                if { $_settings(-backingvisible) } {
    13541349                    SendCmd "image backing 0"
    1355                     set _settings(backingVisible) 0
     1350                    set _settings(-backingvisible) 0
    13561351                }
    13571352            } else {
    1358                 if { !$_settings(backingVisible) } {
     1353                if { !$_settings(-backingvisible) } {
    13591354                    SendCmd "image backing 1"
    1360                     set _settings(backingVisible) 1
     1355                    set _settings(-backingvisible) 1
    13611356                }
    13621357                SendCmd "image color [Color2RGB $color]"
    13631358            }
    13641359        }
    1365         "backingVisible" {
     1360        "-backingvisible" {
    13661361            set bool $_settings($what)
    13671362            SendCmd "image backing $bool"
    13681363        }
    1369         "colormap" {
     1364        "-colormap" {
    13701365            set _changed($what) 1
    13711366            StartBufferingCommands
    … …  
    13731368            set _settings($what) $color
    13741369            SetCurrentColormap $color
    1375             if {$_settings(colormapDiscrete)} {
    1376                  SendCmd "colormap res $_settings(numColors) $color"
     1370            if {$_settings(-colormapdiscrete)} {
     1371                 SendCmd "colormap res $_settings(-numcolors) $color"
    13771372            }
    13781373            StopBufferingCommands
    13791374            EventuallyRequestLegend
    13801375        }
    1381         "colormapDiscrete" {
     1376        "-colormapdiscrete" {
    13821377            set bool $_settings($what)
    13831378            StartBufferingCommands
    13841379            if {$bool} {
    1385                 SendCmd "colormap res $_settings(numColors)"
     1380                SendCmd "colormap res $_settings(-numcolors)"
    13861381            } else {
    13871382                SendCmd "colormap res default"
    … …  
    13901385            EventuallyRequestLegend
    13911386        }
    1392         "field" {
     1387        "-field" {
    13931388            set label [$itk_component(field) value]
    13941389            set fname [$itk_component(field) translate $label]
    … …  
    14141409            DrawLegend
    14151410        }
    1416         "view3D" {
     1411        "-view3d" {
    14171412            set bool $_settings($what)
    14181413            set c $itk_component(view)
    … …  
    14201415            # Fix image scale: 0 for contours, 1 for images.
    14211416            if { $bool } {
    1422                 set _settings(opacity) $_settings(saveOpacity)
     1417                set _settings(-opacity) $_settings(-saveopacity)
    14231418            } else {
    1424                 set _settings(opacity) 100
    1425             }
    1426             AdjustSetting opacity
     1419                set _settings(-opacity) 100
     1420            }
     1421            AdjustSetting -opacity
    14271422            if { $bool } {
    14281423                $itk_component(opacity) configure -state normal
    … …  
    14381433                $itk_component(opacity_l) configure -state disabled
    14391434                SendCmd "camera mode image"
    1440                 if {$_settings(stretchToFit)} {
     1435                if {$_settings(-stretchtofit)} {
    14411436                    SendCmd "camera aspect window"
    14421437                }
    … …  
    14651460            StopBufferingCommands
    14661461        }
    1467         "window" {
     1462        "-window" {
    14681463            set val $_settings($what)
    14691464            SendCmd "image window $val"
    14701465        }
    1471         "level" {
     1466        "-level" {
    14721467            set val $_settings($what)
    14731468            SendCmd "image level $val"
    14741469        }
    1475         "legendVisible" {
     1470        "-legendvisible" {
    14761471            if { !$_settings($what) } {
    14771472                $itk_component(view) delete legend
    … …  
    14791474            DrawLegend
    14801475        }
    1481         "opacity" {
     1476        "-opacity" {
    14821477            set _changed($what) 1
    1483             if { $_settings(view3D) } {
    1484                 set _settings(saveOpacity) $_settings($what)
     1478            if { $_settings(-view3d) } {
     1479                set _settings(-saveopacity) $_settings($what)
    14851480                set val [expr $_settings($what) * 0.01]
    14861481                SendCmd "image opacity $val"
    … …  
    14891484            }
    14901485        }
    1491         "outline" {
     1486        "-outline" {
    14921487            set bool $_settings($what)
    14931488            SendCmd "outline visible $bool"
    14941489        }
    1495         "stretchToFit" {
     1490        "-stretchtofit" {
    14961491            set bool $_settings($what)
    14971492            if { $bool } {
    1498                 if { $_settings(view3D) } {
     1493                if { $_settings(-view3d) } {
    14991494                    SendCmd "camera aspect native"
    15001495                } else {
    … …  
    15051500            }
    15061501        }
     1502        "-xgrid" - "-ygrid" - "-zgrid" {
     1503            set axis [string tolower [string range $what 1 1]]
     1504            set bool $_settings($what)
     1505            SendCmd "axis grid $axis $bool"
     1506        }
    15071507        default {
    15081508            error "don't know how to fix $what"
    … …  
    15941594    switch -- $itk_option(-mode) {
    15951595        "volume" {
    1596             set _settings(view3D) 1
     1596            set _settings(-view3d) 1
    15971597        }
    15981598        "vtkimage" {
    1599             set _settings(view3D) 0
     1599            set _settings(-view3d) 0
    16001600        }
    16011601        default {
    … …  
    16041604    }
    16051605    if { !$_reset } {
    1606         AdjustSetting view3D
     1606        AdjustSetting -view3d
    16071607    }
    16081608}
    … …  
    16461646    checkbutton $inner.legend \
    16471647        -text "Legend" \
    1648         -variable [itcl::scope _settings(legendVisible)] \
    1649         -command [itcl::code $this AdjustSetting legendVisible] \
     1648        -variable [itcl::scope _settings(-legendvisible)] \
     1649        -command [itcl::code $this AdjustSetting -legendvisible] \
    16501650        -font "Arial 9"
    16511651
    16521652    checkbutton $inner.outline \
    16531653        -text "Outline" \
    1654         -variable [itcl::scope _settings(outline)] \
    1655         -command [itcl::code $this AdjustSetting outline] \
     1654        -variable [itcl::scope _settings(-outline)] \
     1655        -command [itcl::code $this AdjustSetting -outline] \
    16561656        -font "Arial 9"
    16571657
    16581658    checkbutton $inner.backing \
    16591659        -text "Backing" \
    1660         -variable [itcl::scope _settings(backingVisible)] \
    1661         -command [itcl::code $this AdjustSetting backingVisible] \
     1660        -variable [itcl::scope _settings(-backingvisible)] \
     1661        -command [itcl::code $this AdjustSetting -backingvisible] \
    16621662        -font "Arial 9"
    16631663
    16641664    checkbutton $inner.stretch \
    16651665        -text "Stretch to fit" \
    1666         -variable [itcl::scope _settings(stretchToFit)] \
    1667         -command [itcl::code $this AdjustSetting stretchToFit] \
     1666        -variable [itcl::scope _settings(-stretchtofit)] \
     1667        -command [itcl::code $this AdjustSetting -stretchtofit] \
    16681668        -font "Arial 9"
    16691669
    16701670    checkbutton $inner.colormapDiscrete \
    16711671        -text "Discrete Colormap" \
    1672         -variable [itcl::scope _settings(colormapDiscrete)] \
    1673         -command [itcl::code $this AdjustSetting colormapDiscrete] \
     1672        -variable [itcl::scope _settings(-colormapdiscrete)] \
     1673        -command [itcl::code $this AdjustSetting -colormapdiscrete] \
    16741674        -font "Arial 9"
    16751675
    … …  
    16831683    }
    16841684    bind $inner.field <<Value>> \
    1685         [itcl::code $this AdjustSetting field]
     1685        [itcl::code $this AdjustSetting -field]
    16861686
    16871687    label $inner.colormap_l -text "Colormap" -font "Arial 9"
    … …  
    16931693    $itk_component(colormap) value "BCGYR"
    16941694    bind $inner.colormap <<Value>> \
    1695         [itcl::code $this AdjustSetting colormap]
     1695        [itcl::code $this AdjustSetting -colormap]
    16961696
    16971697    label $inner.backingcolor_l -text "Backing Color" -font "Arial 9"
    … …  
    17111711        "none"               "none"
    17121712
    1713     $itk_component(backingcolor) value "white"
     1713    $itk_component(backingcolor) value $_settings(-backingcolor)
    17141714    bind $inner.backingcolor <<Value>> \
    1715         [itcl::code $this AdjustSetting backingColor]
     1715        [itcl::code $this AdjustSetting -backingcolor]
    17161716
    17171717    label $inner.background_l -text "Background Color" -font "Arial 9"
    … …  
    17251725
    17261726    $itk_component(background) value "white"
    1727     bind $inner.background <<Value>> [itcl::code $this AdjustSetting background]
     1727    bind $inner.background <<Value>> \
     1728        [itcl::code $this AdjustSetting -background]
    17281729
    17291730    itk_component add opacity_l {
    … …  
    17341735    itk_component add opacity {
    17351736        ::scale $inner.opacity -from 0 -to 100 -orient horizontal \
    1736             -variable [itcl::scope _settings(opacity)] \
     1737            -variable [itcl::scope _settings(-opacity)] \
    17371738            -showvalue off \
    1738             -command [itcl::code $this AdjustSetting opacity]
     1739            -command [itcl::code $this AdjustSetting -opacity]
    17391740    }
    17401741
    … …  
    17461747    itk_component add window {
    17471748        ::scale $inner.window -from 0 -to 255 -orient horizontal \
    1748             -variable [itcl::scope _settings(window)] \
     1749            -variable [itcl::scope _settings(-window)] \
    17491750            -showvalue off \
    1750             -command [itcl::code $this AdjustSetting window]
     1751            -command [itcl::code $this AdjustSetting -window]
    17511752    }
    17521753    itk_component add level_l {
    … …  
    17571758    itk_component add level {
    17581759        ::scale $inner.level -from 0 -to 255 -orient horizontal \
    1759             -variable [itcl::scope _settings(level)] \
     1760            -variable [itcl::scope _settings(-level)] \
    17601761            -showvalue off \
    1761             -command [itcl::code $this AdjustSetting level]
     1762            -command [itcl::code $this AdjustSetting -level]
    17621763    }
    17631764
    … …  
    18041805    checkbutton $inner.visible \
    18051806        -text "Axes" \
    1806         -variable [itcl::scope _settings(axisVisible)] \
    1807         -command [itcl::code $this AdjustSetting axisVisible] \
     1807        -variable [itcl::scope _settings(-axisvisible)] \
     1808        -command [itcl::code $this AdjustSetting -axisvisible] \
    18081809        -font "Arial 9"
    18091810    checkbutton $inner.labels \
    18101811        -text "Axis Labels" \
    1811         -variable [itcl::scope _settings(axisLabels)] \
    1812         -command [itcl::code $this AdjustSetting axisLabels] \
     1812        -variable [itcl::scope _settings(-axislabels)] \
     1813        -command [itcl::code $this AdjustSetting -axislabels] \
    18131814        -font "Arial 9"
    18141815    label $inner.grid_l -text "Grid" -font "Arial 9"
    18151816    checkbutton $inner.xgrid \
    18161817        -text "X" \
    1817         -variable [itcl::scope _settings(axisXGrid)] \
    1818         -command [itcl::code $this AdjustSetting axisXGrid] \
     1818        -variable [itcl::scope _settings(-xgrid)] \
     1819        -command [itcl::code $this AdjustSetting -xgrid] \
    18191820        -font "Arial 9"
    18201821    checkbutton $inner.ygrid \
    18211822        -text "Y" \
    1822         -variable [itcl::scope _settings(axisYGrid)] \
    1823         -command [itcl::code $this AdjustSetting axisYGrid] \
     1823        -variable [itcl::scope _settings(-ygrid)] \
     1824        -command [itcl::code $this AdjustSetting -ygrid] \
    18241825        -font "Arial 9"
    18251826    checkbutton $inner.zgrid \
    18261827        -text "Z" \
    1827         -variable [itcl::scope _settings(axisZGrid)] \
    1828         -command [itcl::code $this AdjustSetting axisZGrid] \
     1828        -variable [itcl::scope _settings(-zgrid)] \
     1829        -command [itcl::code $this AdjustSetting -zgrid] \
    18291830        -font "Arial 9"
    18301831    checkbutton $inner.minorticks \
    18311832        -text "Minor Ticks" \
    1832         -variable [itcl::scope _settings(axisMinorTicks)] \
    1833         -command [itcl::code $this AdjustSetting axisMinorTicks] \
     1833        -variable [itcl::scope _settings(-axisminorticks)] \
     1834        -command [itcl::code $this AdjustSetting -axisminorticks] \
    18341835        -font "Arial 9"
    18351836
    … …  
    18441845        "furthest_triad"  "farthest" \
    18451846        "outer_edges"     "outer"         
    1846     $itk_component(axisflymode) value "static"
    1847     bind $inner.mode <<Value>> [itcl::code $this AdjustSetting axisFlymode]
     1847    $itk_component(axisflymode) value $_settings(-axisflymode)
     1848    bind $inner.mode <<Value>> [itcl::code $this AdjustSetting -axisflymode]
    18481849
    18491850    blt::table $inner \
    … …  
    18631864}
    18641865
    1865 
    18661866itcl::body Rappture::VtkImageViewer::BuildCameraTab {} {
    18671867    set inner [$itk_component(main) insert end \
    … …  
    18821882        0,0 $inner.view_l -anchor e -pady 2 \
    18831883        0,1 $inner.view -anchor w -pady 2
     1884    blt::table configure $inner r0 -resize none
    18841885
    18851886    set labels { qx qy qz qw xpan ypan zoom }
    … …  
    19091910    incr row
    19101911
    1911     blt::table configure $inner c* r* -resize none
     1912    blt::table configure $inner c* -resize none
    19121913    blt::table configure $inner c2 -resize expand
    19131914    blt::table configure $inner r$row -resize expand
    … …  
    20452046    # the code to handle aberrant cases.
    20462047
    2047     if { $_changed(opacity) } {
    2048         set style(-opacity) [expr $_settings(opacity) * 0.01]
    2049     }
    2050     if { $_changed(colormap) } {
    2051         set style(-color) $_settings(colormap)
     2048    if { $_changed(-opacity) } {
     2049        set style(-opacity) [expr $_settings(-opacity) * 0.01]
     2050    }
     2051    if { $_changed(-colormap) } {
     2052        set style(-color) $_settings(-colormap)
    20522053    }
    20532054    if { $_currentColormap == "" } {
    … …  
    20552056    }
    20562057    if { [info exists style(-stretchtofit)] } {
    2057         set _settings(stretchToFit) $style(-stretchtofit)
    2058         AdjustSetting stretchToFit
     2058        set _settings(-stretchtofit) $style(-stretchtofit)
     2059        AdjustSetting -stretchToFit
    20592060    }
    20602061    SendCmd "outline add $tag"
    20612062    SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag"
    2062     SendCmd "outline visible $_settings(outline) $tag"
     2063    SendCmd "outline visible $_settings(-outline) $tag"
    20632064    SendCmd "image add $tag"
    20642065    SetCurrentColormap $style(-color)
    … …  
    20662067    SendCmd "image color [Color2RGB $color] $tag"
    20672068    SendCmd "image opacity $style(-opacity) $tag"
    2068     set _settings(opacity) [expr $style(-opacity) * 100.0]
     2069    set _settings(-opacity) [expr $style(-opacity) * 100.0]
    20692070}
    20702071
    … …  
    21252126    }
    21262127    set x [expr $w - 2]
    2127     if { !$_settings(legendVisible) } {
     2128    if { !$_settings(-legendvisible) } {
    21282129        $c delete legend
    21292130        return
    … …  
    21332134        # If there's a legend title, create a text item for the title.
    21342135        $c create text $x $y \
    2135             -anchor ne \
    2136             -fill $itk_option(-plotforeground) -tags "title legend" \
    2137             -font $font
     2136            -anchor ne \
     2137            -fill $itk_option(-plotforeground) -tags "title legend" \
     2138            -font $font
    21382139        if { $title != "" } {
    21392140            incr y $lineht
    21402141        }
    21412142        $c create text $x $y \
    2142             -anchor ne \
    2143             -fill $itk_option(-plotforeground) -tags "vmax legend" \
    2144             -font $font
    2145         incr y $lineht
     2143            -anchor ne \
     2144            -fill $itk_option(-plotforeground) -tags "vmax legend" \
     2145            -font $font
     2146        incr y $lineht
    21462147        $c create image $x $y \
    21472148            -anchor ne \
    … …  
    23072308        invoke {
    23082309            $itk_component(field) value $_curFldLabel
    2309             AdjustSetting field
     2310            AdjustSetting -field
    23102311        }
    23112312        default {
Note: See TracChangeset for help on using the changeset viewer.