X-Git-Url: http://dolda2000.com/gitweb/?a=blobdiff_plain;f=common%2Fmakegdesc;h=74f5b959d00530b0d948d219f8b0e9d385f367de;hb=462556481852c6e4b97ebfebf50de429097540d0;hp=443991fccbe355393cafa3aae40560d7cc053a34;hpb=4e3cd270e70d2a32e3413b8983abe19af557d0b3;p=doldaconnect.git diff --git a/common/makegdesc b/common/makegdesc index 443991f..74f5b95 100755 --- 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"; }