Little mojox example – calculator

[degacParticipant]

Ok, I’m trying to learning MX2 and mojox… so I start to create a simple calculator.

BUT, I’m locked.

I haven’t found any ‘gadget event’ handling (like in BlitzMax/MaxGUI), I know I can use ‘actions’ or some function pointer (or what is called), and now I’m stopped :/

ps: some thing in mojox must be ‘fixed’ I think – like the text alignment in textfield

Monkey

#import "<std>" #import "<mojo>" #import "<mojox>" Using std.. Using mojo.. Using mojox.. Global map_keys:=New StringMap<Button> Class MyWindow Extends Window Field txt_result:Label Function CreateMyButton:Button(_key:String,_title:String,view:DockingView) Local bn:=New Button(_title) map_keys.Set(_key,bn) 'bn.Layout="float" bn.TextGravity=New Vec2f(.5,.5)'use Layout 'float' bn.Offset=New Vec2i(2,2) view.AddView(bn,"left",60) ' bn.Clicked=GiveMeInfo() 'ops! Return bn End Method New() Super.New( "Calculator",320,200,WindowFlags.Center ) #rem result x % 1 / 7 8 9 * 4 5 6 - 1 2 3 + + 0 , = #end Local mainView:=New DockingView Local v_display:=New DockingView Local v_command:=New DockingView Local v_num3:=New DockingView Local v_num2:=New DockingView Local v_num1:=New DockingView Local v_num0:=New DockingView mainView.MaxSize=New Vec2i(320,480 ) CreateMyButton("+-","+-",v_num0) CreateMyButton("0","0",v_num0) CreateMyButton(".",".",v_num0) CreateMyButton("=","=",v_num0) CreateMyButton("1","1",v_num1) CreateMyButton("2","2",v_num1) CreateMyButton("3","3",v_num1) CreateMyButton("+","+",v_num1) CreateMyButton("4","4",v_num2) CreateMyButton("5","5",v_num2) CreateMyButton("6","6",v_num2) CreateMyButton("-","-",v_num2) CreateMyButton("7","7",v_num3) CreateMyButton("8","8",v_num3) CreateMyButton("9","9",v_num3) CreateMyButton("*","*",v_num3) CreateMyButton("CE","CE",v_command) CreateMyButton("C","C",v_command) CreateMyButton("<-","<-",v_command) CreateMyButton("/","/",v_command) txt_result=New Label txt_result.Text="0" txt_result.Layout="float" txt_result.TextGravity=New Vec2f(.99,.5) '<---- no working :/ ??? txt_result.Style.SkinColor=Color.Grey v_display.AddView(txt_result,"left") mainView.AddView(v_display,"top") mainView.AddView(v_command,"top") mainView.AddView(v_num3,"top") mainView.AddView(v_num2,"top") mainView.AddView(v_num1,"top") mainView.AddView(v_num0,"top") ' mainView.Layout="fill-x" ContentView=mainView End End Function Main() New AppInstance New MyWindow App.Run() 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

