X-Git-Url: http://git.dolda2000.com/gitweb/?a=blobdiff_plain;f=common%2Fmakegdesc;h=3adbee20b3b518947846c1708eaa1fcfe716425d;hb=99dd2b9fdfa684b69606c876d6cacb9a752d3bc4;hp=cfcb6f19ee54415042b02765423e7763806be9b9;hpb=d05758f6eda21695e6215d60d28b9747d0b8aaa3;p=doldaconnect.git

diff --git a/common/makegdesc b/common/makegdesc
index cfcb6f1..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");
@@ -119,6 +129,9 @@ sub printwidgets
 	    $widget->{"stock"} || die("Can't have image without stock\n");
 	    $widget->{"size"} || die("Can't have image without size\n");
 	    print "${p}stack[$sl] = gtk_image_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", GTK_ICON_SIZE_" . $widget->{"size"} . ");\n";
+	} elsif($widget->{"type"} eq "xpmimg") {
+	    $widget->{"data"} || die("Can't have XPM image without data\n");
+	    print "${p}stack[$sl] = gtk_image_new_from_pixbuf(gdk_pixbuf_new_from_xpm_data((const char **)" . $widget->{"data"} . "));\n";
 	} elsif($widget->{"type"} eq "lbl") {
 	    $widget->{"label"} || $widget->{"markup"} || die("Can't have label without label\n");
 	    if($widget->{"label"}) {