Revision: 75375
http://sourceforge.net/p/brlcad/code/75375
Author: starseeker
Date: 2020-04-13 13:51:23 +0000 (Mon, 13 Apr 2020)
Log Message:
-----------
Needs to be tested cross platform, but per user request add bindings to MGED's
display manager for zooming using a mouse wheel
Modified Paths:
--------------
brlcad/trunk/NEWS
brlcad/trunk/src/tclscripts/mged/bindings.tcl
Modified: brlcad/trunk/NEWS
===================================================================
--- brlcad/trunk/NEWS 2020-04-13 13:28:43 UTC (rev 75374)
+++ brlcad/trunk/NEWS 2020-04-13 13:51:23 UTC (rev 75375)
@@ -14,6 +14,7 @@
--- 20XX-XX-XX Release 7.XX.X ---
----------------------------------------------------------------------
+* added support to MGED for zooming with mouse wheel - Cliff Yapp
* repaired wireframe visualization during MGED solid edit - Cliff Yapp
* added .r suffixes to region names in 3dm-g conversion - Cliff Yapp
Modified: brlcad/trunk/src/tclscripts/mged/bindings.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/mged/bindings.tcl 2020-04-13 13:28:43 UTC
(rev 75374)
+++ brlcad/trunk/src/tclscripts/mged/bindings.tcl 2020-04-13 13:51:23 UTC
(rev 75375)
@@ -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
