Simple windowed application: Difference between revisions
Content deleted Content added
New section for Pike with GTK2 |
Added F# version |
||
Line 566: | Line 566: | ||
CloseApp(0)</lang> |
CloseApp(0)</lang> |
||
=={{header|F_Sharp|F#}}== |
|||
{{trans|C#}} |
|||
<lang fsharp>open System.Windows.Forms |
|||
let mutable clickCount = 0 |
|||
let form = new Form() |
|||
let label = new Label(Text = "There have been no clicks yet.", Dock = DockStyle.Top) |
|||
form.Controls.Add(label) |
|||
let button = new Button(Text = "Click me", Dock = DockStyle.Bottom) |
|||
button.Click.Add(fun _ -> |
|||
clickCount <- clickCount+1 |
|||
label.Text <- sprintf "Number of clicks: %i." clickCount) |
|||
form.Controls.Add(button) |
|||
Application.Run(form)</lang> |
|||
=={{header|Fantom}}== |
=={{header|Fantom}}== |