Changeset 4690


Ignore:
Timestamp:
Nov 10, 2014, 1:03:44 PM (5 years ago)
Author:
ldelgass
Message:

axis fixes

File:
1 edited

Legend:

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

    r4669 r4690  
    257257        visible         1
    258258        labels          1
     259        minorticks      1
    259260    }]
    260261    array set _settings [subst {
     
    10321033        DoResize
    10331034        InitSettings axis-xgrid axis-ygrid axis-zgrid axis-mode \
    1034             axis-visible axis-labels
     1035            axis-visible axis-labels axis-minorticks
    10351036
    10361037        StopBufferingCommands
     
    16661667                set type [$dataobj type $comp]
    16671668                if { $type == "molecule" } {
    1668                     SendCmd [subst {molecule rscale $_settings(molecule-rscale) $dataset
    1669 molecule ascale $_settings(molecule-atomscale) $dataset
    1670 molecule bscale $_settings(molecule-bondscale) $dataset
    1671 molecule bstyle $_settings(molecule-bondstyle) $dataset
    1672 molecule atoms $_settings(molecule-atoms-visible) $dataset
    1673 molecule bonds $_settings(molecule-bonds-visible) $dataset}]
     1669                    StartBufferingCommands
     1670                    SendCmd [subst {molecule rscale $_settings(molecule-rscale) $dataset}]
     1671                    SendCmd [subst {molecule ascale $_settings(molecule-atomscale) $dataset}]
     1672                    SendCmd [subst {molecule bscale $_settings(molecule-bondscale) $dataset}]
     1673                    SendCmd [subst {molecule bstyle $_settings(molecule-bondstyle) $dataset}]
     1674                    SendCmd [subst {molecule atoms $_settings(molecule-atoms-visible) $dataset}]
     1675                    SendCmd [subst {molecule bonds $_settings(molecule-bonds-visible) $dataset}]
     1676                    StopBufferingCommands
    16741677                }
    16751678            }
     
    17041707            set bool $_axis(labels)
    17051708            SendCmd "axis labels all $bool"
     1709        }
     1710        "axis-minorticks" {
     1711            set bool $_axis(minorticks)
     1712            SendCmd "axis minticks all $bool"
    17061713        }
    17071714        "axis-xgrid" {
     
    21262133    set inner [$itk_component(main) insert end \
    21272134        -title "Axis Settings" \
    2128         -icon [Rappture::icon axis1]]
     2135        -icon [Rappture::icon axis2]]
    21292136    $inner configure -borderwidth 4
    21302137
    21312138    checkbutton $inner.visible \
    2132         -text "Show Axes" \
     2139        -text "Axes" \
    21332140        -variable [itcl::scope _axis(visible)] \
    21342141        -command [itcl::code $this AdjustSetting axis-visible] \
     
    21362143
    21372144    checkbutton $inner.labels \
    2138         -text "Show Axis Labels" \
     2145        -text "Axis Labels" \
    21392146        -variable [itcl::scope _axis(labels)] \
    21402147        -command [itcl::code $this AdjustSetting axis-labels] \
    21412148        -font "Arial 9"
    2142 
    2143     checkbutton $inner.gridx \
    2144         -text "Show X Grid" \
     2149    label $inner.grid_l -text "Grid" -font "Arial 9"
     2150    checkbutton $inner.xgrid \
     2151        -text "X" \
    21452152        -variable [itcl::scope _axis(xgrid)] \
    21462153        -command [itcl::code $this AdjustSetting axis-xgrid] \
    21472154        -font "Arial 9"
    2148     checkbutton $inner.gridy \
    2149         -text "Show Y Grid" \
     2155    checkbutton $inner.ygrid \
     2156        -text "Y" \
    21502157        -variable [itcl::scope _axis(ygrid)] \
    21512158        -command [itcl::code $this AdjustSetting axis-ygrid] \
    21522159        -font "Arial 9"
    2153     checkbutton $inner.gridz \
    2154         -text "Show Z Grid" \
     2160    checkbutton $inner.zgrid \
     2161        -text "Z" \
    21552162        -variable [itcl::scope _axis(zgrid)] \
    21562163        -command [itcl::code $this AdjustSetting axis-zgrid] \
     2164        -font "Arial 9"
     2165    checkbutton $inner.minorticks \
     2166        -text "Minor Ticks" \
     2167        -variable [itcl::scope _axis(minorticks)] \
     2168        -command [itcl::code $this AdjustSetting axis-minorticks] \
    21572169        -font "Arial 9"
    21582170
     
    21712183
    21722184    blt::table $inner \
    2173         0,0 $inner.visible -anchor w -cspan 2 \
    2174         1,0 $inner.labels  -anchor w -cspan 2 \
    2175         2,0 $inner.gridx   -anchor w -cspan 2 \
    2176         3,0 $inner.gridy   -anchor w -cspan 2 \
    2177         4,0 $inner.gridz   -anchor w -cspan 2 \
    2178         5,0 $inner.mode_l  -anchor w -cspan 2 -padx { 2 0 } \
    2179         6,0 $inner.mode    -fill x   -cspan 2
     2185        0,0 $inner.visible -anchor w -cspan 4 \
     2186        1,0 $inner.labels  -anchor w -cspan 4 \
     2187        2,0 $inner.minorticks  -anchor w -cspan 4 \
     2188        4,0 $inner.grid_l  -anchor w \
     2189        4,1 $inner.xgrid   -anchor w \
     2190        4,2 $inner.ygrid   -anchor w \
     2191        4,3 $inner.zgrid   -anchor w \
     2192        5,0 $inner.mode_l  -anchor w -padx { 2 0 } \
     2193        5,1 $inner.mode    -fill x   -cspan 3
    21802194
    21812195    blt::table configure $inner r* c* -resize none
    2182     blt::table configure $inner r7 c1 -resize expand
     2196    blt::table configure $inner r7 c6 -resize expand
     2197    blt::table configure $inner r3 -height 0.125i
    21832198}
    21842199
Note: See TracChangeset for help on using the changeset viewer.