allow minimum required version for widgets

diff --git a/ChangeLog b/ChangeLog
index e98de6c..57ee32e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-03-08 00:08  mones   0.7.8git461
+
+       * clawsker
+               Allow minimum required version for widgets
+
 2012-06-27 00:17  mones   0.7.8
 
        * NEWS

diff --git a/VERSION b/VERSION
index e7c7d3c..4eae46c 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.7.8
+0.7.8git461

diff --git a/clawsker b/clawsker
index 649bcf1..c71a1b7 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -384,8 +384,16 @@ sub set_widget_hint() {
 }
 
 sub set_widget_sens() {
-    my ($wdgt, $minver) = @_;
-    $wdgt->set_sensitive (&version_greater_or_equal ($CLAWSV, $minver));
+    my ($wdgt, $versions) = @_;
+    @ver = split(/,/, $versions);
+    if ($#ver == 1) {
+      $wdgt->set_sensitive (
+        &version_greater_or_equal ($CLAWSV, $ver[0])
+        and &version_greater_or_equal ($ver[1], $CLAWSV)
+      );
+    } else {
+        $wdgt->set_sensitive (&version_greater_or_equal ($CLAWSV, $ver[0]));
+    }
 }
 
 # graphic element creation