Add title attribute to assistant.

[doldaconnect.git] / common / makegdesc

diff --git a/common/makegdesc b/common/makegdesc
index 443991f..74f5b95 100755 (executable)
--- a/common/makegdesc
+++ b/common/makegdesc
@@ -27,6 +27,9 @@ sub printwidgets
            }
        } elsif($widget->{"type"} eq "assistant") {
            print "${p}stack[$sl] = gtk_assistant_new();\n";
+           if(defined($widget->{"title"})) {
+               print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
+           }
            $pf = sub
            {
                my($widget, $p, $sl) = @_;
@@ -38,7 +41,7 @@ sub printwidgets
                    print "${p}gtk_assistant_set_page_type(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], GTK_ASSISTANT_PAGE_" . $widget->{"ptype"} . ");\n";
                }
                if(defined($widget->{"cmpl"})) {
-                   print "${p}gtk_assistant_set_page_complete(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], " . $widget->{"ptype"} . ");\n";
+                   print "${p}gtk_assistant_set_page_complete(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], " . $widget->{"cmpl"} . ");\n";
                }
            }
        } elsif($widget->{"type"} =~ /[hv]box/) {
@@ -293,6 +296,8 @@ sub printwidgets
            if($widget->{"grip"} eq "n") {
                print "${p}gtk_statusbar_set_has_resize_grip(GTK_STATUSBAR(stack[$sl]), FALSE);\n";
            }
+       } elsif($widget->{"type"} eq "filechooser") {
+           print "${p}stack[$sl] = gtk_file_chooser_widget_new(GTK_FILE_CHOOSER_ACTION_" . (defined($widget->{"action"})?$widget->{"action"}:"OPEN") . ");\n";
        } else {
            print STDERR "Unknown widget: " . $widget->{"type"} ."\n";
        }