version info on help
authorRicardo Mones <ricardo@mones.org>
Tue, 15 Jan 2008 11:36:38 +0000 (11:36 +0000)
committerRicardo Mones <ricardo@mones.org>
Tue, 15 Jan 2008 11:36:38 +0000 (11:36 +0000)
ChangeLog
VERSION
clawsker

index cd1d6715ba01b06c6b191a82fd47a36367eb6787..6aaedcfdc5c0e2fb51a2053428ce80651dd92ac1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-15 12:35  mones   0.2.0svn45
+
+       * clawsker
+               Add perl-gtk2 version info to help screen
+
 2008-01-12 01:23  mones   0.2.0svn44
 
        * clawsker
diff --git a/VERSION b/VERSION
index bc40ee26082cd20e1e8c95315987254b1cd8538a..1c6d724bbf91d934f18ae49f7f94bd08294de67d 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.2.0svn44
+0.2.0svn45
index ef02f1992ed8ebecbcce64fb011d2cf164bfb128..980ca943fe90bfd9239078ce9bcb634b2a885894 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -811,6 +811,21 @@ sub print_help() {
     print $line;
     print $xl::s{about_title} . "\n";
     print $xl::s{about_version} . " $VERSION\n";
+    print "Perl-GLib " . $Glib::VERSION;
+    # The version info stuff appeared in 1.040
+    if ($Glib::VERSION >= 1.040) {
+        print _(", built for ") . join(".", Glib->GET_VERSION_INFO) 
+              . _(", running with ") . join(".", &Glib::major_version, 
+                 &Glib::minor_version, &Glib::micro_version);
+    }
+    print "\n";
+    print "Perl-GTK2 " . $Gtk2::VERSION;
+    if ($Gtk2::VERSION >= 1.040) {
+        print _(", built for ") . join(".", Gtk2->GET_VERSION_INFO)
+             . _(", running with ") . join(".", &Gtk2::major_version, 
+                 &Gtk2::minor_version, &Gtk2::micro_version);
+    }
+    print "\n";
     print $line;
     print _("Syntax:\n");
     print _("    clawsker [options]\n");