[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