end on error, higify buttons, markup on error dialog
authorRicardo Mones <ricardo@mones.org>
Wed, 9 Jan 2008 22:02:55 +0000 (22:02 +0000)
committerRicardo Mones <ricardo@mones.org>
Wed, 9 Jan 2008 22:02:55 +0000 (22:02 +0000)
ChangeLog
VERSION
clawsker

index 2aafd1d..192e55f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2008-01-09 22:58  mones   0.2.0svn40
+
+       * clawsker
+               Make error message in dialog more readable
+               Fix finishing applet when checks fail
+               Order buttons following GNOME HIG 2.0 for dialogs
+
 2008-01-09 18:34  mones   0.2.0svn39
 
        * clawsker
diff --git a/VERSION b/VERSION
index a9efba3..bdeb4f5 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.2.0svn39
+0.2.0svn40
index 7d25d0b..50220e1 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -307,8 +307,9 @@ sub log_message {
 
 sub error_dialog {
     my ($emsg) = @_;
-    my $errordlg = Gtk2::MessageDialog->new ($main_window, 'modal', 'error', 'cancel', $emsg);
-    $errordlg->set_title (_('Error'));
+    my $markup = "<span weight=\"bold\" size=\"large\">" . $emsg . "</span>";
+    my $errordlg = Gtk2::MessageDialog->new_with_markup ($main_window, 'modal', 'error', 'cancel', $markup);
+    $errordlg->set_title (_('Error message'));
     $errordlg->run;
     $errordlg->destroy;
 }
@@ -831,6 +832,7 @@ sub parse_command_line() {
            };
            /--verbose/ && do {
                $VERBOSE = TRUE;
+               last;
            };
            /--alternate-config-dir/ && do {
                ++$arg;
@@ -870,8 +872,8 @@ sub init_hidden_preferences() {
 # load current status from disc
 sub load_preferences() {
     my $rc = &get_rc_filename;
-    &check_rc_file ($rc) or return;
-    &check_claws_not_running or return;
+    &check_rc_file ($rc) or return FALSE;
+    &check_claws_not_running or return FALSE;
     open (RCF, "<$rc");
     while (<RCF>) {
        chomp;
@@ -880,13 +882,14 @@ sub load_preferences() {
         }
     }
     close (RCF);
+    return TRUE;
 }
 
 # save current preferences to disc
 sub save_preferences() {
     my $rc = &get_rc_filename;
-    &check_rc_file ($rc) or return;
-    &check_claws_not_running or return;
+    &check_rc_file ($rc) or return FALSE;
+    &check_claws_not_running or return FALSE;
     my $rcbak = "$rc.backup";
     rename ($rc, $rcbak);
     open (RCF, ">$rc");
@@ -907,6 +910,7 @@ sub save_preferences() {
     }
     close (RCB);
     close (RCF);
+    return TRUE;
 }
 
 # create notebook
@@ -971,8 +975,8 @@ sub new_button_box() {
     # $b_undo->signal_connect (clicked => sub { &undo_current_changes });
     $b_about->signal_connect (clicked => sub { $adlg->run; $adlg->hide });
     # package them
-    $hbox->pack_end ($b_exit, FALSE, FALSE, 0);
     $hbox->pack_end ($b_apply, FALSE, FALSE, 0);
+    $hbox->pack_end ($b_exit, FALSE, FALSE, 0);
     # $hbox->pack_end ($b_undo, FALSE, FALSE, 0);
     $hbox->pack_start ($b_about, FALSE, FALSE, 0);
     #
@@ -982,8 +986,8 @@ sub new_button_box() {
 # initialise
 $main_window = Gtk2::Window->new ('toplevel');
 &parse_command_line;
-&load_preferences;
-&init_hidden_preferences;
+&load_preferences or exit;
+&init_hidden_preferences or exit;
 # create main GUI
 my $box = Gtk2::VBox->new (FALSE, 5);
 $box->set_border_width(3);