GUI enabling/disabling of controls: Difference between revisions

Content added Content deleted
No edit summary
(→‎{{header|Perl 6}}: Minimal fixes to make runnable)
Line 1,771: Line 1,771:
Extremely basic implementation using the GTK library.
Extremely basic implementation using the GTK library.
<lang perl6>use GTK::Simple;
<lang perl6>use GTK::Simple;
use GTK::Simple::App;

my GTK::Simple::App $app .= new( title => 'Controls Enable / Disable' );
my GTK::Simple::App $app .= new( title => 'Controls Enable / Disable' );

$app.set_content(
$app.set-content(
my $box = GTK::Simple::HBox.new(
my $box = GTK::Simple::HBox.new(
my $inc = GTK::Simple::Button.new( label => ' + ' ),
my $inc = GTK::Simple::Button.new( label => ' + ' ),
Line 1,782: Line 1,783:
);
);


$app.border_width = 10;
$app.border-width = 10;
$box.spacing = 10;
$box.spacing = 10;


Line 1,790: Line 1,791:
$dec.sensitive = $value.text > 0;
$dec.sensitive = $value.text > 0;
}
}

$value.text = 0;
$value.text = '0';

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

$app.run;</lang>
$app.run;</lang>


Retrieved from "https://rosettacode.org/wiki/GUI_enabling/disabling_of_controls"