git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@971
959494ce-11ee-0310-bf91-
de5d638817bd
$widget->{"noshow"} = 1;
} elsif($widget->{"type"} =~ /^[hv]paned$/) {
print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new();\n";
$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
{
$widget->{"cur"} = 1;
$pf = sub
{
}
} elsif($widget->{"type"} eq "notebook") {
print "${p}stack[$sl] = gtk_notebook_new();\n";
}
} 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) = @_;
$pf = sub
{
my($widget, $p, $sl) = @_;