fix alt folder concat, undefined properties in checkboxes warning
authorRicardo Mones <ricardo@mones.org>
Thu, 26 Jun 2008 07:03:49 +0000 (07:03 +0000)
committerRicardo Mones <ricardo@mones.org>
Thu, 26 Jun 2008 07:03:49 +0000 (07:03 +0000)
ChangeLog
VERSION
clawsker

index 54917dc..fb0185e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-06-26 08:59  mones   0.4.0svn115
+
+       * clawsker
+               Fix alternate folder option behaviour
+               Fix warning when boolean properties don't exist
+
 2008-06-12 13:20  mones   0.4.0svn102
 
        * clawsker
diff --git a/VERSION b/VERSION
index 62b5f1c..ed15c4b 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.4.0svn102
+0.4.0svn115
index 84821f9..6e17806 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -371,7 +371,9 @@ sub new_check_button_for {
     my $hbox = Gtk2::HBox->new (FALSE, 5);
     my $cb = Gtk2::CheckButton->new ($label);
     $$hash{$key}[GUI] = $cb;
-    $cb->set_active ($HPVALUE{$name} eq '1');
+    if (defined ($HPVALUE{$name})) {
+        $cb->set_active ($HPVALUE{$name} eq '1');
+    }
     $cb->signal_connect (clicked => sub {
             my ($w, $e) = @_;
            &handle_bool_value($w, $e, \$HPVALUE{$name});
@@ -989,6 +991,8 @@ sub parse_command_line() {
                &command_line_fatal ($xl::s{e_notadir})
                    unless -d $ARGV[$arg];
                $CONFIGDIR = $ARGV[$arg];
+               $CONFIGDIR .= "/" 
+                   unless ($CONFIGDIR =~ /.*\/$/);
                $ALTCONFIGDIR = TRUE;
                last;
            };