Changeset 4286 for trunk/gui/scripts
- Timestamp:
- Mar 28, 2014 12:51:24 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/mapviewer.tcl
r4283 r4286 67 67 public method scale {args} 68 68 69 protected method AdjustSetting {what {value ""}} 69 70 protected method Connect {} 70 71 protected method CurrentDatasets {args} … … 72 73 protected method DoResize {} 73 74 protected method DoRotate {} 74 protected method AdjustSetting {what {value ""}}75 75 protected method FixSettings { args } 76 76 protected method KeyPress { key } … … 91 91 92 92 # 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 {} 94 97 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 } 99 99 private method EventuallyResize { w h } 100 private method EventuallyHandleMotionEvent { x y }101 100 private method EventuallyRotate { q } 102 101 private method GetImage { args } … … 105 104 private method SetOpacity { dataset } 106 105 private method SetOrientation { side } 106 private method UpdateLayerControls {} 107 107 108 108 private variable _arcball "" … … 134 134 private variable _rotatePending 0 135 135 private variable _rotateDelay 150 136 private variable _scaleDelay 100137 136 private variable _motion 138 137 } … … 299 298 bind $itk_component(view) <ButtonPress-1> \ 300 299 [itcl::code $this MouseClick 1 %x %y] 301 #[itcl::code $this Rotate click %x %y]302 300 bind $itk_component(view) <Double-1> \ 303 301 [itcl::code $this MouseDoubleClick 1 %x %y] 304 302 bind $itk_component(view) <B1-Motion> \ 305 303 [itcl::code $this MouseDrag 1 %x %y] 306 #[itcl::code $this Rotate drag %x %y]307 304 bind $itk_component(view) <ButtonRelease-1> \ 308 305 [itcl::code $this MouseRelease 1 %x %y] 309 #[itcl::code $this Rotate release %x %y]310 306 bind $itk_component(view) <Configure> \ 311 307 [itcl::code $this EventuallyResize %w %h] … … 314 310 bind $itk_component(view) <ButtonPress-2> \ 315 311 [itcl::code $this MouseClick 2 %x %y] 316 #[itcl::code $this Pan click %x %y]317 312 bind $itk_component(view) <Double-2> \ 318 313 [itcl::code $this MouseDoubleClick 2 %x %y] 319 314 bind $itk_component(view) <B2-Motion> \ 320 315 [itcl::code $this MouseDrag 2 %x %y] 321 #[itcl::code $this Pan drag %x %y]322 316 bind $itk_component(view) <ButtonRelease-2> \ 323 317 [itcl::code $this MouseRelease 2 %x %y] 324 #[itcl::code $this Pan release %x %y]325 318 326 319 bind $itk_component(view) <ButtonPress-3> \ … … 875 868 SendCmd "map reset projected global-mercator" 876 869 } else { 877 SendCmd "map reset projected $_mapsettings(projection)"870 SendCmd "map reset projected {$_mapsettings(projection)}" 878 871 } 879 872 } else { 880 SendCmd "map reset projected $_mapsettings(projection)$_mapsettings(extents)"873 SendCmd "map reset projected {$_mapsettings(projection)} $_mapsettings(extents)" 881 874 } 882 875 } … … 1414 1407 1415 1408 label $inner.vscale_l -text "Vertical Scale" -font "Arial 9" -anchor w 1416 ::scale $inner.vscale -from 0 -to 10 0-orient horizontal \1409 ::scale $inner.vscale -from 0 -to 10 -orient horizontal \ 1417 1410 -variable [itcl::scope _settings(terrain-vertscale)] \ 1418 1411 -width 10 \ 1419 -showvalue off \ 1412 -resolution 0.1 \ 1413 -showvalue on \ 1420 1414 -command [itcl::code $this AdjustSetting terrain-vertscale] 1421 1415 $inner.vscale set $_settings(terrain-vertscale)
Note: See TracChangeset
for help on using the changeset viewer.