#!/usr/bin/perl -w
use strict;
use warnings;

use Test::More qw( no_plan );

use Gtk2 '-init';

use Gapp;
use Gapp::Meta::Widget::Native::Trait::FromUIManager;

my $w = Gapp::Toolbar->new(
    traits => [qw( FromUIManager )],
    ui => {
        files => [ 't/basic.ui' ],
        actions => [
            Gapp::Action->new(
                name => 'new',
                label => 'New',
                tooltip => 'New',
                icon => 'gtk-edit',
            ),
            Gapp::Action->new(
                name => 'edit',
                label => 'Edit',
                tooltip => 'Edit',
                icon => 'gtk-edit',
            ),
            Gapp::Action->new(
                name => 'delete',
                label => 'Edit',
                tooltip => 'Edit',
                icon => 'gtk-edit',
            ),
        ]
    },
    ui_widget => '/Toolbar',
);

ok $w, 'created gapp widget';
ok $w->gobject, 'created gtk widget';
ok $w->ui, 'created ui';
ok $w->ui->gobject, 'created ui gtk widget';
ok $w->ui->gobject->get_widget( '/Toolbar' );