App-Guiio

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

my @pm_files = qw(
lib/App/Guiio.pm

lib/App/Guiio/Actions.pm
lib/App/Guiio/Ascii.pm
lib/App/Guiio/Connections.pm
lib/App/Guiio/Dialogs.pm
lib/App/Guiio/Elements.pm
lib/App/Guiio/Io.pm
lib/App/Guiio/Menues.pm
lib/App/Guiio/Setup.pm
lib/App/Guiio/Undo.pm
lib/App/Guiio/Options.pm

lib/App/Guiio/stripes/editable_arrow2.pm
lib/App/Guiio/stripes/editable_box2.pm
lib/App/Guiio/stripes/if_box.pm
lib/App/Guiio/stripes/process_box.pm
lib/App/Guiio/stripes/section_wirl_arrow.pm
lib/App/Guiio/stripes/single_stripe.pm

MANIFEST  view on Meta::CPAN

setup/stencils/guiio

lib/App/Guiio.pm

lib/App/Guiio/Actions.pm
lib/App/Guiio/Ascii.pm
lib/App/Guiio/Connections.pm
lib/App/Guiio/Dialogs.pm
lib/App/Guiio/Elements.pm
lib/App/Guiio/Io.pm
lib/App/Guiio/Menues.pm
lib/App/Guiio/Setup.pm
lib/App/Guiio/Undo.pm
lib/App/Guiio/Options.pm

lib/App/Guiio/stripes/editable_arrow2.pm
lib/App/Guiio/stripes/editable_box2.pm
lib/App/Guiio/stripes/if_box.pm
lib/App/Guiio/stripes/process_box.pm
lib/App/Guiio/stripes/section_wirl_arrow.pm
lib/App/Guiio/stripes/single_stripe.pm

lib/App/Guiio.pm  view on Meta::CPAN

use Glib ':constants';
use Gtk2 -init;
use Gtk2::Gdk::Keysyms ;
my %K = %Gtk2::Gdk::Keysyms ;
my %C = map{$K{$_} => $_} keys %K ;


use App::Guiio::Setup ;
use App::Guiio::Dialogs ;
use App::Guiio::Elements ;
use App::Guiio::Menues ;
use App::Guiio::Actions ;
use App::Guiio::Undo ;
use App::Guiio::Io ;
use App::Guiio::Ascii ;
use App::Guiio::Options ;

#-----------------------------------------------------------------------------

our $VERSION = '0.99' ;

lib/App/Guiio/Menues.pm  view on Meta::CPAN

use warnings;

use Data::TreeDumper ;
use Clone;
use List::Util qw(min max) ;
use List::MoreUtils qw(any minmax first_value) ;
use Eval::Context ;

use Glib ':constants';
use Gtk2 -init;
use Gtk2::SimpleMenu;
use Gtk2::Gdk::Keysyms ;
my %K = %Gtk2::Gdk::Keysyms ;
my %C = map{$K{$_} => $_} keys %K ;

#------------------------------------------------------------------------------------------------------

# sub display_popup_menu
# {
# my ($self, $event) = @_;

lib/App/Guiio/Menues.pm  view on Meta::CPAN

	# ['/File/open', undef , sub {$self->run_actions_by_name('Open') ;}, 0 , '<Item>', undef],
	# ['/File/save', undef , sub {$self->run_actions_by_name('Save') ;}, 0 , '<Item>', undef],
	# [ '/File/save as', undef , sub {$self->run_actions_by_name(['Save', 1]) ;}, 0 , '<Item>', undef],
	# ) ;
	
# if($self->get_selected_elements(1) == 1)
	# {
	# push @menu_items, [ '/File/save stencil', undef , $self->menue_entry_wrapper(\&save_stencil), 0 , '<Item>', undef ] ;
	# }	

# my $item_factory = Gtk2::ItemFactory->new("Gtk2::Menu" ,"<popup>") ;
# $item_factory ->create_items($self->{widget}, @menu_items) ;

# my $menu = $item_factory->get_widget("<popup>") ;

# $menu->popup(undef, undef, undef, undef, $event->button, $event->time) ;
# }

# sub insert_generator 
# { 
# my ($self, $element, $x, $y) = @_ ; 

lib/App/Guiio/Menues.pm  view on Meta::CPAN

	# else
		# {
		# push @context_menu_entries, $context_menu_handler->[$CONTEXT_MENUE_SUB]->($self, $popup_x, $popup_y) ;
		# }
	# }
	
# return(\@context_menu_entries) ;
# }

#------------------------------------------------------------------------------------------------------
#Beginning of GUIIO code to handle primary GUIIOMenubar
sub create_GUIIOMenu
{
	my ($self) = @_;
	my $menu_tree = [
        _File => {
                item_type => '<Branch>',
                children => [
                        _New=> {
                                item_type       => '<StockItem>',
                                callback        => \&new_drawing,
                                accelerator     => '<ctrl>N',

lib/App/Guiio/Menues.pm  view on Meta::CPAN

                        _Help => {
                                item_type       => '<StockItem>',
                                callback_action => 3,
                                accelerator     => '<ctrl>H',
                                extra_data      => 'gtk-help',
                        }
                ],
        },
];

my $menu = Gtk2::SimpleMenu->new (
                menu_tree               => $menu_tree,
                default_callback        => \&default_callback,
        );

return $menu;
}
		sub new_document {
        print "user wants a new document.\n";
}

pod2htmd.tmp  view on Meta::CPAN

stencils lib/App/Guiio/setup/stencils:
editable_arrow2 lib/App/Guiio/stripes/editable_arrow2.pm:
Io lib/App/Guiio/Io.pm:
App lib/App:
wirl_arrow lib/App/Guiio/stripes/wirl_arrow.pm:
Undo lib/App/Guiio/Undo.pm:
stripes lib/App/Guiio/stripes:lib/App/Guiio/stripes/stripes.pm:
Actions lib/App/Guiio/Actions.pm:
if_box lib/App/Guiio/stripes/if_box.pm:
Setup lib/App/Guiio/Setup.pm:
Menues lib/App/Guiio/Menues.pm:
editable_box2 lib/App/Guiio/stripes/editable_box2.pm:
Connections lib/App/Guiio/Connections.pm:
images lib/App/Guiio/images:
Elements lib/App/Guiio/Elements.pm:
hooks lib/App/Guiio/setup/hooks:
guiio_object lib/App/Guiio/setup/guiio_object:
single_stripe lib/App/Guiio/stripes/single_stripe.pm:
section_wirl_arrow lib/App/Guiio/stripes/section_wirl_arrow.pm:
import_export lib/App/Guiio/setup/import_export:
setup lib/App/Guiio/setup:

script/guiio  view on Meta::CPAN

my $guiio = new App::Guiio(0, 0) ;
push @guiios, $guiio ;

my $vbox = Gtk2::VBox->new (FALSE, 0);
my $hcontentbox = Gtk2::HBox->new(FALSE, 0);

$window->add($vbox);

my $hpaned = Gtk2::HPaned->new;
$vbox->pack_start($guiio->create_GUIIOMenu()->{widget},FALSE, FALSE, 0);

$hcontentbox->pack_start($guiio->display_component_palette(), FALSE, FALSE, 0);
$hcontentbox->pack_start($hpaned, TRUE, TRUE, 0);
$hcontentbox->show_all();
$vbox->pack_start($hcontentbox,TRUE,TRUE,0);
$hpaned->set_border_width (3);


$hpaned->add1($guiio->{widget});
$vbox->show_all();