Changeset 4707 for trunk/gui


Ignore:
Timestamp:
Nov 12, 2014, 7:21:51 PM (10 years ago)
Author:
ldelgass
Message:

Some cleanups for glyph viewer

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/vtkglyphviewer.tcl

    r4699 r4707  
    143143    private variable _legendPending 0
    144144    private variable _field      ""
    145     private variable _colorMode "vmag"; #  Mode of colormap (vmag or scalar)
     145    private variable _colorMode "vmag"; #  Mode of colormap (vmag or scalar)
    146146    private variable _fieldNames {}
    147147    private variable _fields
    … …  
    181181    $_dispatcher register !xcutplane
    182182    $_dispatcher dispatch $this !xcutplane \
    183         "[itcl::code $this AdjustSetting cutplaneXPosition]; list"
     183        "[itcl::code $this AdjustSetting -cutplanexposition]; list"
    184184
    185185    # Y-Cutplane event
    186186    $_dispatcher register !ycutplane
    187187    $_dispatcher dispatch $this !ycutplane \
    188         "[itcl::code $this AdjustSetting cutplaneYPosition]; list"
     188        "[itcl::code $this AdjustSetting -cutplaneyposition]; list"
    189189
    190190    # Z-Cutplane event
    191191    $_dispatcher register !zcutplane
    192192    $_dispatcher dispatch $this !zcutplane \
    193         "[itcl::code $this AdjustSetting cutplaneZPosition]; list"
     193        "[itcl::code $this AdjustSetting -cutplanezposition]; list"
    194194
    195195    #
    … …  
    221221        -axismode               "static"
    222222        -background             black
    223         -colormap               BCGYR
    224         -colormapvisible        1
     223        -colormap               BCGYR
     224        -colormapvisible        1
    225225        -cutplaneedges          0
    226226        -cutplanelighting       1
    … …  
    235235        -cutplanezposition      50
    236236        -cutplanezvisible       1
    237         -field                  "Default"
    238         -glyphedges              0
    239         -glyphlighting           1
    240         -glyphnormscale          1
    241         -glyphopacity            100
    242         -glyphorient             1
    243         -glyphoutline            0
    244         -glyphscale              1
    245         -glyphscalemode          "vmag"
    246         -glyphshape              "arrow"
    247         -glyphvisible            1
    248         -glyphwireframe          0
     237        -field                  "Default"
     238        -glyphedges             0
     239        -glyphlighting          1
     240        -glyphnormscale         1
     241        -glyphopacity           100
     242        -glyphorient            1
     243        -glyphoutline           0
     244        -glyphscale             1
     245        -glyphscalemode         "vmag"
     246        -glyphshape             "arrow"
     247        -glyphvisible           1
     248        -glyphwireframe         0
    249249        -legendvisible          1
    250250        -saveglyphopacity       100
    251251        -xgrid                  0
    252252        -ygrid                  0
    253         -zgrid                  0       
     253        -zgrid                  0
    254254    }]
    255255    array set _changed {
    … …  
    546546}
    547547
    548 
    549548# ----------------------------------------------------------------------
    550549# USAGE: delete ?<dataobj1> <dataobj2> ...?
    551550#
    552 #       Clients use this to delete a dataobj from the plot.  If no dataobjs
    553 #       are specified, then all dataobjs are deleted.  No data objects are
    554 #       deleted.  They are only removed from the display list.
     551#    Clients use this to delete a dataobj from the plot.  If no dataobjs
     552#    are specified, then all dataobjs are deleted.  No data objects are
     553#    deleted.  They are only removed from the display list.
    555554#
    556555# ----------------------------------------------------------------------
    … …  
    802801# isconnected --
    803802#
    804 #       Indicates if we are currently connected to the visualization server.
     803#    Indicates if we are currently connected to the visualization server.
    805804#
    806805itcl::body Rappture::VtkGlyphViewer::isconnected {} {
    … …  
    819818# Disconnect --
    820819#
    821 #       Clients use this method to disconnect from the current rendering
    822 #       server.
     820#    Clients use this method to disconnect from the current rendering
     821#    server.
    823822#
    824823itcl::body Rappture::VtkGlyphViewer::Disconnect {} {
    … …  
    976975            if { ![info exists _datasets($tag)] } {
    977976                set bytes [$dataobj vtkdata $comp]
    978                 if 0 {
    979                     set f [open "/tmp/glyph.vtk" "w"]
    980                     puts $f $bytes
    981                     close $f
     977                if 0 {
     978                    set f [open "/tmp/glyph.vtk" "w"]
     979                    puts $f $bytes
     980                    close $f
    982981                }
    983982                set length [string length $bytes]
    … …  
    10021001                # Setting dataset visible enables outline
    10031002                # and glyphs
    1004                 SendCmd "dataset visible 1 $tag"
     1003                SendCmd "dataset visible 1 $tag"
    10051004            }
    10061005        }
    … …  
    10081007
    10091008    if { $_first != "" } {
    1010         $itk_component(field) choices delete 0 end
    1011         $itk_component(fieldmenu) delete 0 end
    1012         array unset _fields
     1009        $itk_component(field) choices delete 0 end
     1010        $itk_component(fieldmenu) delete 0 end
     1011        array unset _fields
    10131012        set _curFldName ""
    10141013        foreach cname [$_first components] {
    … …  
    10391038        #-cutplanevisible
    10401039    if { $_reset } {
    1041         # These are settings that rely on a dataset being loaded.
     1040        # These are settings that rely on a dataset being loaded.
    10421041        InitSettings \
    10431042            -glyphlighting \
    10441043            -field \
    10451044            -glyphedges -glyphlighting -glyphopacity \
    1046             -glyphwireframe
     1045            -glyphwireframe
    10471046
    10481047        #-cutplanexposition -cutplaneyposition -cutplanezposition \
    1049             -cutplanexvisible -cutplaneyvisible -cutplanezvisible \
     1048            -cutplanexvisible -cutplaneyvisible -cutplanezvisible \
    10501049            -cutplanepreinterp
    10511050
    10521051        Zoom reset
    1053         foreach axis { x y z } {
     1052        foreach axis { x y z } {
    10541053            # Another problem fixed by a <view>. We looking into a data
    10551054            # object for the name of the axes. This should be global to
    10561055            # the viewer itself.
    1057             set label [$_first hints ${axis}label]
    1058             if { $label == "" } {
     1056            set label [$_first hints ${axis}label]
     1057            if { $label == "" } {
    10591058                set label [string toupper $axis]
    1060             }
    1061             # May be a space in the axis label.
    1062             SendCmd [list axis name $axis $label]
     1059            }
     1060            # May be a space in the axis label.
     1061            SendCmd [list axis name $axis $label]
    10631062        }
    10641063        if { [array size _fields] < 2 } {
    … …  
    11671166    SendCmd "camera pan $x $y"
    11681167}
    1169 
    11701168
    11711169# ----------------------------------------------------------------------
    … …  
    12991297# AdjustSetting --
    13001298#
    1301 #       Changes/updates a specific setting in the widget.  There are
    1302 #       usually user-setable option.  Commands are sent to the render
    1303 #       server.
     1299#    Changes/updates a specific setting in the widget.  There are
     1300#    usually user-setable option.  Commands are sent to the render
     1301#    server.
    13041302#
    13051303itcl::body Rappture::VtkGlyphViewer::AdjustSetting {what {value ""}} {
    … …  
    13101308        "-background" {
    13111309            set bgcolor [$itk_component(background) value]
    1312             array set fgcolors {
    1313                 "black" "white"
    1314                 "white" "black"
    1315                 "grey"  "black"
    1316             }
     1310            array set fgcolors {
     1311                "black" "white"
     1312                "white" "black"
     1313                "grey"  "black"
     1314            }
    13171315            configure -plotbackground $bgcolor \
    1318                 -plotforeground $fgcolors($bgcolor)
    1319             $itk_component(view) delete "legend"
    1320             DrawLegend
     1316                -plotforeground $fgcolors($bgcolor)
     1317            $itk_component(view) delete "legend"
     1318            DrawLegend
    13211319        }
    13221320        "-axesvisible" {
    … …  
    13831381                    -troughcolor grey82
    13841382            }
    1385             SendCmd "cutplane axis $axis $bool"
     1383            SendCmd "cutplane axis $axis $bool"
    13861384        }
    13871385        "-cutplanexposition" - "-cutplaneyposition" - "-cutplanezposition" {
    … …  
    13961394            set color [$itk_component(colormap) value]
    13971395            set _settings($what) $color
    1398             if { $color == "none" } {
    1399                 if { $_settings(-colormapvisible) } {
    1400                     SendCmd "glyphs colormode constant {}"
    1401                     set _settings(-colormapvisible) 0
    1402                 }
    1403             } else {
    1404                 if { !$_settings(-colormapvisible) } {
    1405                     SendCmd "glyphs colormode $_colorMode $_curFldName"
    1406                     set _settings(-colormapvisible) 1
    1407                 }
    1408                 SetCurrentColormap $color
    1409             }
     1396            if { $color == "none" } {
     1397                if { $_settings(-colormapvisible) } {
     1398                    SendCmd "glyphs colormode constant {}"
     1399                    set _settings(-colormapvisible) 0
     1400                }
     1401            } else {
     1402                if { !$_settings(-colormapvisible) } {
     1403                    SendCmd "glyphs colormode $_colorMode $_curFldName"
     1404                    set _settings(-colormapvisible) 1
     1405                }
     1406                SetCurrentColormap $color
     1407            }
    14101408            StopBufferingCommands
    1411             EventuallyRequestLegend
     1409            EventuallyRequestLegend
    14121410        }
    14131411        "-glyphwireframe" {
    14141412            set bool $_settings($what)
    1415             SendCmd "glyphs wireframe $bool"
     1413            SendCmd "glyphs wireframe $bool"
    14161414        }
    14171415        "-glyphvisible" {
    … …  
    14301428                    "Show the glyph"
    14311429            }
    1432             DrawLegend
     1430            DrawLegend
    14331431        }
    14341432        "-glyphlighting" {
    14351433            set bool $_settings($what)
    1436             SendCmd "glyphs lighting $bool"
     1434            SendCmd "glyphs lighting $bool"
    14371435        }
    14381436        "-glyphedges" {
    14391437            set bool $_settings($what)
    1440             SendCmd "glyphs edges $bool"
     1438            SendCmd "glyphs edges $bool"
    14411439        }
    14421440        "-glyphoutline" {
    … …  
    14521450            set val $_settings($what)
    14531451            set sval [expr { 0.01 * double($val) }]
    1454             SendCmd "glyphs opacity $sval"
     1452            SendCmd "glyphs opacity $sval"
    14551453        }
    14561454        "-glyphnormscale" {
    … …  
    15091507            if { !$_settings($what) } {
    15101508                $itk_component(view) delete legend
    1511             }
    1512             DrawLegend
     1509            }
     1510            DrawLegend
    15131511        }
    15141512        default {
    … …  
    15181516}
    15191517
    1520 
    15211518#
    15221519# RequestLegend --
    15231520#
    1524 #       Request a new legend from the server.  The size of the legend
    1525 #       is determined from the height of the canvas. 
     1521#    Request a new legend from the server.  The size of the legend
     1522#    is determined from the height of the canvas. 
    15261523#
    15271524# This should be called when
    1528 #       1.  A new current colormap is set.
    1529 #       2.  Window is resized.
    1530 #       3.  The limits of the data have changed.  (Just need a redraw).
    1531 #       4.  Number of glyph have changed. (Just need a redraw).
    1532 #       5.  Legend becomes visible (Just need a redraw).
     1525#    1.  A new current colormap is set.
     1526#    2.  Window is resized.
     1527#    3.  The limits of the data have changed.  (Just need a redraw).
     1528#    4.  Number of glyph have changed. (Just need a redraw).
     1529#    5.  Legend becomes visible (Just need a redraw).
    15331530#
    15341531itcl::body Rappture::VtkGlyphViewer::RequestLegend {} {
    … …  
    15421539    set fname $_curFldName
    15431540    if { [string match "component*" $fname] } {
    1544         set title ""
     1541        set title ""
    15451542    } else {
    1546         if { [info exists _fields($fname)] } {
    1547             foreach { title units } $_fields($fname) break
    1548             if { $units != "" } {
    1549                 set title [format "%s (%s)" $title $units]
    1550             }
    1551         } else {
    1552             set title $fname
    1553         }
     1543        if { [info exists _fields($fname)] } {
     1544            foreach { title units } $_fields($fname) break
     1545            if { $units != "" } {
     1546                set title [format "%s (%s)" $title $units]
     1547            }
     1548        } else {
     1549            set title $fname
     1550        }
    15541551    }
    15551552    # If there's a title too, substract one more line
    … …  
    15621559    # Set the legend on the first heightmap dataset.
    15631560    if { $_currentColormap != ""  } {
    1564         set cmap $_currentColormap
    1565         SendCmdNoWait "legend $cmap $_colorMode $_curFldName {} $w $h 0"
     1561        set cmap $_currentColormap
     1562        SendCmdNoWait "legend $cmap $_colorMode $_curFldName {} $w $h 0"
    15661563    }
    15671564}
    … …  
    15831580    if { [isconnected] } {
    15841581        set rgb [Color2RGB $itk_option(-plotforeground)]
    1585         SendCmd "axis color all $rgb"
     1582        SendCmd "axis color all $rgb"
    15861583        SendCmd "outline color $rgb"
    15871584        #SendCmd "cutplane color $rgb"
    … …  
    17311728    }
    17321729    bind $inner.field <<Value>> \
    1733         [itcl::code $this AdjustSetting field]
     1730        [itcl::code $this AdjustSetting -field]
    17341731
    17351732    label $inner.colormap_l -text "Colormap" -font "Arial 9"
    … …  
    17491746        2,0 $inner.gshape_l     -anchor w -pady 2  \
    17501747        2,1 $inner.gshape       -anchor w -pady 2  -fill x \
    1751         3,0 $inner.background_l -anchor w -pady 2 \
    1752         3,1 $inner.background   -anchor w -pady 2  -fill x \
     1748        3,0 $inner.background_l -anchor w -pady 2 \
     1749        3,1 $inner.background   -anchor w -pady 2  -fill x \
    17531750        4,0 $inner.scaleMode_l  -anchor w -pady 2  \
    17541751        4,1 $inner.scaleMode    -anchor w -pady 2  -fill x \
    … …  
    17591756        8,0 $inner.wireframe    -anchor w -pady 2 -cspan 2 \
    17601757        9,0 $inner.lighting     -anchor w -pady 2 -cspan 2 \
    1761         10,0 $inner.edges        -anchor w -pady 2 -cspan 2 \
     1758        10,0 $inner.edges       -anchor w -pady 2 -cspan 2 \
    17621759        11,0 $inner.outline     -anchor w -pady 2 -cspan 2 \
    17631760        12,0 $inner.legend      -anchor w -pady 2 \
    … …  
    18261823
    18271824    blt::table $inner \
    1828         0,0 $inner.visible -anchor w -cspan 4 \
    1829         1,0 $inner.labels  -anchor w -cspan 4 \
    1830         2,0 $inner.minorticks  -anchor w -cspan 4 \
    1831         4,0 $inner.grid_l  -anchor w \
    1832         4,1 $inner.xgrid   -anchor w \
    1833         4,2 $inner.ygrid   -anchor w \
    1834         4,3 $inner.zgrid   -anchor w \
    1835         5,0 $inner.mode_l  -anchor w -padx { 2 0 } \
    1836         5,1 $inner.mode    -fill x   -cspan 3
     1825        0,0 $inner.visible    -anchor w -cspan 4 \
     1826        1,0 $inner.labels     -anchor w -cspan 4 \
     1827        2,0 $inner.minorticks -anchor w -cspan 4 \
     1828        4,0 $inner.grid_l     -anchor w \
     1829        4,1 $inner.xgrid      -anchor w \
     1830        4,2 $inner.ygrid      -anchor w \
     1831        4,3 $inner.zgrid      -anchor w \
     1832        5,0 $inner.mode_l     -anchor w -padx { 2 0 } \
     1833        5,1 $inner.mode       -fill x   -cspan 3
    18371834
    18381835    blt::table configure $inner r* c* -resize none
    … …  
    18401837    blt::table configure $inner r3 -height 0.125i
    18411838}
    1842 
    18431839
    18441840itcl::body Rappture::VtkGlyphViewer::BuildCameraTab {} {
    … …  
    19551951            -command [itcl::code $this EventuallySetCutplane x] \
    19561952            -variable [itcl::scope _settings(-cutplanexposition)] \
    1957             -foreground red2 -font "Arial 9 bold"
     1953            -foreground red2 -font "Arial 9 bold"
    19581954    } {
    19591955        usual
    … …  
    19841980            -command [itcl::code $this EventuallySetCutplane y] \
    19851981            -variable [itcl::scope _settings(-cutplaneyposition)] \
    1986             -foreground green3 -font "Arial 9 bold"
     1982            -foreground green3 -font "Arial 9 bold"
    19871983    } {
    19881984        usual
    … …  
    20031999            -variable [itcl::scope _settings(-cutplanezvisible)] \
    20042000    } {
    2005         usual
    2006         ignore -foreground
     2001        usual
     2002        ignore -foreground
    20072003    }
    20082004    Rappture::Tooltip::for $itk_component(zbutton) \
    … …  
    20162012            -command [itcl::code $this EventuallySetCutplane z] \
    20172013            -variable [itcl::scope _settings(-cutplanezposition)] \
    2018             -foreground blue3 -font "Arial 9 bold"
     2014            -foreground blue3 -font "Arial 9 bold"
    20192015    } {
    20202016        usual
    … …  
    20272023
    20282024    blt::table $inner \
    2029         0,0 $inner.visible              -anchor w -pady 2 -cspan 3 \
    2030         1,0 $inner.lighting             -anchor w -pady 2 -cspan 3 \
    2031         2,0 $inner.wireframe            -anchor w -pady 2 -cspan 3 \
    2032         3,0 $inner.edges                -anchor w -pady 2 -cspan 3 \
    2033         4,0 $inner.preinterp            -anchor w -pady 2 -cspan 3 \
    2034         5,0 $inner.opacity_l            -anchor w -pady 2 -cspan 1 \
    2035         5,1 $inner.opacity              -fill x   -pady 2 -cspan 3 \
    2036         6,0 $inner.xbutton              -anchor w -padx 2 -pady 2 \
    2037         7,0 $inner.ybutton              -anchor w -padx 2 -pady 2 \
    2038         8,0 $inner.zbutton              -anchor w -padx 2 -pady 2 \
    2039         6,1 $inner.xval                 -fill y -rspan 4 \
    2040         6,2 $inner.yval                 -fill y -rspan 4 \
    2041         6,3 $inner.zval                 -fill y -rspan 4 \
    2042 
     2025        0,0 $inner.visible   -anchor w -pady 2 -cspan 3 \
     2026        1,0 $inner.lighting  -anchor w -pady 2 -cspan 3 \
     2027        2,0 $inner.wireframe -anchor w -pady 2 -cspan 3 \
     2028        3,0 $inner.edges     -anchor w -pady 2 -cspan 3 \
     2029        4,0 $inner.preinterp -anchor w -pady 2 -cspan 3 \
     2030        5,0 $inner.opacity_l -anchor w -pady 2 -cspan 1 \
     2031        5,1 $inner.opacity   -fill x   -pady 2 -cspan 3 \
     2032        6,0 $inner.xbutton   -anchor w -padx 2 -pady 2 \
     2033        7,0 $inner.ybutton   -anchor w -padx 2 -pady 2 \
     2034        8,0 $inner.zbutton   -anchor w -padx 2 -pady 2 \
     2035        6,1 $inner.xval      -fill y -rspan 4 \
     2036        6,2 $inner.yval      -fill y -rspan 4 \
     2037        6,3 $inner.zval      -fill y -rspan 4 \
    20432038
    20442039    blt::table configure $inner r* c* -resize none
    … …  
    22202215    $itk_component(gshape) value $style(-shape)
    22212216    SendCmd "glyphs edges $style(-edges) $tag"
     2217    set _settings(-glyphedges) $style(-edges)
     2218
    22222219    # normscale=1 and gscale=1 are defaults
    22232220    if {$style(-normscale) != 1} {
    … …  
    22302227    set _settings(-glyphscale) $style(-gscale)
    22312228
    2232     set _settings(-glyphedges) $style(-edges)
    22332229    if {$style(-colorMode) == "constant" || $style(-colormap) == "none"} {
    22342230        SendCmd "glyphs colormode constant {} $tag"
    … …  
    23142310
    23152311    if { [string match "component*" $fname] } {
    2316         set title ""
     2312        set title ""
    23172313    } else {
    2318         if { [info exists _fields($fname)] } {
    2319             foreach { title units } $_fields($fname) break
    2320             if { $units != "" } {
    2321                 set title [format "%s (%s)" $title $units]
    2322             }
    2323         } else {
    2324             set title $fname
    2325         }
     2314        if { [info exists _fields($fname)] } {
     2315            foreach { title units } $_fields($fname) break
     2316            if { $units != "" } {
     2317                set title [format "%s (%s)" $title $units]
     2318            }
     2319        } else {
     2320            set title $fname
     2321        }
    23262322    }
    23272323    # If there's a legend title, increase the offset by the line height.
    … …  
    23552351}
    23562352
    2357 
    23582353# ----------------------------------------------------------------------
    23592354# USAGE: Slice move x|y|z <newval>
    … …  
    23892384# ReceiveLegend --
    23902385#
    2391 #       Invoked automatically whenever the "legend" command comes in from
    2392 #       the rendering server.  Indicates that binary image data with the
    2393 #       specified <size> will follow.
     2386#    Invoked automatically whenever the "legend" command comes in from
     2387#    the rendering server.  Indicates that binary image data with the
     2388#    specified <size> will follow.
    23942389#
    23952390itcl::body Rappture::VtkGlyphViewer::ReceiveLegend { colormap title min max size } {
    … …  
    24052400        #puts stderr "read $size bytes for [image width $_image(legend)]x[image height $_image(legend)] legend>"
    24062401        if { [catch {DrawLegend} errs] != 0 } {
    2407             global errorInfo
    2408             puts stderr "errs=$errs errorInfo=$errorInfo"
     2402            global errorInfo
     2403            puts stderr "errs=$errs errorInfo=$errorInfo"
    24092404        }
    24102405    }
    … …  
    24142409# DrawLegend --
    24152410#
    2416 #       Draws the legend in the own canvas on the right side of the plot area.
     2411#    Draws the legend in the own canvas on the right side of the plot area.
    24172412#
    24182413itcl::body Rappture::VtkGlyphViewer::DrawLegend {} {
    … …  
    24252420   
    24262421    if { [string match "component*" $fname] } {
    2427         set title ""
     2422        set title ""
    24282423    } else {
    2429         if { [info exists _fields($fname)] } {
    2430             foreach { title units } $_fields($fname) break
    2431             if { $units != "" } {
    2432                 set title [format "%s (%s)" $title $units]
    2433             }
    2434         } else {
    2435             set title $fname
    2436         }
     2424        if { [info exists _fields($fname)] } {
     2425            foreach { title units } $_fields($fname) break
     2426            if { $units != "" } {
     2427                set title [format "%s (%s)" $title $units]
     2428            }
     2429        } else {
     2430            set title $fname
     2431        }
    24372432    }
    24382433    set x [expr $w - 2]
    24392434    if { !$_settings(-legendvisible) } {
    2440         $c delete legend
    2441         return
     2435        $c delete legend
     2436        return
    24422437    }
    24432438    if { [$c find withtag "legend"] == "" } {
    2444         set y 2
    2445         # If there's a legend title, create a text item for the title.
     2439        set y 2
     2440        # If there's a legend title, create a text item for the title.
    24462441        $c create text $x $y \
    2447             -anchor ne \
    2448             -fill $itk_option(-plotforeground) -tags "title legend" \
    2449             -font $font
     2442            -anchor ne \
     2443            -fill $itk_option(-plotforeground) -tags "title legend" \
     2444            -font $font
    24502445        if { $title != "" } {
    24512446            incr y $lineht
    24522447        }
    2453         $c create text $x $y \
    2454             -anchor ne \
    2455             -fill $itk_option(-plotforeground) -tags "vmax legend" \
    2456             -font $font
    2457         incr y $lineht
    2458         $c create image $x $y \
    2459             -anchor ne \
    2460             -image $_image(legend) -tags "colormap legend"
    2461         $c create rectangle $x $y 1 1 \
    2462             -fill "" -outline "" -tags "sensor legend"
    2463         $c create text $x [expr {$h-2}] \
    2464             -anchor se \
    2465             -fill $itk_option(-plotforeground) -tags "vmin legend" \
    2466             -font $font
    2467         $c bind sensor <Enter> [itcl::code $this EnterLegend %x %y]
    2468         $c bind sensor <Leave> [itcl::code $this LeaveLegend]
    2469         $c bind sensor <Motion> [itcl::code $this MotionLegend %x %y]
     2448        $c create text $x $y \
     2449            -anchor ne \
     2450            -fill $itk_option(-plotforeground) -tags "vmax legend" \
     2451            -font $font
     2452        incr y $lineht
     2453        $c create image $x $y \
     2454            -anchor ne \
     2455            -image $_image(legend) -tags "colormap legend"
     2456        $c create rectangle $x $y 1 1 \
     2457            -fill "" -outline "" -tags "sensor legend"
     2458        $c create text $x [expr {$h-2}] \
     2459            -anchor se \
     2460            -fill $itk_option(-plotforeground) -tags "vmin legend" \
     2461            -font $font
     2462        $c bind sensor <Enter> [itcl::code $this EnterLegend %x %y]
     2463        $c bind sensor <Leave> [itcl::code $this LeaveLegend]
     2464        $c bind sensor <Motion> [itcl::code $this MotionLegend %x %y]
    24702465    }
    24712466    set x2 $x
    … …  
    24812476    if { [info exists _limits($_curFldName)] } {
    24822477        foreach { vmin vmax } $_limits($_curFldName) break
    2483         $c itemconfigure vmin -text [format %g $vmin]
    2484         $c itemconfigure vmax -text [format %g $vmax]
     2478        $c itemconfigure vmin -text [format %g $vmin]
     2479        $c itemconfigure vmax -text [format %g $vmax]
    24852480    }
    24862481    set y 2
    … …  
    24882483    if { $title != "" } {
    24892484        $c itemconfigure title -text $title
    2490         $c coords title $x $y
    2491         incr y $lineht
     2485        $c coords title $x $y
     2486        incr y $lineht
    24922487        $c raise title
    24932488    }
    … …  
    25312526        invoke {
    25322527            $itk_component(field) value $_curFldLabel
    2533             AdjustSetting field
     2528            AdjustSetting -field
    25342529        }
    25352530        default {
    … …  
    25552550# BuildColormap --
    25562551#
    2557 #       Build the designated colormap on the server.
     2552#    Build the designated colormap on the server.
    25582553#
    25592554itcl::body Rappture::VtkGlyphViewer::BuildColormap { name } {
    … …  
    25862581    set _view(zoom) 1.0
    25872582}
    2588 
Note: See TracChangeset for help on using the changeset viewer.