Support spinbuttons with unit labels
authorRicardo Mones <ricardo@mones.org>
Mon, 27 Feb 2017 10:12:41 +0000 (11:12 +0100)
committerRicardo Mones <ricardo@mones.org>
Mon, 27 Feb 2017 10:12:41 +0000 (11:12 +0100)
clawsker

index 6594bd7..726ef74 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -513,6 +513,11 @@ sub new_text_box_for_int($$$) {
     my @type = split (/,/, $$hash{$key}[TYPE]);
     push (@type, 0), push (@type, 10000) unless ($#type > 0);
     #
+    my $gunits = undef;
+    if (ref $label eq 'ARRAY') {
+        $gunits = Gtk2::Label->new ($label->[1]);
+        $label = $label->[0];
+    }
     my $glabel = Gtk2::Label->new ($label);
     my $pagei = int (($type[2] - $type[1]) / 10);
     my $gentry = Gtk2::SpinButton->new_with_range ($type[1], $type[2], $pagei);
@@ -527,7 +532,9 @@ sub new_text_box_for_int($$$) {
     set_widget_hint ($gentry, $$hash{$key}[DESC]);
     set_widget_sens ($gentry, $$hash{$key}[CMVER]);
     $glabel->set_sensitive ($gentry->sensitive);
+    $gunits->set_sensitive ($gentry->sensitive) if ($gunits);
     #
+    return new_hbox_spaced_pack ($glabel, $gentry, $gunits) if ($gunits);
     return new_hbox_spaced_pack ($glabel, $gentry);
 }