yet another wheelmouse binding : zoom with layout, schematic
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Google
 
Web cadforums.net
yet another wheelmouse binding : zoom with layout, schematic

 
Post new topic   Reply to topic    CADForums.net Forum Index -> Cadence
Author Message
fogh
Guest
Posted: Mon Oct 18, 2004 12:48 pm    Post subject: yet another wheelmouse binding : zoom with layout, schematic Reply with quote
Hi All,

For those (if any !) who liked the motif and workbench configs I posted on wheelmouse/doubleclick handling (
http://groups.google.com/groups?q=fogh%20btn4down http://groups.google.com/groups?q=fogh+double+click ) , you should also appreciate this snippet, which binds zoom to control+wheel

;; set control-wheel to zoom in/out
let( ((goldy 1.618034) (binding ""))
foreach(application '("Schematics" "Command Interpreter" "Show File" "Symbol" "Graphics Browser" "Layout")
binding=strcat("hiZoomRelativeScale(hiGetCurrentWindow() " sprintf(nil "%L" goldy) " )" )
hiSetBindKey( application "Ctrl<Btn4Down>" binding)
binding=strcat("hiZoomRelativeScale(hiGetCurrentWindow() " sprintf(nil "%L" 1/goldy) " )" )
hiSetBindKey( application "Ctrl<Btn5Down>" binding)
);apps
binding=hiGetBindKey("awv" "None<Key>z")
hiSetBindKey("awv" "<Btn4Down>" binding)
binding=hiGetBindKey("awv" "Shift<Key>z")
hiSetBindKey("awv" "<Btn5Down>" binding)
);let


BTW, I did not get any feedback on the CmDoubleClick() function, the CmMouseWheelLikeArrows(), or the common desktop environment and X11 resources for wheelmouse that I posted this summer. So if you use it, don t be shy, tell me what you think, what you modified, ...

Back to top
Guest
Posted: Wed Oct 20, 2004 4:01 pm    Post subject: Re: yet another wheelmouse binding : zoom with layout, schem Reply with quote
fogh <cad_support@skipthisandunderscores.catena.nl> wrote in message news:<41738361$0$152$e4fe514c@dreader11.news.xs4all.nl>...

Quote:
BTW, I did not get any feedback on the CmDoubleClick() function,

I have just inserted that CmDoubleClick into my environment and I
think it is very good. I can't comment much on the code but it is
documented and fairly easy to understand.

--
Svenn
Back to top
fogh
Guest
Posted: Wed Oct 20, 2004 6:45 pm    Post subject: Re: yet another wheelmouse binding : zoom with layout, schem Reply with quote
svenn.are@bjerkem.de wrote:
Quote:
fogh <cad_support@skipthisandunderscores.catena.nl> wrote in message news:<41738361$0$152$e4fe514c@dreader11.news.xs4all.nl>...


BTW, I did not get any feedback on the CmDoubleClick() function,


I have just inserted that CmDoubleClick into my environment and I
think it is very good. I can't comment much on the code but it is
documented and fairly easy to understand.

Thanks Svenn.

If there are people interested in the wheel bindings who use citrix ICA / metaframe for unix, you have noticed that it doesn t work...that is because MFU has simply no support for more than 3 mouse buttons.
So please get in touch with your Metaframe supplier and request that they add support for button4&5 events in their Xserver "ctxXtw".
With requests from big customers that may happen.

Back to top
David Åström
Guest
Posted: Tue Oct 26, 2004 10:23 am    Post subject: Re: yet another wheelmouse binding : zoom with layout, schem Reply with quote
fogh wrote:
Quote:
BTW, I did not get any feedback on the CmDoubleClick() function, the
CmMouseWheelLikeArrows()

I tested your code and everything worked fine directly, except that I
had to remove 'DM("is switchable")' from CmDoubleClick().

Regards David Astrom
Back to top
Boris
Guest
Posted: Wed Oct 27, 2004 7:55 pm    Post subject: Re: yet another wheelmouse binding : zoom with layout, schem Reply with quote
Hi fogh,

I am enjoying your mouse wheel configs. Thanks a lot!
Concerning double click function, it not so useful for me, I prefer
keyboard :). But all scrolling mappings are really useful.

BTW, you are asking for improvements, I had made one for the zoom
function. I prefer zoom at the pointer. Here is an example:

;; procedure to zoom in/out at the mouse pointer
procedure( CmMouseWheelZoom(action "s")
let(((goldy 1.618034) (wwin hiGetCurrentWindow()) xy )
goldy = caseq(action
(zoomin goldy)
(t 1/goldy)
)
xy = hiGetPoint(wwin)
hiZoomRelativeScale(wwin goldy)
if( xy hiVectorPan(wwin xy hiGetPoint(wwin)))
) ; ** let **
) ; ** procedure CmMouseWheelZoom **

;; set control-wheel to zoom in/out
let( ((binding ""))
foreach(application '("Schematics" "Command Interpreter" "Show File"
"Symbol" "Graphics Browser" "Layout")
hiSetBindKey( application "Ctrl<Btn4Down>"
"CmMouseWheelZoom('zoomin)")
hiSetBindKey( application "Ctrl<Btn5Down>"
"CmMouseWheelZoom('zoomout)")
)
binding=hiGetBindKey("awv" "None<Key>z")
hiSetBindKey("awv" "<Btn4Down>" binding)
binding=hiGetBindKey("awv" "Shift<Key>z")
hiSetBindKey("awv" "<Btn5Down>" binding)
) ; ** let **

