gtk-simple-text-cascade.pl6

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

sub cascade ($obj, &proc) { proc($obj); $obj; }

GTK::Simple::App.new(title => 'Text').&cascade:
{
    my $text-view;

    .set-content:
        GTK::Simple::VBox.new(
	
	    GTK::Simple::CheckButton.new(label => 'Editable').&cascade:
	    {
	        .status = True;
		.toggled.tap({ $text-view.editable = .status });
	    };

	    GTK::Simple::CheckButton.new(label => 'Show Cursor').&cascade:
	    {
	        .status = True;
		.toggled.tap({ $text-view.cursor-visible = .status });
	    };

	    GTK::Simple::CheckButton.new(label => 'Monospaced').&cascade:
	    {
	        .status = False;
		.toggled.tap({ $text-view.monospace = .status });
	    };

	    $text-view = GTK::Simple::TextView.new()

	);

    .run;
};