26.1. Пример Factory Example

исходный код Item Factory

#!/usr/bin/perl -w use Gtk ; use strict ; set_locale Gtk; init Gtk; my $false = 0; my $true = 1; # Эта the GtkItemFactoryEntry структура используется для генерации новых меню.. # Запись может включать в себя следующие пункты. # Item 1: path - Местонахождение пункта в меню. Буква после подчеркивания указывает на # на клавишу быстрого вызова, этого пункта после открытия меню. # Item 2: The accelerator key for the entry # Item 3: The callback function. # Item 4: The callback action. This changes the parameters with # which the function is called. The default is 0. # Item 5: The item type, used to define what kind of an item it is. # Here are the possible values: # NULL -> "&lt;Item>" # "" -> "&lt;Item>" # "&lt;Title>" -> create a title item # "&lt;Item>" -> create a simple item # "&lt;CheckItem>" -> create a check item # "&lt;ToggleItem>" -> create a toggle item # "&lt;RadioItem>" -> create a radio item # &lt;path> -> path of a radio item to link against # "&lt;Separator>" -> create a separator # "&lt;Branch>" -> create an item to hold sub items (optional) # "&lt;LastBranch>" -> create a right justified branch my @menu_items = ( { path => '/_File', type => '<Branch>' }, { path => '/File/_New', accelerator => '<control>N', callback => \&print_hello }, { path => '/File/_Open', accelerator => '<control>O', callback => \&print_hello }, { path => '/File/_Save', accelerator => '<control>S', callback => \&print_hello }, { path => '/File/Save _As' }, { path => '/File/sep1', type => '<Separator>' }, { path => '/File/Quit', callback => sub { Gtk-> exit ( 0 ); } }, { path => '/_Options', type => '<Branch>' }, { path => '/Options/Test' }, { path => '/_Help', type => '<LastBranch>' }, { path => '/_Help/About' } ); my $window; my $main_vbox; my $menubar; # Create the window $window = new Gtk::Window( 'toplevel' ); $window->signal_connect( 'destroy', sub { Gtk-> exit ( 0 ); } ); $window->set_title( "Item Factory" ); $window->set_usize( 300, 200 ); $main_vbox = new Gtk::VBox( $false, 1 ); $main_vbox->border_width( 1 ); $window->add( $main_vbox ); $main_vbox->show(); # Create the menu bar $menubar = create_menu_bar( $window ); $main_vbox->pack_start( $menubar, $false, $true, 0 ); $menubar->show(); $window->show(); main Gtk; exit ( 0 ); ### Subroutines # Obligatory basic callback sub print_hello { print ( "Hello World!\n" ); } # Crete the menu bar, initialize its menus, and return the menu bar. sub create_menu_bar { my ( $window ) = @_; my $menubar; my $item_factory; my $accel_group; $accel_group = new Gtk::AccelGroup(); # This function initializes the item factory. # Param 1: The type of menu - can be 'Gtk::MenuBar', 'Gtk::Menu', # or 'Gtk::OptionMenu'. # Param 2: The path of the menu. # Param 3: The accelerator group. The item factory sets up # the accelerator table while generating menus. $item_factory = new Gtk::ItemFactory( 'Gtk::MenuBar', '<main>', $accel_group ); # This function generates the menu items. Pass the item factory, # the number of items in the array, the array itself, and any # callback data for the the menu items. $item_factory->create_items( @menu_items ); # Attach the new accelerator group to the window. $window->add_accel_group( $accel_group ); # Finally, return the actual menu bar created by the item factory. #*menubar = gtk_item_factory_get_widget (item_factory, "&lt;main>"); return ( $item_factory->get_widget( '<main>' ) ); } # END EXAMPLE PROGRAM