From 3cd90582cde6dcb02a488e1e849c928db6cf2da3 Mon Sep 17 00:00:00 2001
From: Ricardo Mones <ricardo@mones.org>
Date: Thu, 26 Jun 2008 07:03:49 +0000
Subject: [PATCH] fix alt folder concat, undefined properties in checkboxes
 warning

---
 ChangeLog | 6 ++++++
 VERSION   | 2 +-
 clawsker  | 6 +++++-
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 54917dc..fb0185e 100644
--- 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
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.4.0svn102
+0.4.0svn115
diff --git a/clawsker b/clawsker
index 84821f9..6e17806 100755
--- 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;
 	    };
-- 
2.25.1