#import "<std>" #import "<mojo>" #import "<mojox>" Using std.. Using mojo.. Using mojox..     Global map_keys:=New StringMap<Button>   Class MyWindow Extends Window   Field txt_result:Label Function CreateMyButton:Button(_key:String,_title:String,view:DockingView) Local bn:=New Button(_title) map_keys.Set(_key,bn) 'bn.Layout="float" bn.TextGravity=New Vec2f(.5,.5)'use Layout 'float' bn.Offset=New Vec2i(2,2) view.AddView(bn,"left",60) ' bn.Clicked=GiveMeInfo() 'ops! Return bn End Method New() Super.New( "Calculator",320,200,WindowFlags.Center )   #rem result x % 1 / 7 8 9 * 4 5 6 - 1 2 3 + + 0 , = #end   Local mainView:=New DockingView Local v_display:=New DockingView Local v_command:=New DockingView Local v_num3:=New DockingView Local v_num2:=New DockingView Local v_num1:=New DockingView Local v_num0:=New DockingView mainView.MaxSize=New Vec2i(320,480 ) CreateMyButton("+-","+-",v_num0) CreateMyButton("0","0",v_num0) CreateMyButton(".",".",v_num0) CreateMyButton("=","=",v_num0) CreateMyButton("1","1",v_num1) CreateMyButton("2","2",v_num1) CreateMyButton("3","3",v_num1) CreateMyButton("+","+",v_num1) CreateMyButton("4","4",v_num2) CreateMyButton("5","5",v_num2) CreateMyButton("6","6",v_num2) CreateMyButton("-","-",v_num2) CreateMyButton("7","7",v_num3) CreateMyButton("8","8",v_num3) CreateMyButton("9","9",v_num3) CreateMyButton("*","*",v_num3) CreateMyButton("CE","CE",v_command) CreateMyButton("C","C",v_command) CreateMyButton("<-","<-",v_command) CreateMyButton("/","/",v_command) txt_result=New Label txt_result.Text="0" txt_result.Layout="float" txt_result.TextGravity=New Vec2f(.99,.5) '<---- no working :/ ??? txt_result.Style.SkinColor=Color.Grey v_display.AddView(txt_result,"left") mainView.AddView(v_display,"top") mainView.AddView(v_command,"top") mainView.AddView(v_num3,"top") mainView.AddView(v_num2,"top") mainView.AddView(v_num1,"top") mainView.AddView(v_num0,"top")   ' mainView.Layout="fill-x" ContentView=mainView   End     End Function Main()   New AppInstance New MyWindow App.Run() End

The idea was to check what button is pressed.

if it’s a numeric one (0,1,…9) just add to the result, if is another kind (+,- etc) doing the operation/deleting a char/etc…

Any help is appreciated

[Simon ArmstrongParticipant]

There are some examples in mojox/bananas, edit hmm folder is actually named tests.

testbutton.monkey2:

Monkey

#import "<std>" #import "<mojo>" #import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyWindow Extends Window Method New() Super.New( "Button Demo",640,480,WindowFlags.Resizable ) Local label:=New Label( "Idle" ) label.Gravity=New Vec2f( .5,0 ) Local button:=New Button( "Click ME!" ) button.Clicked=Lambda() Global n:=0 n+=1 label.Text="Clicked #"+n End button.DoubleClicked=Lambda() Global n:=0 n+=1 label.Text="Double clicked #"+n End button.RightClicked=Lambda() Global n:=0 n+=1 label.Text="Right clicked #"+n End Local dockingView:=New DockingView dockingView.AddView( label,"top" ) dockingView.ContentView=button ContentView=dockingView End End Function Main() New AppInstance New MyWindow App.Run() 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

#import "<std>" #import "<mojo>" #import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class MyWindow Extends Window   Method New() Super.New( "Button Demo",640,480,WindowFlags.Resizable ) Local label:=New Label( "Idle" ) label.Gravity=New Vec2f( .5,0 ) Local button:=New Button( "Click ME!" ) button.Clicked=Lambda() Global n:=0 n+=1 label.Text="Clicked #"+n End button.DoubleClicked=Lambda() Global n:=0 n+=1 label.Text="Double clicked #"+n End button.RightClicked=Lambda() Global n:=0 n+=1 label.Text="Right clicked #"+n End Local dockingView:=New DockingView dockingView.AddView( label,"top" ) dockingView.ContentView=button   ContentView=dockingView End End   Function Main()   New AppInstance New MyWindow App.Run() End

[JesseParticipant]

interesting! I need to learn how to use Lambda.

I was trying to get degac’s code to work but run into problems. How do you access keys like the Plus key? I can access the equal key but not the Plus key which is a shift of the same key.

[degacParticipant]

Oh! Thanks!

I didn’t noticed that folder!

[degacParticipant]

