p6.p6

#!/usr/bin/env perl6

use GTK::Simple;
use GTK::Simple::App;

my \app := GTK::Simple::App.new: title => 'ZofVLC';
my \b   := {};
app.set-content:
    GTK::Simple::VBox.new:
        (b<hello> := GTK::Simple::Button.new: label => "Hello World!"),
        (b<exit>  := GTK::Simple::Button.new: label => "Goodbye!");

app.border-width = 20;
b<exit>.sensitive = False;

react {
    whenever b<hello>.clicked {
        say "O hai";
        b<exit>.sensitive = True;
    }
    whenever b<exit>.clicked {
        app.exit
    }

    start {
        app.run;
        exit;
    }
}