From 99dd2b9fdfa684b69606c876d6cacb9a752d3bc4 Mon Sep 17 00:00:00 2001 From: Fredrik Tolf Date: Tue, 14 Aug 2007 02:17:00 +0200 Subject: [PATCH] Add buttonboxes to makegdesc. --- common/makegdesc | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/common/makegdesc b/common/makegdesc index e8fd6f5..3adbee2 100755 --- a/common/makegdesc +++ b/common/makegdesc @@ -63,6 +63,16 @@ sub printwidgets print $widget->{"pad"} || "0"; print ");\n"; } + } elsif($widget->{"type"} =~ /([hv])btnbox/) { + print "${p}stack[$sl] = gtk_" . $1 . "button_box_new();\n"; + if(defined($widget->{"layout"})) { + print "${p}gtk_button_box_set_layout(GTK_BUTTON_BOX(stack[$sl]), GTK_BUTTONBOX_" . $widget->{"layout"} . ");\n"; + } + $pf = sub + { + my($widget, $p, $sl) = @_; + print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n"; + } } elsif($widget->{"type"} eq "table") { print "${p}stack[$sl] = gtk_table_new(" . $widget->{"rows"} . ", " . $widget->{"cols"}; print ", " . (($widget->{"homo"} eq "TRUE")?"TRUE":"FALSE"); -- 2.11.0