Simple windowed application: Difference between revisions

Upon clicking the button with the mouse, the label should change and show the number of times the button has been clicked.

<br><br>

 

=={{header|Ada}}==

Apart from GtkAda, there exist numerous other GUI bindings and libraries:

CLAW, AdaGLUT, GWindow, JEWL, win32ada, QtAda etc.

with Gtk.Button; use Gtk.Button;

with Gtk.Label; use Gtk.Label;

 

Gtk.Main.Main;

 

=={{header|APL}}==

{{works with|Dyalog APL}}

 

 

⍝ define a form with a label and a button

}

 

 

=={{header|AutoHotkey}}==

Gui, Add, Text, vTextCtl, There have been no clicks yet ; add a Text-Control

Gui, Add, Button, gButtonClick xm, click me ; add a Button-Control

GuiClose: ; the subroutine executed when the Window is closed

ExitApp ; exit this process

 

=={{header|AutoIt}}==

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

EndSwitch

WEnd

 

=={{header|B4J}}==

#Region Project Attributes

#MainFormWidth: 593

Return falseVal

End If

 

Layout1.fxml (as B4J uses JavaFX's Scene Builder)

<?xml version="1.0" encoding="UTF-8"?>

 

</children>

</AnchorPane>

 

{{works with|BBC BASIC for Windows}}

INSTALL @lib$+"WINLIB5"

clicks% += 1

SYS "SetDlgItemText", !window%, 100, "Number of clicks = " + STR$(clicks%)

 

=={{header|C}}==

{{libheader|GTK}}

#include <gtk/gtk.h>

 

gtk_main();

return 0;

 

=={{header|C++}}==

{{libheader|Qt}} 4.4 with source files as shown , built from a Makefile generated by the Qt tool qmake

===clickcounter.h===

#define CLICKCOUNTER_H

 

void countClicks( ) ;

} ;

===clickcounter.cpp===

#include <QLabel>

#include <QVBoxLayout>

number++ ;

countLabel->setText( QString( "The button has been clicked %1 times!").arg( number ) ) ;

===main.cpp===

#include "clickcounter.h"

 

counter.show( ) ;

return app.exec( ) ;

 

=={{header|Clojure}}==

(:import (javax.swing JFrame JLabel JButton)))

 

(.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)

(.setVisible true))))

=={{header|Common Lisp}}==

 

{{works with|McCLIM}}

 

