#!/usr/bin/perl
+use Getopt::Long;
+use IO::File;
+
+GetOptions(\%args, "h=s") || exit 1;
+
$tempvar = 0;
sub printwidgets
}
} 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_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";
+ print "${p}gtk_assistant_set_page_complete(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], " . $widget->{"cmpl"} . ");\n";
}
}
} elsif($widget->{"type"} =~ /[hv]box/) {
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");
} 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";
$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"} || die("Can't have label without label\n");
- print "${p}stack[$sl] = gtk_label_new(_(\"" . $widget->{"label"} . "\"));\n";
+ $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";
}
} 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) = @_;
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"})) {
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";
}
$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"})
}
}
+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);
}
}
+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";