+ } elsif($widget->{"type"} eq "align") {
+ print "${p}stack[$sl] = gtk_alignment_new(";
+ if(defined($widget->{"xa"})) {
+ print $widget->{"xa"};
+ } else {
+ print "0.5";
+ }
+ print ", ";
+ if(defined($widget->{"ya"})) {
+ print $widget->{"ya"};
+ } else {
+ print "0.5";
+ }
+ print ", ";
+ if(defined($widget->{"xs"})) {
+ print $widget->{"xs"};
+ } else {
+ print "1.0";
+ }
+ print ", ";
+ if(defined($widget->{"ys"})) {
+ print $widget->{"ys"};
+ } else {
+ print "1.0";
+ }
+ print ");\n";
+ $pf = sub
+ {
+ my($widget, $p, $sl) = @_;
+ print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
+ }