App-Asciio

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

setup/import_export/asciioe.pl
setup/import_export/perl.pl

setup/stencils/asciio
setup/stencils/computer
setup/stencils/people
setup/stencils/divers

setup/GTK/setup.ini
setup/GTK/actions/clipboard.pl
setup/GTK/import_export/png.pl
) ;

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

sub GetVersionAndRevisionFrom
{
my ($file) = @_ ;

MANIFEST  view on Meta::CPAN

lib/App/Asciio/GTK/Asciio.pm
lib/App/Asciio/GTK/Asciio/Dialogs.pm
lib/App/Asciio/GTK/Asciio/stripes/wirl_arrow.pm
lib/App/Asciio/GTK/Asciio/stripes/editable_box2.pm
lib/App/Asciio/GTK/Asciio/stripes/editable_arrow2.pm
lib/App/Asciio/GTK/Asciio/Menues.pm

setup/GTK/setup.ini
setup/GTK/actions/clipboard.pl
setup/GTK/import_export/png.pl


META.json

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

setup/GTK/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/GTK/setup.ini  view on Meta::CPAN

HOOK_FILES =>
	[
	],

ASCIIO_OBJECT_SETUP =>
	[
	],
	
IMPORT_EXPORT =>
	[
	'import_export/png.pl',
	],
}