#!/usr/bin/env perl6

use v6;
use lib 'lib';
use GTK::Simple;
use GTK::Simple::App;

my GTK::Simple::App $app .=new( :title( 'More widgets') );


comment

my %texts = <blue red> Z=>
 'Blue text is cool!',
 'Red text is hot!'
;
my $mx = 30;
my $mn = 2.5;

$app.set-content(
 GTK::Simple::VBox.new( 
 GTK::Simple::HBox.new(
 my $inner = GTK::Simple::VBox.new( 
 my $normal-label = GTK::Simple::Label.new(:text("Normal label: %texts<blue>" ) ),

my $marked-label = GTK::Simple::MarkUpLabel.new(:text("Label with markup: %texts<blue>") ),

my $bR = GTK::Simple::CheckButton.new(:label('Make Red')),
 my $bB = GTK::Simple::ToggleButton.new(:label('Make Blue')),
		my $bSyn = GTK::Simple::ToggleButton.new(:label('Synchronise')),
 my $label-for-vertical = GTK::Simple::MarkUpLabel.new(:text('Vertical scale value is:')),
	 my $label-for-horizontal = GTK::Simple::MarkUpLabel.new(:text('Horizontal scale value is:')),
 ),
 my $scale-vertical = GTK::Simple::Scale.new(:orientation<vertical>, :max($mx), :min($mn), :step(0.5), :value(21) ),


        ),
        my $scale-horizontal = GTK::Simple::Scale.new()


)
);

sub make-blue($b) {
 $normal-label.text = "Normal label: %texts<blue>";
 $marked-label.text = "Label with markup: %texts<blue>";
}

sub make-red($b) {
 $normal-label.text = "Normal label: %texts<red>";
 $marked-label.text = "Label with markup: %texts<red>";
}

sub vertical-changes($b) {
 $label-for-vertical.text = 'Number is ' ~ $scale-vertical.value ~'';
}

sub horizontal-changes($b) {
 $label-for-horizontal.text = 'Number is ' ~ $scale-horizontal.value ~'';
}

sub sync($b) {
 $scale-vertical.adjust: $mn + $scale-horizontal.value * ($mx-$mn)
}

$bB.toggled.tap: &make-blue;
$bR.toggled.tap: &make-red;
$bSyn.toggled.tap: &sync;
$scale-vertical.value-changed.tap: &vertical-changes;


$scale-horizontal.value-changed.tap: &horizontal-changes;

$inner.border-width = 20;
$app.border-width = 20;
$app.run;


root

06-combo

03-grid

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React

=begin React :component<HeaderCol> :id<footer> 
=begin nested :!nested
=item1 B<Language>
 =item2 L<Get started|file:../getting-started/getting-started.podlite>
 =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
 =item2 L<Try Raku|https://glot.io/new/raku>
 =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
 =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
 =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
 =item2 L<Language References|file:../doc/reference.podlite>
 =item2 L<Type Reference| file:../doc/types.podlite>
 =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
 =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
 =item2 L<Community|/doc/language/community>
 =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
 =item2 L<The Raku Guide|https://raku.guide/>
 =item2 L<Books |https://perl6book.com/>
 =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
 =item2 L<Download | file:../download/index.podlite>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>

=item1 B<Learning>
 =item2 L<The Raku Guide|https://raku.guide/>
 =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
 =item2 L<Books |https://perl6book.com/>
 =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
 =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
 =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
 =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
 =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
 =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
 =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>
 =item2 L<empty|#>

=end nested
=end React

=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React

04-marked-scale

GTK::Simple v0.2.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation