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.

 

=={{header|1C}}==

&НаСервере

Процедура ДобавитьЭлементы()

КонецПроцедуры

 

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

 

Requires BaCon version 4.0.1 or higher, using GTK3.

PRAGMA GUI gtk3

 

CALL GUIFN(gui, "confirm", hide)

ENDSELECT

 

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

import extensions;

public class MainWindow : SDIDialog

{

 

 

=={{header|Euphoria}}==

include GtkEngine.e -- see OpenEuphoria.org

 

end function

 

 

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

// GUI component interaction. Nigel Galloway: June 13th., 2020

let n=new System.Windows.Forms.Form(Size=new System.Drawing.Size(250,150))

l.Click.AddHandler(new System.EventHandler(fun _ _->i.Text<-(string(rand.Next()))))

System.Windows.Forms.Application.Run(n)

 

=={{header|Fantom}}==

using fwt

using gfx

}

}

 

=={{header|FreeBASIC}}==

#Include "windows.bi"

 

 

End

 

=={{header|Gambas}}==

 

Public Sub Form_Open()

End If

 

 

=={{header|Go}}==

{{libheader|gotk3}}

{{trans|Vala}}

 

import (

window.ShowAll()

gtk.Main()

 

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

The task: For a minimal "application", write a program that

presents a form with three components to the user: A numeric input

 

while true sleep(1); end

 

=={{header|Kotlin}}==

{{trans|Java}}

 

import java.awt.event.ActionEvent

import java.awt.event.ActionListener

fun main(args : Array<String>) {

Interact().isVisible = true

 

=={{header|Lambdatalk}}==

See http://lambdaway.free.fr/lambdawalks/?view=interaction

 

{input {@ id="input" type="text" value="0"}}

{input {@ type="button" value="increment"

document.getElementById('input').value =

Math.round(Math.random()*100);"}}

 

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

Version 2, addition a title for form (without title, default title if form variable name, form1).

 

Module CheckIt {

Declare form1 form

}

Checkit

 

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

gtk2, glib2, strutils, random

win.show_all()

 

===Gtk3 (gintro)===

{{libheader|gintro}}

This is a translation of the Gtk2 version to Gtk3 using the higher level "gintro" bindings. The higher level is not really obvious in this small example, but, for instance, we are able to transmit to signal handlers a pure Nim “Context” object (managed by the GC). With the Gtk2 bindings, it would require to use unsafe addresses.

import gintro/[glib, gobject, gtk, gio]

 

let app = newApplication(Application, "Rosetta.ComponentInteraction")

discard app.connect("activate", activate)

 

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

 

use strict;

)->pack( -side => 'right' );

 

 

=={{header|Phix}}==

{{libheader|Phix/basics}}

{{libheader|Phix/pGUI}}

<span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

 

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

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

Title="Rosetta Code" WindowStartupLocation = "CenterScreen" Height="100" Width="210" ResizeMode="NoResize">

$buttonIncrement.add_click({++[Int]$textBoxValue.Text})

 

 

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

{{libheader|Tkinter}}

{{works with|Python|2.7}}

import random, tkMessageBox

from Tkinter import *

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

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

 

===Python3 - no classes===

{{libheader|Tkinter}}

{{works with|Python|3.7}}

import random, tkinter.messagebox

from tkinter import *

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

 

 

===Python2 - With classes===

{{libheader|Tkinter}}

from Tkinter import *

import tkMessageBox

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

{{libheader|GTK}}

 

use GTK::Simple::App;

 

}

 

 

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

{{libheader|Gtk+-3.0}}

 

int64 val;

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

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;