Changeset 4691 for trunk


Ignore:
Timestamp:
Nov 10, 2014 10:11:03 AM (6 years ago)
Author:
ldelgass
Message:

axis fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/vtkvolumeviewer.tcl

    r4669 r4691  
    248248    array set _settings {
    249249        -axesvisible                    1
    250         -axislabelsvisible              1
     250        -axislabels                     1
     251        -axisminorticks                 1
    251252        -background                     black
    252253        -cutplanelighting               1
     
    10191020        InitSettings -volumeoutline -background \
    10201021            -xgridvisible -ygridvisible -zgridvisible -axisflymode \
    1021             -axesvisible -axislabelsvisible
     1022            -axesvisible -axislabels -axisminorticks
    10221023        PanCamera
    10231024    }
     
    14971498            SendCmd "axis visible all $bool"
    14981499        }
    1499         "-axislabelsvisible" {
     1500        "-axislabels" {
    15001501            set bool $_settings($what)
    15011502            SendCmd "axis labels all $bool"
     1503        }
     1504        "-axisminorticks" {
     1505            set bool $_settings($what)
     1506            SendCmd "axis minticks all $bool"
    15021507        }
    15031508        "-xgridvisible" - "-ygridvisible" - "-zgridvisible" {
     
    16501655        SendCmd "axis color all $rgb"
    16511656        SendCmd "outline color $rgb"
    1652         SendCmd "cutplane color $rgb"
     1657        SendCmd "$_cutplaneCmd color $rgb"
    16531658        $itk_component(legend) itemconfigure labels -fill $color
    16541659        $itk_component(legend) itemconfigure limits -fill $color
     
    18781883    set inner [$itk_component(main) insert end \
    18791884        -title "Axis Settings" \
    1880         -icon [Rappture::icon axis1]]
     1885        -icon [Rappture::icon axis2]]
    18811886    $inner configure -borderwidth 4
    18821887
    18831888    checkbutton $inner.visible \
    1884         -text "Show Axes" \
     1889        -text "Axes" \
    18851890        -variable [itcl::scope _settings(-axesvisible)] \
    18861891        -command [itcl::code $this AdjustSetting -axesvisible] \
     
    18881893
    18891894    checkbutton $inner.labels \
    1890         -text "Show Axis Labels" \
    1891         -variable [itcl::scope _settings(-axislabelsvisible)] \
    1892         -command [itcl::code $this AdjustSetting -axislabelsvisible] \
     1895        -text "Axis Labels" \
     1896        -variable [itcl::scope _settings(-axislabels)] \
     1897        -command [itcl::code $this AdjustSetting -axislabels] \
    18931898        -font "Arial 9"
    18941899
    1895     checkbutton $inner.gridx \
    1896         -text "Show X Grid" \
     1900    checkbutton $inner.xgrid \
     1901        -text "X" \
    18971902        -variable [itcl::scope _settings(-xgridvisible)] \
    1898         -command [itcl::code $this AdjustSetting -xgridvisible] \
     1903        -command [itcl::code $this AdjustSetting -xgrid] \
    18991904        -font "Arial 9"
    1900     checkbutton $inner.gridy \
    1901         -text "Show Y Grid" \
     1905    checkbutton $inner.ygrid \
     1906        -text "Y" \
    19021907        -variable [itcl::scope _settings(-ygridvisible)] \
    1903         -command [itcl::code $this AdjustSetting -ygridvisible] \
     1908        -command [itcl::code $this AdjustSetting -ygrid] \
    19041909        -font "Arial 9"
    1905     checkbutton $inner.gridz \
    1906         -text "Show Z Grid" \
     1910    checkbutton $inner.zgrid \
     1911        -text "Z" \
    19071912        -variable [itcl::scope _settings(-zgridvisible)] \
    1908         -command [itcl::code $this AdjustSetting -zgridvisible] \
     1913        -command [itcl::code $this AdjustSetting -zgrid] \
    19091914        -font "Arial 9"
    19101915
     
    19231928
    19241929    blt::table $inner \
    1925         0,0 $inner.visible -anchor w -cspan 2 \
    1926         1,0 $inner.labels  -anchor w -cspan 2 \
    1927         2,0 $inner.gridx   -anchor w -cspan 2 \
    1928         3,0 $inner.gridy   -anchor w -cspan 2 \
    1929         4,0 $inner.gridz   -anchor w -cspan 2 \
    1930         5,0 $inner.mode_l  -anchor w -cspan 2 -padx { 2 0 } \
    1931         6,0 $inner.mode    -fill x   -cspan 2
     1930        0,0 $inner.visible -anchor w -cspan 4 \
     1931        1,0 $inner.labels  -anchor w -cspan 4 \
     1932        2,0 $inner.minorticks  -anchor w -cspan 4 \
     1933        4,0 $inner.grid_l  -anchor w \
     1934        4,1 $inner.xgrid   -anchor w \
     1935        4,2 $inner.ygrid   -anchor w \
     1936        4,3 $inner.zgrid   -anchor w \
     1937        5,0 $inner.mode_l  -anchor w -padx { 2 0 } \
     1938        5,1 $inner.mode    -fill x   -cspan 3
    19321939
    19331940    blt::table configure $inner r* c* -resize none
    1934     blt::table configure $inner r7 c1 -resize expand
     1941    blt::table configure $inner r7 c6 -resize expand
     1942    blt::table configure $inner r3 -height 0.125i
    19351943}
    19361944
     
    24812489            }
    24822490            set newpos [expr {0.01*$newval}]
    2483             SendCmd "cutplane slice $axis $newpos"
     2491            SendCmd "$_cutplaneCmd slice $axis $newpos"
    24842492        }
    24852493        "tooltip" {
Note: See TracChangeset for help on using the changeset viewer.