$widget->{"noshow"} = 1;
} elsif($widget->{"type"} =~ /^[hv]paned$/) {
print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new();\n";
- if(defined($widget->{"pos"})) {
- print "${p}gtk_notebook_set_tab_pos(GTK_NOTEBOOK(stack[$sl]), GTK_POS_" . $widget->{"pos"} . ")\n";
- }
$widget->{"cur"} = 1;
$pf = sub
{
}
} elsif($widget->{"type"} eq "notebook") {
print "${p}stack[$sl] = gtk_notebook_new();\n";
+ if(defined($widget->{"pos"})) {
+ print "${p}gtk_notebook_set_tab_pos(GTK_NOTEBOOK(stack[$sl]), GTK_POS_" . $widget->{"pos"} . ");\n";
+ }
$pf = sub
{
my($widget, $p, $sl) = @_;
$cb = $widget->{$attr};
$data = "NULL";
}
- print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$1\", G_CALLBACK($cb), (gpointer)$data);\n";
+ print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$sig\", G_CALLBACK($cb), (gpointer)$data);\n";
}
}
if($widget->{"subwidgets"})