Opening a PopupMenu correctly on MacOS

Shardik · **Posted:** Wed Nov 24, 2010 10:10 pm

Andre wrote:

Is there any possibility on MacOS to recognize a right-mouseclick in an empty (!) window, means without adding (dummy) imagegadgets or similar?

Code:

#kEventClassMouse = 'mous'
#kEventMouseButtonPrimary = 1
#kEventMouseButtonSecondary = 2
#kEventMouseButtonTertiary = 3
#kEventMouseDown = 1
#kEventParamKeyModifiers = 'kmod'
#kEventParamMouseButton = 'mbtn'

#typeMouseButton = 'mbtn'
#typeUInt32 = 'magn'

ImportC ""
  GetEventClass(Event)
EndImport

Structure EventTypeSpec
  EventClass.L
  EventKind.L
EndStructure

Procedure EventHandler(*NextEventHandler, Event, UserData)
  Select GetEventClass(Event)
    Case #kEventClassMouse
      Select GetEventKind_(Event)
        Case #kEventMouseDown
          If GetEventParameter_(Event, #kEventParamMouseButton, #typeMouseButton, 0, 4, 0, @ButtonType) = 0
            If GetEventParameter_(Event, #kEventParamKeyModifiers, #typeUInt32, 0, 4, 0, @KeyModifier) = 0
              Select ButtonType
                Case #kEventMouseButtonPrimary
                  If KeyModifier = $00001000
                    Debug "Right mouse button"
                  Else
                    Debug "Left mouse button"
                  EndIf
                Case #kEventMouseButtonSecondary
                  Debug "Right mouse button"
                Case #kEventMouseButtonTertiary
                  Debug "Middle mouse button"
              EndSelect
            EndIf
          EndIf
      EndSelect
  EndSelect

  If *NextEventHandler
    CallNextEventHandler_(*NextEventHandler, Event)
  EndIf
EndProcedure

OpenWindow(0, 100, 100, 400, 200, "Detect left, middle and right mouse button click")

EventHandlerUPP = NewEventHandlerUPP_(@EventHandler())
EventCount = 1
Dim EventTypes.EventTypeSpec(EventCount - 1)
EventTypes(0)\EventClass = #kEventClassMouse
EventTypes(0)\EventKind = #kEventMouseDown
InstallEventHandler_(GetWindowEventTarget_(WindowID(0)), EventHandlerUPP, EventCount, @EventTypes(), UserData, @EventHandlerRef)

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Andre · **Posted:** Wed Nov 24, 2010 10:58 pm

Thanks Shardik, that works!

Even if it would be better, if that event handling would native in PB... :twisted:

WilliamL · **Posted:** Thu Nov 25, 2010 1:39 am

Odd, if I use my trackball with a right button Shardik's code works but if I use the 'ctrl'+(mousepad) button I get a left-click. In other words, if I use my MBP without an external mouse and try to right click.. I get only left-clicks. This limitation may be a problem for some users.

Shardik · **Posted:** Thu Nov 25, 2010 8:51 pm

WilliamL wrote:

Odd, if I use my trackball with a right button Shardik's code works but if I use the 'ctrl'+(mousepad) button I get a left-click.

You are right William, I didn't take care in my code example for using a left click in
combination with the Ctrl key as a right mouse click (presumably for those Apple users
with a one button mouse) although I had already read a posting from David McLeod in
the apple mailing list where he presented C code which demonstrates how to analyse
modifier keys and mouse clicks.

I have therefore updated my above code example. You are now free to use the Ctrl or Alt
or Cmd key together with the left mouse button to produce a right click... :wink:

I have tested my above example with an iMac and Mac OS X 10.6.5, a mighty mouse and
an USB Wheel mouse on which pressing the wheel down is correctly interpreted as a middle
button click.

WilliamL · **Posted:** Thu Nov 25, 2010 9:06 pm

Thanks Shardik,

Works perfectly on my MBP in 10.5.8.

(added to API list)

PureBasic Forum

Opening a PopupMenu correctly on MacOS

Who is online