[doldaconnect.git] / common / makegdesc

#!/usr/bin/perl

use Getopt::Long;
use IO::File;

GetOptions(\%args, "h=s") || exit 1;

$tempvar = 0;

sub printwidgets
{
    my($widget, $sl, $p, $sig, $cb, $data, $pf, $cpf, $mod, $key, @delayedlines);
    $sl = $_[1];
    $p = "    " . (" " x $sl);
    $cpf = $_[2];
    @delayedlines = ();
    foreach $widget (@{$_[0]})
    {
	if($widget->{"type"} eq "wnd")
	{
	    print "${p}stack[$sl] = gtk_window_new(GTK_WINDOW_TOPLEVEL);\n";
	    if($options{"hasaccels"}) {
		print "${p}gtk_window_add_accel_group(GTK_WINDOW(stack[$sl]), accel_group);\n";
	    }
	    if($widget->{"title"}) {
		print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
	    }
	    $pf = sub
	    {
		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";
	    if(defined($widget->{"title"})) {
		print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\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->{"cmpl"} . ");\n";
		}
	    }
	} elsif($widget->{"type"} =~ /[hv]box/) {
	    print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new(";
	    print $widget->{"homo"}?"TRUE, ":"FALSE, ";
	    print $widget->{"spacing"} || "0";
	    print ");\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_box_pack_start(GTK_BOX(stack[" . ($sl - 1) . "]), stack[$sl], ";
		print (($widget->{"expand"} || $widget->{"parent"}->{"dexpand"})?"TRUE, ":"FALSE, ");
		print (($widget->{"fill"} || $widget->{"parent"}->{"dfill"})?"TRUE, ":"FALSE, ");
		print $widget->{"pad"} || "0";
		print ");\n";
	    }
	} elsif($widget->{"type"} =~ /([hv])btnbox/) {
	    print "${p}stack[$sl] = gtk_" . $1 . "button_box_new();\n";
	    if(defined($widget->{"layout"})) {
		print "${p}gtk_button_box_set_layout(GTK_BUTTON_BOX(stack[$sl]), GTK_BUTTONBOX_" . $widget->{"layout"} . ");\n";
	    }
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "table") {
	    print "${p}stack[$sl] = gtk_table_new(" . $widget->{"rows"} . ", " . $widget->{"cols"};
	    print ", " . (($widget->{"homo"} eq "TRUE")?"TRUE":"FALSE");
	    print ");\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_table_attach(GTK_TABLE(stack[" . ($sl - 1) . "]), stack[$sl]";
		print ", " . $widget->{"tx"};
		print ", " . ($widget->{"tx"} + (defined($widget->{"tw"})?$widget->{"tw"}:1));
		print ", " . $widget->{"ty"};
		print ", " . ($widget->{"ty"} + (defined($widget->{"th"})?$widget->{"th"}:1));
		if($widget->{"fill"} eq "y") {
		    $widget->{"fillx"} = "y";
		    $widget->{"filly"} = "y";
		}
		if($widget->{"shrink"} eq "y") {
		    $widget->{"shrinkx"} = "y";
		    $widget->{"shrinky"} = "y";
		}
		if($widget->{"expand"} eq "y") {
		    $widget->{"expandx"} = "y";
		    $widget->{"expandy"} = "y";
		}
		print ", 0";
		print " | GTK_FILL" if $widget->{"fillx"} eq "y";
		print " | GTK_SHRINK" if $widget->{"shrinkx"} eq "y";
		print " | GTK_EXPAND" if $widget->{"expandx"} eq "y";
		print ", 0";
		print " | GTK_FILL" if $widget->{"filly"} eq "y";
		print " | GTK_SHRINK" if $widget->{"shrinky"} eq "y";
		print " | GTK_EXPAND" if $widget->{"expandy"} eq "y";
		print ", " . (defined($widget->{"padx"})?$widget->{"padx"}:"0");
		print ", " . (defined($widget->{"pady"})?$widget->{"pady"}:"0");
		print ");\n";
	    }
	} elsif($widget->{"type"} eq "btn") {
	    $widget->{"label"} || die("Can't have button without label\n");
	    print "${p}stack[$sl] = gtk_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	} elsif($widget->{"type"} eq "chk") {
	    $widget->{"label"} || die("Can't have check button without label\n");
	    print "${p}stack[$sl] = gtk_check_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	} elsif($widget->{"type"} eq "radio") {
	    $widget->{"label"} || die("Can't have check button without label\n");
	    if(defined($widget->{"group"})) {
		print "${p}stack[$sl] = gtk_radio_button_new_with_mnemonic_from_widget(GTK_RADIO_BUTTON(" . $options{"prefix"} . $widget->{"group"} . "), _(\"" . $widget->{"label"} . "\"));\n";
	    } else {
		print "${p}stack[$sl] = gtk_radio_button_new_with_mnemonic(NULL, _(\"" . $widget->{"label"} . "\"));\n";
	    }
	} elsif($widget->{"type"} eq "sbtn") {
	    $widget->{"stock"} || die("Can't have button without stock\n");
	    print "${p}stack[$sl] = gtk_button_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ");\n";
	} elsif($widget->{"type"} eq "simg") {
	    $widget->{"stock"} || die("Can't have image without stock\n");
	    $widget->{"size"} || die("Can't have image without size\n");
	    print "${p}stack[$sl] = gtk_image_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", GTK_ICON_SIZE_" . $widget->{"size"} . ");\n";
	} elsif($widget->{"type"} eq "xpmimg") {
	    $widget->{"data"} || die("Can't have XPM image without data\n");
	    print "${p}stack[$sl] = gtk_image_new_from_pixbuf(gdk_pixbuf_new_from_xpm_data((const char **)" . $widget->{"data"} . "));\n";
	} elsif($widget->{"type"} eq "lbl") {
	    $widget->{"label"} || $widget->{"markup"} || die("Can't have label without label\n");
	    if($widget->{"label"}) {
		print "${p}stack[$sl] = gtk_label_new(_(\"" . $widget->{"label"} . "\"));\n";
	    } else {
		print "${p}stack[$sl] = gtk_label_new(NULL);\n";
		print "${p}gtk_label_set_markup(GTK_LABEL(stack[$sl]), _(\"" . $widget->{"markup"} . "\"));\n";
	    }
	    if($widget->{"wrap"} eq "y") {
		print "${p}gtk_label_set_line_wrap(GTK_LABEL(stack[$sl]), TRUE);\n";
	    }
	} elsif($widget->{"type"} eq "mlbl") {
	    $widget->{"label"} || die("Can't have label without label\n");
	    print "${p}stack[$sl] = gtk_label_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	    if(defined($widget->{"mwidget"}))
	    {
		if($widget->{"var"} ne "y") {
		    $widget->{"var"} = "l";
		}
		if(!defined($widget->{"name"})) {
		    $widget->{"name"} = "temp" . $tempvar++;
		}
		$str = "gtk_label_set_mnemonic_widget(GTK_LABEL(";
		if($widget->{"var"} eq "y") {
		    $str .= $options{"prefix"};
		}
		$str .= $widget->{"name"};
		$str .= "), " . $options{"prefix"} . $widget->{"mwidget"} . ");";
		push @delayedlines, ($str);
	    }
	} elsif($widget->{"type"} eq "text") {
	    print "${p}stack[$sl] = gtk_entry_new();\n";
	    if($widget->{"default"}) {
		print "${p}gtk_entry_set_text(GTK_ENTRY(stack[$sl]), \"" . $widget->{"default"} . "\");\n";
	    }
	} elsif($widget->{"type"} eq "menubar") {
	    print "${p}stack[$sl] = gtk_menu_bar_new();\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "menuitem") {
	    print "${p}stack[$sl] = gtk_menu_item_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "smenuitem") {
	    print "${p}stack[$sl] = gtk_image_menu_item_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", accel_group);\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "menusep") {
	    print "${p}stack[$sl] = gtk_separator_menu_item_new();\n";
	} elsif($widget->{"type"} eq "menu") {
	    print "${p}stack[$sl] = gtk_menu_new();\n";
	    if($options{"hasaccels"}) {
		print "${p}gtk_menu_set_accel_group(GTK_MENU(stack[$sl]), accel_group);\n";
	    }
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    };
	    $widget->{"noshow"} = 1;
	} elsif($widget->{"type"} =~ /^[hv]paned$/) {
	    print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new();\n";
	    $widget->{"cur"} = 1;
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_paned_pack" . ($widget->{"parent"}->{"cur"}) . "(GTK_PANED(stack[" . ($sl - 1) . "]), stack[$sl]";
		print ", " . ((index($widget->{"parent"}->{"resize"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
		print ", " . ((index($widget->{"parent"}->{"shrink"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
		print ");\n";
		$widget->{"parent"}->{"cur"}++;
	    }
	} 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) = @_;
		print "${p}gtk_notebook_append_page(GTK_NOTEBOOK(stack[" . ($sl - 1) . "]), stack[$sl]";
		print ", gtk_label_new_with_mnemonic(_(\"" . $widget->{"nblabel"} . "\"))";
		print ");\n";
	    }
	} elsif($widget->{"type"} eq "sw") {
	    print "${p}stack[$sl] = gtk_scrolled_window_new(NULL, NULL);\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "frame") {
	    print "${p}stack[$sl] = gtk_frame_new(_(\"" . $widget->{"label"} . "\"));\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} elsif($widget->{"type"} eq "exp") {
	    print "${p}stack[$sl] = gtk_expander_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	    }
	} 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";
	    }
	} elsif($widget->{"type"} eq "treeview") {
	    print "${p}stack[$sl] = gtk_tree_view_new();\n";
	    if(defined($widget->{"hvis"})) {
		print "${p}gtk_tree_view_set_headers_visible(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"hvis"} . ");\n";
	    }
	    if(defined($widget->{"rules"})) {
		print "${p}gtk_tree_view_set_rules_hint(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"rules"} . ");\n";
	    }
	    if(defined($widget->{"searchcol"})) {
		print "${p}gtk_tree_view_set_search_column(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"searchcol"} . ");\n";
		print "${p}gtk_tree_view_set_enable_search(GTK_TREE_VIEW(stack[$sl]), TRUE);\n";
	    }
	    $pf = sub
	    {
		my($widget, $p, $sl) = @_;
		print "${p}gtk_tree_view_append_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
		if($widget->{"expander"} eq "y") {
		    print "${p}gtk_tree_view_set_expander_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
		}
	    }
	} elsif($widget->{"type"} eq "tvcol") {
	    if(!defined($widget->{"subwidgets"}))
	    {
		print "${p}column = gtk_tree_view_column_new_with_attributes(";
		print "_(\"" . $widget->{"title"} . "\")";
		print ", gtk_cell_renderer_text_new()";
		if(defined($widget->{"text"})) {
		    print ", \"text\", " . $widget->{"text"};
		}
		print ", NULL);\n";
	    } else {
		print "${p}column = gtk_tree_view_column_new();\n";
		print "${p}gtk_tree_view_column_set_title(column, _(\"" . $widget->{"title"} . "\"));\n";
	    }
	    if(defined($widget->{"sortcol"})) {
		print "${p}gtk_tree_view_column_set_sort_column_id(column, " . $widget->{"sortcol"} . ");\n";
	    }
	    if(defined($widget->{"resizable"})) {
		print "${p}gtk_tree_view_column_set_resizable(column, " . $widget->{"resizable"} . ");\n";
	    }
	    $widget->{"noshow"} = 1;
	    $pf = sub
	    {
	    }
	} elsif($widget->{"type"} eq "textrend") {
	    print "${p}renderer = gtk_cell_renderer_text_new();\n";
	    print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"TRUE") . ");\n";
	    if(defined($widget->{"text"})) {
		print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"text\", " . $widget->{"text"} . ");\n";
	    }
	    if(defined($widget->{"func"})) {
		print "${p}gtk_tree_view_column_set_cell_data_func(column, renderer, " . $widget->{"func"} . ", " . ($widget->{"funcdata"} || "NULL") . ", NULL);\n";
	    }
	    $widget->{"noshow"} = 1;
	} elsif($widget->{"type"} eq "progrend") {
	    print "${p}renderer = gtk_cell_renderer_progress_new();\n";
	    print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"FALSE") . ");\n";
	    if(defined($widget->{"value"})) {
		print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"value\", " . $widget->{"value"} . ");\n";
	    }
	    if(defined($widget->{"func"})) {
		print "${p}gtk_tree_view_column_set_cell_data_func(column, renderer, " . $widget->{"func"} . ", " . ($widget->{"funcdata"} || "NULL") . ", NULL);\n";
	    }
	    $widget->{"noshow"} = 1;
	} elsif($widget->{"type"} eq "custrend") {
	    print "${p}renderer = GTK_CELL_RENDERER(" . $widget->{"newfunc"} . "());\n";
	    print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"FALSE") . ");\n";
	    foreach $attr (keys %{$widget})
	    {
		if($attr =~ /attr\((\S+)\)/)
		{
		    print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"" . $1 . "\", " . $widget->{$attr} . ");\n";
		}
	    }
	    $widget->{"noshow"} = 1;
	} elsif($widget->{"type"} eq "pixbufrend") {
	    print "${p}renderer = gtk_cell_renderer_pixbuf_new();\n";
	    print "${p}gtk_tree_view_column_pack_start(column, renderer, FALSE);\n";
	    if(defined($widget->{"stock_id"})) {
		print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"stock_id\", " . $widget->{"stock_id"} . ");\n";
	    }
	    $widget->{"noshow"} = 1;
	} elsif($widget->{"type"} eq "textview") {
	    print "${p}stack[$sl] = gtk_text_view_new();\n";
	    if(defined($widget->{"editable"})) {
		print "${p}gtk_text_view_set_editable(GTK_TEXT_VIEW(stack[$sl]), " . $widget->{"editable"} . ");\n";
	    }
	} elsif($widget->{"type"} eq "pbar") {
	    print "${p}stack[$sl] = gtk_progress_bar_new();\n";
	} elsif($widget->{"type"} eq "hr") {
	    print "${p}stack[$sl] = gtk_hseparator_new();\n";
	} elsif($widget->{"type"} eq "sbar") {
	    print "${p}stack[$sl] = gtk_statusbar_new();\n";
	    if($widget->{"grip"} eq "n") {
		print "${p}gtk_statusbar_set_has_resize_grip(GTK_STATUSBAR(stack[$sl]), FALSE);\n";
	    }
	} elsif($widget->{"type"} eq "filechooser") {
	    print "${p}stack[$sl] = gtk_file_chooser_widget_new(GTK_FILE_CHOOSER_ACTION_" . (defined($widget->{"action"})?$widget->{"action"}:"OPEN") . ");\n";
	} else {
	    print STDERR "Unknown widget: " . $widget->{"type"} ."\n";
	}
	if($widget->{"sensitive"}) {
	    print "${p}gtk_widget_set_sensitive(stack[$sl], " . $widget->{"sensitive"} . ");\n";
	}
	if($widget->{"rqsz"} =~ /(\d+)x(\d+)/) {
	    print "${p}gtk_widget_set_size_request(stack[$sl], $1, $2);\n";
	}
	if($widget->{"align"} =~ /([\d\.]+):([\d\.]+)/) {
	    print "${p}gtk_misc_set_alignment(GTK_MISC(stack[$sl]), $1, $2);\n";
	}
	if($widget->{"wpad"} =~ /([\d\.]+):([\d\.]+)/) {
	    print "${p}gtk_misc_set_padding(GTK_MISC(stack[$sl]), $1, $2);\n";
	}
	if($widget->{"var"} eq "y") {
	    print $p . $options{"prefix"} . $widget->{"name"} . " = stack[$sl];\n";
	}
	if($widget->{"var"} eq "l") {
	    print $p . "GtkWidget *" . $widget->{"name"} . " = stack[$sl];\n";
	}
	if($widget->{"sig"})
	{
	    while($widget->{"sig"} =~ /\G([\w_]+),?/g) {
		print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$1\", G_CALLBACK(cb_" . $options{"prefix"} . $widget->{"name"} . "_" . $1 . "), (gpointer)NULL);\n";
	    }
	}
	if($widget->{"accel"})
	{
	    $mod = "";
	    while($widget->{"accel"} =~ /\G(\w+)\+/gc)
	    {
		$mod .= " | " if($mod);
		$mod = $mod . "GDK_" . $1 . "_MASK";
	    }
	    $mod || ($mod = "0");
	    $widget->{"accel"} =~ /\G(\w+)/g;
	    $key = $1;
	    print "${p}gtk_widget_add_accelerator(stack[$sl], \"activate\", accel_group, GDK_$key, $mod, GTK_ACCEL_VISIBLE);\n";
	}
	foreach $attr (keys %{$widget})
	{
	    if($attr =~ /^sig\((\S+)\)/)
	    {
		$sig = $1;
		if($widget->{$attr} =~ /([^,]*),(.*)/)
		{
		    $cb = $1;
		    $data = $2;
		} else {
		    $cb = $widget->{$attr};
		    $data = "NULL";
		}
		print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$sig\", G_CALLBACK($cb), (gpointer)$data);\n";
	    }
	}
	if($widget->{"subwidgets"})
	{
	    print "$p\n";
	    printwidgets($widget->{"subwidgets"}, $sl + 1, $pf);
	}
	if($sl > 0)
	{
	    &$cpf($widget, $p, $sl);
	    if(!$widget->{"noshow"}) {
		print "${p}gtk_widget_show(stack[$sl]);\n";
	    }
	}
	print "$p\n";
    }
    foreach $line (@delayedlines)
    {
	print $p . $line . "\n";
    }
}