Found a possible solution using Lambda() and a Global ref to txt_result! (this was the problem!)

Monkey

#import "<std>" #import "<mojo>" #import "<mojox>" Using std.. Using mojo.. Using mojox.. Global map_keys:=New StringMap<Button> Class MyWindow Extends Window global txt_result:Label Function CreateMyButton:Button(_key:String,_title:String,view:DockingView) Local bn:=New Button(_title) map_keys.Set(_key,bn) 'bn.Layout="float" bn.TextGravity=New Vec2f(.5,.5)'use Layout 'float' bn.Offset=New Vec2i(2,2) view.AddView(bn,"left",60) bn.Clicked=Lambda() If bn Local vi:=Int(bn.Text) Local addv:=txt_result.Text Local skip:Int Select bn.Text Case "CE" txt_result.Text="0" skip=1 Case "<-" addv=txt_result.Text txt_result.Text=addv.Left(addv.Length-1) If txt_result.Text="" txt_result.Text="0" skip=1 End select If skip=0 If vi>=0 And vi<=9 If addv="0" addv="" addv=addv+bn.Text txt_result.Text=addv End If End If End If End Return bn End Method New() Super.New( "Calculator",320,200,WindowFlags.Center ) #rem result x % 1 / 7 8 9 * 4 5 6 - 1 2 3 + + 0 , = #end Local mainView:=New DockingView Local v_display:=New DockingView Local v_command:=New DockingView Local v_num3:=New DockingView Local v_num2:=New DockingView Local v_num1:=New DockingView Local v_num0:=New DockingView mainView.MaxSize=New Vec2i(320,480 ) CreateMyButton("+-","+-",v_num0) CreateMyButton("0","0",v_num0) CreateMyButton(".",".",v_num0) CreateMyButton("=","=",v_num0) CreateMyButton("1","1",v_num1) CreateMyButton("2","2",v_num1) CreateMyButton("3","3",v_num1) CreateMyButton("+","+",v_num1) CreateMyButton("4","4",v_num2) CreateMyButton("5","5",v_num2) CreateMyButton("6","6",v_num2) CreateMyButton("-","-",v_num2) CreateMyButton("7","7",v_num3) CreateMyButton("8","8",v_num3) CreateMyButton("9","9",v_num3) CreateMyButton("*","*",v_num3) CreateMyButton("CE","CE",v_command) CreateMyButton("C","C",v_command) CreateMyButton("<-","<-",v_command) CreateMyButton("/","/",v_command) txt_result=New Label txt_result.Text="0" txt_result.Layout="float" txt_result.TextGravity=New Vec2f(.99,.5) '<---- no working :/ txt_result.Style.SkinColor=Color.Grey v_display.AddView(txt_result,"left") mainView.AddView(v_display,"top") mainView.AddView(v_command,"top") mainView.AddView(v_num3,"top") mainView.AddView(v_num2,"top") mainView.AddView(v_num1,"top") mainView.AddView(v_num0,"top") ' mainView.Layout="fill-x" ContentView=mainView End End Function Main() New AppInstance New MyWindow App.Run() 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 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166

