[SCM] packaging of clive-utils branch, master, updated. 2.1.4-66-g9e36024
legatvs
legatvs at gmail.com
Thu Apr 9 07:41:29 UTC 2009
The following commit has been merged in the master branch:
commit 1909a5d4f945ced15b8c1d3ffd6d8b24b8211d55
Author: legatvs <legatvs at gmail.com>
Date: Thu Mar 26 15:48:57 2009 +0200
Set aboutbox height to 9.
diff --git a/clivefeed b/clivefeed
index 18ac3ab..060832c 100755
--- a/clivefeed
+++ b/clivefeed
@@ -223,7 +223,8 @@ sub find_clive
);
if ($opts{clive}) { print "$opts{clive}\n" unless $opts{quiet}; }
- else {
+ else
+ {
print STDERR "\nerror: not found, use --clive=path\n";
exit;
}
@@ -530,7 +531,7 @@ sub on_clear
sub on_about
{
my $dlg = $mw->DialogBox(-title => 'About', -buttons => ['OK']);
- my $txt = $dlg->add('Text')->pack;
+ my $txt = $dlg->add('Text', -height => 9)->pack;
$txt->insert('end', print_version(1));
$dlg->Show;
}
diff --git a/clivescan b/clivescan
index e9efe7a..75aafe1 100755
--- a/clivescan
+++ b/clivescan
@@ -399,7 +399,8 @@ sub find_clive
);
if ($opts{clive}) { print "$opts{clive}\n" unless $opts{quiet}; }
- else {
+ else
+ {
print STDERR "\nerror: not found, use --clive=path\n";
exit;
}
@@ -684,7 +685,7 @@ sub on_clear
sub on_about
{
my $dlg = $mw->DialogBox(-title => 'About', -buttons => ['OK']);
- my $txt = $dlg->add('Text')->pack;
+ my $txt = $dlg->add('Text', -height => 9)->pack;
$txt->insert('end', print_version(1));
$dlg->Show;
}
--
packaging of clive-utils
More information about the Pkg-perl-cvs-commits
mailing list