gtksimple

#!/usr/bin/env perl6
use v6;
use GTK::Simple;

my GTK::Simple::App $app1.= new( title => 'App1' );
$app1.border_width = 10;
$app1.size_request(100, 100);
$app1.set_content(
    GTK::Simple::VBox.new(
    my $start = GTK::Simple::Button.new(label => 'Start'),
    my $end = GTK::Simple::Button.new(label => 'Exit')
    )
);

my GTK::Simple::App $app2.= new( title => 'App2' );
$app2.border_width = 10;
$app2.size_request(100, 100);
$app2.set_content(
    GTK::Simple::VBox.new(
    my $end1 = GTK::Simple::Button.new(label => 'Exit')
    )
);

$start.clicked.tap:
{
    $app1.exit;
    $app1.exit;
    $app2.run;
}

$end.clicked.tap:
{
    $app1.exit;
}

$end1.clicked.tap:
{
   $app2.exit;
}
$app1.run;