X-Git-Url: http://git.dolda2000.com/gitweb/?p=doldaconnect.git;a=blobdiff_plain;f=common%2Fmakegdesc;h=3adbee20b3b518947846c1708eaa1fcfe716425d;hp=e8fd6f538795f3deff8db765f71906c8209739c7;hb=99dd2b9fdfa684b69606c876d6cacb9a752d3bc4;hpb=d70e35d91eb140aaa1a2e9022dc21499b75d23ea 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");