[theuserblParticipant]

Thanks for your help.

I think Monkey2 is for beginners, so it needs an easy start for beginners.
I have in the meantime looked at the calculator example, but your example is a lot easier.
I have a little bit played with it.

A xml description file could look like

XHTML

<Control type="Window" name="MyWindow" width="640" heigh="480"> <Property name="WindowFlags" value="Resizable" /> <Control type="DockingView" name="dockingView"> <Control type="Label" name="label" text="Idle"/> <Control type="Button" name="button" text="Click ME!"/> </Control> </Control>

1 2 3 4 5 6 7

<Control type="Window" name="MyWindow" width="640" heigh="480">   <Property name="WindowFlags" value="Resizable" />   <Control type="DockingView" name="dockingView">     <Control type="Label" name="label" text="Idle"/>     <Control type="Button" name="button" text="Click ME!"/>   </Control> </Control>

That could be used as intermediate langaue for an GUI-designer. Or as additional language like Microsoft doing it with XAML for its WindowsPresentationFoundation.

This XML-code is only a how it could look like, but currently ignored the

dockingView=New DockingView
dockingView.AddView( label,”top” )
dockingView.ContentView=button

 

That xml-file should then generate automatically (or compiled to) the file ButtonDemo_ui.monkey2

Monkey

#import "<std>" #import "<mojo>" #import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyWindow_ui Extends Window Field label:Label Field button:Button Field dockingView:DockingView Method New() Super.New( "Button Demo",640,480,WindowFlags.Resizable ) label=New Label( "Idle" ) button=New Button( "Click ME!" ) button.Clicked=Lambda() button_Clicked() End dockingView=New DockingView dockingView.AddView( label,"top" ) dockingView.ContentView=button ContentView=dockingView End Method button_Clicked() Virtual 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

#import "<std>" #import "<mojo>" #import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyWindow_ui Extends Window Field label:Label Field button:Button Field dockingView:DockingView Method New() Super.New( "Button Demo",640,480,WindowFlags.Resizable ) label=New Label( "Idle" ) button=New Button( "Click ME!" ) button.Clicked=Lambda() button_Clicked() End dockingView=New DockingView dockingView.AddView( label,"top" ) dockingView.ContentView=button ContentView=dockingView End Method button_Clicked() Virtual End End

And the written code would then be in the file ButtonDemo.monkey2

Monkey

#import "ButtonDemo_ui" Class MyWindow Extends MyWindow_ui Field n:=0 Method button_Clicked() Override n+=1 label.Text="Clicked #"+n+" window size:"+Width+","+Height 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

#import "ButtonDemo_ui" Class MyWindow Extends MyWindow_ui Field n:=0 Method button_Clicked() Override n+=1 label.Text="Clicked #"+n+" window size:"+Width+","+Height End End   Function Main()   New AppInstance New MyWindow App.Run() End

Greetings
theuserbl

[Author]

Posts