bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-04-04 07:43:22 -04:00
Code Issues Projects Releases Wiki Activity

* The beginnings of a menu.

Browse Source
This commit is contained in:
freesource 2000-12-09 20:23:09 +00:00
parent 2ee5ffe452
commit ca21adebf1
1 changed files with 72 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
YardBox.pm
View File

@ -31,9 +31,40 @@ use Yard;
use Error;
my $yard_window;
my $item_factory;
my $accel_group;
my $true = 1;
my $false = 0;
my @menu_items = ( { path => '/File',
type => '<Branch>' },
{ path => '/File/file_tearoff',
type => '<Tearoff>' },
{ path => '/File/_Save',
accelerator => '<control>S',
callback => sub { print "hello"; } },
{ path => '/File/Save _As ...',
accelerator => '<alt>A',
callback => sub { print "hello\n"; } },
{ path => '/File/file_separator',
type => '<Separator>' },
{ path => '/File/_Close',
callback => sub { destroy $yard_window; }},
{ path => '/_Edit',
type => '<Branch>' },
{ path => '/_Create',
type => '<Branch>' },
{ path => '/_Tests',
type => '<Branch>' },
{ path => '/_Help',
type => '<LastBranch>' },
{ path => '/_Help/Tutorial' },
{ path => '/_Help/Shortcuts' } );
######
# YARD
######
@ -99,11 +130,16 @@ sub yard_box {
$yard_window->add( $main_vbox );
$main_vbox->show();
my $vbox = new Gtk::HBox( $false, 50 );
$vbox->border_width( 10 );
$main_vbox->pack_start( $vbox, $false, $true, 0 );
my $vbox = new Gtk::VBox( $false, 0 );
$vbox->border_width( 0 );
$main_vbox->pack_start( $vbox, $false, $false, 0 );
$vbox->show();
# Item::Factory
my $menubar = yard_menu($yard_window);
$vbox->pack_start( $menubar, $false, $true, 0 );
$menubar->show();
$vbox = new Gtk::VBox( $false, 10 );
$vbox->border_width( 10 );
$main_vbox->pack_start( $vbox, $true, $true, 0 );
@ -211,5 +247,34 @@ sub yard_box {
} # end sub yard_box
sub print_hello {
my ($menu_item, $action, $date) = @_;
$menu_item->set_active($true);
print $menu_item;
}
sub yard_menu {
my ($window) = @_;
$accel_group = new Gtk::AccelGroup();
$item_factory = new Gtk::ItemFactory( 'Gtk::MenuBar', '<main>',
$accel_group );
$accel_group->attach($window);
$item_factory->create_items(@menu_items);
# Manipulate Gtk::ItemFactory - The trick here is to use the real path.
##my $checkbox = $item_factory->get_item("/File/CheckBox");
##$checkbox->set_active($true);
return ( $item_factory->get_widget( '<main>' ) );
}
1;