Attachment #50489 for bug #56083

View | Details | Raw Unified | Return to bug 56083
Collapse All | Expand All




#!/usr/bin/perl
use strict;

# Babygimp 0.4

$spray_frame->Scale(-variable => \$spray_radius, -showvalue => 0,
		    -orient => 'horizontal', 
		    -length => 65, -sliderlength => 25,
		    -from => 0, -to => 5, -resolution => 1)
    ->grid(-row => 0, -column => 2, -sticky => 'w');

$spray_frame->Label(-text => 'Intensity:')

$spray_frame->Scale(-variable => \$spray_intensity, -showvalue => 0,
		    -orient => 'horizontal', 
		    -length => 65, -sliderlength => 25,
		    -from => 0, -to => 1, -resolution => 0.01)
    ->grid(-row => 1, -column => 2, -sticky => 'w');



    ->pack(-anchor => 'w');
$smooth_frame->Scale(-variable => \$smooth_intensity, -showvalue => 0,
		  -orient => 'horizontal', 
		  -from => 0, -to => 1, -length => 100, -resolution => 0.01)
    ->pack(-fill => 'x');



$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')
    ->pack(-fill => 'both', -expand => 1);




    $DB->Scale(-variable => \$saturation_exp,
	       -orient => "horizontal", -showvalue => 0,
	       -from => 0, -to => 2, -length => 200, -resolution => 0.05)
       ->grid(-row => 0, -column => 1);
    $DB->Scale( -variable => \$r_exp,
		-orient => "horizontal", -showvalue => 0,
	       -from => 0, -to => 2, -length => 200, -resolution => 0.05)
       ->grid(-row => 1, -column => 1);
    $DB->Scale(-variable => \$g_exp,
	       -orient => "horizontal", -showvalue => 0,
	       -from => 0, -to => 2, -length => 200, -resolution => 0.05)
       ->grid(-row => 2, -column => 1);
    $DB->Scale(-variable => \$b_exp,
	       -orient => "horizontal", -showvalue => 0,
	       -from => 0, -to => 2, -length => 200, -resolution => 0.05)
       ->grid(-row => 3, -column => 1);
    $DB->Scale(-variable => \$val_exp,
	       -orient => "horizontal", -showvalue => 0,
	       -from => 0, -to => 2, -length => 200, -resolution => 0.05)
       ->grid(-row => 4, -column => 1);

    $DB->Scale(-variable => \$contrast_exp,
	       -orient => "horizontal", -showvalue => 0,
	       -from => 0, -to => 2, -length => 200, -resolution => 0.05)
       ->grid(-row => 5, -column => 1);

    $DB->Show() ne 'Ok' and return;

    $DB->Label(-textvariable => \$gaussian_blur_rx)
	->grid(-row => 0, -column => 1);
    $DB->Scale(-variable => \$gaussian_blur_rx, 
	       -from => 0, -to => 4, -resolution => 1,
	       -orient => 'horizontal', -showvalue => 0, -length => 100)
	->grid(-row => 0, -column => 2);


    $DB->Label(-textvariable => \$gaussian_blur_ry)
	->grid(-row => 1, -column => 1);
    $DB->Scale(-variable => \$gaussian_blur_ry, 
	       -from => 0, -to => 4, -resolution => 1,
	       -orient => 'horizontal', -showvalue => 0, -length => 100)
	->grid(-row => 1, -column => 2);


    $DB->Label(-textvariable => \$remove_isolated_min_neighbours)
	->grid(-row => 0, -column => 1);
    $DB->Scale(-variable => \$remove_isolated_min_neighbours, 
	       -from => 1, -to => 3, -resolution => 1,
	       -orient => 'horizontal', -showvalue => 0, -length => 100)
	->grid(-row => 0, -column => 2);
    $DB->Label(-text => 'neighbours')

Return to bug 56083

Lines 1-4 Link Here

