GUI component interaction: Difference between revisions

{{omit from|Lotus 123}}

{{omit from|Maxima}}

{{omit from|PARI/GP}}

{{omit from|PostScript}}

{{omit from|Retro}}

{{omit from|SQL PL|It does not handle GUI}}

 

Almost every application needs to communicate with the user in some way.

 

(This task may be regarded as an extension of the task [[Simple windowed application]]).<br><br>

 

=={{header|Ada}}==

 

interaction.adb:

with Ada.Strings.Fixed;

with Gtk.Main;

 

Gtk.Main.Main;

 

=={{header|AutoHotkey}}==

; Making our own check necessary. (MakeSure)

 

ExitApp ; Makes sure the script exits when the window is closed,

; Otherwise the script is persistent because it contains

 

{{works with|BBC BASIC for Windows}}

INSTALL @lib$+"WINLIB5"

SYS "MessageBox", !form%, "Set to a random value?", "Confirm", MB_YESNO TO reply%

IF reply% = IDYES THEN SYS "SetDlgItemInt", !form%, 101, RND(10000), 1

{{Out}}

<p>[[File:Guiintbbc.gif]]</p>

<pre>file main.c</pre>

 

#include "resource.h"

 

int WINAPI WinMain( HINSTANCE hInst, HINSTANCE hPInst, LPSTR cmdLn, int show ) {

return DialogBox( hInst, MAKEINTRESOURCE(IDD_DLG), NULL, DlgProc );

 

<pre>file resource.h</pre>

 

#define IDC_INPUT 1001

#define IDC_INCREMENT 1002

#define IDC_RANDOM 1003

 

<pre>file resource.rc</pre>

 

#include "resource.h"

 

PUSHBUTTON "Random", IDC_RANDOM, 62, 25, 50, 14

PUSHBUTTON "Quit", IDC_QUIT, 117, 25, 30, 14

 

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

with library Qt 4.4 , using (under Linux) first qmake -project and then qmake -o Makefile <projectfile>, then make

<pre>file interaction.h</pre>

#define INTERACTION_H

#include <QWidget>

void findRandomNumber( ) ;

} ;

<pre>file interaction.cpp</pre>

#include <QLineEdit>

#include <QMessageBox>

break ;

}

<pre>file main.cpp </pre>

#include "interaction.h"

 

theWidget.show( ) ;

return app.exec( ) ;

 

===C++11===

<pre>main.cpp</pre>

 

#include <QWidget>

#include <QVBoxLayout>

 

return app.exec();

 

=={{header|C_sharp|C#}}==

C# 3.0 with Windows Forms; compile as csc -t:winexe Program.cs on MS.NET or as gmcs -t:winexe Program.cs on Mono.

using System.ComponentModel;

using System.Windows.Forms;

}

}

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

{{libheader|LTK}}

;; Using the LTK library...

 

(gui-test)

 

 

=={{header|Delphi}}==

 

unit Unit1;

 

end;

 

object Form1: TForm1

Left = 1899

end

end

 

=={{header|Echolisp}}==

(require 'interface)

 

 

(panel)

 

=={{header|Elena}}==

{

 

=={{header|Fantom}}==

using fwt

using gfx

}

}

 

=={{header|FreeBASIC}}==

#Include "windows.bi"

 

 

End

 

=={{header|Gambas}}==

 

Public Sub Form_Open()

End If

 

 

=={{header|Haskell}}==

 

import System.Random

 

answer <- confirmDialog frame "Random" "Generate a random number?" True

when answer $ getStdRandom (randomR (1,100)) >>= \num ->

 

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

This example uses the Unicon gui library, and so will not work in Icon.

 

import gui

$include "guih.icn"

w.show_modal ()

end

 

=={{header|J}}==

{{works with|J 8.x}}

pc interact;

cc Value edit center;

wd 'set Value text ' , ": ?100

end.

{{works with|J 6.x}}

pc interact closeok;

xywh 6 6 48 12;cc Value edit;

wd 'set Value ' , ": ?100

end.

 

Note: I used an edit box for the value, and edit boxes do not get onChange events, so rejection of non-numeric values will be delayed until the use of a button (or pressing enter).

Example use:

 

 

=={{header|Java}}==

{{works with|AWT}}

There are nice GUI editors in some IDEs (Netbeans has a notoriously good one), but this GUI was not built automatically, so it's a little easier to understand.

import java.awt.event.ActionEvent;

import java.awt.event.ActionListener;

new Interact().setVisible(true);

}

{{works with|Java|8+}}

import java.awt.event.KeyListener;

 

public void keyReleased(KeyEvent event);

}

import java.awt.event.ActionEvent;

import java.awt.event.KeyEvent;

;

}

 

=={{header|Julia}}==

using Tk

w = Toplevel("Component Interaction Example")

fr = Frame(w)

 

value = Entry(fr, "")

set_value(value, "0") ## The field is initialized to zero.

 

 

function validate_command(path, P)

try

tcl("expr", "TRUE")

catch e

tcl(W, "delete", "@0", "end")

end

 

end

 

=={{header|Kotlin}}==

{{trans|Java}}

 

import java.awt.event.ActionEvent

import java.awt.event.ActionListener

