FIXED: presentation API

Author: nkh

documentation/presentation.pl

@@ -26,7 +26,7 @@
 	[ clear_and_box_at(0, 0, "2"), ], 
 
 	[ 
-		load(0, 0, 'path/file.asciio'),
+		load(0, 0, './default_stencil.asciio'),
 		box(10, 20, 'title', '3', 0),
 	],
 

lib/App/Asciio/Actions/File.pm

@@ -155,7 +155,8 @@ if(defined $file_name && $file_name ne q[])
 	my ($basename, $path, $ext) = File::Basename::fileparse(find_installed('App::Asciio'), ('\..*')) ;
 	my $setup_path = $path . $basename . '/setup/' ;
 
-	$asciio->setup([$setup_path .  'setup.ini', ] ) ;
+	%object_override = (WARN => sub { print STDERR "@_\n" }, ACTION_VERBOSE => sub { print STDERR "$_[0]\n" ; } ) ;
+	$asciio->setup([$setup_path .  'setup.ini', ], \%object_override ) ;
 
 	$asciio->load_file($file_name) ;
 	$asciio->run_actions_by_name('Select all elements', 'Copy to clipboard') ;

lib/App/Asciio/Actions/Presentation.pm

@@ -36,7 +36,7 @@ my ($self, $slide) = @_ ;
 # use Data::TreeDumper ;
 # print STDERR DumpTree \@stack, 'stack:' ;
 
-if(defined $slide)
+if(defined $slide and 'ARRAY' eq ref $slide)
 	{
 	for my $element ($slide->@*)
 		{

lib/App/Asciio/Utils/Presentation.pm

@@ -25,6 +25,7 @@ return
 		{
 		my ($self) = @_ ;
 		$self->run_actions_by_name(['Insert', $x_offset, $y_offset, $file]) ;
+		return ;
 		} ;
 }