Define notebook.pos.

[doldaconnect.git] / common / makegdesc

diff --git a/common/makegdesc b/common/makegdesc
index 68138d3..12c1cda 100755 (executable)
--- a/common/makegdesc
+++ b/common/makegdesc
@@ -120,7 +120,7 @@ sub printwidgets
                print "${p}stack[$sl] = gtk_label_new(_(\"" . $widget->{"label"} . "\"));\n";
            } else {
                print "${p}stack[$sl] = gtk_label_new(NULL);\n";
-               print "${p}gtk_label_set_markup(GTK_LABEL(stack[$sl]), _(\"" . $widget->{"label"} . "\"));\n";
+               print "${p}gtk_label_set_markup(GTK_LABEL(stack[$sl]), _(\"" . $widget->{"markup"} . "\"));\n";
            }
            if($widget->{"wrap"} eq "y") {
                print "${p}gtk_label_set_line_wrap(GTK_LABEL(stack[$sl]), TRUE);\n";
@@ -185,6 +185,9 @@ sub printwidgets
            $widget->{"noshow"} = 1;
        } elsif($widget->{"type"} =~ /^[hv]paned$/) {
            print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new();\n";
+           if(defined($widget->{"pos"})) {
+               print "${p}gtk_notebook_set_tab_pos(GTK_NOTEBOOK(stack[$sl]), GTK_POS_" . $widget->{"pos"} . ")\n";
+           }
            $widget->{"cur"} = 1;
            $pf = sub
            {
@@ -356,6 +359,9 @@ sub printwidgets
        if($widget->{"align"} =~ /([\d\.]+):([\d\.]+)/) {
            print "${p}gtk_misc_set_alignment(GTK_MISC(stack[$sl]), $1, $2);\n";
        }
+       if($widget->{"wpad"} =~ /([\d\.]+):([\d\.]+)/) {
+           print "${p}gtk_misc_set_padding(GTK_MISC(stack[$sl]), $1, $2);\n";
+       }
        if($widget->{"var"} eq "y") {
            print $p . $options{"prefix"} . $widget->{"name"} . " = stack[$sl];\n";
        }