added tooltips stuff, added homepage
authorRicardo Mones <ricardo@mones.org>
Wed, 16 Jan 2008 23:27:17 +0000 (23:27 +0000)
committerRicardo Mones <ricardo@mones.org>
Wed, 16 Jan 2008 23:27:17 +0000 (23:27 +0000)
ChangeLog
README
VERSION
clawsker

index 6aaedcf..300088d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2008-01-17 00:22  mones   0.2.0svn46
+
+       * clawsker
+               Add tooltips to widgets if possible (requires libgtk2-perl 
+               built with GTK+2 >= 2.12)
+       * README
+               Added manpage address, some rewording
+
 2008-01-15 12:35  mones   0.2.0svn45
 
        * clawsker
diff --git a/README b/README
index f8c53bc..359f387 100644 (file)
--- a/README
+++ b/README
@@ -8,6 +8,10 @@ editing of configuration files.
 
 Claws Mail is a fast and lightweight Mail User Agent by the Claws Mail Team.
 
+You can download the latest version from Clawsker homepage:
+
+  http://www.claws-mail.org/clawsker
+
 Dependencies
 ------------
 
@@ -54,8 +58,8 @@ Optionally you can provide also a DESTDIR as a root tree for the installation.
 Contributing
 ------------
 
-Patches, and specially, new translations (or updates to the existing) are
-welcome.
+Patches, bug fixes, and specially, new translations (or updates to the 
+existing ones) are welcome.
 
 To create a new translation just change to 'po' directory, copy 'clawsker.pot'
 into 'xx.po' or 'xx_YY.po',  and fill the empty strings and placeholder values. 
diff --git a/VERSION b/VERSION
index 1c6d724..c3d291d 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.2.0svn45
+0.2.0svn46
index 980ca94..fe9759a 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -91,6 +91,9 @@ setlocale (LC_ALL, $locale);
 bindtextdomain ($NAME, sprintf ('%s/share/locale', $PREFIX));
 textdomain ($NAME);
 
+my $SHOWHINTS = FALSE;
+$SHOWHINTS = TRUE if ($Gtk2::VERSION >= 1.040 and Gtk2->CHECK_VERSION (2, 12, 0));
+
 sub _ {
     my $str = shift;
     my %par = @_;
@@ -339,6 +342,14 @@ sub check_rc_file() {
     return TRUE;
 }
 
+sub set_widget_hint() {
+    if ($SHOWHINTS) {
+        my ($wdgt, $hint) = @_;    
+        $wdgt->set_tooltip_text ($hint);
+        $wdgt->set_has_tooltip (TRUE);
+    }
+}
+
 # graphic element creation 
 
 sub new_check_button_for {
@@ -354,6 +365,7 @@ sub new_check_button_for {
             my ($w, $e) = @_;
            &handle_bool_value($w, $e, \$HPVALUE{$name});
         });
+    &set_widget_hint ($cb, $$hash{$key}[DESC]);
     $hbox->pack_start ($cb, FALSE, FALSE, HBOX_SPC);
     #
     return $hbox;
@@ -374,6 +386,7 @@ sub new_text_box_for {
             my ($w, $e) = @_;
            &handle_int_value($w, $e, \$HPVALUE{$name}); # FIXME int only
         });
+    &set_widget_hint ($gentry, $$hash{$key}[DESC]);
     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
     $hbox->pack_start ($gentry, FALSE, FALSE, HBOX_SPC);
     #
@@ -396,6 +409,7 @@ sub new_color_button_for {
             my ($w, $e) = @_;
            &handle_color_value($w, $e, \$HPVALUE{$name}); 
         });
+    &set_widget_hint ($button, $$hash{$key}[DESC]);
     $hbox->pack_start ($button, FALSE, FALSE, HBOX_SPC);
     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
     #
@@ -421,6 +435,7 @@ sub new_selection_box_for {
            &handle_selection_value($w, $e, \$HPVALUE{$name});
         });
     $combo->set_active ($HPVALUE{$name});
+    &set_widget_hint ($combo, $$hash{$key}[DESC]);
     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
     $hbox->pack_start ($combo, FALSE, FALSE, HBOX_SPC);
     #
@@ -812,7 +827,7 @@ sub print_help() {
     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
+    # 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,