(-)babygimp_0.41/babygimp (-14 / +14 lines)
1	#!/usr/bin/perl -w	1	#!/usr/bin/perl
2	use strict;	2	use strict;
3		3
4	# Babygimp 0.4	4	# Babygimp 0.4
Lines 659-665 Link Here
659	$spray_frame->Scale(-variable => \$spray_radius, -showvalue => 0,	659	$spray_frame->Scale(-variable => \$spray_radius, -showvalue => 0,
660	-orient => 'horizontal',	660	-orient => 'horizontal',
661	-length => 65, -sliderlength => 25,	661	-length => 65, -sliderlength => 25,
662	-from => 0, -to => 5, resolution => 1)	662	-from => 0, -to => 5, -resolution => 1)
663	->grid(-row => 0, -column => 2, -sticky => 'w');	663	->grid(-row => 0, -column => 2, -sticky => 'w');
664		664
665	$spray_frame->Label(-text => 'Intensity:')	665	$spray_frame->Label(-text => 'Intensity:')
Lines 668-674 Link Here
668	$spray_frame->Scale(-variable => \$spray_intensity, -showvalue => 0,	668	$spray_frame->Scale(-variable => \$spray_intensity, -showvalue => 0,
669	-orient => 'horizontal',	669	-orient => 'horizontal',
670	-length => 65, -sliderlength => 25,	670	-length => 65, -sliderlength => 25,
671	-from => 0, -to => 1, resolution => 0.01)	671	-from => 0, -to => 1, -resolution => 0.01)
672	->grid(-row => 1, -column => 2, -sticky => 'w');	672	->grid(-row => 1, -column => 2, -sticky => 'w');
673		673
674		674
Lines 721-727 Link Here
721	->pack(-anchor => 'w');	721	->pack(-anchor => 'w');
722	$smooth_frame->Scale(-variable => \$smooth_intensity, -showvalue => 0,	722	$smooth_frame->Scale(-variable => \$smooth_intensity, -showvalue => 0,
723	-orient => 'horizontal',	723	-orient => 'horizontal',
724	-from => 0, -to => 1, -length => 100, resolution => 0.01)	724	-from => 0, -to => 1, -length => 100, -resolution => 0.01)
725	->pack(-fill => 'x');	725	->pack(-fill => 'x');
726		726
727		727
Lines 949-955 Link Here
949	$scrollbar1->grid(-row => 0, -column => 1, -sticky => "ew");	949	$scrollbar1->grid(-row => 0, -column => 1, -sticky => "ew");
950	$scrollbar2->grid(-row => 1, -column => 0, -sticky => "ns");	950	$scrollbar2->grid(-row => 1, -column => 0, -sticky => "ns");
951	$drawingcanvas->grid(-row => 1, -column => 1);	951	$drawingcanvas->grid(-row => 1, -column => 1);
952	$pixelinfo = $drawingframe->Label(anchor => 'w')	952	$pixelinfo = $drawingframe->Label(-anchor => 'w')
953	->pack(-fill => 'both', -expand => 1);	953	->pack(-fill => 'both', -expand => 1);
954		954
955		955
Lines 5267-5294 Link Here
5267		5267
5268	$DB->Scale(-variable => \$saturation_exp,	5268	$DB->Scale(-variable => \$saturation_exp,
5269	-orient => "horizontal", -showvalue => 0,	5269	-orient => "horizontal", -showvalue => 0,
5270	-from => 0, -to => 2, -length => 200, resolution => 0.05)	5270	-from => 0, -to => 2, -length => 200, -resolution => 0.05)
5271	->grid(-row => 0, -column => 1);	5271	->grid(-row => 0, -column => 1);
5272	$DB->Scale( -variable => \$r_exp,	5272	$DB->Scale( -variable => \$r_exp,
5273	-orient => "horizontal", -showvalue => 0,	5273	-orient => "horizontal", -showvalue => 0,
5274	-from => 0, -to => 2, -length => 200, resolution => 0.05)	5274	-from => 0, -to => 2, -length => 200, -resolution => 0.05)
5275	->grid(-row => 1, -column => 1);	5275	->grid(-row => 1, -column => 1);
5276	$DB->Scale(-variable => \$g_exp,	5276	$DB->Scale(-variable => \$g_exp,
5277	-orient => "horizontal", -showvalue => 0,	5277	-orient => "horizontal", -showvalue => 0,
5278	-from => 0, -to => 2, -length => 200, resolution => 0.05)	5278	-from => 0, -to => 2, -length => 200, -resolution => 0.05)
5279	->grid(-row => 2, -column => 1);	5279	->grid(-row => 2, -column => 1);
5280	$DB->Scale(-variable => \$b_exp,	5280	$DB->Scale(-variable => \$b_exp,
5281	-orient => "horizontal", -showvalue => 0,	5281	-orient => "horizontal", -showvalue => 0,
5282	-from => 0, -to => 2, -length => 200, resolution => 0.05)	5282	-from => 0, -to => 2, -length => 200, -resolution => 0.05)
5283	->grid(-row => 3, -column => 1);	5283	->grid(-row => 3, -column => 1);
5284	$DB->Scale(-variable => \$val_exp,	5284	$DB->Scale(-variable => \$val_exp,
5285	-orient => "horizontal", -showvalue => 0,	5285	-orient => "horizontal", -showvalue => 0,
5286	-from => 0, -to => 2, -length => 200, resolution => 0.05)	5286	-from => 0, -to => 2, -length => 200, -resolution => 0.05)
5287	->grid(-row => 4, -column => 1);	5287	->grid(-row => 4, -column => 1);
5288		5288
5289	$DB->Scale(-variable => \$contrast_exp,	5289	$DB->Scale(-variable => \$contrast_exp,
5290	-orient => "horizontal", -showvalue => 0,	5290	-orient => "horizontal", -showvalue => 0,
5291	-from => 0, -to => 2, -length => 200, resolution => 0.05)	5291	-from => 0, -to => 2, -length => 200, -resolution => 0.05)
5292	->grid(-row => 5, -column => 1);	5292	->grid(-row => 5, -column => 1);
5293		5293
5294	$DB->Show() ne 'Ok' and return;	5294	$DB->Show() ne 'Ok' and return;
Lines 5535-5541 Link Here
5535	$DB->Label(-textvariable => \$gaussian_blur_rx)	5535	$DB->Label(-textvariable => \$gaussian_blur_rx)
5536	->grid(-row => 0, -column => 1);	5536	->grid(-row => 0, -column => 1);
5537	$DB->Scale(-variable => \$gaussian_blur_rx,	5537	$DB->Scale(-variable => \$gaussian_blur_rx,
5538	-from => 0, -to => 4, resolution => 1,	5538	-from => 0, -to => 4, -resolution => 1,
5539	-orient => 'horizontal', -showvalue => 0, -length => 100)	5539	-orient => 'horizontal', -showvalue => 0, -length => 100)
5540	->grid(-row => 0, -column => 2);	5540	->grid(-row => 0, -column => 2);
5541		5541
Lines 5544-5550 Link Here
5544	$DB->Label(-textvariable => \$gaussian_blur_ry)	5544	$DB->Label(-textvariable => \$gaussian_blur_ry)
5545	->grid(-row => 1, -column => 1);	5545	->grid(-row => 1, -column => 1);
5546	$DB->Scale(-variable => \$gaussian_blur_ry,	5546	$DB->Scale(-variable => \$gaussian_blur_ry,
5547	-from => 0, -to => 4, resolution => 1,	5547	-from => 0, -to => 4, -resolution => 1,
5548	-orient => 'horizontal', -showvalue => 0, -length => 100)	5548	-orient => 'horizontal', -showvalue => 0, -length => 100)
5549	->grid(-row => 1, -column => 2);	5549	->grid(-row => 1, -column => 2);
5550		5550
Lines 5652-5658 Link Here
5652	$DB->Label(-textvariable => \$remove_isolated_min_neighbours)	5652	$DB->Label(-textvariable => \$remove_isolated_min_neighbours)
5653	->grid(-row => 0, -column => 1);	5653	->grid(-row => 0, -column => 1);
5654	$DB->Scale(-variable => \$remove_isolated_min_neighbours,	5654	$DB->Scale(-variable => \$remove_isolated_min_neighbours,
5655	-from => 1, -to => 3, resolution => 1,	5655	-from => 1, -to => 3, -resolution => 1,
5656	-orient => 'horizontal', -showvalue => 0, -length => 100)	5656	-orient => 'horizontal', -showvalue => 0, -length => 100)
5657	->grid(-row => 0, -column => 2);	5657	->grid(-row => 0, -column => 2);
5658	$DB->Label(-text => 'neighbours')	5658	$DB->Label(-text => 'neighbours')