#import "<std>" #import "<mojo>" #import "<mojox>" Using std.. Using mojo.. Using mojox..     Global map_keys:=New StringMap<Button>   Class MyWindow Extends Window   global txt_result:Label Function CreateMyButton:Button(_key:String,_title:String,view:DockingView) Local bn:=New Button(_title) map_keys.Set(_key,bn) 'bn.Layout="float" bn.TextGravity=New Vec2f(.5,.5)'use Layout 'float' bn.Offset=New Vec2i(2,2) view.AddView(bn,"left",60)   bn.Clicked=Lambda() If bn   Local vi:=Int(bn.Text) Local addv:=txt_result.Text Local skip:Int Select bn.Text Case "CE" txt_result.Text="0" skip=1 Case "<-" addv=txt_result.Text txt_result.Text=addv.Left(addv.Length-1) If txt_result.Text="" txt_result.Text="0" skip=1   End select If skip=0 If vi>=0 And vi<=9 If addv="0" addv="" addv=addv+bn.Text txt_result.Text=addv End If End If End If End Return bn End Method New() Super.New( "Calculator",320,200,WindowFlags.Center )   #rem result x % 1 / 7 8 9 * 4 5 6 - 1 2 3 + + 0 , = #end   Local mainView:=New DockingView Local v_display:=New DockingView Local v_command:=New DockingView Local v_num3:=New DockingView Local v_num2:=New DockingView Local v_num1:=New DockingView Local v_num0:=New DockingView mainView.MaxSize=New Vec2i(320,480 ) CreateMyButton("+-","+-",v_num0) CreateMyButton("0","0",v_num0) CreateMyButton(".",".",v_num0) CreateMyButton("=","=",v_num0) CreateMyButton("1","1",v_num1) CreateMyButton("2","2",v_num1) CreateMyButton("3","3",v_num1) CreateMyButton("+","+",v_num1) CreateMyButton("4","4",v_num2) CreateMyButton("5","5",v_num2) CreateMyButton("6","6",v_num2) CreateMyButton("-","-",v_num2) CreateMyButton("7","7",v_num3) CreateMyButton("8","8",v_num3) CreateMyButton("9","9",v_num3) CreateMyButton("*","*",v_num3) CreateMyButton("CE","CE",v_command) CreateMyButton("C","C",v_command) CreateMyButton("<-","<-",v_command) CreateMyButton("/","/",v_command) txt_result=New Label txt_result.Text="0" txt_result.Layout="float" txt_result.TextGravity=New Vec2f(.99,.5) '<---- no working :/ txt_result.Style.SkinColor=Color.Grey v_display.AddView(txt_result,"left") mainView.AddView(v_display,"top") mainView.AddView(v_command,"top") mainView.AddView(v_num3,"top") mainView.AddView(v_num2,"top") mainView.AddView(v_num1,"top") mainView.AddView(v_num0,"top")   ' mainView.Layout="fill-x" ContentView=mainView   End     End Function Main()   New AppInstance New MyWindow App.Run() End

Ok, it’s not very ‘beautiful’ code, just written it to test if the logic works.

Now it’s time to sleep, thanks again!

[degacParticipant]

@Jessi: MMM… I don’t understand your question!

[JesseParticipant]

I was trying to use the keyboard to control the input for the operations. I used OnKeyEvent and event.Key to access the the keyboard input but Event.Key does not return all the keys pressed. At least not in a way I can comprehend. It seems to me that it returns the keyboard button but not the key. for example on the qwerty keyboard the plus and equals sign are on the same key. so If I want to use the equal sign it’s fine. but if I want to use the plus sign it registers as the equal sign. I am probably missing something but don’t know.

[degacParticipant]

Ok, I understood.

I still have no explored deep the ‘key’ event, but I’m quite sure the ‘key’ is just the button pressed on the keyboard…

Looking at the code & manual there’s a field TEXT in the keyevent returned that should have the ‘ascii character’ pressed I suppose!

Monkey

Method OnKeyEvent( event:KeyEvent ) Override Print "Key Text : "+event.Text End

1 2 3 4

Method OnKeyEvent( event:KeyEvent ) Override Print "Key Text :  "+event.Text End

I just tested and if I press the ‘1’ key (on the mainboard) I got (many… depends on my pressure) ‘1’.

If I try to press SHIFT+1 (to print !) I got both SHIF LEFT and 1 …

I looked and mojo/input has a class KeyboardDevice… it should what needed.

I have to investigate

ps: it’s not an ‘error’ of MX2, it’s due to the different keyboard layout (and notebook are different again!)

[Simon ArmstrongParticipant]

I think you need to be testing for event type of EventType.KeyChar before using contents of event text.

[Author]

Posts