Bug#395917: babygimp: doesn't work with current version of perl-tk

[Kenneth Pronovici]

On 11/12/06, Florent Bayle <[EMAIL PROTECTED]> wrote:

package babygimp
tags 395917 + patch
thanks

Hi,

here is a patch to fix this bug.

Hi, Florent,

Thanks for the patch!

You definitely solved the problem with starting the script.  I made a
few other changes, and was then able to successfully open an existing
XPM file .  (A patch relative to yours is attached.)

Unfortunately, the program still doesn't work properly, so I have to
leave this bug open.

When working in a new image, I can't consistently make the cursor draw
any pixels.  I did coax it into a partially working state a few times
-- once where it worked more-or-less "normally" and once where cursor
clicks seemed to result in 2-4 random pixels in the image -- but most
of the time drawing with the cursor doesn't seem to do anything.

Do you have any interest in debugging this further?  If you do, I
would really appreciate it.  If not, I understand, and appreciate your
help in getting me this far.

Thanks again,

KEN

--
Kenneth J. Pronovici <[EMAIL PROTECTED]>

Index: babygimp
===================================================================
RCS file: /opt/public/cvs/debian/babygimp/babygimp,v
retrieving revision 1.4
diff -u -r1.4 babygimp
--- babygimp	12 Nov 2006 18:55:55 -0000	1.4
+++ babygimp	12 Nov 2006 19:10:04 -0000
@@ -7140,7 +7140,15 @@
 {
     shift;
     my $self = shift;
-    $self->{file} = $self->{files}->[$self->{filebox}->curselection()];
+    my $index;
+    my @curselection = $self->{filebox}->curselection();
+    if([EMAIL PROTECTED]) { 
+	$index = 0;
+    }
+    else {
+	$index = $curselection[0];
+    }
+    $self->{file} = $self->{files}->[$index];
 }
 
 # ----------------------------------------------------------------------
@@ -7149,7 +7157,15 @@
 {
     shift;
     my $self = shift;
-    my $relative_dir = $self->{dirs}->[$self->{dirbox}->curselection()];
+    my $index;
+    my @curselection = $self->{dirbox}->curselection();
+    if([EMAIL PROTECTED]) { 
+	$index = 0;
+    }
+    else {
+	$index = $curselection[0];
+    }
+    my $relative_dir = $self->{dirs}->[$index];
     my ($newdir, $dummy) = dir_file($self->{dir}.$relative_dir);
     $self->goto_dir( $newdir);
 }