PureBasic Forums - English

Code: Select all

ProcedureC PerformKeyEquivalent(Sender, sel, event)
  
  Static lastEvent
  Protected currentevent = event
   Protected result = #YES  
   If currentEvent = lastEvent : ProcedureReturn result : EndIf
   lastEvent = currentEvent

;    If currentEvent
;       Select CocoaMessage(0, currentEvent, "type")
;          Case #NSKeyDown
;             Debug "KeyDown : keyCode = " + CocoaMessage(0, currentEvent, "keyCode")
;             Define Long = CocoaMessage(0, currentEvent, "characters")
;             CocoaMessage(@Long, Long, "UTF8String")
;             Debug "KeyDown : keyChar = " + Asc(PeekS(Long, -1, #PB_UTF8))
;          
;          Case #NSKeyUp
;             Debug "KeyUp : keyCode = " + CocoaMessage(0, currentEvent, "keyCode")
;          
;      ;    Case #NSFlagsChanged ; SHIFT, CMD, ALT, CTRL, CAPS
;      ;       Debug "Flags : " + Bin(CocoaMessage(0, currentEvent, "modifierFlags"))
;          
;       EndSelect
;     EndIf
  
  ProcedureReturn #NO 
EndProcedure