Revision: 75376
http://sourceforge.net/p/brlcad/code/75376
Author: starseeker
Date: 2020-04-13 14:01:37 +0000 (Mon, 13 Apr 2020)
Log Message:
-----------
Cherrypick r75375 - mouse wheel scrolling in MGED
Modified Paths:
--------------
brlcad/branches/RELEASE/NEWS
brlcad/branches/RELEASE/src/tclscripts/mged/bindings.tcl
Property Changed:
----------------
brlcad/branches/RELEASE/
brlcad/branches/RELEASE/NEWS
Index: brlcad/branches/RELEASE
===================================================================
--- brlcad/branches/RELEASE 2020-04-13 13:51:23 UTC (rev 75375)
+++ brlcad/branches/RELEASE 2020-04-13 14:01:37 UTC (rev 75376)
Property changes on: brlcad/branches/RELEASE
___________________________________________________________________
Modified: svn:mergeinfo
## -6,4 +6,4 ##
/brlcad/branches/opencl:65867-66137
/brlcad/branches/osg:62110-62113
/brlcad/branches/prep-cache:68236-68933
-/brlcad/trunk:36844-37285,37571-38764,38777-38845,41559-43155,43159-43908,44241-44324,44326-44385,44710-45373,45377,45379-47342,47370-68122,68125-74976,74981,75056,75325
\ No newline at end of property
+/brlcad/trunk:36844-37285,37571-38764,38777-38845,41559-43155,43159-43908,44241-44324,44326-44385,44710-45373,45377,45379-47342,47370-68122,68125-74976,74981,75056,75325,75375
\ No newline at end of property
Modified: brlcad/branches/RELEASE/NEWS
===================================================================
--- brlcad/branches/RELEASE/NEWS 2020-04-13 13:51:23 UTC (rev 75375)
+++ brlcad/branches/RELEASE/NEWS 2020-04-13 14:01:37 UTC (rev 75376)
@@ -13,6 +13,7 @@
--- 2020-0X-XX Release 7.30.X ---
----------------------------------------------------------------------
+* added support to MGED for zooming with mouse wheel - Cliff Yapp
* fixed solid editing in MGED (reverts transparency change) Cliff Yapp
* added .r suffixes to region names in 3dm-g conversion - Cliff Yapp
Property changes on: brlcad/branches/RELEASE/NEWS
___________________________________________________________________
Modified: svn:mergeinfo
## -7,4 +7,4 ##
/brlcad/branches/osg/NEWS:62110-62113
/brlcad/branches/prep-cache/NEWS:68236-68933
/brlcad/trunk:68170-68252
-/brlcad/trunk/NEWS:36844-37285,37571-38764,38777-38845,41559-43155,43159-43908,44241-44324,44326-44385,44710-45373,45377,45379-47342,47370-68122,68125-74373,74376-74976,75056
\ No newline at end of property
+/brlcad/trunk/NEWS:36844-37285,37571-38764,38777-38845,41559-43155,43159-43908,44241-44324,44326-44385,44710-45373,45377,45379-47342,47370-68122,68125-74373,74376-74976,75056,75375
\ No newline at end of property
Modified: brlcad/branches/RELEASE/src/tclscripts/mged/bindings.tcl
===================================================================
--- brlcad/branches/RELEASE/src/tclscripts/mged/bindings.tcl 2020-04-13
13:51:23 UTC (rev 75375)
+++ brlcad/branches/RELEASE/src/tclscripts/mged/bindings.tcl 2020-04-13
14:01:37 UTC (rev 75376)
@@ -288,6 +288,11 @@
bind $w <2> "winset $w; set tmpstr \[dm m %x %y\]; print_return_val
\$tmpstr; break"
bind $w <3> "winset $w; zoom 2.0; break"
+ # Mouse wheel fun with Tcl/Tk - see
https://wiki.tcl-lang.org/page/mousewheel
+ bind $w <MouseWheel> "winset $w; focus $w; if {%D < 0} {zoom 0.9} else
{zoom 1.1}"
+ bind $w <Button-4> {event generate [focus] <MouseWheel> -delta 120}
+ bind $w <Button-5> {event generate [focus] <MouseWheel> -delta -120}
+
if {$::tcl_platform(os) == "Darwin"} {
# Mac option-key emulates mouse 2 (doesn't work?)
bind $w <Option-ButtonPress-1> "winset $w; set tmpstr \[dm m %x
%y\]; print_return_val \$tmpstr; break"
@@ -299,6 +304,11 @@
bind $w <2> "winset $w; focus $w; set tmpstr \[dm m %x %y\];
print_return_val \$tmpstr; break"
bind $w <3> "winset $w; focus $w; zoom 2.0; break"
+ # Mouse wheel fun with Tcl/Tk - see
https://wiki.tcl-lang.org/page/mousewheel
+ bind $w <MouseWheel> "winset $w; focus $w; if {%D < 0} {zoom 0.9} else
{zoom 1.1}; break"
+ bind $w <Button-4> {event generate [focus] <MouseWheel> -delta 120}
+ bind $w <Button-5> {event generate [focus] <MouseWheel> -delta -120}
+
if {$::tcl_platform(os) == "Darwin"} {
# Mac command-key emulates mouse 2 (doesn't work?)
bind $w <Option-ButtonPress-1> "winset $w; focus $w; set tmpstr
\[dm m %x %y\]; print_return_val \$tmpstr; break"
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
