X-Git-Url: http://dolda2000.com/gitweb/?a=blobdiff_plain;f=common%2Fmakegdesc;h=74f5b959d00530b0d948d219f8b0e9d385f367de;hb=c0845d5b08eb1782837d67b89b0353ad27a49450;hp=4fd4f46e9c44d5e0371784ed6b982a7ed519252a;hpb=79138dda33e24df0823b9d39ad78d05ed2b4c4e3;p=doldaconnect.git diff --git a/common/makegdesc b/common/makegdesc index 4fd4f46..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) = @_;