Ignore:
Timestamp:
Aug 27, 2013 12:38:22 PM (8 years ago)
Author:
ldelgass
Message:

Add cutplane visibility button to nanovis viewers.

File:
1 edited

Legend:

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

    r3897 r3899  
    15071507    set font "Arial 8"
    15081508    set lineht [font metrics $font -linespace]
    1509     set c $itk_component(view)
    15101509    set w 12
    15111510    set h [expr {$_height - 2 * ($lineht + 2)}]
    1512     if { $h < 1} {
     1511    if { $h < 1 } {
    15131512        return
    15141513    }
     
    22892288        "move" {
    22902289            set axis [lindex $args 0]
    2291             set a [string toupper $axis]
    2292             set oldval $_settings(cutplane${a}Position)
    22932290            set newval [lindex $args 1]
    22942291            if {[llength $args] != 2} {
Note: See TracChangeset for help on using the changeset viewer.