Object Events

Tagged: Events

This topic contains 6 replies, has 3 voices, and was last updated by Mark Sibly 2 years, 3 months ago.

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

Author

Posts

January 9, 2017 at 2:15 pm #6338

APC

Participant

How can I capture the events from the Button, TextField, CheckBox etc from the code below.

Please create a dir called gui and add the image attached to it

#Import "gui/"

#Import ""
#Import ""
#Import ""

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

Global virtualResolution:=New Vec2i( 640,480 )

Class MyApp Extends Window

    Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )

    Super.New( title,width,height,flags )

    Layout="letterbox"

    'Create Docking Views
    Local mainview:=New DockingView
    Local dv:=New DockingView

    'Create Buttons
    Local button:=New PushButton( "OK" )
    Local buttonUP:=New PushButton( "",Image.Load("asset::pad_up.png" ))
    Local pb:=New PushButton("info")

    'Create Check Button
    Local check:=New CheckButton()
    'Create Label
    Local label:=New Label("Enter Text")
    'Create Text Field
    Local name:=New TextField("",20)

    'add the above objects to dv docking view
    dv.AddView(button,"left")
    dv.AddView(buttonUP,"left")
    dv.AddView(check,"left")
    dv.AddView(label,"left")
    dv.AddView(name,"left")
    dv.AddView(pb,"left")

    'add the dv to the main view
    mainview.AddView(dv,"top")

    ' add the mainview to the Window
    ContentView=mainview
    'check or button clicked
    button.Clicked=Lambda()
      Alert( "Well done sir!" )
    End

  End

  Method OnRender( canvas:Canvas ) Override
    App.RequestRender()
  End

  Method OnMeasure:Vec2i() Override
    Return virtualResolution
  End

End
Function Main()

  New AppInstance

  New MyApp( "Examples",640,480 )

  App.Run()

End

#Import "gui/"

#Import ""

Using std..

Using mojo..

Using mojox..

Global virtualResolution:=New Vec2i( 640,480 )

Class MyApp Extends Window

Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )

Super.New( title,width,height,flags )

Layout="letterbox"

'Create Docking Views

Local mainview:=New DockingView

Local dv:=New DockingView

'Create Buttons

Local button:=New PushButton( "OK" )

Local buttonUP:=New PushButton( "",Image.Load("asset::pad_up.png" ))

Local pb:=New PushButton("info")

'Create Check Button

Local check:=New CheckButton()

'Create Label

Local label:=New Label("Enter Text")

'Create Text Field

Local name:=New TextField("",20)

'add the above objects to dv docking view

dv.AddView(button,"left")

dv.AddView(buttonUP,"left")

dv.AddView(check,"left")

dv.AddView(label,"left")

dv.AddView(name,"left")

dv.AddView(pb,"left")

'add the dv to the main view

mainview.AddView(dv,"top")

' add the mainview to the Window

ContentView=mainview

'check or button clicked

button.Clicked=Lambda()

Alert( "Well done sir!" )

End

Method OnRender( canvas:Canvas ) Override

App.RequestRender()

End

Method OnMeasure:Vec2i() Override

Return virtualResolution

End

Function Main()

New AppInstance

New MyApp( "Examples",640,480 )

App.Run()

End

Attachments:

pad_up.png

January 9, 2017 at 3:16 pm #6340

peterigz

Participant

I’m just starting to learn mojox too. According to the documents each gadget/widget like buttons has different fields that invoke a method or lambda. Here’s some examples for the code you gave, and my preferred way which would be to extend the element and keep the events separate in their own class (see MyButton below). This is similar to how wxWidgets works. But I’m a newb so maybe someone else can chime in as well

#Import "gui/"
 
#Import "<std>"
#Import "<mojo>"
#Import "<mojox>"
 
Using std..
Using mojo..
Using mojox..
 
Global virtualResolution:=New Vec2i( 640,480 )
 
Class MyApp Extends Window
	Field name:TextField
	Field check:CheckButton
 
    Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )
 
    Super.New( title,width,height,flags )
 
    Layout="letterbox"
 
    'Create Docking Views
    Local mainview:=New DockingView
    Local dv:=New DockingView
 
    'Create Buttons
    Local button:=New MyButton( "OK" )
    Local buttonUP:=New PushButton( "",Image.Load("asset::pad_up.png" ))
    Local pb:=New PushButton("info")
 
    'Create Check Button
    check = New CheckButton()
    'Create Label
    Local label:=New Label("Enter Text")
    'Create Text Field
    name = New TextField("",20)
 
    'add the above objects to dv docking view
    dv.AddView(button,"left")
    dv.AddView(buttonUP,"left")
    dv.AddView(check,"left")
    dv.AddView(label,"left")
    dv.AddView(name,"left")
    dv.AddView(pb,"left")
 
    'add the dv to the main view
    mainview.AddView(dv,"top")
 
    ' add the mainview to the Window
    ContentView=mainview

	'Point to methods in this class for each event.
    buttonUP.Clicked = OnButtonUp
    name.TextChanged = OnTextModified
    name.Entered = OnTextEnter
    check.Clicked = OnCheckClicked
 
  End
 
  Method OnRender( canvas:Canvas ) Override
    App.RequestRender()
  End
 
  Method OnMeasure:Vec2i() Override
    Return virtualResolution
  End
  
  Method OnButtonUp:Void()
	  Print "Button Up Clicked"
  End
  
  Method OnTextModified:Void()
	  Print name.Text
  End
  
  Method OnTextEnter:Void()
	  Print "Enter Hit: " + name.Text
  End
  
  Method OnCheckClicked:Void()
	  If check.Checked
		  Print "Checked"
	  Else
		  Print "Not Checked"
	  End
  End
	 
