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);
pgp54i5IioQOf.pgp
Description: PGP signature
