Bug#395917: babygimp: doesn't work with current version of perl-tk
Hi, Any update on babygimp's status? If it no longer works and cannot be fixed, maybe the best course of action is to remove it from Etch? Greetings, -- Gunnar Wolf - [EMAIL PROTECTED] - (+52-55)5623-0154 / 1451-2244 PGP key 1024D/8BB527AF 2001-10-23 Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF signature.asc Description: Digital signature
Bug#395917: babygimp: doesn't work with current version of perl-tk
On 12/27/06, Gunnar Wolf [EMAIL PROTECTED] wrote: Hi, Any update on babygimp's status? If it no longer works and cannot be fixed, maybe the best course of action is to remove it from Etch? AFAIK, babygimp should already be removed from Etch per an email I sent earlier to the release team. I checked qa.debian.org (on my maintainer page) and no version of babygimp is currently listed in testing, so I think things are OK. I haven't had time to dig in and see what else can be easily done to fix the problem, and I have not received any other emails from interested parties. I will probably remove the package from Debian entirely sometime after etch is released. KEN -- Kenneth J. Pronovici [EMAIL PROTECTED] http://www.cedar-solutions.com/ -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of unsubscribe. Trouble? Contact [EMAIL PROTECTED]
Bug#395917: babygimp: doesn't work with current version of perl-tk
package babygimp
tags 395917 + patch
thanks
Hi,
here is a patch to fix this bug.
--
Florent
--- babygimp-0.42.orig/babygimp
+++ babygimp-0.42/babygimp
@@ -381,6 +381,7 @@
my $threshhold = 0; # for floodfill and mapping
my $drawingfunc = \draw_normal;
+my $drawingopt = 1;
# Image
my ($width, $height);
@@ -569,26 +570,33 @@
# Drawing modes
my $modeframe1 = $leftframe-Frame()-pack();
-$modeframe1-Radiobutton(-text = Normal, -value = \draw_normal,
- -pady = 0, -variable = \$drawingfunc)
+$modeframe1-Radiobutton(-text = Normal, -pady = 0,
+ -command = sub {$drawingfunc = \draw_normal},
+ -variable = \$drawingopt, -value = 1)
-grid(-row = 0, -column = 0, -sticky = 'sw', -pady = 0);
-$modeframe1-Radiobutton(-text = Erase, -value = \draw_erase,
- -pady = 0, -variable = \$drawingfunc)
+$modeframe1-Radiobutton(-text = Erase, -pady = 0,
+ -command = sub {$drawingfunc = \draw_erase},
+ -variable = \$drawingopt, -value = 2)
-grid(-row = 0, -column = 1, -sticky = 'sw', -pady = 0);
-$modeframe1-Radiobutton(-text = Backgr., -value = \draw_bg,
- -pady = 0, -variable = \$drawingfunc)
+$modeframe1-Radiobutton(-text = Backgr., -pady = 0,
+ -command = sub {$drawingfunc = \draw_bg},
+ -variable = \$drawingopt, -value = 3)
-grid(-row = 1, -column = 0, -sticky = 'sw', -pady = 0);
-$modeframe1-Radiobutton(-text = Foregr., -value = \draw_fg,
- -pady = 0, -variable = \$drawingfunc)
+$modeframe1-Radiobutton(-text = Foregr., -pady = 0,
+ -command = sub {$drawingfunc = \draw_fg},
+ -variable = \$drawingopt, -value = 4)
-grid(-row = 1, -column = 1, -sticky = 'sw', -pady = 0);
-$modeframe1-Radiobutton(-text = Color, -value = \draw_color,
- -pady = 0, -variable = \$drawingfunc)
+$modeframe1-Radiobutton(-text = Color, -pady = 0,
+ -command = sub {$drawingfunc = \draw_color},
+ -variable = \$drawingopt, -value = 5)
-grid(-row = 2, -column = 0, -sticky = 'sw', -pady = 0);
-$modeframe1-Radiobutton(-text = Value, -value = \draw_value,
- -pady = 0, -variable = \$drawingfunc)
+$modeframe1-Radiobutton(-text = Value, -pady = 0,
+ -command = sub {$drawingfunc = \draw_value},
+ -variable = \$drawingopt, -value = 6)
-grid(-row = 2, -column = 1, -sticky = 'sw', -pady = 0);
-$modeframe1-Radiobutton(-text = Saturation, -value = \draw_saturation,
- -pady = 0, -variable = \$drawingfunc)
+$modeframe1-Radiobutton(-text = Saturation, -pady = 0,
+ -command = sub {$drawingfunc = \draw_saturation},
+ -variable = \$drawingopt, -value = 7)
-grid(-row = 3, -column = 0, -columnspan = 2,
-sticky = 'sw', -pady = 0);
@@ -665,7 +673,7 @@
$spray_frame-Scale(-variable = \$spray_radius, -showvalue = 0,
-orient = 'horizontal',
-length = 65, -sliderlength = 25,
- -from = 0, -to = 5, resolution = 1)
+ -from = 0, -to = 5, -resolution = 1)
-grid(-row = 0, -column = 2, -sticky = 'w');
$spray_frame-Label(-text = 'Intensity:')
@@ -956,7 +964,7 @@
$scrollbar1-grid(-row = 0, -column = 1, -sticky = ew);
$scrollbar2-grid(-row = 1, -column = 0, -sticky = ns);
$drawingcanvas-grid(-row = 1, -column = 1);
-$pixelinfo = $drawingframe-Label(anchor = 'w')
+$pixelinfo = $drawingframe-Label(-anchor = 'w')
-pack(-fill = 'both', -expand = 1);
pgpzpk0A4Bv3T.pgp
Description: PGP signature
Bug#395917: babygimp: doesn't work with current version of perl-tk
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 - 1.4
+++ babygimp 12 Nov 2006 19:10:04 -
@@ -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);
}
