SF.net SVN: net-policy:[4726] trunk/net-policy/perl/QWizard

[<har...@us...>]

Revision: 4726
          http://net-policy.svn.sourceforge.net/net-policy/?rev=4726&view=rev
Author:   hardaker
Date:     2010-01-22 01:03:41 +0000 (Fri, 22 Jan 2010)

Log Message:
-----------
copyright update

Modified Paths:
--------------
    trunk/net-policy/perl/QWizard/Generator/Gtk2.pm
    trunk/net-policy/perl/QWizard/Generator_base/Generator.pm
    trunk/net-policy/perl/QWizard/QWizard.pm

Modified: trunk/net-policy/perl/QWizard/Generator/Gtk2.pm
===================================================================
--- trunk/net-policy/perl/QWizard/Generator/Gtk2.pm	2009-02-23 19:44:14 UTC (rev 4725)
+++ trunk/net-policy/perl/QWizard/Generator/Gtk2.pm	2010-01-22 01:03:41 UTC (rev 4726)
@@ -1,5 +1,6 @@
 package QWizard::Generator::Gtk2;
 
+use utf8;
 use strict;
 my $VERSION = '3.15';
 use Gtk2 -init;
@@ -126,7 +127,7 @@
     $self->init_default_storage();
 
     # force some default image search paths
-    $self->{'imgpaths'} = [] if (!exists($self->{'imgpaths'}));
+    $self->{'imgpaths'} = ['.'] if (!exists($self->{'imgpaths'}));
     $self->{'imgpaths'} = [$self->{'imgpaths'}]
       if (ref($self->{'imgpaths'}) ne 'ARRAY');
     push @{$self->{'imgpaths'}}, '/usr/share/icons/Bluecurve/16x16/stock/';
@@ -244,6 +245,9 @@
 # be a widget.
 sub goto_next {
     my $self = shift;
+    print STDERR "HERE: $self\n";
+    print STDERR "HERE: ",join(",",@_),"\n";
+    print STDERR "HERE: ",$self->x,"\n";
     my $generator = $self->{'generator'};
     if ($self->{'qbuttonname'}) {
 	$self->{'generator'}->qwparam($self->{'qbuttonname'},
@@ -1503,19 +1507,29 @@
     $hb->pack_end($but, FALSE, FALSE, 0);
 }
 
+sub got_here {
+    print STDERR "got here!!!\n";
+    use Data::Dumper;
+    print Dumper(\@_);
+}
+
 sub do_image {
 	my $self = shift;
 	my ($q, $wiz, $p, $datastr, $filestr, $imgalt, $scaleopts) = @_;
 
 	my $img;
+	print "trying to load image $filestr\n; $img\n";
 	if ($datastr) {
 	    $filestr = $self->create_temp_file('.png',$datastr);
 	} else {
+	    print "trying to find path for $filestr\n;\n";
 	    $filestr = $self->find_image_path($filestr);
+	    print "trying to find path for $filestr\n;\n";
 	}
 	# image file
 	$img = Gtk2::Image->new_from_file($filestr);
 
+	print "trying to load image $filestr\n; $img\n";
 	if ($img) {
 	    my $vb = Gtk2::VBox->new();
 	    my $but;
@@ -1536,6 +1550,8 @@
 		$vb->pack_end($hb, FALSE, FALSE, 0);
 	    }
 
+	    $vb->signal_connect('button-press-event' => \&got_here);
+
 	    $vb->pack_end($img, FALSE, FALSE, 0);
 
 	    $img->{'currentsize'} = 1;

Modified: trunk/net-policy/perl/QWizard/Generator_base/Generator.pm
===================================================================
--- trunk/net-policy/perl/QWizard/Generator_base/Generator.pm	2009-02-23 19:44:14 UTC (rev 4725)
+++ trunk/net-policy/perl/QWizard/Generator_base/Generator.pm	2010-01-22 01:03:41 UTC (rev 4726)
@@ -463,6 +463,7 @@
 
     # return it if it's already a fullyqualified path
     # XXX: win32 issues
+    print "finding path: $file\n";
     return if (!defined($file));
     return $file if ($file eq '' || $file =~ /^\//);
 

Modified: trunk/net-policy/perl/QWizard/QWizard.pm
===================================================================
--- trunk/net-policy/perl/QWizard/QWizard.pm	2009-02-23 19:44:14 UTC (rev 4725)
+++ trunk/net-policy/perl/QWizard/QWizard.pm	2010-01-22 01:03:41 UTC (rev 4726)
@@ -3306,9 +3306,9 @@
 
 =head1 COPYRIGHT and LICENSE
 
-Copyright (c) 2003-2009, SPARTA, Inc.  All rights reserved
+Copyright (c) 2003-2010, SPARTA, Inc.  All rights reserved
 
-Copyright (c) 2006-2009, Wes Hardaker. All rights reserved
+Copyright (c) 2006-2010, Wes Hardaker. All rights reserved
 
 QWizard is free software; you can redistribute it and/or modify it under
 the same terms as Perl itself.


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.