Source

Kephra / lib / Kephra / App / Menu.pm

use strict;
use warnings;

package Kephra::App::Menu;

sub main_bar {
    my $bar = Wx::MenuBar->new();
    my $file_menu = Wx::Menu->new();
    $file_menu->Append( 1000, 'New');
    $file_menu->Append( 1001, 'Open');
    $file_menu->Append( 1002, 'Save');
    $file_menu->Append( 1003, 'Close');
    $file_menu->AppendSeparator();
    $file_menu->Append( 1010, 'Exit');
    $bar->Append($file_menu, 'File');
    my $config_menu = Wx::Menu->new();
    $file_menu->Append( 7000, 'Dialog');
    $bar->Append($file_menu, 'Config');
    my $help_menu = Wx::Menu->new();
    $help_menu->Append( 7000, 'Documentation');
    $help_menu->Append( 7002, 'Website');
    $help_menu->Append( 7003, 'Report a Wish');
    $bar->Append($help_menu, 'Help');
    return $bar;
}

sub get {
    my $which_menu = shift;
}


1;