#!/usr/bin/perl -w
use strict;
use Gapp;
use Gapp::Actions::Basic qw( Quit );
use Gapp::Actions -declare => [qw( New Edit Delete )];
action New => (
label => 'New',
tooltip => 'New',
icon => 'gtk-new',
code => sub { print 'action: ' , @_, "\n" },
);
action Edit => (
label => 'Edit',
tooltip => 'Edit',
icon => 'gtk-edit',
code => sub { print 'action: ' , @_, "\n" },
);
action Delete => (
label => 'Delete',
tooltip => 'Delete',
icon => 'gtk-delete',
code => sub { print 'action: ' , @_, "\n" },
);
my $w = Gapp::Window->new(
content => [
Gapp::Toolbar->new(
style => 'icons',
icon_size => 'dnd',
content => [
Gapp::ToolButton->new( action => New ),
Gapp::ToolButton->new( action => Edit ),
Gapp::ToolButton->new( action => Delete ),
]
)
],
signal_connect => [
[ delete_event => Quit ],
]
);
$w->show_all;
Gapp->main;