(:use #:clim #:clim-lisp))

 

This version uses CLIM's command system:

 

((clicks :initform 0

:accessor clicks-of))

(define-simple-windowed-application-command (com-click-me :menu t)

()

 

This version uses an explicit pushbutton gadget, and may be used if more direct control over the UI layout and behavior is needed:

 

((clicks :initform 0

:accessor clicks-of))

(vertically (:equalize-width nil :align-x :center)

the-label

 

In either case, the window is opened with:

 

 

=={{header|D}}==

{{works with|D|1}}

{{libheader|DFL}}

import dfl.all ;

import std.string ;

void main() {

Application.run(new MainForm);

 

===Hybrid===

}

SimpleWindow.d:

import tango.text.convert.Integer;

import tango.core.Thread; // For Thread.yield

Thread.yield();

}

 

=={{header|Delphi}}==

'''NOTE:''' The project name here must match the name of the file.

 

 

Program SingleWinApp ;

Application.Run ;

 

 

=={{header|E}}==

{{libheader|Swing}}

{{works with|E-on-Java}}

var clicks := 0

def w := <swing:makeJFrame>("Rosetta Code 'Simple Windowed Application'")

w.pack()

w.show()

 

=={{header|EchoLisp}}==

UI elements are HTML DOM Nodes. '''ui-add''' adds an element to the UI. '''ui-on-event''' adds a (Lisp) event handler to an element.

(define (ui-add-button text) ;; helper

(define b (ui-create-element "button" '((type "button"))))

 

(panel)

 

=={{header|Elena}}==

 

{

//Store how much clicks the user doed

 

=={{header|Euphoria}}==

===EuWinGUI===

{{libheader|EuWinGUI}}

 

Window("EuWinGUI - Simple windowed application",100,100,360,100)

end while

 

 

=={{header|F_Sharp|F#}}==

{{trans|C#}}

 

let mutable clickCount = 0

form.Controls.Add(button)

 

 

=={{header|Factor}}==

sequences ui ui.gadgets ui.gadgets.borders ui.gadgets.buttons

ui.gadgets.grids ui.gadgets.labels ui.gadgets.worlds ;

: main ( -- ) 1 n set build-ui ;

 

 

=={{header|Fantom}}==

 

using fwt

using gfx

}

}

 

=={{header|Forth}}==

{{works with|bigFORTH}}

{{libheader|MINOS}}

text-label ptr click-label

Variable click# click# off

click-label assign ]S X" Click me" button new

&2 vabox new panel s" Clicks" assign show endwith ;

 

===The same with Theseus===

{{libheader|Theseus}}

\ automatic generated code

\ do not edit

$1 0 ?DO stop LOOP bye ;

script? [IF] main [THEN]

 

=={{header|FreeBASIC}}==

#Include "windows.bi"

 

 

End

 

=={{header|Gambas}}==

hLabel As Label 'We need a Label

 

hLabel.text = "The button has been clicked " & iCount & " times" 'Display the amount of clicks"

 

 

=={{header|Gastona}}==

 

<frames> main, Simple click counter

-->, lClicks data!,, //@<NN> clicks so far

 

=={{header|Go}}==

{{libheader|go-gtk}}

 

import (

window.ShowAll()

gtk.Main()

 

=={{header|Groovy}}==

 

count = 0

}

}

 

'''with binding:'''

import groovy.beans.Bindable

 

}

}

 

=={{header|Haskell}}==

{{libheader|Gtk}} from [http://hackage.haskell.org/packages/hackage.html HackageDB]

import Data.IORef

 

widgetShowAll window

 

 

=={{header|HicEst}}==

 

DO count = 1, 1E100 ! "forever"

ENDDO

 

 

==Icon and {{header|Unicon}}==

 

This version is Unicon-specific:

$include "guih.icn"

 

initially

self.Dialog.initially()

 

=={{header|IDL}}==

widget_control, ev.top, get_uvalue=tst

tst[1] = tst[1]+1

xmanager, "Simple", Id

=={{header|J}}==

'''J 8.x'''

pc simpleApp;

cc inc button;cn "Click me";

simpleApp_cancel=: simpleApp_close

 

 

'''J 6.x'''

pc simpleApp;

xywh 131 11 44 12;cc inc button;cn "Click me";

simpleApp_cancel=: simpleApp_close

 

 

=={{header|Java}}==

{{libheader|AWT}}

{{libheader|Swing}}

import java.awt.Dimension;

import java.awt.event.ActionEvent;

);

}

 

=={{header|JavaFX Script}}==

{{libheader|JavaFX 1.2}}

import javafx.scene.*;

import javafx.scene.layout.*;

}

}

 

=={{header|Julia}}==

Uses the Gtk library.

 

function clickwindow()

push!(vbox, lab)

push!(vbox, but)

c = Condition()

endit(w) = notify(c)

signal_connect(endit, win, :destroy)

wait(c)

end

 

clickwindow()

 

=={{header|Kotlin}}==

{{trans|Java}}

 

import java.awt.BorderLayout

fun main(args: Array<String>) {

Clicks() // call the constructor where all the magic happens

 

{{libheader|TornadoFX}}

import tornadofx.*

 

 

fun main(args: Array<String>) = launch<ClicksApp>(args)

 

=={{header|Lambdatalk}}==

 

The code is tested in this page: http://epsilonwiki.free.fr/lambdaway/?view=popup

1) the label: {div {@ id="label"} There have been no clicks yet }

2) the button: {input {@ type="button" value="click me" onclick="CLICKAPP.inc()" }}

return {inc:inc}

})();

 

=={{header|Liberty BASIC}}==

button #demo.btn, "Click Me", [btnClick], UL, 20, 50

statictext #demo.num, "There have been no clicks yet.", 20, 100, 240, 30

nClicks = nClicks + 1

#demo.num "The button has been clicked ";nClicks;" times."

 

=={{header|Lingo}}==

The standard approach in Lingo for creating GUIs and assigning scripts for handling user interaction is to use the graphical IDE/GUI-Builder "Director". But windows and sprites (visual elements) can also be created and scripted programmatically only:

 

-- window settings

_movie.stage.visible = 1

 

 

=={{header|Logo}}==

{{works with|MSWlogo}}

 

