GUI component interaction: Difference between revisions

{{omit from|Blast}}

{{omit from|Brainf***}}

{{omit from|GUISS|Only makes use of installed applications}}

{{omit from|Integer BASIC|no concept of a GUI}}

{{omit from|Lotus 123}}

{{omit from|Maxima}}

{{omit from|PARI/GP}}

{{omit from|PostScript}}

{{omit from|Retro}}

 

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

* pop up dialogs to query the user for further information

 

 

The field is initialized to zero.

The user may manually enter a new value into the field,

or increment its value with the "increment" button.

Entering a non-numeric value should be either impossible,

or issue an error message.

and resets the field's value to a random value if the answer is "Yes".

 

 

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

 

=={{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;

 

 

procedure TForm1.EditInputFieldChange(Sender: TObject);

begin

EditInputField.Text := '0';

end;

 

procedure TForm1.ButtonIncrementClick(Sender: TObject);

begin

end;

 

end;

 

object Form1: TForm1

Left = 1899

end

end

 

 

 

{

 

 

 

=={{header|Fantom}}==

using fwt

using gfx

}

}

 

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

import java.awt.event.KeyEvent

import java.awt.event.KeyListener

 

class Interact : JFrame() {

val incButton = JButton("Increment")

val randButton = JButton("Random")

 

 

}

 

fun proceedOrNot() = JOptionPane.showConfirmDialog(randButton, "Are you sure?")

if(proceedOrNot() == JOptionPane.YES_OPTION)

}

 

add(numberField)

add(buttonPanel)

 

fun main(args : Array<String>) {

 

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

 

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)

 

 

 

 

 

 

 

 

{{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:

 

 

=={{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|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|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;