App-Guiio

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

setup/actions/context_menu_multi_wirl.pl
setup/actions/context_menu_box.pl
setup/actions/context_menu_rulers.pl

setup/guiio_object/basic.pl
setup/hooks/canonize_connections.pl

setup/import_export/ascii.pl
setup/import_export/guiioe.pl
setup/import_export/perl.pl
setup/import_export/png.pl

setup/stencils/guiio
setup/stencils/computer
setup/stencils/people
setup/stencils/divers
setup/stencils/guiio
) ;
my @images=
qw(
images/widget-gtk-button.png
images/widget-gtk-calendar.png
images/widget-gtk-checkbutton.png
images/widget-gtk-combo.png
images/widget-gtk-dialog.png
images/widget-gtk-entry.png
images/widget-gtk-hscale.png
images/widget-gtk-label.png
images/widget-gtk-list.png
images/widget-gtk-menubar.png
images/widget-gtk-progressbar.png
images/widget-gtk-radiobutton.png
images/widget-gtk-vscrollbar.png);

for(@images)
{
	$all_modules{$_} = "lib/App/Guiio/$_";
}

for(@setup_lib)
	{
	$all_modules{$_} = "lib/App/Guiio/$_" ;
	}

Changes  view on Meta::CPAN

commit 49a0e831d105a318fbda1c8a03b84a22d2242341
Author: nadim khemir <nadim@naquadim.(none)>
Date:   Sat Apr 19 15:59:57 2008 +0200

    ADDED: remove last multi-wirl section

commit 44ccf80bf9f8967f96317578ea37b7265b9087d7
Author: nadim khemir <nadim@naquadim.(none)>
Date:   Sat Apr 19 09:56:18 2008 +0200

    ADDED: export to png format

commit a2203d03a022f3c9083fa5f549f3429ab0564a78
Author: nadim khemir <nadim@naquadim.(none)>
Date:   Sat Apr 19 09:10:03 2008 +0200

    ADDED: destroy sub and commented the startup script

commit e3ef7f54ba6da3d1236b3e220bd5878f93e9aa4e
Author: nadim khemir <nadim@naquadim.(none)>
Date:   Wed Apr 16 21:49:47 2008 +0200

MANIFEST  view on Meta::CPAN

setup/actions/context_menu_rulers.pl
setup/actions/colors.pl
setup/actions/presentation.pl

setup/guiio_object/basic.pl
setup/hooks/canonize_connections.pl

setup/import_export/ascii.pl
setup/import_export/guiioe.pl
setup/import_export/perl.pl
setup/import_export/png.pl

setup/stencils/guiio
setup/stencils/computer
setup/stencils/people
setup/stencils/divers
setup/stencils/guiio

lib/App/Guiio.pm

lib/App/Guiio/Actions.pm

Todo.txt  view on Meta::CPAN

	
#non connecting section wirl arrows

#external command output
	Emanuel Haupt <ehaupt@freebsd.org>

#screencast demo

#remove section

#export png

#possibility to close the application from a script

#return edits the currently selected box

#error: targets are not opened

#register_action_handlers return own data not the evaled package

#script to generate a list of the actions available

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

$self->update_display();
}
sub display_component_palette
{
my ($self) = @_;
my $root_dir = find_installed('App::Guiio');

	my ($basename, $path, $ext) = File::Basename::fileparse(find_installed('App::Guiio'), ('\..*')) ;
	$path = $path . $basename . '/';
	my $vbox = Gtk2::VBox->new (TRUE,4);
my $btnWindow = create_button('Window',$path . 'images/widget-gtk-dialog.png',TRUE);
my $btnButton = create_button('Button',$path . 'images/widget-gtk-button.png', TRUE);
my $btnTextbox = create_button('Textbox',$path . 'images/widget-gtk-entry.png', TRUE);
my $btnProgressBar = create_button('Progress Bar',$path .'images/widget-gtk-progressbar.png',TRUE);
my $btnScrollBar = create_button('Scroll Bar',$path .'images/widget-gtk-vscrollbar.png', TRUE);
my $btnSlider = create_button('Slider', $path .'images/widget-gtk-hscale.png', TRUE);
my $btnListbox = create_button('Listbox', $path .'images/widget-gtk-list.png',TRUE);
my $btnCombobox = create_button('Dropdown List', $path .'images/widget-gtk-combo.png',TRUE);
my $btnCalendar = create_button('Calendar',$path .'images/widget-gtk-calendar.png',TRUE);
my $btnRadioButton = create_button('Radio Button',$path . 'images/widget-gtk-radiobutton.png',TRUE);
my $btnCheckBox = create_button('Checkbox', $path .'images/widget-gtk-checkbutton.png',TRUE);
my $btnLabel = create_button('Label',$path . 'images/widget-gtk-label.png',TRUE);

$btnButton->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Button'); });
$btnWindow->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Window');});
$btnLabel->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Label');});
$btnListbox->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Listbox'); });
$btnRadioButton->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Radio Button');});
$btnCheckBox->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Checkbox');});
$btnProgressBar->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Progress Bar');});
$btnScrollBar->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Scroll Bar');});
$btnSlider->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Slider');});

setup/images/stuff  view on Meta::CPAN

stuff
widget-gtk-button.png
widget-gtk-calendar.png
widget-gtk-checkbutton.png
widget-gtk-combo.png
widget-gtk-dialog.png
widget-gtk-entry.png
widget-gtk-hscale.png
widget-gtk-label.png
widget-gtk-list.png
widget-gtk-menubar.png
widget-gtk-progressbar.png
widget-gtk-radiobutton.png
widget-gtk-vscrollbar.png

setup/import_export/png.pl  view on Meta::CPAN

register_import_export_handlers 
	(
	png => 
		{
		IMPORT => undef ,
		EXPORT => \&export_png,
		},
	) ;

sub export_png
{
my ($self, $elements_to_save, $file)  = @_ ;

if($self->{CREATE_BACKUP} && -e $file)
	{
	use File::Copy;
	copy($file,"$file.bak") or die "export_pod: Copy failed while making backup copy: $!";		
	}

my $alloc = $self->{widget}->allocation;
my $pixbuf = Gtk2::Gdk::Pixbuf->get_from_drawable
			(
			$self->{PIXMAP},
			$self->{widget}->window->get_colormap,
			0, 0,
			0, 0,
			$alloc->width, $alloc->height
			);
			
$pixbuf->save($file, "png" );

return ;
}

setup/setup.ini  view on Meta::CPAN

guiio_OBJECT_SETUP =>
	[
	'guiio_object/basic.pl',
	],
	
IMPORT_EXPORT =>
	[
	'import_export/ascii.pl',
	'import_export/perl.pl',
	'import_export/guiioe.pl',
	'import_export/png.pl',
	],
IMAGES =>
	['images/widget-gtk-button.png',
'images/widget-gtk-calendar.png',
'images/widget-gtk-checkbutton.png',
'images/widget-gtk-combo.png',
'images/widget-gtk-dialog.png',
'images/widget-gtk-entry.png',
'images/widget-gtk-hscale.png',
'images/widget-gtk-label.png',
'images/widget-gtk-list.png',
'images/widget-gtk-menubar.png',
'images/widget-gtk-progressbar.png',
'images/widget-gtk-radiobutton.png',
'images/widget-gtk-vscrollbar.png'
]
}