Mojox GUI Components

This topic contains 2 replies, has 1 voice, and was last updated by cocon 8 months, 2 weeks ago.

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

Author

Posts

January 3, 2018 at 6:17 pm #12606

cocon

Participant

Here will be a collection of GUI components for the MojoX GUI system.

January 3, 2018 at 6:23 pm #12607

cocon

Participant

Here is a component that combines a scroll bar and a label.

Class LabelScrollbar Extends DockableView
	Field Caption:String
	Field Label:Label
	Field Scrollbar:ScrollBar
	Field OnValueChanged:Void(value:Int)
	
	Property Value:Int()
		Return Scrollbar.Value
	End
	
	Method New(caption:String, value:Int, min:Int, max:Int)
		
		Scrollbar                = New ScrollBar
		Scrollbar.Minimum        = min
		Scrollbar.Maximum        = max
		Scrollbar.Value          = value
		Scrollbar.ValueChanged   = UpdateScrollbar
		
		Label = New Label
		Caption = caption
		UpdateLabel()
		
		AddView(Label, "top")
		AddView(Scrollbar, "top")

	End
	
	Private
	
	Method UpdateScrollbar(value:Int)
		UpdateLabel()
		OnValueChanged(value)
	End
	
	Method UpdateLabel()
		Label.Text = Caption + ": " + Scrollbar.Value
	End
	
End

Class LabelScrollbar Extends DockableView

Field Caption:String

Field Label:Label

Field Scrollbar:ScrollBar

Field OnValueChanged:Void(value:Int)

Property Value:Int()

Return Scrollbar.Value

End

Method New(caption:String, value:Int, min:Int, max:Int)

Scrollbar = New ScrollBar

Scrollbar.Minimum = min

Scrollbar.Maximum = max

Scrollbar.Value = value

Scrollbar.ValueChanged = UpdateScrollbar

Label = New Label

Caption = caption

UpdateLabel()

AddView(Label, "top")

AddView(Scrollbar, "top")

End

Private

Method UpdateScrollbar(value:Int)

UpdateLabel()

OnValueChanged(value)

End

Method UpdateLabel()

Label.Text = Caption + ": " + Scrollbar.Value

End

Local radius := New LabelScrollbar("Radius", gProperties.ToolSpray_Radius, 1, 500)
radius.OnValueChanged = Lambda(value:Int)
	gProperties.ToolSpray_Radius = value
End

Local density := New LabelScrollbar("Density", gProperties.ToolSpray_Density, 1, 500)
density.OnValueChanged = Lambda(value:Int)
	gProperties.ToolSpray_Density = value
End
AddView(radius, "top")
AddView(density, "top")

Local radius := New LabelScrollbar("Radius", gProperties.ToolSpray_Radius, 1, 500)

radius.OnValueChanged = Lambda(value:Int)

gProperties.ToolSpray_Radius = value

End

Local density := New LabelScrollbar("Density", gProperties.ToolSpray_Density, 1, 500)

density.OnValueChanged = Lambda(value:Int)

gProperties.ToolSpray_Density = value

End

AddView(radius, "top")

AddView(density, "top")

Attachments:

mojox-label-scrollbar.png

March 4, 2018 at 4:15 pm #13859

cocon

Participant

Since I wanted to try writing a console based application and I could not figure out the input streams I did this.

#Import "<std>"
#Import "<mojo>"
#Import "<mojox>"

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

Class Console Abstract
	Public
	
	Function Create()
		Instance = New ConsoleClass
	End
	
	Global ReadLineCallback:Void(input:String)
	
	Function Write(text:String)
		Instance.Write(text)
	End
	
	Function WriteLine(text:String)
		Instance.WriteLine(text)
	End
	
	Private
	Global Instance : ConsoleClass
	Class ConsoleClass Extends Window 
		Private
		Field textInput  : TextField
		Field textOutput : TextView
		
		Public
		Method ClearOutput()
			textOutput.Clear()
		End
		
		Method ClearInput()
			textInput.Clear()
		End
		
		Method Write(text:String)
			textOutput.AppendText(text)
		End
		
		Method WriteLine(text:String)
			textOutput.AppendText(text + "~n")
		End
		
		Method New()
			Super.New("Monkey2 Console", 640, 480, WindowFlags.Resizable)
			
			textInput  = New TextField
			textOutput = New TextView
			
			textInput.Entered = Lambda()
				If Console.ReadLineCallback <> Null
					Console.ReadLineCallback(textInput.Text)
					textInput.Clear()
				End
			End
			
			Local label := New Label
			label.Text = "Input: "
			label.AddView(textInput)
			
			Local dockingView := New DockingView
			dockingView.AddView(label , "top", "10%")
			dockingView.AddView(textOutput, "bottom", "90%")
			ContentView = dockingView
		End
	End
End

Function GetCommandResult:String(command:String)
	Select command
		Case "help"
			Local output := ""
			output += "Available Commands~n"
			output += "~qhelp~q, ~qhello~q, ~qquick math~q"
			Return output
		Case "hello"
			Return "Hello There"
		Case "quick math"
			Return "two plus two is four, minus one is three"
	End
	Return Null
End

Function SetupCommands()
	Console.WriteLine("Type ~qhelp~q for more information.")
	Console.ReadLineCallback = Lambda(input:String)
		Local result := GetCommandResult(input)
		If result = Null Then result = "Command not identified."
		Console.WriteLine(result)
	End
End

Function Main()
	New AppInstance
	Console.Create()
	SetupCommands()
	App.Run()
End

100

101

102

103

104

105

#Import "<std>"

#Import "<mojo>"

#Import "<mojox>"

Using std..

Using mojo..

Using mojox..

Class Console Abstract

Public

Function Create()

Instance = New ConsoleClass

End

Global ReadLineCallback:Void(input:String)

Function Write(text:String)

Instance.Write(text)

End

Function WriteLine(text:String)

Instance.WriteLine(text)

End

Private

Global Instance : ConsoleClass

Class ConsoleClass Extends Window

Private

Field textInput : TextField

Field textOutput : TextView

Public

Method ClearOutput()

textOutput.Clear()

End

Method ClearInput()

textInput.Clear()

End

Method Write(text:String)

textOutput.AppendText(text)

End

Method WriteLine(text:String)

textOutput.AppendText(text + "~n")

End

Method New()

Super.New("Monkey2 Console", 640, 480, WindowFlags.Resizable)

textInput = New TextField

textOutput = New TextView

textInput.Entered = Lambda()

If Console.ReadLineCallback <> Null

Console.ReadLineCallback(textInput.Text)

textInput.Clear()

End

Local label := New Label

label.Text = "Input: "

label.AddView(textInput)

Local dockingView := New DockingView

dockingView.AddView(label , "top", "10%")

dockingView.AddView(textOutput, "bottom", "90%")

ContentView = dockingView

End

Function GetCommandResult:String(command:String)

Select command

Case "help"

Local output := ""

output += "Available Commands~n"

output += "~qhelp~q, ~qhello~q, ~qquick math~q"

Return output

Case "hello"

Return "Hello There"

Case "quick math"

Return "two plus two is four, minus one is three"

End

Return Null

End

Function SetupCommands()

Console.WriteLine("Type ~qhelp~q for more information.")

Console.ReadLineCallback = Lambda(input:String)

Local result := GetCommandResult(input)

If result = Null Then result = "Command not identified."

Console.WriteLine(result)

End

Function Main()

New AppInstance

Console.Create()

SetupCommands()

App.Run()

End

Author

Posts

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

You must be logged in to reply to this topic.

Mojox GUI Components

Attachments:

Archives

Recent Replies

What is this?