GUI and GameWindow

[coconParticipant]

How to have the main window split so the left can contain buttons and the other be used for drawing?

[nerobotParticipant]

Look at DockingView, it’s one of powerful views.

You can use it to split any area by parts.

Then assign that dock as window.ContentView.

Monkey

Local dock:=New DockingView Local canvas:=New Label Local uiDock:=New DockingView Local uiEdit:=New TextField Local uiButton:=New Button( "Run" ) uiDock.AddView( uiEdit,"top" ) uiDock.AddView( uiButton,"top" ) dock.AddView( uiDock,"right" ) dock.ContentView=canvas window.ContentView=dock

1 2 3 4 5 6 7 8 9 10

Local dock:=New DockingView Local canvas:=New Label Local uiDock:=New DockingView Local uiEdit:=New TextField Local uiButton:=New Button( "Run" ) uiDock.AddView( uiEdit,"top" ) uiDock.AddView( uiButton,"top" ) dock.AddView( uiDock,"right" ) dock.ContentView=canvas window.ContentView=dock

Canvas is label here, but you should to make own class that extends View (inner window class as a variant) and to delegate drawing to it.

For testing bounds you can set backgroundcolor property of your view via view.Style.BackgroundColor=…

And look at docs of view.Layout property, Layout=”fill” is good to have when view became contentView.

[coconParticipant]

OK I figured out.

If anyone is interested to use it, perhaps to be added in the mojox tests.

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class CanvasView Extends View Method OnRender(canvas:Canvas) Override canvas.DrawLine(0, 0, Mouse.X, Mouse.Y) End Method OnMouseEvent(event:MouseEvent) Override App.RequestRender() End End Class MyWindow Extends Window Field mainDock :DockingView Field toolsDock :DockingView Field canvasView :CanvasView Method New() Super.New("Paint Application", 1280, 720) mainDock = New DockingView toolsDock = New DockingView canvasView = New CanvasView Local button := New Button("Button 1") toolsDock.AddView(button, "top") mainDock.AddView(toolsDock, "right", 100) mainDock.ContentView = canvasView ContentView = mainDock 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

Namespace myapp   #Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class CanvasView Extends View Method OnRender(canvas:Canvas) Override canvas.DrawLine(0, 0, Mouse.X, Mouse.Y) End Method OnMouseEvent(event:MouseEvent) Override App.RequestRender() End End   Class MyWindow Extends Window   Field mainDock   :DockingView Field toolsDock  :DockingView Field canvasView :CanvasView Method New() Super.New("Paint Application", 1280, 720)   mainDock    = New DockingView toolsDock   = New DockingView canvasView  = New CanvasView Local button := New Button("Button 1") toolsDock.AddView(button, "top") mainDock.AddView(toolsDock, "right", 100) mainDock.ContentView = canvasView ContentView = mainDock End End   Function Main() New AppInstance New MyWindow App.Run () End

[Author]

Posts