view release on metacpan or  search on metacpan

demo/menu.pl  view on Meta::CPAN

	    ->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(sub {
    my ($cmd, $arg) = @_;
    print "command[@_]\n";
    if ($cmd == 123) {
	#button pressed
	#$b->locate(15,15,30,17);
    }
    elsif ($cmd == 125) {
    }
});
$tapp->run;