KeyboardMapper (to map ui.Buttion with KeyEvent)

[nerobotParticipant]

Originally, I wrote similar code as an answer for unity3d. Use it or lose it!

Idea is: we have some ui.Buttons and want to click them by keyboard with breaking nothing.

And we can do it using KeyboardMapper. Just write single line and voila!

_mapper.Map( but,Key.S,Modifier.Control )

but is mojox.Button here.

You can add only one key combunation per button.

You can specify what types of key events to grab; default types are KeyDown & KeyRepeat.

You’ll find KeyboardMapper class in the example app below:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Function Main() New AppInstance New MyWindow App.Run() End Class MyWindow Extends Window Method New() Super.New( "KeyboardMapper example",640,480,WindowFlags.Resizable ) Local but:=New Button( "Save" ) but.Layout="float" but.Gravity=New Vec2f( .5 ) but.Clicked=Lambda() Alert( "Save was clicked" ) End ContentView=but ' map our button with Ctrl+S _mapper.Map( but,Key.S,Modifier.Control ) End Private Field _mapper:=New KeyboardMapper<Button> End Class KeyboardMapper<T> Where T Extends mojox.Button Class Item Field button:T Field key:Key Field modifiers:Modifier End Method New( types:EventType[]=New EventType[]( EventType.KeyDown,EventType.KeyRepeat ) ) _types=types App.KeyEventFilter+=Update End Operator []:Item( button:T ) Return _items[button] End Operator []=( button:T,key:Key ) Map( button,key ) End Operator -=( button:T ) Unmap( button ) End Method Map( button:T,key:Key,modifiers:Modifier=Modifier.None ) Local i:=_items[button] If Not i i=New Item i.button=button _items[button]=i Endif i.key=key i.modifiers=modifiers End Method Unmap( button:T ) _items.Remove( button ) End Private Field _items:=New Map<T,Item> Field _types:EventType[] Method Update( event:KeyEvent ) If Not CheckEvent( event ) Return Local key:=event.Key Local modif:=event.Modifiers For Local i:=Eachin _items.Values If i.key=key And modif & i.modifiers <> 0 i.button.Clicked() ' Exit Endif Next End Method CheckEvent:Bool( event:KeyEvent ) For Local i:=Eachin _types If event.Type=i Return True Next Return False End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128

#Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..     Function Main()   New AppInstance New MyWindow App.Run() End     Class MyWindow Extends Window   Method New() Super.New( "KeyboardMapper example",640,480,WindowFlags.Resizable ) Local but:=New Button( "Save" ) but.Layout="float" but.Gravity=New Vec2f( .5 ) but.Clicked=Lambda() Alert( "Save was clicked" ) End ContentView=but ' map our button with Ctrl+S _mapper.Map( but,Key.S,Modifier.Control ) End Private Field _mapper:=New KeyboardMapper<Button> End     Class KeyboardMapper<T> Where T Extends mojox.Button Class Item Field button:T Field key:Key Field modifiers:Modifier End Method New( types:EventType[]=New EventType[]( EventType.KeyDown,EventType.KeyRepeat ) ) _types=types App.KeyEventFilter+=Update End Operator []:Item( button:T ) Return _items[button] End Operator []=( button:T,key:Key ) Map( button,key ) End Operator -=( button:T ) Unmap( button ) End Method Map( button:T,key:Key,modifiers:Modifier=Modifier.None ) Local i:=_items[button] If Not i i=New Item i.button=button _items[button]=i Endif i.key=key i.modifiers=modifiers End Method Unmap( button:T ) _items.Remove( button ) End Private Field _items:=New Map<T,Item> Field _types:EventType[] Method Update( event:KeyEvent ) If Not CheckEvent( event ) Return Local key:=event.Key Local modif:=event.Modifiers For Local i:=Eachin _items.Values If i.key=key And modif & i.modifiers <> 0 i.button.Clicked() ' Exit Endif Next End Method CheckEvent:Bool( event:KeyEvent ) For Local i:=Eachin _types If event.Type=i Return True Next Return False End End

[nerobotParticipant]

Actually, we can to omit where condition, and then we can pass any instance with method Clicked() as a button – thanks to geteric type T.

[Author]

Posts