sub printheader
{
    my($widget, $handle);
    $handle = $_[1];
    foreach $widget (@{$_[0]})
    {
	if($widget->{"var"})
	{
	    $handle->print("extern GtkWidget *" . $options{"prefix"} . $widget->{"name"} .";\n");
	}
	printheader($widget->{"subwidgets"}, $handle) if($widget->{"subwidgets"});
    }
}

sub printvars
{
    my($widget);
    foreach $widget (@{$_[0]})
    {
	if($widget->{"var"})
	{
	    print "GtkWidget *" . $options{"prefix"} . $widget->{"name"} .";\n";
	}
	printvars($widget->{"subwidgets"}) if($widget->{"subwidgets"});
    }
}

sub dequote
{
    my($text);
    ($text) = @_;
    $text =~ s/([^\\]|^)\"/$1/g;
    $text =~ s/\\(.)/$1/g;
    return $text;
}

$rootwidgets = [];
@estack = ($rootwidgets);
@wstack = ();
$curwidget = 0;
$maxstack = 1;

while(<>)
{
    chomp;
    s/(^|\s+)\#.*$//;
    s/^\s*//;
    if(/^;\s*(\w+)\s*:\s*(\w.*)/)
    {
	$options{$1} = $2;
    } elsif(/^([:\$])\s*(\w+)/g) {
	$curwidget = {"type" => $2};
	push @{$estack[0]}, $curwidget;
	if((scalar @wstack) > 0) {
	    $curwidget->{"parent"} = $wstack[0];
	}
	if($1 eq ":")
	{
	    unshift @estack, ($curwidget->{"subwidgets"} = []);
	    unshift @wstack, $curwidget;
	}
	$maxstack = (scalar @estack) if((scalar @estack) > $maxstack);
	while(/\G\s*(\S+)\s*:\s*((\w+|\"([^\\\"]+|\\.)*([^\\]|)\"|\\.)+)/g)
	{
	    $curwidget->{$1} = dequote($2);
	}
    } elsif(/^%\s*(\S+)\s*:\s*((\w+|\"([^\\\"]+|\\.)*([^\\]|)\"|\\.)+)/) {
	$curwidget || die("No current widget\n");
	$curwidget->{$1} = dequote($2);
    } elsif(/^end/) {
	shift @estack;
	shift @wstack;
	$curwidget = $wstack[0] if((scalar @wstack) > 0);
    } elsif(!$_) {
    } else {
	print STDERR "Invalid construct: $_\n";
    }
}

if($args{"h"})
{
    $hfile = IO::File->new($args{"h"}, "w") || die;
    $hfile->print("GtkWidget *create_" . $options{"prefix"} . "wnd(void);\n");
    printheader $rootwidgets, $hfile;
    $hfile->close();
}

printvars $rootwidgets;
print "\n";
print "GtkWidget *create_" . $options{"prefix"} . "wnd(void)\n";
print "{\n";
print "    GtkWidget *stack[$maxstack];\n";
print "    GtkAccelGroup *accel_group;\n" if $options{"hasaccels"};
print "    GtkTreeViewColumn *column;\n" if $options{"hascolumns"};
print "    GtkCellRenderer *renderer;\n" if $options{"hasrenderers"};
print "    \n";
print "    accel_group = gtk_accel_group_new();\n" if $options{"hasaccels"};
printwidgets $rootwidgets, 0;
print "    return(stack[0]);\n";
print "}\n";
Commit	Line	Data
	1	#!/usr/bin/perl
	2
	3	use Getopt::Long;
	4	use IO::File;
	5
	6	GetOptions(\%args, "h=s") \|\| exit 1;
	7
	8	$tempvar = 0;
	9
	10	sub printwidgets
	11	{
	12	my($widget, $sl, $p, $sig, $cb, $data, $pf, $cpf, $mod, $key, @delayedlines);
	13	$sl = $_[1];
	14	$p = " " . (" " x $sl);
	15	$cpf = $_[2];
	16	@delayedlines = ();
	17	foreach $widget (@{$_[0]})
	18	{
	19	if($widget->{"type"} eq "wnd")
	20	{
	21	print "${p}stack[$sl] = gtk_window_new(GTK_WINDOW_TOPLEVEL);\n";
	22	if($options{"hasaccels"}) {
	23	print "${p}gtk_window_add_accel_group(GTK_WINDOW(stack[$sl]), accel_group);\n";
	24	}
	25	if($widget->{"title"}) {
	26	print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
	27	}
	28	$pf = sub
	29	{
	30	my($widget, $p, $sl) = @_;
	31	print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	32	}
	33	} elsif($widget->{"type"} eq "assistant") {
	34	print "${p}stack[$sl] = gtk_assistant_new();\n";
	35	if(defined($widget->{"title"})) {
	36	print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
	37	}
	38	$pf = sub
	39	{
	40	my($widget, $p, $sl) = @_;
	41	print "${p}gtk_assistant_append_page(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	42	if(defined($widget->{"title"})) {
	43	print "${p}gtk_assistant_set_page_title(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], _(\"" . $widget->{"title"} . "\"));\n";
	44	}
	45	if(defined($widget->{"ptype"})) {
	46	print "${p}gtk_assistant_set_page_type(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], GTK_ASSISTANT_PAGE_" . $widget->{"ptype"} . ");\n";
	47	}
	48	if(defined($widget->{"cmpl"})) {
	49	print "${p}gtk_assistant_set_page_complete(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], " . $widget->{"cmpl"} . ");\n";
	50	}
	51	}
	52	} elsif($widget->{"type"} =~ /[hv]box/) {
	53	print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new(";
	54	print $widget->{"homo"}?"TRUE, ":"FALSE, ";
	55	print $widget->{"spacing"} \|\| "0";
	56	print ");\n";
	57	$pf = sub
	58	{
	59	my($widget, $p, $sl) = @_;
	60	print "${p}gtk_box_pack_start(GTK_BOX(stack[" . ($sl - 1) . "]), stack[$sl], ";
	61	print (($widget->{"expand"} \|\| $widget->{"parent"}->{"dexpand"})?"TRUE, ":"FALSE, ");
	62	print (($widget->{"fill"} \|\| $widget->{"parent"}->{"dfill"})?"TRUE, ":"FALSE, ");
	63	print $widget->{"pad"} \|\| "0";
	64	print ");\n";
	65	}
	66	} elsif($widget->{"type"} =~ /([hv])btnbox/) {
	67	print "${p}stack[$sl] = gtk_" . $1 . "button_box_new();\n";
	68	if(defined($widget->{"layout"})) {
	69	print "${p}gtk_button_box_set_layout(GTK_BUTTON_BOX(stack[$sl]), GTK_BUTTONBOX_" . $widget->{"layout"} . ");\n";
	70	}
	71	$pf = sub
	72	{
	73	my($widget, $p, $sl) = @_;
	74	print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	75	}
	76	} elsif($widget->{"type"} eq "table") {
	77	print "${p}stack[$sl] = gtk_table_new(" . $widget->{"rows"} . ", " . $widget->{"cols"};
	78	print ", " . (($widget->{"homo"} eq "TRUE")?"TRUE":"FALSE");
	79	print ");\n";
	80	$pf = sub
	81	{
	82	my($widget, $p, $sl) = @_;
	83	print "${p}gtk_table_attach(GTK_TABLE(stack[" . ($sl - 1) . "]), stack[$sl]";
	84	print ", " . $widget->{"tx"};
	85	print ", " . ($widget->{"tx"} + (defined($widget->{"tw"})?$widget->{"tw"}:1));
	86	print ", " . $widget->{"ty"};
	87	print ", " . ($widget->{"ty"} + (defined($widget->{"th"})?$widget->{"th"}:1));
	88	if($widget->{"fill"} eq "y") {
	89	$widget->{"fillx"} = "y";
	90	$widget->{"filly"} = "y";
	91	}
	92	if($widget->{"shrink"} eq "y") {
	93	$widget->{"shrinkx"} = "y";
	94	$widget->{"shrinky"} = "y";
	95	}
	96	if($widget->{"expand"} eq "y") {
	97	$widget->{"expandx"} = "y";
	98	$widget->{"expandy"} = "y";
	99	}
	100	print ", 0";
	101	print " \| GTK_FILL" if $widget->{"fillx"} eq "y";
	102	print " \| GTK_SHRINK" if $widget->{"shrinkx"} eq "y";
	103	print " \| GTK_EXPAND" if $widget->{"expandx"} eq "y";
	104	print ", 0";
	105	print " \| GTK_FILL" if $widget->{"filly"} eq "y";
	106	print " \| GTK_SHRINK" if $widget->{"shrinky"} eq "y";
	107	print " \| GTK_EXPAND" if $widget->{"expandy"} eq "y";
	108	print ", " . (defined($widget->{"padx"})?$widget->{"padx"}:"0");
	109	print ", " . (defined($widget->{"pady"})?$widget->{"pady"}:"0");
	110	print ");\n";
	111	}
	112	} elsif($widget->{"type"} eq "btn") {
	113	$widget->{"label"} \|\| die("Can't have button without label\n");
	114	print "${p}stack[$sl] = gtk_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	115	} elsif($widget->{"type"} eq "chk") {
	116	$widget->{"label"} \|\| die("Can't have check button without label\n");
	117	print "${p}stack[$sl] = gtk_check_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	118	} elsif($widget->{"type"} eq "radio") {
	119	$widget->{"label"} \|\| die("Can't have check button without label\n");
	120	if(defined($widget->{"group"})) {
	121	print "${p}stack[$sl] = gtk_radio_button_new_with_mnemonic_from_widget(GTK_RADIO_BUTTON(" . $options{"prefix"} . $widget->{"group"} . "), _(\"" . $widget->{"label"} . "\"));\n";
	122	} else {
	123	print "${p}stack[$sl] = gtk_radio_button_new_with_mnemonic(NULL, _(\"" . $widget->{"label"} . "\"));\n";
	124	}
	125	} elsif($widget->{"type"} eq "sbtn") {
	126	$widget->{"stock"} \|\| die("Can't have button without stock\n");
	127	print "${p}stack[$sl] = gtk_button_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ");\n";
	128	} elsif($widget->{"type"} eq "simg") {
	129	$widget->{"stock"} \|\| die("Can't have image without stock\n");
	130	$widget->{"size"} \|\| die("Can't have image without size\n");
	131	print "${p}stack[$sl] = gtk_image_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", GTK_ICON_SIZE_" . $widget->{"size"} . ");\n";
	132	} elsif($widget->{"type"} eq "xpmimg") {
	133	$widget->{"data"} \|\| die("Can't have XPM image without data\n");
	134	print "${p}stack[$sl] = gtk_image_new_from_pixbuf(gdk_pixbuf_new_from_xpm_data((const char **)" . $widget->{"data"} . "));\n";
	135	} elsif($widget->{"type"} eq "lbl") {
	136	$widget->{"label"} \|\| $widget->{"markup"} \|\| die("Can't have label without label\n");
	137	if($widget->{"label"}) {
	138	print "${p}stack[$sl] = gtk_label_new(_(\"" . $widget->{"label"} . "\"));\n";
	139	} else {
	140	print "${p}stack[$sl] = gtk_label_new(NULL);\n";
	141	print "${p}gtk_label_set_markup(GTK_LABEL(stack[$sl]), _(\"" . $widget->{"markup"} . "\"));\n";
	142	}
	143	if($widget->{"wrap"} eq "y") {
	144	print "${p}gtk_label_set_line_wrap(GTK_LABEL(stack[$sl]), TRUE);\n";
	145	}
	146	} elsif($widget->{"type"} eq "mlbl") {
	147	$widget->{"label"} \|\| die("Can't have label without label\n");
	148	print "${p}stack[$sl] = gtk_label_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	149	if(defined($widget->{"mwidget"}))
	150	{
	151	if($widget->{"var"} ne "y") {
	152	$widget->{"var"} = "l";
	153	}
	154	if(!defined($widget->{"name"})) {
	155	$widget->{"name"} = "temp" . $tempvar++;
	156	}
	157	$str = "gtk_label_set_mnemonic_widget(GTK_LABEL(";
	158	if($widget->{"var"} eq "y") {
	159	$str .= $options{"prefix"};
	160	}
	161	$str .= $widget->{"name"};
	162	$str .= "), " . $options{"prefix"} . $widget->{"mwidget"} . ");";
	163	push @delayedlines, ($str);
	164	}
	165	} elsif($widget->{"type"} eq "text") {
	166	print "${p}stack[$sl] = gtk_entry_new();\n";
	167	if($widget->{"default"}) {
	168	print "${p}gtk_entry_set_text(GTK_ENTRY(stack[$sl]), \"" . $widget->{"default"} . "\");\n";
	169	}
	170	} elsif($widget->{"type"} eq "menubar") {
	171	print "${p}stack[$sl] = gtk_menu_bar_new();\n";
	172	$pf = sub
	173	{
	174	my($widget, $p, $sl) = @_;
	175	print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	176	}
	177	} elsif($widget->{"type"} eq "menuitem") {
	178	print "${p}stack[$sl] = gtk_menu_item_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	179	$pf = sub
	180	{
	181	my($widget, $p, $sl) = @_;
	182	print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	183	}
	184	} elsif($widget->{"type"} eq "smenuitem") {
	185	print "${p}stack[$sl] = gtk_image_menu_item_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", accel_group);\n";
	186	$pf = sub
	187	{
	188	my($widget, $p, $sl) = @_;
	189	print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	190	}
	191	} elsif($widget->{"type"} eq "menusep") {
	192	print "${p}stack[$sl] = gtk_separator_menu_item_new();\n";
	193	} elsif($widget->{"type"} eq "menu") {
	194	print "${p}stack[$sl] = gtk_menu_new();\n";
	195	if($options{"hasaccels"}) {
	196	print "${p}gtk_menu_set_accel_group(GTK_MENU(stack[$sl]), accel_group);\n";
	197	}
	198	$pf = sub
	199	{
	200	my($widget, $p, $sl) = @_;
	201	print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	202	};
	203	$widget->{"noshow"} = 1;
	204	} elsif($widget->{"type"} =~ /^[hv]paned$/) {
	205	print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new();\n";
	206	$widget->{"cur"} = 1;
	207	$pf = sub
	208	{
	209	my($widget, $p, $sl) = @_;
	210	print "${p}gtk_paned_pack" . ($widget->{"parent"}->{"cur"}) . "(GTK_PANED(stack[" . ($sl - 1) . "]), stack[$sl]";
	211	print ", " . ((index($widget->{"parent"}->{"resize"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
	212	print ", " . ((index($widget->{"parent"}->{"shrink"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
	213	print ");\n";
	214	$widget->{"parent"}->{"cur"}++;
	215	}
	216	} elsif($widget->{"type"} eq "notebook") {
	217	print "${p}stack[$sl] = gtk_notebook_new();\n";
	218	if(defined($widget->{"pos"})) {
	219	print "${p}gtk_notebook_set_tab_pos(GTK_NOTEBOOK(stack[$sl]), GTK_POS_" . $widget->{"pos"} . ");\n";
	220	}
	221	$pf = sub
	222	{
	223	my($widget, $p, $sl) = @_;
	224	print "${p}gtk_notebook_append_page(GTK_NOTEBOOK(stack[" . ($sl - 1) . "]), stack[$sl]";
	225	print ", gtk_label_new_with_mnemonic(_(\"" . $widget->{"nblabel"} . "\"))";
	226	print ");\n";
	227	}
	228	} elsif($widget->{"type"} eq "sw") {
	229	print "${p}stack[$sl] = gtk_scrolled_window_new(NULL, NULL);\n";
	230	$pf = sub
	231	{
	232	my($widget, $p, $sl) = @_;
	233	print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	234	}
	235	} elsif($widget->{"type"} eq "frame") {
	236	print "${p}stack[$sl] = gtk_frame_new(_(\"" . $widget->{"label"} . "\"));\n";
	237	$pf = sub
	238	{
	239	my($widget, $p, $sl) = @_;
	240	print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	241	}
	242	} elsif($widget->{"type"} eq "exp") {
	243	print "${p}stack[$sl] = gtk_expander_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
	244	$pf = sub
	245	{
	246	my($widget, $p, $sl) = @_;
	247	print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	248	}
	249	} elsif($widget->{"type"} eq "align") {
	250	print "${p}stack[$sl] = gtk_alignment_new(";
	251	if(defined($widget->{"xa"})) {
	252	print $widget->{"xa"};
	253	} else {
	254	print "0.5";
	255	}
	256	print ", ";
	257	if(defined($widget->{"ya"})) {
	258	print $widget->{"ya"};
	259	} else {
	260	print "0.5";
	261	}
	262	print ", ";
	263	if(defined($widget->{"xs"})) {
	264	print $widget->{"xs"};
	265	} else {
	266	print "1.0";
	267	}
	268	print ", ";
	269	if(defined($widget->{"ys"})) {
	270	print $widget->{"ys"};
	271	} else {
	272	print "1.0";
	273	}
	274	print ");\n";
	275	$pf = sub
	276	{
	277	my($widget, $p, $sl) = @_;
	278	print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
	279	}
	280	} elsif($widget->{"type"} eq "treeview") {
	281	print "${p}stack[$sl] = gtk_tree_view_new();\n";
	282	if(defined($widget->{"hvis"})) {
	283	print "${p}gtk_tree_view_set_headers_visible(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"hvis"} . ");\n";
	284	}
	285	if(defined($widget->{"rules"})) {
	286	print "${p}gtk_tree_view_set_rules_hint(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"rules"} . ");\n";
	287	}
	288	if(defined($widget->{"searchcol"})) {
	289	print "${p}gtk_tree_view_set_search_column(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"searchcol"} . ");\n";
	290	print "${p}gtk_tree_view_set_enable_search(GTK_TREE_VIEW(stack[$sl]), TRUE);\n";
	291	}
	292	$pf = sub
	293	{
	294	my($widget, $p, $sl) = @_;
	295	print "${p}gtk_tree_view_append_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
	296	if($widget->{"expander"} eq "y") {
	297	print "${p}gtk_tree_view_set_expander_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
	298	}
	299	}
	300	} elsif($widget->{"type"} eq "tvcol") {
	301	if(!defined($widget->{"subwidgets"}))
	302	{
	303	print "${p}column = gtk_tree_view_column_new_with_attributes(";
	304	print "_(\"" . $widget->{"title"} . "\")";
	305	print ", gtk_cell_renderer_text_new()";
	306	if(defined($widget->{"text"})) {
	307	print ", \"text\", " . $widget->{"text"};
	308	}
	309	print ", NULL);\n";
	310	} else {
	311	print "${p}column = gtk_tree_view_column_new();\n";
	312	print "${p}gtk_tree_view_column_set_title(column, _(\"" . $widget->{"title"} . "\"));\n";
	313	}
	314	if(defined($widget->{"sortcol"})) {
	315	print "${p}gtk_tree_view_column_set_sort_column_id(column, " . $widget->{"sortcol"} . ");\n";
	316	}
	317	if(defined($widget->{"resizable"})) {
	318	print "${p}gtk_tree_view_column_set_resizable(column, " . $widget->{"resizable"} . ");\n";
	319	}
	320	$widget->{"noshow"} = 1;
	321	$pf = sub
	322	{
	323	}
	324	} elsif($widget->{"type"} eq "textrend") {
	325	print "${p}renderer = gtk_cell_renderer_text_new();\n";
	326	print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"TRUE") . ");\n";
	327	if(defined($widget->{"text"})) {
	328	print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"text\", " . $widget->{"text"} . ");\n";
	329	}
	330	if(defined($widget->{"func"})) {
	331	print "${p}gtk_tree_view_column_set_cell_data_func(column, renderer, " . $widget->{"func"} . ", " . ($widget->{"funcdata"} \|\| "NULL") . ", NULL);\n";
	332	}
	333	$widget->{"noshow"} = 1;
	334	} elsif($widget->{"type"} eq "progrend") {
	335	print "${p}renderer = gtk_cell_renderer_progress_new();\n";
	336	print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"FALSE") . ");\n";
	337	if(defined($widget->{"value"})) {
	338	print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"value\", " . $widget->{"value"} . ");\n";
	339	}
	340	if(defined($widget->{"func"})) {
	341	print "${p}gtk_tree_view_column_set_cell_data_func(column, renderer, " . $widget->{"func"} . ", " . ($widget->{"funcdata"} \|\| "NULL") . ", NULL);\n";
	342	}
	343	$widget->{"noshow"} = 1;
	344	} elsif($widget->{"type"} eq "custrend") {
	345	print "${p}renderer = GTK_CELL_RENDERER(" . $widget->{"newfunc"} . "());\n";
	346	print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"FALSE") . ");\n";
	347	foreach $attr (keys %{$widget})
	348	{
	349	if($attr =~ /attr\((\S+)\)/)
	350	{
	351	print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"" . $1 . "\", " . $widget->{$attr} . ");\n";
	352	}
	353	}
	354	$widget->{"noshow"} = 1;
	355	} elsif($widget->{"type"} eq "pixbufrend") {
	356	print "${p}renderer = gtk_cell_renderer_pixbuf_new();\n";
	357	print "${p}gtk_tree_view_column_pack_start(column, renderer, FALSE);\n";
	358	if(defined($widget->{"stock_id"})) {
	359	print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"stock_id\", " . $widget->{"stock_id"} . ");\n";
	360	}
	361	$widget->{"noshow"} = 1;
	362	} elsif($widget->{"type"} eq "textview") {
	363	print "${p}stack[$sl] = gtk_text_view_new();\n";
	364	if(defined($widget->{"editable"})) {
	365	print "${p}gtk_text_view_set_editable(GTK_TEXT_VIEW(stack[$sl]), " . $widget->{"editable"} . ");\n";
	366	}
	367	} elsif($widget->{"type"} eq "pbar") {
	368	print "${p}stack[$sl] = gtk_progress_bar_new();\n";
	369	} elsif($widget->{"type"} eq "hr") {
	370	print "${p}stack[$sl] = gtk_hseparator_new();\n";
	371	} elsif($widget->{"type"} eq "sbar") {
	372	print "${p}stack[$sl] = gtk_statusbar_new();\n";
	373	if($widget->{"grip"} eq "n") {
	374	print "${p}gtk_statusbar_set_has_resize_grip(GTK_STATUSBAR(stack[$sl]), FALSE);\n";
	375	}
	376	} elsif($widget->{"type"} eq "filechooser") {
	377	print "${p}stack[$sl] = gtk_file_chooser_widget_new(GTK_FILE_CHOOSER_ACTION_" . (defined($widget->{"action"})?$widget->{"action"}:"OPEN") . ");\n";
	378	} else {
	379	print STDERR "Unknown widget: " . $widget->{"type"} ."\n";
	380	}
	381	if($widget->{"sensitive"}) {
	382	print "${p}gtk_widget_set_sensitive(stack[$sl], " . $widget->{"sensitive"} . ");\n";
	383	}
	384	if($widget->{"rqsz"} =~ /(\d+)x(\d+)/) {
	385	print "${p}gtk_widget_set_size_request(stack[$sl], $1, $2);\n";
	386	}
	387	if($widget->{"align"} =~ /([\d\.]+):([\d\.]+)/) {
	388	print "${p}gtk_misc_set_alignment(GTK_MISC(stack[$sl]), $1, $2);\n";
	389	}
	390	if($widget->{"wpad"} =~ /([\d\.]+):([\d\.]+)/) {
	391	print "${p}gtk_misc_set_padding(GTK_MISC(stack[$sl]), $1, $2);\n";
	392	}
	393	if($widget->{"var"} eq "y") {
	394	print $p . $options{"prefix"} . $widget->{"name"} . " = stack[$sl];\n";
	395	}
	396	if($widget->{"var"} eq "l") {
	397	print $p . "GtkWidget *" . $widget->{"name"} . " = stack[$sl];\n";
	398	}
	399	if($widget->{"sig"})
	400	{
	401	while($widget->{"sig"} =~ /\G([\w_]+),?/g) {
	402	print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$1\", G_CALLBACK(cb_" . $options{"prefix"} . $widget->{"name"} . "_" . $1 . "), (gpointer)NULL);\n";
	403	}
	404	}
	405	if($widget->{"accel"})
	406	{
	407	$mod = "";
	408	while($widget->{"accel"} =~ /\G(\w+)\+/gc)
	409	{
	410	$mod .= " \| " if($mod);
	411	$mod = $mod . "GDK_" . $1 . "_MASK";
	412	}
	413	$mod \|\| ($mod = "0");
	414	$widget->{"accel"} =~ /\G(\w+)/g;
	415	$key = $1;
	416	print "${p}gtk_widget_add_accelerator(stack[$sl], \"activate\", accel_group, GDK_$key, $mod, GTK_ACCEL_VISIBLE);\n";
	417	}
	418	foreach $attr (keys %{$widget})
	419	{
	420	if($attr =~ /^sig\((\S+)\)/)
	421	{
	422	$sig = $1;
	423	if($widget->{$attr} =~ /([^,]),(.)/)
	424	{
	425	$cb = $1;
	426	$data = $2;
	427	} else {
	428	$cb = $widget->{$attr};
	429	$data = "NULL";
	430	}
	431	print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$sig\", G_CALLBACK($cb), (gpointer)$data);\n";
	432	}
	433	}
	434	if($widget->{"subwidgets"})
	435	{
	436	print "$p\n";
	437	printwidgets($widget->{"subwidgets"}, $sl + 1, $pf);
	438	}
	439	if($sl > 0)
	440	{
	441	&$cpf($widget, $p, $sl);
	442	if(!$widget->{"noshow"}) {
	443	print "${p}gtk_widget_show(stack[$sl]);\n";
	444	}
	445	}
	446	print "$p\n";
	447	}
	448	foreach $line (@delayedlines)
	449	{
	450	print $p . $line . "\n";
	451	}
	452	}
	453
	454	sub printheader
	455	{
	456	my($widget, $handle);
	457	$handle = $_[1];
	458	foreach $widget (@{$_[0]})
	459	{
	460	if($widget->{"var"})
	461	{
	462	$handle->print("extern GtkWidget *" . $options{"prefix"} . $widget->{"name"} .";\n");
	463	}
	464	printheader($widget->{"subwidgets"}, $handle) if($widget->{"subwidgets"});
	465	}
	466	}
	467
	468	sub printvars
	469	{
	470	my($widget);
	471	foreach $widget (@{$_[0]})
	472	{
	473	if($widget->{"var"})
	474	{
	475	print "GtkWidget *" . $options{"prefix"} . $widget->{"name"} .";\n";
	476	}
	477	printvars($widget->{"subwidgets"}) if($widget->{"subwidgets"});
	478	}
	479	}
	480
	481	sub dequote
	482	{
	483	my($text);
	484	($text) = @_;
	485	$text =~ s/([^\\]\|^)\"/$1/g;
	486	$text =~ s/\\(.)/$1/g;
	487	return $text;
	488	}
	489
	490	$rootwidgets = [];
	491	@estack = ($rootwidgets);
	492	@wstack = ();
	493	$curwidget = 0;
	494	$maxstack = 1;
	495
	496	while(<>)
	497	{
	498	chomp;
	499	s/(^\|\s+)\#.*$//;
	500	s/^\s*//;
	501	if(/^;\s(\w+)\s:\s(\w.)/)
	502	{
	503	$options{$1} = $2;
	504	} elsif(/^([:\$])\s*(\w+)/g) {
	505	$curwidget = {"type" => $2};
	506	push @{$estack[0]}, $curwidget;
	507	if((scalar @wstack) > 0) {
	508	$curwidget->{"parent"} = $wstack[0];
	509	}
	510	if($1 eq ":")
	511	{
	512	unshift @estack, ($curwidget->{"subwidgets"} = []);
	513	unshift @wstack, $curwidget;
	514	}
	515	$maxstack = (scalar @estack) if((scalar @estack) > $maxstack);
	516	while(/\G\s(\S+)\s:\s((\w+\|\"([^\\\"]+\|\\.)([^\\]\|)\"\|\\.)+)/g)
	517	{
	518	$curwidget->{$1} = dequote($2);
	519	}
	520	} elsif(/^%\s(\S+)\s:\s((\w+\|\"([^\\\"]+\|\\.)([^\\]\|)\"\|\\.)+)/) {
	521	$curwidget \|\| die("No current widget\n");
	522	$curwidget->{$1} = dequote($2);
	523	} elsif(/^end/) {
	524	shift @estack;
	525	shift @wstack;
	526	$curwidget = $wstack[0] if((scalar @wstack) > 0);
	527	} elsif(!$_) {
	528	} else {
	529	print STDERR "Invalid construct: $_\n";
	530	}
	531	}
	532
	533	if($args{"h"})
	534	{
	535	$hfile = IO::File->new($args{"h"}, "w") \|\| die;
	536	$hfile->print("GtkWidget *create_" . $options{"prefix"} . "wnd(void);\n");
	537	printheader $rootwidgets, $hfile;
	538	$hfile->close();
	539	}
	540
	541	printvars $rootwidgets;
	542	print "\n";
	543	print "GtkWidget *create_" . $options{"prefix"} . "wnd(void)\n";
	544	print "{\n";
	545	print " GtkWidget *stack[$maxstack];\n";
	546	print " GtkAccelGroup *accel_group;\n" if $options{"hasaccels"};
	547	print " GtkTreeViewColumn *column;\n" if $options{"hascolumns"};
	548	print " GtkCellRenderer *renderer;\n" if $options{"hasrenderers"};
	549	print " \n";
	550	print " accel_group = gtk_accel_group_new();\n" if $options{"hasaccels"};
	551	printwidgets $rootwidgets, 0;
	552	print " return(stack[0]);\n";
	553	print "}\n";