MojoX – Splitting views

[coconParticipant]

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyWindow Extends Window Field gridView : GridView Field views : Label[] Field viewIndex : Int Method New() Super.New( "Add Grid Views",640,480,WindowFlags.Resizable ) gridView = New GridView(10, 1) ContentView = gridView End Method OnKeyEvent( event:KeyEvent ) Override Select event.Type Case EventType.KeyDown Select event.Key Case Key.Key1 RemoveViewFromGrid() Case Key.Key2 AddViewToGrid() End End End Method AddViewToGrid() ' validation If views = Null views = New Label[100] viewIndex = 0 End If viewIndex = views.Length Then Return ' construct label Local view := New Label view.Layout = "fill" view.Text = viewIndex view.TextGravity = New Vec2f( .5 ) ' set a random style Local style := view.Style.Copy() style.BackgroundColor = New Color(Rnd(), Rnd(), Rnd()) view.Style = style ' update gui gridView.AddView(view, viewIndex, 0) ' update indexing views[viewIndex] = view viewIndex += 1 End Method RemoveViewFromGrid() ' validation If views = Null Then Return If viewIndex = 0 Then Return ' update gui gridView.RemoveView(views[viewIndex-1]) ' update indexing views[viewIndex] = Null viewIndex -= 1 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

#Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class MyWindow Extends Window Field gridView : GridView Field views : Label[] Field viewIndex : Int Method New() Super.New( "Add Grid Views",640,480,WindowFlags.Resizable ) gridView = New GridView(10, 1) ContentView = gridView End Method OnKeyEvent( event:KeyEvent ) Override Select event.Type Case EventType.KeyDown Select event.Key Case Key.Key1 RemoveViewFromGrid() Case Key.Key2 AddViewToGrid() End End End Method AddViewToGrid() ' validation If views = Null views = New Label[100] viewIndex = 0 End If viewIndex = views.Length Then Return ' construct label Local view := New Label view.Layout = "fill" view.Text = viewIndex view.TextGravity = New Vec2f( .5 ) ' set a random style Local style := view.Style.Copy() style.BackgroundColor = New Color(Rnd(), Rnd(), Rnd()) view.Style = style ' update gui gridView.AddView(view, viewIndex, 0) ' update indexing views[viewIndex] = view viewIndex += 1 End Method RemoveViewFromGrid() ' validation If views = Null Then Return If viewIndex = 0 Then Return ' update gui gridView.RemoveView(views[viewIndex-1]) ' update indexing views[viewIndex] = Null viewIndex -= 1 End End   Function Main() New AppInstance New MyWindow App.Run() End

This is an attempt to figure out a way of splitting the contents of a mojox container dynamically. Other ideas that perhaps would be taken into consideration:

• Have the ability to use gutters so each region size would be set by the user.
• Use an horizontal bar so user would be able to scroll.
• Perhaps try alternative ways of adding or removing views so the number is not fixed to 100.

[Author]

Posts