Creating custom dialogs.

[TurkeyLurkerParticipant]

I’m currently working on a project to develop a gui application but I can’t figure out modal dialogs. I get as far as actually running a custom dialog, but after searching through ted2 source I simply don’t quite get how to customize a dialog. Here is my basic code:

Monkey

[crayon-5cba95327e189737929361 inline="true" ]Namespace dlghelp #Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MainWindow Extends Window Field _mdlg:MyModalDialog = Null Method New() Super.New( "Dialog Help",640,480,WindowFlags.Resizable ) Local label:=New Label( "Idle" ) label.Gravity=New Vec2f( .5,0 ) Local button:=New Button( "Click ME!" ) button.Clicked=Lambda() New Fiber( Lambda() Local iresult:Int = MyModalDialog.Run("Title",Null,New String[]("Ok","Cancel"), 0, 0) End ) End Local dockingView:=New DockingView dockingView.AddView( label,"top" ) dockingView.ContentView=button ContentView=dockingView End End Class MyModalDialog Extends Dialog ' I want to change the size of the dialog and add buttons and text fields ' but I don't know how. :) End Class Function Main:Void() New AppInstance New MainWindow App.Run() End Function

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

[crayon-5cba95327e189737929361 inline="true" ]Namespace dlghelp   #Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class MainWindow Extends Window   Field _mdlg:MyModalDialog = Null   Method New() Super.New( "Dialog Help",640,480,WindowFlags.Resizable ) Local label:=New Label( "Idle" ) label.Gravity=New Vec2f( .5,0 ) Local button:=New Button( "Click ME!" ) button.Clicked=Lambda() New Fiber( Lambda() Local iresult:Int = MyModalDialog.Run("Title",Null,New String[]("Ok","Cancel"), 0, 0) End ) End   Local dockingView:=New DockingView dockingView.AddView( label,"top" ) dockingView.ContentView=button   ContentView=dockingView End End   Class MyModalDialog Extends Dialog ' I want to change the size of the dialog and add buttons and text fields ' but I don't know how.  :) End Class   Function Main:Void() New AppInstance New MainWindow App.Run() End Function

[/crayon]

[Mark SiblyKeymaster]

Dialogs have a ContentView property which is where you put the ‘contents’ of the dialog (which is often itself a DockingView that contains other views, or a list view etc) and you can use Dialog.AddAction to add “Okay”,”Cancel” etc buttons/actions.

Open() and Close() are used to show/hide the dialog, and you can use fibers to ‘block’ until the dialog has closed (although you don’t have to).

Here’s a minimal example:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyDialog Extends Dialog Field result:=New Future<Int> Method New() Title="Dialog Title" Local label:=New Label( "Content of the dialog goes here" ) label.TextGravity=New Vec2f( .5,.5 ) 'center the text ContentView=label MinSize=New Vec2i( 160,120 ) 'dialog has a MinSize AddAction( "Okay" ).Triggered=Lambda() result.Set( 1 ) End AddAction( "Cancel" ).Triggered=lambda() result.Set( 0 ) End End Method Run:Int() Open() Local r:=result.Get() Close() Return r End End Class MyWindow Extends Window Method New() Super.New( "Simple Mojo Gui App",640,480,WindowFlags.Resizable ) Local button:=New Button( "Create Dialog" ) button.Clicked=Lambda() New Fiber( lambda() Local dialog:=New MyDialog Local r:=dialog.Run() TextDialog.Run( "MyDialog result","MyDialog result="+r,New String[]( "Okay" ) ) End ) End ContentView=button 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

#Import "<std>" #Import "<mojo>" #Import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class MyDialog Extends Dialog Field result:=New Future<Int> Method New() Title="Dialog Title" Local label:=New Label( "Content of the dialog goes here" ) label.TextGravity=New Vec2f( .5,.5 ) 'center the text ContentView=label MinSize=New Vec2i( 160,120 ) 'dialog has a MinSize AddAction( "Okay" ).Triggered=Lambda() result.Set( 1 ) End AddAction( "Cancel" ).Triggered=lambda() result.Set( 0 ) End   End Method Run:Int() Open() Local r:=result.Get() Close() Return r End End   Class MyWindow Extends Window   Method New() Super.New( "Simple Mojo Gui App",640,480,WindowFlags.Resizable ) Local button:=New Button( "Create Dialog" ) button.Clicked=Lambda() New Fiber( lambda() Local dialog:=New MyDialog Local r:=dialog.Run() TextDialog.Run( "MyDialog result","MyDialog result="+r,New String[]( "Okay" ) ) End ) End ContentView=button End   End   Function Main()   New AppInstance New MyWindow App.Run() End

[TurkeyLurkerParticipant]

Thanks Mark! This puts me on the right path.

[Author]

Posts