From 4e3cd270e70d2a32e3413b8983abe19af557d0b3 Mon Sep 17 00:00:00 2001 From: fredrik Date: Mon, 16 Apr 2007 00:52:57 +0000 Subject: [PATCH] Add support for GtkAssistant. git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@942 959494ce-11ee-0310-bf91-de5d638817bd --- common/makegdesc | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/common/makegdesc b/common/makegdesc index bc4088c..443991f 100755 --- a/common/makegdesc +++ b/common/makegdesc @@ -25,6 +25,22 @@ sub printwidgets my($widget, $p, $sl) = @_; print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n"; } + } elsif($widget->{"type"} eq "assistant") { + print "${p}stack[$sl] = gtk_assistant_new();\n"; + $pf = sub + { + my($widget, $p, $sl) = @_; + print "${p}gtk_assistant_append_page(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[$sl]);\n"; + if(defined($widget->{"title"})) { + print "${p}gtk_assistant_set_page_title(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], _(\"" . $widget->{"title"} . "\"));\n"; + } + if(defined($widget->{"ptype"})) { + 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"; + } + } } elsif($widget->{"type"} =~ /[hv]box/) { print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new("; print $widget->{"homo"}?"TRUE, ":"FALSE, "; -- 2.11.0