MX2 for Desktop Application Programming

' Import Frameworks
#Import "<AppKit.monkey2>"

Using AppKit
Using AppKit.Gui

Function Main()
    Local app := New Application()
    
    Local win1 := New Window(50,100,300,200,"MonkeyX2 AppKit.Gui Demo")
    Local win2 := New Window(360,100,300,200,"Window 2")
    Local win3 := New Window(670,100,320,200,"Window 3")
    
    Local btn1 := New Button(10,10,100,25,"Button 1")
    Local btn2 := New Button(10,45,100,25,"Button 2")
    Local chk1 := New Checkbox(10,80,100,25,"Checkbox")

    btn1.Clicked = Lambda()
                       Print("Button 1 Clicked!")
                   End
    
    btn2.Clicked = Lambda()
                       Print("Button 2 Clicked!")
                   End

    chk1.Clicked = Lambda()
                       Print("Checkbox Clicked!")
                   End
    
    win1.AddWidget( btn1 )
    win1.AddWidget( btn2 )
    win1.AddWidget( chk1 )

    Local quitBtn  := New Button(10,10,100,25,"Quit")
    quitBtn.Clicked = Lambda()
                          Print("quitBtn Clicked!")
                          app.Quit()
                      End

    Local progress := New Progressbar(10,50,280,25,0,100)
    progress.SetValue(50)

    Local plusBtn  := New Button(50,80,35,35,"+")
    plusBtn.Clicked = Lambda()
                          progress.SetValue( progress.GetValue() + 1.0 )
                      End

    Local minusBtn := New Button(10,80,35,35,"-")
    minusBtn.Clicked = Lambda()
                          progress.SetValue( progress.GetValue() - 1.0 )
                       End

    Local slider  := New Slider(10,130,280,25)
    slider.Changed = Lambda()
                         Print("Slider changed: "+slider.GetValue())
                         progress.SetValue( slider.GetValue() )
                     End

    slider.SetValue(50)

    win2.AddWidget( quitBtn )
    win2.AddWidget( progress )
    win2.AddWidget( plusBtn)
    win2.AddWidget( minusBtn)
    win2.AddWidget( slider )

    Local sliders:Slider[] = New Slider[10]
    
    For Local i := 0 To 9
        sliders[i] = New Slider(10+i*30,10,25,180)
        sliders[i].SetValue( i * 10 )
        win3.AddWidget( sliders[i] )
    Next
    
    app.Run()
End

' Import Frameworks
#Import "<AppKit.monkey2>"

Using AppKit
Using AppKit.Gui

Class myApp Extends Application
    Field mainWindow:Window
    Field quitButton:Button

    Method New()
        mainWindow = New Window(50,100,300,200,"Window")
        quitButton = New Button(10, 10,100, 25,"Quit")

        quitButton.Clicked = QuitButtonClicked
        
        mainWindow.AddWidget( quitButton )
        
        Self.Run()
    End
    
    Method QuitButtonClicked()
        Self.Quit()
    End
End

Function Main()
    New myApp
End

'
' Function Variables in MX2
'
Function Main()
    New Program
End

Class Program

    Method New()
        Local func:Void(x:Int) ' declare a function variable 'func'
                               ' that can call functions/methods/lambdas
                               ' with signature Void(x:Int)
        Print("----------")
        
        func(0)                ' call it - nothing happens because
                               ' nothing was assigned to it before
        Print("----------")
        
        func = methodA         ' assign a method
        
        func(1)                ' call it - it runs methodA
 
        Print("----------")

        func = methodB         ' assign another method
        
        func(2)                ' call it - it runs methodB

        Print("----------")

        func = Lambda:Void(x:Int) ' assign a lambda
            Print("lambda: x = "+x)
        End
        
        func(3)                ' call it - it runs the lambda

        Print("----------")
        
        func += methodB        ' add methodB
        func += methodA        ' add methodA

        func(4)                ' call it - it runs now all 3:
                               ' lambda, methodB, methodA
    End
    
    Method methodA:Void(x:Int)
        Print("methodA: x = "+x)
    End

    Method methodB:Void(x:Int)
        Print("methodB: x = "+x)
    End
End

        Local func:Void(x:Int) ' declare a function variable 'func'
                               ' that can call functions/methods/lambdas
                               ' with signature Void(x:Int)
        Print("----------")
        
        func(0)                ' call it - nothing happens because
                               ' nothing was assigned to it before
        Print("----------")

Extern

    Class Button Extends WidgetBase = "AppKit::Gui::Button"
        Field Clicked:Void()="clicked"
        
        Method New()
        Method New(x:Int, y:Int, width:Int, height:Int, title:String)
    End

#include <bbmonkey.h>

namespace AppKit {
    namespace Gui {
        class Button : public WidgetBase {
            public:
            bbFunction<void()> clicked;

            Button();
            Button(int x, int y, int width, int height, bbString text);
        };

this->clicked()