End

'You can extend buttons and other things to package events into their own classes
Class MyButton Extends Button
	Field ICouldBeAnything:String
	
	Method New( text:String="",icon:Image=Null )
		Super.New( text,icon )
		ICouldBeAnything = "Hello!"
		Clicked = OnClicked
	End
	
	Method OnClicked:Void()
		Print "Clicked! " + ICouldBeAnything
	End
End

Function Main()
 
  New AppInstance
 
  New MyApp( "Examples",640,480 )
 
  App.Run()
 
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

#Import "gui/"

#Import "<std>"

#Import "<mojo>"

#Import "<mojox>"

Using std..

Using mojo..

Using mojox..

Global virtualResolution:=New Vec2i( 640,480 )

Class MyApp Extends Window

Field name:TextField

Field check:CheckButton

Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable )

Super.New( title,width,height,flags )

Layout="letterbox"

'Create Docking Views

Local mainview:=New DockingView

Local dv:=New DockingView

'Create Buttons

Local button:=New MyButton( "OK" )

Local buttonUP:=New PushButton( "",Image.Load("asset::pad_up.png" ))

Local pb:=New PushButton("info")

'Create Check Button

check = New CheckButton()

'Create Label

Local label:=New Label("Enter Text")

'Create Text Field

name = New TextField("",20)

'add the above objects to dv docking view

dv.AddView(button,"left")

dv.AddView(buttonUP,"left")

dv.AddView(check,"left")

dv.AddView(label,"left")

dv.AddView(name,"left")

dv.AddView(pb,"left")

'add the dv to the main view

mainview.AddView(dv,"top")

' add the mainview to the Window

ContentView=mainview

'Point to methods in this class for each event.

buttonUP.Clicked = OnButtonUp

name.TextChanged = OnTextModified

name.Entered = OnTextEnter

check.Clicked = OnCheckClicked

End

Method OnRender( canvas:Canvas ) Override

App.RequestRender()

End

Method OnMeasure:Vec2i() Override

Return virtualResolution

End

Method OnButtonUp:Void()

Print "Button Up Clicked"

End

Method OnTextModified:Void()

Print name.Text

End

Method OnTextEnter:Void()

Print "Enter Hit: " + name.Text

End

Method OnCheckClicked:Void()

If check.Checked

Print "Checked"

Else

Print "Not Checked"

End

'You can extend buttons and other things to package events into their own classes

Class MyButton Extends Button

Field ICouldBeAnything:String

Method New( text:String="",icon:Image=Null )

Super.New( text,icon )

ICouldBeAnything = "Hello!"

Clicked = OnClicked

End

Method OnClicked:Void()

Print "Clicked! " + ICouldBeAnything

End

Function Main()

New AppInstance

New MyApp( "Examples",640,480 )

App.Run()

End

January 9, 2017 at 4:06 pm #6343

APC

Participant

Hello peterigz,

Thank you for your response, where did you find this information?

After creating a button with image or text when I try to get the Width and Height it returns 0

The button Width and Height are read only.

pb=New PushButton("info")

Print " pb W:"+pb.Width

Print " pb H:"+pb.Height

buttonUP=New Button( "",Image.Load("asset::pad_up.png" ))

Print " buttonUP W:"+buttonUP.Width

Print " buttonUP H:"+buttonUP.Height

pb=New PushButton("info")

Print " pb W:"+pb.Width

Print " pb H:"+pb.Height

buttonUP=New Button( "",Image.Load("asset::pad_up.png" ))

Print " buttonUP W:"+buttonUP.Width

Print " buttonUP H:"+buttonUP.Height

January 9, 2017 at 7:21 pm #6349

peterigz

Participant

I’m just using the docs here and trying to figure things out by looking at the source code for Ted2. I think I’ll write a tutorial for mojox once I’ve figured most things out, I like the look of mojox so far I think it’ll be nice to work with.

Regarding the sizes, try using MeasuredSize which is a property that returns a Vec2.

pb=New PushButton("info")
 
Print " pb W:"+pb.MeasuredSize.x
 
Print " pb H:"+pb.MeasuredSize.y
 
buttonUP=New Button( "",Image.Load("asset::pad_up.png" ))
 
Print " buttonUP W:"+buttonUP.MeasuredSize.x
 
Print " buttonUP H:"+buttonUP.MeasuredSize.y

pb=New PushButton("info")

Print " pb W:"+pb.MeasuredSize.x

Print " pb H:"+pb.MeasuredSize.y

buttonUP=New Button( "",Image.Load("asset::pad_up.png" ))

Print " buttonUP W:"+buttonUP.MeasuredSize.x

Print " buttonUP H:"+buttonUP.MeasuredSize.y

January 9, 2017 at 11:27 pm #6355

APC

Participant

peterigz,

I tried .MeasuredSize.x and .MeasuredSize.y, they both returned 0.

I use in Monkey 1 for about 4 years, and I love what they did to Monkey 2. I also used Pyro from Planiax http://www.playniax.com/pyro.html

They did a great job writing Pyro 2 for Monkey 2

January 10, 2017 at 12:36 am #6359

peterigz

Participant

Ahh, possibly you’re trying to get the size before mojox has actually figured out what size they should be? Try a bit later on in the process after View.OnMeasure has been called (I’m not sure when that is though exactly or if you can hook into it somehow)

January 10, 2017 at 1:42 am #6362

Mark Sibly

Keymaster

Have a look in the modules/mojox/tests directory for some fairly useful how-to mojox examples.

Author

Posts

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

You must be logged in to reply to this topic.

Object Events

Attachments:

Archives

Recent Replies

What is this?