Changeset 5994 for branches/blt4_geovis/gui/scripts/mapviewer.tcl
- Timestamp:
- Feb 9, 2016 10:23:21 PM (8 years ago)
- Location:
- branches/blt4_geovis
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/blt4_geovis
- Property svn:mergeinfo changed
/branches/geomap merged: 5971,5990-5991,5993
- Property svn:mergeinfo changed
-
branches/blt4_geovis/gui/scripts/mapviewer.tcl
- Property svn:mergeinfo changed
/branches/geomap/gui/scripts/mapviewer.tcl (added) merged: 5990
r5964 r5994 1427 1427 1428 1428 itcl::body Rappture::MapViewer::EnablePanningMouseBindings {} { 1429 if { $_useServerManip} {1429 if {1 || $_useServerManip} { 1430 1430 bind $itk_component(view) <ButtonPress-1> \ 1431 1431 [itcl::code $this MouseClick 1 %x %y] … … 1451 1451 1452 1452 itcl::body Rappture::MapViewer::EnableRotationMouseBindings {} { 1453 if {$_useServerManip} { 1454 bind $itk_component(view) <ButtonPress-2> \ 1455 [itcl::code $this Rotate click %x %y] 1456 bind $itk_component(view) <B2-Motion> \ 1457 [itcl::code $this Rotate drag %x %y] 1458 bind $itk_component(view) <ButtonRelease-2> \ 1459 [itcl::code $this Rotate release %x %y] 1460 } else { 1453 if {1 || $_useServerManip} { 1461 1454 # Bindings for rotation via mouse 1462 1455 bind $itk_component(view) <ButtonPress-2> \ … … 1466 1459 bind $itk_component(view) <ButtonRelease-2> \ 1467 1460 [itcl::code $this MouseRelease 2 %x %y] 1461 } else { 1462 bind $itk_component(view) <ButtonPress-2> \ 1463 [itcl::code $this Rotate click %x %y] 1464 bind $itk_component(view) <B2-Motion> \ 1465 [itcl::code $this Rotate drag %x %y] 1466 bind $itk_component(view) <ButtonRelease-2> \ 1467 [itcl::code $this Rotate release %x %y] 1468 1468 } 1469 1469 } … … 1476 1476 1477 1477 itcl::body Rappture::MapViewer::EnableZoomMouseBindings {} { 1478 if { $_useServerManip} {1478 if {1 || $_useServerManip} { 1479 1479 bind $itk_component(view) <ButtonPress-3> \ 1480 1480 [itcl::code $this MouseClick 3 %x %y] … … 1770 1770 itcl::body Rappture::MapViewer::Pan {option x y} { 1771 1771 switch -- $option { 1772 "set" {1773 set w [winfo width $itk_component(view)]1774 set h [winfo height $itk_component(view)]1775 set x [expr $x / double($w)]1776 set y [expr $y / double($h)]1777 if {[expr (abs($x) > 0.0 || abs($y) > 0.0)]} {1778 SendCmd "camera pan $x $y"1779 }1780 return1781 }1782 1772 "click" { 1783 1773 set _click(x) $x … … 1813 1803 $itk_component(view) configure -cursor "" 1814 1804 set _b1mode "" 1805 } 1806 "set" { 1807 set w [winfo width $itk_component(view)] 1808 set h [winfo height $itk_component(view)] 1809 set x [expr $x / double($w)] 1810 set y [expr $y / double($h)] 1811 if {[expr (abs($x) > 0.0 || abs($y) > 0.0)]} { 1812 SendCmd "camera pan $x $y" 1813 } 1814 return 1815 1815 } 1816 1816 default { … … 2884 2884 SendCmd "map layer opacity $style(-opacity) $layer" 2885 2885 } 2886 } 2887 2888 if {[info exists info(placard)]} { 2889 array set placard [$dataobj getPlacardConfig $layer] 2890 SendCmd [list placard config $placard(attrlist) $placard(style) $placard(padding) $layer] 2886 2891 } 2887 2892 - Property svn:mergeinfo changed
Note: See TracChangeset
for help on using the changeset viewer.