Changeset 4286 for trunk/gui/scripts


Ignore:
Timestamp:
Mar 28, 2014 12:51:24 AM (10 years ago)
Author:
ldelgass
Message:

Fix range of vertical scale slider, quote projection string between braces in
command

File:
1 edited

Legend:

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

    r4283 r4286  
    6767    public method scale {args}
    6868
     69    protected method AdjustSetting {what {value ""}}
    6970    protected method Connect {}
    7071    protected method CurrentDatasets {args}
     
    7273    protected method DoResize {}
    7374    protected method DoRotate {}
    74     protected method AdjustSetting {what {value ""}}
    7575    protected method FixSettings { args  }
    7676    protected method KeyPress { key }
     
    9191
    9292    # The following methods are only used by this class.
    93     private method UpdateLayerControls {}
     93    private method BuildCameraTab {}
     94    private method BuildDownloadPopup { widget command }
     95    private method BuildLayerTab {}
     96    private method BuildTerrainTab {}
    9497    private method ChangeLayerVisibility { dataobj layer }
    95     private method BuildCameraTab {}
    96     private method BuildLayerTab {}
    97     private method BuildDownloadPopup { widget command }
    98     private method BuildTerrainTab {}
     98    private method EventuallyHandleMotionEvent { x y }
    9999    private method EventuallyResize { w h }
    100     private method EventuallyHandleMotionEvent { x y }
    101100    private method EventuallyRotate { q }
    102101    private method GetImage { args }
     
    105104    private method SetOpacity { dataset }
    106105    private method SetOrientation { side }
     106    private method UpdateLayerControls {}
    107107
    108108    private variable _arcball ""
     
    134134    private variable _rotatePending 0
    135135    private variable _rotateDelay 150
    136     private variable _scaleDelay 100
    137136    private variable _motion
    138137}
     
    299298    bind $itk_component(view) <ButtonPress-1> \
    300299        [itcl::code $this MouseClick 1 %x %y]
    301         #[itcl::code $this Rotate click %x %y]
    302300    bind $itk_component(view) <Double-1> \
    303301        [itcl::code $this MouseDoubleClick 1 %x %y]
    304302    bind $itk_component(view) <B1-Motion> \
    305303        [itcl::code $this MouseDrag 1 %x %y]
    306         #[itcl::code $this Rotate drag %x %y]
    307304    bind $itk_component(view) <ButtonRelease-1> \
    308305        [itcl::code $this MouseRelease 1 %x %y]
    309         #[itcl::code $this Rotate release %x %y]
    310306    bind $itk_component(view) <Configure> \
    311307        [itcl::code $this EventuallyResize %w %h]
     
    314310    bind $itk_component(view) <ButtonPress-2> \
    315311        [itcl::code $this MouseClick 2 %x %y]
    316         #[itcl::code $this Pan click %x %y]
    317312    bind $itk_component(view) <Double-2> \
    318313        [itcl::code $this MouseDoubleClick 2 %x %y]
    319314    bind $itk_component(view) <B2-Motion> \
    320315        [itcl::code $this MouseDrag 2 %x %y]
    321         #[itcl::code $this Pan drag %x %y]
    322316    bind $itk_component(view) <ButtonRelease-2> \
    323317        [itcl::code $this MouseRelease 2 %x %y]
    324         #[itcl::code $this Pan release %x %y]
    325318
    326319    bind $itk_component(view) <ButtonPress-3> \
     
    875868                        SendCmd "map reset projected global-mercator"
    876869                    } else {
    877                         SendCmd "map reset projected $_mapsettings(projection)"
     870                        SendCmd "map reset projected {$_mapsettings(projection)}"
    878871                    }
    879872                } else {
    880                     SendCmd "map reset projected $_mapsettings(projection) $_mapsettings(extents)"
     873                    SendCmd "map reset projected {$_mapsettings(projection)} $_mapsettings(extents)"
    881874                }
    882875            }
     
    14141407
    14151408    label $inner.vscale_l -text "Vertical Scale" -font "Arial 9" -anchor w
    1416     ::scale $inner.vscale -from 0 -to 100 -orient horizontal \
     1409    ::scale $inner.vscale -from 0 -to 10 -orient horizontal \
    14171410        -variable [itcl::scope _settings(terrain-vertscale)] \
    14181411        -width 10 \
    1419         -showvalue off \
     1412        -resolution 0.1 \
     1413        -showvalue on \
    14201414        -command [itcl::code $this AdjustSetting terrain-vertscale]
    14211415    $inner.vscale set $_settings(terrain-vertscale)
Note: See TracChangeset for help on using the changeset viewer.