GUI enabling/disabling of controls: Difference between revisions

 

disabling.adb:

with Gtk.Main;

with Gtk.Handlers;

 

Gtk.Main.Main;

 

=={{header|AutoHotkey}}==

GUI, Add, button,, Increment

GUI, Add, button, xp+70 yp, Decrement ; xp+70 and yp are merely positioning options

GuiClose:

ExitApp

 

=={{header|BaCon}}==

This code requires BaCon 4.0.1 or higher.

PRAGMA GUI gtk3

 

CALL GUISET(gui, "spin", "sensitive", IIF(input = 0, TRUE, FALSE))

 

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

INSTALL @lib$+"WINLIB5"

ES_NUMBER = 8192

SYS "GetDlgItemInt", !form%, 101, 0, 1 TO number%

SYS "SetDlgItemInt", !form%, 101, number% - 1, 1

{{out}}

<p>

<pre>file main.c</pre>

 

#include "resource.h"

 

EnableWindow( GetDlgItem(hwnd,IDC_INCREMENT), n<MAX_VALUE );

EnableWindow( GetDlgItem(hwnd,IDC_DECREMENT), n>MIN_VALUE );

 

<pre>file resource.h</pre>

 

#define IDC_INPUT 1001

#define IDC_INCREMENT 1002

#define IDC_DECREMENT 1003

 

<pre>file resource.rc</pre>

 

#include "resource.h"

 

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

RTEXT "Value:", -1, 10, 8, 20, 8

 

=={{header|C sharp}}==

Using Windows Forms; compile with csc -t:winexe Program.cs (on MS.NET) or gmcs -t:winexe Program.cs (on Mono)

using System.ComponentModel;

using System.Windows.Forms;

Application.Run(new RosettaInteractionForm());

}

 

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

with Qt 4.4, creating project file with qmake -project, Makefile with qmake -o Makefile <projectfile> and finally make

<pre>file task.h</pre>

#define TASK_H

 

QHBoxLayout *lowerPart ;

} ;

 

<pre>file task.cpp</pre>

#include <QString>

#include "task.h"

number-- ;

entryField->setText( QString("%1").arg( number )) ;

 

<pre>main.cpp</pre>

#include "task.h"

 

theWidget.show( ) ;

return app.exec( ) ;

 

=={{header|Delphi}}==

TForm1 = class(TForm)

MaskEditValue: TMaskEdit; // Set Editmask on: "99;0; "

begin

MaskEditValue.Text := IntToStr(Succ(StrToIntDef(Trim(MaskEditValue.Text), 0)));

 

=={{header|Fantom}}==

 

using gfx

 

}.open

}

 

=={{header|FreeBASIC}}==

#Include "windows.bi"

 

 

End

 

=={{header|Gambas}}==

hButton0 As Button 'We need a button

hButton1 As Button 'We need another button

Checks 'Rune the Checks routine

 

 

=={{header|Go}}==

{{libheader|Gotk3}}

Loosely based on the Vala entry.

 

import (

window.ShowAll()

gtk.Main()

 

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

This uses the Unicon specific graphics library.

 

import gui

$include "guih.icn"

w.show_modal ()

end

 

=={{header|J}}==

'''J 8.x'''

pc task nosize;

cc decrement button;cn "Decrement";

task_decrement_button=:verb define

update Value=: ": _1 + 0 ". Value

 

'''J 6.x'''

pc task nosize;

xywh 6 30 48 12;cc decrement button;cn "-";

task_decrement_button=:verb define

update Value=: ": _1 + 0 ". Value

 

Example use:

 

 

=={{header|Java}}==

{{works with|Swing}}

{{works with|AWT}}

import java.awt.event.ActionEvent;

import java.awt.event.ActionListener;

new Interact().setVisible(true);

}

 

 

{{libheader|JavaFX}}

{{works with|Java|8}}

import javafx.application.Application;

import javafx.beans.property.LongProperty;

}

}

 

=={{header|Julia}}==

using Tk

w = Toplevel("GUI enabling/disabling")

 

 

 

=={{header|Kotlin}}==

{{libheader|JavaFX}}

{{trans|Java}}

 

import javafx.application.Application