windowCreate "root "clickWin [Click that button!!!] 0 0 100 100 []

Make "i 0

ifelse :i=1 [staticUpdate "clickSt (list "clicked :i "time)] ~

[staticUpdate "clickSt (list "clicked :i "times)]]

 

The window is opened with:

 

=={{header|Lua}}==

l = iup.label{title="There have been no clicks yet."}

b = iup.button{title="Click me!"}

if (not iup.MainLoopLevel or iup.MainLoopLevel()==0) then

iup.MainLoop()

 

=={{header|M2000 Interpreter}}==

 

 

Module CheckIt {

Declare Form1 Form

}

Checkit

 

CreateDialog[{Dynamic@

TextCell@If[n == 0, "There have been no clicks yet", n],

 

=={{header|MAXScript}}==

(

label l "There have been no clicks yet"

)

)

 

=={{header|Modula-3}}==

 

This code uses <tt>Trestle</tt>, a windowing toolkit developed for Modula-3.

 

IMPORT Fmt, TextVBT, ButtonVBT, VBT, Axis, HVSplit, TrestleComm, Trestle;

Trestle.Install(main);

Trestle.AwaitDelete(main);

 

To compile the above code, you need to create a file called <tt>m3makefile</tt> which contains:

program("Click")

</pre>

 

=={{header|Nim}}==

 

var

l.setText "You clicked me " & $counter & " times"

 

win.setTitle "Click me"

vbox.add label

discard button.signal_connect("clicked", SignalFunc clickedMe, label)

win.showAll()

 

=={{header|Objective-C}}==

{{works with|GNUstep}}

#include <AppKit/AppKit.h>

 

- (BOOL)applicationShouldTerminateAfterLastWindowClosed: (NSNotification *)notification;

- (void)advanceCounter: (id)sender;

 

-(instancetype) init

{

}

return 0;

 

=={{header|OCaml}}==

* with '''Labltk''', the '''Tk''' OCaml binding:

#load "labltk.cma"

 

Tk.pack [Tk.coe label; Tk.coe b];

Tk.mainLoop ();

 

* with '''LablGTK2''', the '''GTK2''' OCaml binding:

 

let window = GWindow.window ~border_width:2 ()

button#connect#clicked ~callback:window#destroy;

window#show ();

 

=={{header|ooRexx}}==

* 18.06.2014 Walter Pachl shortened from Rony Flatscher's bsf4oorexx (see sourceforge) samples

* Look there for ShowCount.rxj

Otherwise how_often=userData~i 'times'

End

 

=={{header|Oz}}==

import

Application

{Window show}

end

 

=={{header|Pascal}}==

{{libheader|Gtk2}}

Ported from the C example.

 

uses

Gtk_widget_show_all(Gtk_WIDGET(win));

Gtk_main();

 

=={{header|Perl}}==

==={{libheader|Perl/Tk}}===

 

$main = MainWindow->new;

-command => sub { $l->configure(-text => 'Number of clicks: '.(++$count).'.'); },

)->pack;

 

==={{libheader|GTK}} {{works with|Perl/Gtk}}===

 

# Window.

 

# Main loop.

 

=={{header|Phix}}==

 

=={{header|PicoLisp}}==

The standard PicoLisp GUI is HTTP based. Connect your browser to

http://localhost:8080 after starting the following script.

 

(load "@ext.l" "@lib/http.l" "@lib/xhtml.l" "@lib/form.l")

 

(server 8080 "!start")

 

=={{header|Pike}}==

{{libheader|Gtk2}}

int clicks;

 

return -1;

}

 

=={{header|PowerShell}}==

===Windows Forms===

{{works with|PowerShell|3}}

$Label1 = [System.Windows.Forms.Label]@{

Text = 'There have been no clicks yet'

$Result = $Form1.ShowDialog()

{{works with|PowerShell|2}}

Add-Type -AssemblyName System.Windows.Forms

$Result = $Form1.ShowDialog()

===WPF===

[xml]$Xaml = @"

<Window

$Result = $Window1.ShowDialog()

 

=={{header|Prolog}}==

Works with SWI-Prolog and XPCE.

 

dialog('Simple windowed application',

send(D, open).

 

 

=={{header|PureBasic}}==

Define window_0_Text_0, window_0_Button_1

Define clicks, txt$, flags

EndSelect

ForEver

 

=={{header|Python}}==

 

==={{libheader|Tkinter}}===

 

 

The same in OO manner:

 

self.label.pack()

self.button.pack()

self.count = 0

 

==={{libheader|PyQt}}===

 

 

 

==={{libheader|wxPython}}===

 

 

 

 

=={{header|R}}==

 

gWidgetsRGtk2 or gWidgetsrJava can be used as an alternative to gWidgetstcltk.

library(gWidgetstcltk)

win <- gwindow()

svalue(lab) <- ifelse(is.na(val) ,"1", as.character(val + 1))

}

 

=={{header|Racket}}==

 

#lang racket/gui

 

(new button% [parent frame] [label "Click me"] [callback cb])

(send frame show #t)

 

=={{header|RapidQ}}==

RapidQ has form designer that produces RapidQ Basic source code. You can get the same result by writing the code yourself with a text editor. Then compile it either from within IDE or by using the command line compiler.

 

 

CREATE form AS QForm

END SUB

 

 

=={{header|REBOL}}==

Title: "Simple Windowed Application"

URL: http://rosettacode.org/wiki/Simple_Windowed_Application

set-face label reform ["clicks:" clicks]

]

 

=={{header|Ring}}==

Load "guilib.ring"

 

num += 1

lineedit1.settext( "you clicked me " + num + " times")

Output:

 

=={{header|Ruby}}==

{{libheader|Ruby/Tk}}

str = TkVariable.new("no clicks yet")

count = 0

pack

end

 

{{libheader|Shoes}}

stack do

@count = 0

end

end

 

=={{header|Run BASIC}}==

[loop] cls ' clear screen

print msg$

clicks = clicks + 1

msg$ = "Button has been clicked ";clicks;" times"

 

=={{header|Scala}}==

{{libheader|Scala}}

import scala.swing.event.ButtonClicked

 

}

}

 

