The Perl Toolchain Summit 2025 Needs You: You can help ๐Ÿ™ Learn more

VKON / TVision-0.16 / demo / menu.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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

              
use strict;
use TVision (':keys', 'tnew');
use constant {
  hcCancelBtn            => 35,
  hcFCChDirDBox          => 37,
  hcFChangeDir           => 15,
  hcFDosShell            => 16,
  hcFExit                => 17,
  hcFOFileOpenDBox       => 31,
  hcFOFiles              => 33,
  hcFOName               => 32,
  hcFOOpenBtn            => 34,
  hcFOpen                => 14,
  hcFile                 => 13,
  hcNoContext            => 0,
  hcOCColorsDBox         => 39,
  hcOColors              => 28,
  hcOMMouseDBox          => 38,
  hcOMouse               => 27,
  hcORestoreDesktop      => 30,
  hcOSaveDesktop         => 29,
  hcOpenBtn              => 36,
  hcOptions              => 26,
  hcPuzzle               => 3,
  hcSAbout               => 8,
  hcSAsciiTable          => 11,
  hcSystem               => 7,
  hcViewer               => 2,
  hcWCascade             => 22,
  hcWClose               => 25,
  hcWNext                => 23,
  hcWPrevious            => 24,
  hcWSizeMove            => 19,
  hcWTile                => 21,
  hcWZoom                => 20,
  hcWindows              => 18,
  cmAboutCmd             => 100,
  cmOpenCmd              => 105,
  cmChDirCmd             => 106,
  cmMouseCmd             => 108,
  cmSaveCmd              => 110,
  cmRestoreCmd           => 111,
  cmEventViewCmd         => 112,
        cmResize => 120,
        cmZoom => 120,
        cmNext => 120,
        cmClose => 120,
        cmTile => 120,
        cmCascade => 120,
};
my $submenu0 = tnew(TSubMenu=>"~s~ubmenu", 0, 0 );
my @mi = map {tnew(TMenuItem=> 'aaa', 201, kbNoKey)} 0 .. 3;
my $mnam = 'aaa';
my $sub1 =
    TVision::TSubMenu::new( "~\xf0~ั‚ัƒั‚ ัะธัั‚ะตะผะฝะพ", 0, hcSystem )
      -> plus ( TVision::TMenuItem::new( "~A~bout...", cmAboutCmd, kbNoKey, hcSAbout ) )
    -> plus (
        TVision::TSubMenu::new( "~ั‚~ัƒั‚ ะตั‰ั‘", 0, 0 )
          -> plus ( TVision::TMenuItem::new( "~A~bout 2...", cmAboutCmd, kbNoKey, hcSAbout ) )
    )
    #-> plus ( [map {$submenu0->plus($mi[0])} 0 .. 0]->[0])
    #-> plus ( $submenu0)
    -> plus (
        $submenu0
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TSubMenu::new("~x~ubmenu", 0, 0 )
                ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
                ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
                ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            )
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
            ->plus(TVision::TMenuItem::new( $mnam++, 201, kbNoKey))
    )
    -> plus (
    TVision::TSubMenu::new( "~W~indows", 0, hcWindows )
        -> plus ( TVision::TMenuItem::new( "~R~esize/move", cmResize, kbCtrlF5, hcWSizeMove, "Ctrl-F5" ) )
        -> plus ( TVision::TMenuItem::new( "~Z~oom", cmZoom, kbF5, hcWZoom, "F5" ) )
        -> plus ( TVision::TMenuItem::new( "~N~ext", cmNext, kbF6, hcWNext, "F6" ) )
        -> plus ( TVision::TMenuItem::new( "~C~lose", cmClose, kbAltF3, hcWClose, "Alt-F3" ) )
        -> plus ( TVision::TMenuItem::new( "~T~ile", cmTile, kbNoKey, hcWTile ) )
        -> plus ( TVision::TMenuItem::new( "C~a~scade", cmCascade, kbNoKey, hcWCascade ) )
     )
;
print "last mnam is $mnam\n";
my $menubar = tnew TMenuBar=>([0,0,179,1],$sub1);
my $tapp = tnew TVApp => $menubar;
my $desktop = $tapp->deskTop;
$tapp->onCommand(my $sub = sub {
    my ($cmd, $arg) = @_;
    print "command[@_]\n";
    if ($cmd == 123) {
        #button pressed
        #$b->locate(15,15,30,17);
    }
    elsif ($cmd == 125) {
    }
});
$tapp->run;