use strict;
use warnings;
use Carp;
use XUL::Node::MVC;

use base 'XUL::Node::Application';

sub start {
        my $value: Value = 0; # <--- I dont understand this line
        Window(SIZE_TO_CONTENT,
                VBox(
                        HBox(
                                Button(label => '+', Click => sub { $value++ }),
                                Button(label => '-', Click => sub { $value-- }),
                        ),
                        Label(value => $value),
                        TextBox(DISABLED, value => $value),
                ),
        );

return tied($value); # DO NOT REMOVE!- this is for unit testing MVC
                     # and for unit tests only. Lets us check the value
                     # from the outside
}

1;