Thanks,
__
BoriS

fogh <cad_support@skipthisandunderscores.catena.nl> wrote in message news:<41738361$0$152$e4fe514c@dreader11.news.xs4all.nl>...
Quote:
Hi All,

For those (if any !) who liked the motif and workbench configs I posted on wheelmouse/doubleclick handling (
http://groups.google.com/groups?q=fogh%20btn4down http://groups.google.com/groups?q=fogh+double+click ) , you should also appreciate this snippet, which binds zoom to control+wheel

;; set control-wheel to zoom in/out
let( ((goldy 1.618034) (binding ""))
foreach(application '("Schematics" "Command Interpreter" "Show File" "Symbol" "Graphics Browser" "Layout")
binding=strcat("hiZoomRelativeScale(hiGetCurrentWindow() " sprintf(nil "%L" goldy) " )" )
hiSetBindKey( application "Ctrl<Btn4Down>" binding)
binding=strcat("hiZoomRelativeScale(hiGetCurrentWindow() " sprintf(nil "%L" 1/goldy) " )" )
hiSetBindKey( application "Ctrl<Btn5Down>" binding)
);apps
binding=hiGetBindKey("awv" "None<Key>z")
hiSetBindKey("awv" "<Btn4Down>" binding)
binding=hiGetBindKey("awv" "Shift<Key>z")
hiSetBindKey("awv" "<Btn5Down>" binding)
);let


BTW, I did not get any feedback on the CmDoubleClick() function, the CmMouseWheelLikeArrows(), or the common desktop environment and X11 resources for wheelmouse that I posted this summer. So if you use it, don t be shy, tell me what you think, what you modified, ...
Back to top
fogh
Guest
Posted: Thu Oct 28, 2004 7:59 pm    Post subject: Re: yet another wheelmouse binding : zoom with layout, schem Reply with quote
Boris,

thanks, it makes more sense to zoom on the pointer indeed. You can also bind
the doubleclick action to a key. It may spare you a descend popup.


Boris wrote:
Quote:
Hi fogh,

I am enjoying your mouse wheel configs. Thanks a lot!
Concerning double click function, it not so useful for me, I prefer
keyboard :). But all scrolling mappings are really useful.

BTW, you are asking for improvements, I had made one for the zoom
function. I prefer zoom at the pointer. Here is an example:

;; procedure to zoom in/out at the mouse pointer
procedure( CmMouseWheelZoom(action "s")
let(((goldy 1.618034) (wwin hiGetCurrentWindow()) xy )
goldy = caseq(action
(zoomin goldy)
(t 1/goldy)
)
xy = hiGetPoint(wwin)
hiZoomRelativeScale(wwin goldy)
if( xy hiVectorPan(wwin xy hiGetPoint(wwin)))
) ; ** let **
) ; ** procedure CmMouseWheelZoom **

;; set control-wheel to zoom in/out
let( ((binding ""))
foreach(application '("Schematics" "Command Interpreter" "Show File"
"Symbol" "Graphics Browser" "Layout")
hiSetBindKey( application "Ctrl<Btn4Down>"
"CmMouseWheelZoom('zoomin)")
hiSetBindKey( application "Ctrl<Btn5Down>"
"CmMouseWheelZoom('zoomout)")
)
binding=hiGetBindKey("awv" "None<Key>z")
hiSetBindKey("awv" "<Btn4Down>" binding)
binding=hiGetBindKey("awv" "Shift<Key>z")
hiSetBindKey("awv" "<Btn5Down>" binding)
) ; ** let **

Thanks,
__
BoriS

fogh <cad_support@skipthisandunderscores.catena.nl> wrote in message news:<41738361$0$152$e4fe514c@dreader11.news.xs4all.nl>...

Hi All,

For those (if any !) who liked the motif and workbench configs I posted on wheelmouse/doubleclick handling (
http://groups.google.com/groups?q=fogh%20btn4down http://groups.google.com/groups?q=fogh+double+click ) , you should also appreciate this snippet, which binds zoom to control+wheel

;; set control-wheel to zoom in/out
let( ((goldy 1.618034) (binding ""))
foreach(application '("Schematics" "Command Interpreter" "Show File" "Symbol" "Graphics Browser" "Layout")
binding=strcat("hiZoomRelativeScale(hiGetCurrentWindow() " sprintf(nil "%L" goldy) " )" )
hiSetBindKey( application "Ctrl<Btn4Down>" binding)
binding=strcat("hiZoomRelativeScale(hiGetCurrentWindow() " sprintf(nil "%L" 1/goldy) " )" )
hiSetBindKey( application "Ctrl<Btn5Down>" binding)
);apps
binding=hiGetBindKey("awv" "None<Key>z")
hiSetBindKey("awv" "<Btn4Down>" binding)
binding=hiGetBindKey("awv" "Shift<Key>z")
hiSetBindKey("awv" "<Btn5Down>" binding)
);let


BTW, I did not get any feedback on the CmDoubleClick() function, the CmMouseWheelLikeArrows(), or the common desktop environment and X11 resources for wheelmouse that I posted this summer. So if you use it, don t be shy, tell me what you think, what you modified, ...
Back to top
 
Post new topic   Reply to topic    CADForums.net Forum Index -> Cadence All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum




Windows Server DSP VoIP Electronics New Topics
Powered by phpBB