Perl and Gtk2 menu

今天主要學到了選單(menu)的寫法,不過它使用的資料型態我看不太懂,似乎跟物件有關,看起來很奇怪。

以下是有關menu部份的code

#a71d5d;">use Gtk2::SimpleMenu;
#a71d5d;">my $menu_tree #a71d5d;">= [
    #0086b3;">_File => {
        #0086b3;">item_type => "<Branch>",
        #0086b3;">children => [
            #0086b3;">_Quit => {
                #0086b3;">callback => #a71d5d;">sub { Gtk2->main_quit;},
                #0086b3;">callback_action => #0086b3;">0,
                #0086b3;">accelerator => "<ctrl>Q",
                },
            ]
        }
    ];
#a71d5d;">my $menu #a71d5d;">= Gtk2::SimpleMenu->new (
    #0086b3;">menu_tree => $menu_tree,
    #0086b3;">default_callback => #a71d5d;">sub { #62a35c;">print "hello";},
    #0086b3;">user_data => "user_data"
    );
$vbox->pack_start ($menu->{#0086b3;">widget},#0086b3;">0 ,#0086b3;">0 ,#0086b3;">0);

已發佈

分類:

,

作者:

標籤: