From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DAMS / Curses-Toolkit-0.100630 / examples / fpw09 / demo4.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

              
#!/usr/bin/perl
# 
# This file is part of Curses-Toolkit
# 
# This software is copyright (c) 2008 by Damien "dams" Krotkine.
# 
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
# 
use strict;
use warnings;
use lib qw(../../lib);
main() unless caller;
sub main {
        use Curses::Toolkit;
        use Curses::Toolkit::Widget::Window;
        use Curses::Toolkit::Widget::Border;
        use Curses::Toolkit::Widget::Label;
        use Curses::Toolkit::Widget::VBox;
        use Curses::Toolkit::Widget::HBox;
        local $| = 1;
        open STDERR, '/dev/null';
        my $root = Curses::Toolkit->init_root_window( clear => 0, )->add_window(
                my $window = Curses::Toolkit::Widget::Window->new()->set_name('main_window')->add_widget(
                        my $border1 = Curses::Toolkit::Widget::Border->new()->set_name('border1')->add_widget(
                                my $vbox1 = Curses::Toolkit::Widget::VBox->new()->pack_end(
                                        my $border2 = Curses::Toolkit::Widget::Border->new()->set_name('border2')->add_widget(
                                                my $label1 =
                                                        Curses::Toolkit::Widget::Label->new()->set_name('label1')
                                                        ->set_text('non-expanding border but a long label that hopefully wraps')
                                        )
                                        )->pack_end(
                                        #                      my $border3 = Curses::Toolkit::Widget::Border
                                        #                        ->new()
                                        #                        ->set_name('border3')
                                        #                        ->add_widget(
                                        my $hbox1 = Curses::Toolkit::Widget::HBox->new()->set_name('hbox1')->pack_end(
                                                my $border4 = Curses::Toolkit::Widget::Border->new()->set_name('border4')->add_widget(
                                                        my $label3 =
                                                                Curses::Toolkit::Widget::Label->new()->set_name('label3')->set_text('expanding border')
                                                ),
                                                { expand => 1 }
                                                )->pack_end(
                                                my $border5 = Curses::Toolkit::Widget::Border->new()->set_name('border5')->add_widget(
                                                        my $label4 =
                                                                Curses::Toolkit::Widget::Label->new()->set_name('label4')->set_text('expanding border')
                                                ),
                                                { expand => 1 }
                                                ),
                                        { expand => 1 }
                                        #                       ),
                                        )->pack_end(
                                        my $border6 = Curses::Toolkit::Widget::Border->new()->set_name('border6')->add_widget(
                                                my $label5 =
                                                        Curses::Toolkit::Widget::Label->new()->set_name('label5')->set_text('expanding border')
                                        ),
                                        { expand => 1 }
                                        )->pack_end(
                                        my $border7 = Curses::Toolkit::Widget::Border->new()->set_name('border7')->add_widget(
                                                my $label6 =
                                                        Curses::Toolkit::Widget::Label->new()->set_name('label6')->set_text('non expanding border')
                                        ),
                                        )
                        )
                        )->set_coordinates(
                        x1 => 0,
                        y1 => 0,
                        x2 => 40,
                        y2 => 30
                        )
        )->render()->display();
        sleep 2;
        use Time::HiRes qw(usleep);
        use Curses::Toolkit::Object::Coordinates;
        while (1) {
                foreach ( 1 .. 15 ) {
                        usleep(80000);
                        $window->set_coordinates( $window->get_coordinates() + { y2 => 1, x2 => 2 } );
                        $root->render()->display();
                }
                foreach ( 1 .. 15 ) {
                        usleep(80000);
                        $window->set_coordinates( $window->get_coordinates() + { y2 => -1, x2 => -2 } );
                        $root->render()->display();
                }
        }
}