=={{header|Sidef}}==

 

# Window.

 

# Main loop.

 

=={{header|Smalltalk}}==

{{works with|Smalltalk/X}}

 

clickCount := 0.

].

 

 

=={{header|Tcl}}==

{{libheader|Tk}}

pack [label .l -text "There have been no clicks yet"]

set count 0

proc upd {} {

.l configure -text "Number of clicks: [incr ::count]"

 

=={{header|TI-89 BASIC}}==

The Ti-89 does not have general onscreen buttons; this program uses the OK/Cancel choice of a dialog box to implement the UI.

 

Local clicks

0 → clicks

clicks + 1 → clicks

EndWhile

 

=={{header|Unicon}}==

 

import gui

$include "guih.icn"

d.show_modal()

end

 

=={{header|Vedit macro language}}==

#1 = 0

repeat (ALL) {

Reg_Set(10, "Clicked", INSERT)

Reg_Set(10, " times", APPEND)

 

=={{header|Visual Basic}}==

In VB, windows are usually created in the IDE. The generated code is hidden from the user unless viewed outside of VB. For the sake of this task, I have included that code, but normally it is hidden from the programmer.

 

Begin VB.Form Form2

Caption = "There have been no clicks yet"

Me.Caption = clicked & " clicks."

End Sub

 

=={{header|Web 68}}==

This program is free software: you can redistribute it and/or modify

it under the terms of the GNU General Public Licence as published by

The predefined form was created by the <b>fdesign</b> program for the Xforms library,

and the resulting form definition file was converted to Web 68 by the program

 

=={{header|XPL0}}==

def Ww=40, Wh=12, Wx=(80-Ww)/2, Wy=(25-Wh)/2; \window width, etc.

def Bw=11, Bh=4, Bx=Wx+(Ww-Bw)/2, By=Wy+3*(Wh-Bh)/4; \button size & position

until ChkKey; \keystroke terminates program

SetVid(3); \turn off mouse and turn on flashing cursor

 

=={{header|Yorick}}==

Yorick does not include a GUI toolkit. However, it does provide a plotting system that can emulate some basic GUI features, such as buttons and labels. The above sample uses a built-in library "button.i", which is itself written in Yorick.

 

 

window, 0;

winkill, 0;

}

 

{{omit from|ACL2}}

{{omit from|AWK}}

{{omit from|Batch File|Does not have access to GUI functions.}}

{{omit from|GUISS}}

{{omit from|Logtalk}}