Create a CustomView and add it into a DockingView

This topic contains 4 replies, has 2 voices, and was last updated by cocon 1 year, 3 months ago.

Viewing 5 posts - 1 through 5 (of 5 total)

Author

Posts

January 1, 2018 at 12:05 am #12540

cocon

Participant

Do you know how can I create my own view class and add GUI elements to it?

[Old Code Deleted]

January 1, 2018 at 12:03 pm #12548

nerobot

Participant

Try to add in constructor of CustomView:

Layout="fill"

1	Layout="fill"

And possibly right there:

dockingView.Layout=”fill”

January 1, 2018 at 3:56 pm #12549

cocon

Participant

Hi Nerobot, I had a look at the monkey examples and I figured out that by looking at the “stargate.monkey2” example.

#import "<std>"
#import "<mojo>"
#import "<mojox>"

Using std..
Using mojo..
Using mojox..

Class CustomView Extends View
	Method New(a:String, b:String)
		Local dockingView := New DockingView
		dockingView.AddView( New Button( a ),"top","50%" )
		dockingView.AddView( New Button( b ),"bottom","50%" )
		AddView( dockingView )
	End
	
	Method AddView( view:View )
		AddChildView( view )
		_views.Push( view )
	End
	
	Method RemoveView( view:View )
		RemoveChildView( view )
		_views.Remove( view )
	End
	
	Method OnLayout() Override
		For Local view:=Eachin _views
			view.Frame = Rect
		Next
	End
	
	Field _views:=New Stack<View>
End

Class MyWindow Extends Window

	Method New()
		Super.New( "DockingView Demo",640,480,WindowFlags.Resizable )
		
		Local dockingView:=New DockingView
		dockingView.AddView( New CustomView("LEFT 1", "LEFT 2"),"left","50%" )
		dockingView.AddView( New CustomView("RIGHT 1", "RIGHT 2"),"right","50%" )
		
		ContentView=dockingView
	End

End

Function Main()

	New AppInstance
	
	New MyWindow
	
	App.Run()
End

#import "<std>"

#import "<mojo>"

#import "<mojox>"

Using std..

Using mojo..

Using mojox..

Class CustomView Extends View

Method New(a:String, b:String)

Local dockingView := New DockingView

dockingView.AddView( New Button( a ),"top","50%" )

dockingView.AddView( New Button( b ),"bottom","50%" )

AddView( dockingView )

End

Method AddView( view:View )

AddChildView( view )

_views.Push( view )

End

Method RemoveView( view:View )

RemoveChildView( view )

_views.Remove( view )

End

Method OnLayout() Override

For Local view:=Eachin _views

view.Frame = Rect

End

Field _views:=New Stack<View>

End

Class MyWindow Extends Window

Method New()

Super.New( "DockingView Demo",640,480,WindowFlags.Resizable )

Local dockingView:=New DockingView

dockingView.AddView( New CustomView("LEFT 1", "LEFT 2"),"left","50%" )

dockingView.AddView( New CustomView("RIGHT 1", "RIGHT 2"),"right","50%" )

ContentView=dockingView

End

Function Main()

New AppInstance

New MyWindow

App.Run()

End

This is a reimplementation of what other GUI elements do, such as the Label or something else. For example instead of managing the stack with the views myself I found that I can extend the label and have the same idea.

I think that a new GUI element to be added to mojox, for example currently the hierarchy goes like this: View > Label, View > Button, then this new element would be done like this, View > ViewComponent.

How it should be named? i.e: ViewComponent, ViewNode, ViewControl, etc.

January 1, 2018 at 6:01 pm #12550

nerobot

Participant

Naming depends on what that component will do.

I don’t understand what do you want to achieve here. Kind of container? But we already have DockingView as a good container.

January 1, 2018 at 6:38 pm #12551

cocon

Participant

Oh, you ‘re saying that I would just use DockingView instead.

It seems that this is what works best.

#import "<std>"
#import "<mojo>"
#import "<mojox>"

Using std..
Using mojo..
Using mojox..

Class CustomView Extends DockingView
	Method New(a:String, b:String)
		Local b1 := New Button( a )
		Local b2 := New Button( b )
		AddView( b1 ,"top","50%" )
		AddView( b2 ,"bottom","50%" )
	End
End

Class MyWindow Extends Window

	Method New()
		Super.New( "DockingView Demo",640,480,WindowFlags.Resizable )
		Local dockingView:=New DockingView
		dockingView.AddView( New CustomView("LEFT 1", "LEFT 2"),"left","50%" )
		dockingView.AddView( New CustomView("RIGHT 1", "RIGHT 2"),"right","50%" )
		ContentView=dockingView
	End

End

Function Main()
	New AppInstance
	New MyWindow
	App.Run()
End

#import "<std>"

#import "<mojo>"

#import "<mojox>"

Using std..

Using mojo..

Using mojox..

Class CustomView Extends DockingView

Method New(a:String, b:String)

Local b1 := New Button( a )

Local b2 := New Button( b )

AddView( b1 ,"top","50%" )

AddView( b2 ,"bottom","50%" )

End

Class MyWindow Extends Window

Method New()

Super.New( "DockingView Demo",640,480,WindowFlags.Resizable )

Local dockingView:=New DockingView

dockingView.AddView( New CustomView("LEFT 1", "LEFT 2"),"left","50%" )

dockingView.AddView( New CustomView("RIGHT 1", "RIGHT 2"),"right","50%" )

ContentView=dockingView

End

Function Main()

New AppInstance

New MyWindow

App.Run()

End

Hopefully all of these snippets posted into this forum will be used to create a nice collection of examples.

Author

Posts

Viewing 5 posts - 1 through 5 (of 5 total)

You must be logged in to reply to this topic.

Create a CustomView and add it into a DockingView

Archives

Recent Replies

What is this?