Changeset 5221


Ignore:
Timestamp:
Apr 14, 2015, 11:42:34 PM (5 years ago)
Author:
ldelgass
Message:

Fix colormap combo init in vtkvolume viewer

File:
1 edited

Legend:

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

    r5219 r5221  
    11# -*- mode: tcl; indent-tabs-mode: nil -*-
    2 
    3 # ----------------------------------------------------------------------
    4 #  COMPONENT: VtkVolumeViewer - Vtk volume viewer
     2# ----------------------------------------------------------------------
     3#  COMPONENT: vtkvolumeviewer - Vtk volume viewer
    54#
    65#  It connects to the Vtk server running on a rendering farm,
     
    87# ======================================================================
    98#  AUTHOR:  Michael McLennan, Purdue University
    10 #  Copyright (c) 2004-2012  HUBzero Foundation, LLC
     9#  Copyright (c) 2004-2014  HUBzero Foundation, LLC
    1110#
    1211#  See the file "license.terms" for information on usage and
     
    370369    bind $itk_component(view) <ButtonRelease-1> \
    371370        [itcl::code $this Rotate release %x %y]
    372     bind $itk_component(view) <Configure> \
    373         [itcl::code $this EventuallyResize %w %h]
    374 
    375     if 0 {
    376     bind $itk_component(view) <Configure> \
    377         [itcl::code $this EventuallyResize %w %h]
    378     }
     371
    379372    # Bindings for panning via mouse
    380373    bind $itk_component(view) <ButtonPress-2> \
     
    841834    if { $info(-type) == "image" } {
    842835        if 0 {
    843             set f [open "last.ppm" "w"]
    844             puts $f $bytes
     836            set f [open "last.ppm" "w"]
     837            fconfigure $f -encoding binary
     838            puts -nonewline $f $bytes
    845839            close $f
    846840        }
     
    974968                    lappend info "dataset_size"  $length
    975969                    lappend info "dataset_tag"   $tag
    976                     SendCmd [list "clientinfo" $info]
     970                    SendCmd "clientinfo [list $info]"
    977971                }
    978972                SendCmd "dataset add $tag data follows $length"
     
    14541448    set font "Arial 8"
    14551449    set lineht [font metrics $font -linespace]
    1456     set c $itk_component(legend)
    14571450    set w 12
    14581451    set h [expr {$_height - 3 * ($lineht + 2)}]
    1459     if { $h < 1} {
     1452    if { $h < 1 } {
    14601453        return
    14611454    }
     
    16221615        Rappture::Combobox $inner.palette -width 10 -editable no
    16231616    }
    1624     $inner.colormap choices insert end [GetColormapList]
     1617    $inner.palette choices insert end [GetColormapList]
    16251618
    16261619    $itk_component(palette) value "BCGYR"
     
    16911684        "static_triad"    "static" \
    16921685        "closest_triad"   "closest" \
    1693         "furthest_triad"  "furthest" \
     1686        "furthest_triad"  "farthest" \
    16941687        "outer_edges"     "outer"         
    16951688    $itk_component(axismode) value "static"
Note: See TracChangeset for help on using the changeset viewer.