User input/Graphical: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 3:
See also: [[User input/Text]]
=={{header|Ada}}==
{{libheader|GTK|GtkAda}}
Line 321 ⟶ 322:
return app.exec( ) ;
}</lang>
=={{header|Clojure}}==
Line 389 ⟶ 388:
:value-function 'string/integer-prompt-value
:ok-check #'(lambda (result) (eql (cdr result) 75000))))</lang>
=={{header|Dart}}==
Line 769 ⟶ 767:
{{libheader|Icon Programming Library}}
[http://www.cs.arizona.edu/icon/library/src/procs/graphics.icn graphics.icn provides WOpen]
=={{header|J}}==
Line 858 ⟶ 856:
value = parseInt( prompt("Enter the number 75000") );
}</lang>
=={{header|Julia}}==
Line 908 ⟶ 905:
{{VI snippet}}<br/>
[[File:LabVIEW_User_input_Graphical.png]]
=={{header|Liberty BASIC}}==
<lang lb>' [RC] User input/graphical
Line 1,262 ⟶ 1,260:
MyApp->new->MainLoop;</lang>
=={{header|Perl 6}}==▼
{{libheader|GTK}}▼
<lang perl6>use GTK::Simple;▼
use GTK::Simple::App;▼
my GTK::Simple::App $app .= new( title => 'User Interaction' );▼
$app.border-width = 20;▼
$app.set-content(▼
GTK::Simple::VBox.new(▼
my $ = GTK::Simple::Label.new( text => 'Enter a string.' ),▼
my $str = GTK::Simple::Entry.new,▼
my $string = GTK::Simple::Label.new,▼
my $ = GTK::Simple::Label.new( text => 'Enter the number 75000' ),▼
my $val = GTK::Simple::Entry.new,▼
my $correct = GTK::Simple::Label.new,▼
)▼
);▼
$str.changed.tap: {▼
$string.text = "You entered: { $str.text }"▼
}▼
$val.changed.tap: {▼
$correct.text = "That's { 'not' unless $val.text ~~ / ^^ <ws> 75000 <ws> $$ / } 75000!"▼
}▼
$app.run;</lang>▼
=={{header|Phix}}==
Line 1,527 ⟶ 1,495:
(or (string->number n) "bogus text")))
</lang>
(formerly Perl 6)
▲{{libheader|GTK}}
▲<lang perl6>use GTK::Simple;
▲use GTK::Simple::App;
▲my GTK::Simple::App $app .= new( title => 'User Interaction' );
▲$app.border-width = 20;
▲$app.set-content(
▲ GTK::Simple::VBox.new(
▲ my $ = GTK::Simple::Label.new( text => 'Enter a string.' ),
▲ my $str = GTK::Simple::Entry.new,
▲ my $string = GTK::Simple::Label.new,
▲ my $ = GTK::Simple::Label.new( text => 'Enter the number 75000' ),
▲ my $val = GTK::Simple::Entry.new,
▲ my $correct = GTK::Simple::Label.new,
▲ )
▲);
▲$str.changed.tap: {
▲ $string.text = "You entered: { $str.text }"
▲}
▲$val.changed.tap: {
▲ $correct.text = "That's { 'not' unless $val.text ~~ / ^^ <ws> 75000 <ws> $$ / } 75000!"
▲}
▲$app.run;</lang>
=={{header|Rascal}}==
|