fun main(args: Array<String>) {

Application.launch(InteractFX::class.java, *args)

 

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

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

button #demo.dec, "Decrement", [btnDecrement], UL, 20, 90, 90, 24

#demo.val "!disable"

end if

 

=={{header|LiveCode}}==

 

4. Select Object->Card Script and enter the following to handle enabling the buttons.

switch

case v <= 0

put v into fld "Field1"

end switch

 

put field "Field1" into x

add 1 to x

enableButtons x

 

put field "Field1" into x

subtract 1 from x

enableButtons x

 

if numToChar(k) is among the items of "1,2,3,4,5,6,7,8,9,0" then

if (numToChar(k) + the text of me) <= 10 then

pass rawKeyDown

end if

 

Switch back to the form, and enter run mode to execute.

Normally a function can't call other except something global or something defined in function (local), or for member functions in Group object, they can call other members public or private at same level or deeper but then only the public members. Using Call Local we call functions like function's part. When an event service function called (by event), interpreter provide the same name as the module's name, where form declared, so this call is a "local call". So a second local call inside event service function,also provide same name. So global local1 called as local, so code executed as part of CheckIt (but without same "current" stack, and other specific to execution object properties). Modules, functions, threads, events are all executed on "execution objects" which carries the execution code.

 

\\ this is global, but call as local in events, which means with local visibility for identifiers

\\ so thispos and this$ has to exist in caller 's context

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 Decrease. Then, click on 'Edit Content Changed Action". In the one labeled increase, type:

 

Increase();

 

In the one labeled Decrease, type:

 

Decrease();

 

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

InputField[Dynamic[value], Number,

Enabled -> Dynamic[value == 0]] &},

Row@{Button["increment", value++, Enabled -> Dynamic[value < 10]],

 

=={{header|NewLISP}}==

; url: http://rosettacode.org/wiki/GUI_enabling/disabling_of_controls

; author: oofoe 2012-02-02

(gs:listen)

 

 

Screenshot:

===Using Gtk2===

{{libheader|Gtk2}}

var valu: int = 0

show_all(window)

thisCheckBtns()

 

===Using Gtk3 (gintro)===

{{libheader|gintro}}

 

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

 

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

discard app.connect("activate", activate)

 

===Using IUP===

{{libheader|IUP}}

iup, strutils, math

 

discard dlg.show()

discard mainloop()

 

=={{header|Perl}}==

 

use strict;

$dec and $dec->configure( -state => $_[0] > 0 ? 'normal' : 'disabled' );

$entry and $entry->configure( -state => $_[0] == 0 ? 'normal' : 'disabled' );

 

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

Works with SWI-Prolog and XPCE.

[ object :=

GUI_Interaction,

-> send(Incr, active, @off)).

 

 

=={{header|PureBasic}}==

#TextGadget

#AddButton

EndIf

Until Event=#PB_Event_CloseWindow

 

=={{header|Python}}==

#!/usr/bin/env python3

 

if __name__ == "__main__":

main()

 

Result: [https://ibb.co/cEmqy5]

 

=={{header|R}}==

library(gWidgets)

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

addHandlerChanged(down_btn, handler=rement, action=-1)

addHandlerChanged(up_btn, handler=rement, action=1)

 

=={{header|Racket}}==

#lang racket/gui

 

(send frame show #t)

 

=={{header|Raku}}==

(formerly Perl 6)

Extremely basic implementation using the GTK library.

use GTK::Simple::App;

 

$dec.clicked.tap: { my $val = $value.text; $val -= 1; $value.text = $val.Str }

 

 

=={{header|Red}}==

 

enable: does [

i: button "increment" [f/text: mold n: add to-integer f/text 1 enable]

d: button "decrement" disabled [f/text: mold n: subtract to-integer f/text 1 enable]

 

=={{header|Ring}}==

Load "guilib.ring"

 

lineedit1.settext(num)

if number(num)<0 btn2.setDisabled(True) ok

Output:

[[File:CalmoSoftGui.jpg]]

=={{header|Ruby}}==

{{libheader|Shoes}}

@number = edit_line

@number.change {update_controls}

 

update_controls 0

 

=={{header|Scala}}==

import swing.event.{ ButtonClicked, Key, KeyPressed, KeyTyped }

 

centerOnScreen()

} // def top(

 

=={{header|Smalltalk}}==

{{works with|Smalltalk/X}}

 

vh := ValueHolder with:0.

decButton enableChannel:(BlockValue with:[:v | v > 0] argument:vh).

 

 

=={{header|Tcl}}==

{{libheader|Tk}}

 

# Model

.dec state [expr {$field > 0 ? "!disabled" : "disabled"}]

}

 

=={{header|Vala}}==

{{libheader|Gtk+-3.0}}

 

int64 val;

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

return 0;

}

 

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

by a "spinner" or "up-down" control, not by buttons.)

 

Begin VB.Form Form1

Caption = "Form1"

cmdDec.Enabled = True

End Select

 

=={{header|Wren}}==

{{libheader|DOME}}

{{libheader|Wren-polygon}}

import "input" for Mouse, Keyboard

import "dome" for Window

}