gtk: labeled widget grid: allow adding optional suffix label

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/proxinstall b/proxinstall
index 7c5b0d5b6782be4f4cd9adaed969f3f79bd21e8f..079522beeef95625d0ab3b79e5cd37ae42865e5e 100755 (executable)
--- a/proxinstall
+++ b/proxinstall
@@ -956,14 +956,15 @@ my $create_basic_grid = sub {
     return $grid;
 };
 
-# takes an array ref of rows with [$label_text, $widget] array refs as columns
+# takes an array ref of rows with [$label_text, $widget, $suffix_label] array refs as columns
+# $suffix_label is optional
 my $create_label_widget_grid = sub {
     my ($labeled_widgets) = @_;
 
     my $grid = &$create_basic_grid();
 
     for (my $row = 0; $row < scalar($labeled_widgets->@*); $row++) {
-       my ($label_text, $widget) = $labeled_widgets->[$row]->@*;
+       my ($label_text, $widget, $suffix_label) = $labeled_widgets->[$row]->@*;
 
        my $label = Gtk3::Label->new($label_text);
        $label->set_visible(1);
@@ -972,6 +973,13 @@ my $create_label_widget_grid = sub {
 
        $widget->set_visible(1);
        $grid->attach($widget, 1, $row, 1, 1);
+
+       if ($suffix_label) {
+           my $suffix_label = Gtk3::Label->new($suffix_label);
+           $suffix_label->set_visible(1);
+           $suffix_label->set_xalign(1.0);
+           $grid->attach($suffix_label, 2, $row, 1, 1);
+       }
     }
 
     return $grid;