fun main(args : Array<String>) {

Interact().isVisible = true

 

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

===Input Verification===

textbox #demo.val, 20, 50, 90, 24

button #demo.inc, "Increment", [btnIncrement], UL, 20, 90, 90, 24

#demo.val nVal

end if

 

===Impossible to type non-numeric characters===

stylebits #demo.val, _ES_NUMBER, 0, 0, 0

textbox #demo.val, 20, 50, 90, 24

#demo.val nVal

end if

 

=={{header|Maple}}==

For this problem, you will need to open up Maple, go to the Components tab on the left, and insert a Text Area, and 2 Buttons. By right clicking each button, and clicking Component Properties, change one to Increase, and the other to Random. Then, click on 'Edit Content Changed Action". In the one labeled increase, type:

 

Increase();

 

In the one labeled Random, type:

 

Random();

 

Then, by clicking the 2 gears and opening up the start-up commands, enter this:

macro(SP=DocumentTools:-SetProperty, GP=DocumentTools:-GetProperty);

with(Maplets[Elements]):

end if;

end proc;

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

Row@{Button["increment", value++],

Button["random",

Row@{Button["Yes", DialogReturn[True]],

Button["No", DialogReturn[False]]}}],

 

=={{header|Nim}}==

===Gtk2===

{{libheader|Gtk2}}

var valu: int = 0

proc thisDestroy(widget: PWidget, data: Pgpointer) {.cdecl.} =

proc on_question_clicked: bool =

proc thisInc(widget: PWidget, data: Pgpointer){.cdecl.} =

proc thisRnd(widget: PWidget, data: Pgpointer){.cdecl.} =

if on_question_clicked():

proc thisTextChanged(widget: PWidget, data: Pgpointer) {.cdecl.} =

try:

discard signal_connect(win, "destroy", SIGNAL_FUNC(thisDestroy), nil)

discard signal_connect(btn_quit, "clicked", SIGNAL_FUNC(thisDestroy), nil)

discard signal_connect(btn_inc, "clicked", SIGNAL_FUNC(thisInc), nil)

discard signal_connect(btn_rnd, "clicked", SIGNAL_FUNC(thisRnd), nil)

win.show_all()

 

===IUP===

{{libheader|IUP}}

iup, strutils, math

 

discard dlg.show()

discard mainloop()

 

=={{header|Oz}}==

Using Mozart's standard GUI library, building a small desktop application:

[QTk] = {Module.link ['x-oz://system/wp/QTk.ozf']}

 

end

in

 

As a web application, using the "Roads" web programming library. Connect your browser to http://localhost:8080/start after starting the program.

[Roads] = {Module.link ['x-ozlib://wmeyer/roads/Roads.ozf']}

 

in

{Roads.registerFunction 'start' Start}

 

=={{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|Prolog}}==

Works with SWI-Prolog and XPCE.

[ object :=

GUI_Interaction,

( send(@display, inform, 'Please type a number !'),

send(Input,clear))).

 

=={{header|PureBasic}}==

#StringGadget

#Increment

Until Event=#PB_Event_CloseWindow

CloseWindow(0)

 

=={{header|Python}}==

W/out class and using grid layout

{{libheader|Tkinter}}

import random, tkMessageBox

from Tkinter import *

b2 = Button(text="Random", command=rand, **options)

b2.grid(column=2, row=0, **options)

 

{{libheader|Tkinter}}

from Tkinter import *

import tkMessageBox

 

class Application(Frame):

self.random_button = Button(self, text='Random', command=self.random)

self.random_button.pack(**options)

 

if __name__ == '__main__':

app.mainloop()

except KeyboardInterrupt:

 

[[File:GUI_component_interaction_Python.png]]

 

=={{header|R}}==

library(gWidgets)

options(guiToolkit="RGtk2") ## using gWidgtsRGtk2

svalue(e) <- sample(1:1000, 1)

})

 

=={{header|Racket}}==

#lang racket/gui

 

(send frame show #t)

 

=={{header|Ring}}==

Load "guilib.ring"

 

num = string(number(num)+1)

lineedit1.settext(num)

 

Output:

=={{header|Ruby}}==

{{libheader|Shoes}}

stack do

textbox = edit_line

end

end

 

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

for i = 1 to 5

dd$(i) = "Drop ";i

[exit]

print "Bye"

[[File:GuiComponentRunBasic.png]]

 

=={{header|Scala}}==

import scala.swing.Swing._

import scala.swing.event._

centerOnScreen()

}

 

=={{header|Smalltalk}}==

{{works with|Smalltalk/X}}

 

vh := ValueHolder with:0.

rndButton action:[ vh value: Random nextInteger ].

 

{{Out}}

[[File:Guiintsmalltalkx.png]]

=={{header|Tcl}}==

{{libheader|Tk}}

 

###--- Our data Model! ---###

set field [expr {int(rand() * 5000)}]

}

 

=={{header|Vala}}==

 

int64 val;

bool ret = int64.try_parse(str,out val);;

window.window_position = Gtk.WindowPosition.CENTER;

window.destroy.connect(Gtk.main_quit);

 

 

// read and validate the entered value

validate_input(window, entry.get_text());

 

 

var ib = new Gtk.Button.with_label("increment");

ib.clicked.connect(() => {

var str = entry.get_text();

if(validate_input(window, str)){

dialog.destroy();

if(answer == Gtk.ResponseType.YES){

}

});

return 0;

}

 

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

Note that there are other methods of validating the entered value. The method used is dependant on the program's requirements.

 

Begin VB.Form Form1

Caption = "Form1"

KeyAscii = 0

End Select

 

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

Web 68 uses an include file to use the Xforms library.

@aPROGRAM guicomponent CONTEXT VOID USE standard

BEGIN

macro fl show form;