7 my($widget, $sl, $p, $sig, $cb, $data, $pf, $cpf, $mod, $key, @delayedlines);
9 $p = " " . (" " x $sl);
12 foreach $widget (@{$_[0]})
14 if($widget->{"type"} eq "wnd")
16 print "${p}stack[$sl] = gtk_window_new(GTK_WINDOW_TOPLEVEL);\n";
17 if($options{"hasaccels"}) {
18 print "${p}gtk_window_add_accel_group(GTK_WINDOW(stack[$sl]), accel_group);\n";
20 if($widget->{"title"}) {
21 print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
25 my($widget, $p, $sl) = @_;
26 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
28 } elsif($widget->{"type"} eq "assistant") {
29 print "${p}stack[$sl] = gtk_assistant_new();\n";
30 if(defined($widget->{"title"})) {
31 print "${p}gtk_window_set_title(GTK_WINDOW(stack[$sl]), \"" . $widget->{"title"} . "\");\n";
35 my($widget, $p, $sl) = @_;
36 print "${p}gtk_assistant_append_page(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
37 if(defined($widget->{"title"})) {
38 print "${p}gtk_assistant_set_page_title(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], _(\"" . $widget->{"title"} . "\"));\n";
40 if(defined($widget->{"ptype"})) {
41 print "${p}gtk_assistant_set_page_type(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], GTK_ASSISTANT_PAGE_" . $widget->{"ptype"} . ");\n";
43 if(defined($widget->{"cmpl"})) {
44 print "${p}gtk_assistant_set_page_complete(GTK_ASSISTANT(stack[" . ($sl - 1) . "]), stack[" . $sl . "], " . $widget->{"cmpl"} . ");\n";
47 } elsif($widget->{"type"} =~ /[hv]box/) {
48 print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new(";
49 print $widget->{"homo"}?"TRUE, ":"FALSE, ";
50 print $widget->{"spacing"} || "0";
54 my($widget, $p, $sl) = @_;
55 print "${p}gtk_box_pack_start(GTK_BOX(stack[" . ($sl - 1) . "]), stack[$sl], ";
56 print (($widget->{"expand"} || $widget->{"parent"}->{"dexpand"})?"TRUE, ":"FALSE, ");
57 print (($widget->{"fill"} || $widget->{"parent"}->{"dfill"})?"TRUE, ":"FALSE, ");
58 print $widget->{"pad"} || "0";
61 } elsif($widget->{"type"} eq "table") {
62 print "${p}stack[$sl] = gtk_table_new(" . $widget->{"rows"} . ", " . $widget->{"cols"};
63 print ", " . (($widget->{"homo"} eq "TRUE")?"TRUE":"FALSE");
67 my($widget, $p, $sl) = @_;
68 print "${p}gtk_table_attach(GTK_TABLE(stack[" . ($sl - 1) . "]), stack[$sl]";
69 print ", " . $widget->{"tx"};
70 print ", " . ($widget->{"tx"} + (defined($widget->{"tw"})?$widget->{"tw"}:1));
71 print ", " . $widget->{"ty"};
72 print ", " . ($widget->{"ty"} + (defined($widget->{"th"})?$widget->{"th"}:1));
73 if($widget->{"fill"} eq "y") {
74 $widget->{"fillx"} = "y";
75 $widget->{"filly"} = "y";
77 if($widget->{"shrink"} eq "y") {
78 $widget->{"shrinkx"} = "y";
79 $widget->{"shrinky"} = "y";
81 if($widget->{"expand"} eq "y") {
82 $widget->{"expandx"} = "y";
83 $widget->{"expandy"} = "y";
86 print " | GTK_FILL" if $widget->{"fillx"} eq "y";
87 print " | GTK_SHRINK" if $widget->{"shrinkx"} eq "y";
88 print " | GTK_EXPAND" if $widget->{"expandx"} eq "y";
90 print " | GTK_FILL" if $widget->{"filly"} eq "y";
91 print " | GTK_SHRINK" if $widget->{"shrinky"} eq "y";
92 print " | GTK_EXPAND" if $widget->{"expandy"} eq "y";
93 print ", " . (defined($widget->{"padx"})?$widget->{"padx"}:"0");
94 print ", " . (defined($widget->{"pady"})?$widget->{"pady"}:"0");
97 } elsif($widget->{"type"} eq "btn") {
98 $widget->{"label"} || die("Can't have button without label\n");
99 print "${p}stack[$sl] = gtk_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
100 } elsif($widget->{"type"} eq "chk") {
101 $widget->{"label"} || die("Can't have check button without label\n");
102 print "${p}stack[$sl] = gtk_check_button_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
103 } elsif($widget->{"type"} eq "radio") {
104 $widget->{"label"} || die("Can't have check button without label\n");
105 if(defined($widget->{"group"})) {
106 print "${p}stack[$sl] = gtk_radio_button_new_with_mnemonic_from_widget(GTK_RADIO_BUTTON(" . $options{"prefix"} . $widget->{"group"} . "), _(\"" . $widget->{"label"} . "\"));\n";
108 print "${p}stack[$sl] = gtk_radio_button_new_with_mnemonic(NULL, _(\"" . $widget->{"label"} . "\"));\n";
110 } elsif($widget->{"type"} eq "sbtn") {
111 $widget->{"stock"} || die("Can't have button without stock\n");
112 print "${p}stack[$sl] = gtk_button_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ");\n";
113 } elsif($widget->{"type"} eq "simg") {
114 $widget->{"stock"} || die("Can't have image without stock\n");
115 $widget->{"size"} || die("Can't have image without size\n");
116 print "${p}stack[$sl] = gtk_image_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", GTK_ICON_SIZE_" . $widget->{"size"} . ");\n";
117 } elsif($widget->{"type"} eq "lbl") {
118 $widget->{"label"} || $widget->{"markup"} || die("Can't have label without label\n");
119 if($widget->{"label"}) {
120 print "${p}stack[$sl] = gtk_label_new(_(\"" . $widget->{"label"} . "\"));\n";
122 print "${p}stack[$sl] = gtk_label_new(NULL);\n";
123 print "${p}gtk_label_set_markup(GTK_LABEL(stack[$sl]), _(\"" . $widget->{"markup"} . "\"));\n";
125 if($widget->{"wrap"} eq "y") {
126 print "${p}gtk_label_set_line_wrap(GTK_LABEL(stack[$sl]), TRUE);\n";
128 } elsif($widget->{"type"} eq "mlbl") {
129 $widget->{"label"} || die("Can't have label without label\n");
130 print "${p}stack[$sl] = gtk_label_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
131 if(defined($widget->{"mwidget"}))
133 if($widget->{"var"} ne "y") {
134 $widget->{"var"} = "l";
136 if(!defined($widget->{"name"})) {
137 $widget->{"name"} = "temp" . $tempvar++;
139 $str = "gtk_label_set_mnemonic_widget(GTK_LABEL(";
140 if($widget->{"var"} eq "y") {
141 $str .= $options{"prefix"};
143 $str .= $widget->{"name"};
144 $str .= "), " . $options{"prefix"} . $widget->{"mwidget"} . ");";
145 push @delayedlines, ($str);
147 } elsif($widget->{"type"} eq "text") {
148 print "${p}stack[$sl] = gtk_entry_new();\n";
149 if($widget->{"default"}) {
150 print "${p}gtk_entry_set_text(GTK_ENTRY(stack[$sl]), \"" . $widget->{"default"} . "\");\n";
152 } elsif($widget->{"type"} eq "menubar") {
153 print "${p}stack[$sl] = gtk_menu_bar_new();\n";
156 my($widget, $p, $sl) = @_;
157 print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
159 } elsif($widget->{"type"} eq "menuitem") {
160 print "${p}stack[$sl] = gtk_menu_item_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
163 my($widget, $p, $sl) = @_;
164 print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
166 } elsif($widget->{"type"} eq "smenuitem") {
167 print "${p}stack[$sl] = gtk_image_menu_item_new_from_stock(GTK_STOCK_" . $widget->{"stock"} . ", accel_group);\n";
170 my($widget, $p, $sl) = @_;
171 print "${p}gtk_menu_item_set_submenu(GTK_MENU_ITEM(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
173 } elsif($widget->{"type"} eq "menusep") {
174 print "${p}stack[$sl] = gtk_separator_menu_item_new();\n";
175 } elsif($widget->{"type"} eq "menu") {
176 print "${p}stack[$sl] = gtk_menu_new();\n";
177 if($options{"hasaccels"}) {
178 print "${p}gtk_menu_set_accel_group(GTK_MENU(stack[$sl]), accel_group);\n";
182 my($widget, $p, $sl) = @_;
183 print "${p}gtk_menu_shell_append(GTK_MENU_SHELL(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
185 $widget->{"noshow"} = 1;
186 } elsif($widget->{"type"} =~ /^[hv]paned$/) {
187 print "${p}stack[$sl] = gtk_" . $widget->{"type"} . "_new();\n";
188 $widget->{"cur"} = 1;
191 my($widget, $p, $sl) = @_;
192 print "${p}gtk_paned_pack" . ($widget->{"parent"}->{"cur"}) . "(GTK_PANED(stack[" . ($sl - 1) . "]), stack[$sl]";
193 print ", " . ((index($widget->{"parent"}->{"resize"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
194 print ", " . ((index($widget->{"parent"}->{"shrink"}, $widget->{"parent"}->{"cur"}) < 0)?"FALSE":"TRUE");
196 $widget->{"parent"}->{"cur"}++;
198 } elsif($widget->{"type"} eq "notebook") {
199 print "${p}stack[$sl] = gtk_notebook_new();\n";
200 if(defined($widget->{"pos"})) {
201 print "${p}gtk_notebook_set_tab_pos(GTK_NOTEBOOK(stack[$sl]), GTK_POS_" . $widget->{"pos"} . ");\n";
205 my($widget, $p, $sl) = @_;
206 print "${p}gtk_notebook_append_page(GTK_NOTEBOOK(stack[" . ($sl - 1) . "]), stack[$sl]";
207 print ", gtk_label_new_with_mnemonic(_(\"" . $widget->{"nblabel"} . "\"))";
210 } elsif($widget->{"type"} eq "sw") {
211 print "${p}stack[$sl] = gtk_scrolled_window_new(NULL, NULL);\n";
214 my($widget, $p, $sl) = @_;
215 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
217 } elsif($widget->{"type"} eq "frame") {
218 print "${p}stack[$sl] = gtk_frame_new(_(\"" . $widget->{"label"} . "\"));\n";
221 my($widget, $p, $sl) = @_;
222 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
224 } elsif($widget->{"type"} eq "exp") {
225 print "${p}stack[$sl] = gtk_expander_new_with_mnemonic(_(\"" . $widget->{"label"} . "\"));\n";
228 my($widget, $p, $sl) = @_;
229 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
231 } elsif($widget->{"type"} eq "align") {
232 print "${p}stack[$sl] = gtk_alignment_new(";
233 if(defined($widget->{"xa"})) {
234 print $widget->{"xa"};
239 if(defined($widget->{"ya"})) {
240 print $widget->{"ya"};
245 if(defined($widget->{"xs"})) {
246 print $widget->{"xs"};
251 if(defined($widget->{"ys"})) {
252 print $widget->{"ys"};
259 my($widget, $p, $sl) = @_;
260 print "${p}gtk_container_add(GTK_CONTAINER(stack[" . ($sl - 1) . "]), stack[$sl]);\n";
262 } elsif($widget->{"type"} eq "treeview") {
263 print "${p}stack[$sl] = gtk_tree_view_new();\n";
264 if(defined($widget->{"hvis"})) {
265 print "${p}gtk_tree_view_set_headers_visible(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"hvis"} . ");\n";
267 if(defined($widget->{"rules"})) {
268 print "${p}gtk_tree_view_set_rules_hint(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"rules"} . ");\n";
270 if(defined($widget->{"searchcol"})) {
271 print "${p}gtk_tree_view_set_search_column(GTK_TREE_VIEW(stack[$sl]), " . $widget->{"searchcol"} . ");\n";
272 print "${p}gtk_tree_view_set_enable_search(GTK_TREE_VIEW(stack[$sl]), TRUE);\n";
276 my($widget, $p, $sl) = @_;
277 print "${p}gtk_tree_view_append_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
278 if($widget->{"expander"} eq "y") {
279 print "${p}gtk_tree_view_set_expander_column(GTK_TREE_VIEW(stack[" . ($sl - 1) . "]), column);\n";
282 } elsif($widget->{"type"} eq "tvcol") {
283 if(!defined($widget->{"subwidgets"}))
285 print "${p}column = gtk_tree_view_column_new_with_attributes(";
286 print "_(\"" . $widget->{"title"} . "\")";
287 print ", gtk_cell_renderer_text_new()";
288 if(defined($widget->{"text"})) {
289 print ", \"text\", " . $widget->{"text"};
293 print "${p}column = gtk_tree_view_column_new();\n";
294 print "${p}gtk_tree_view_column_set_title(column, _(\"" . $widget->{"title"} . "\"));\n";
296 if(defined($widget->{"sortcol"})) {
297 print "${p}gtk_tree_view_column_set_sort_column_id(column, " . $widget->{"sortcol"} . ");\n";
299 if(defined($widget->{"resizable"})) {
300 print "${p}gtk_tree_view_column_set_resizable(column, " . $widget->{"resizable"} . ");\n";
302 $widget->{"noshow"} = 1;
306 } elsif($widget->{"type"} eq "textrend") {
307 print "${p}renderer = gtk_cell_renderer_text_new();\n";
308 print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"TRUE") . ");\n";
309 if(defined($widget->{"text"})) {
310 print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"text\", " . $widget->{"text"} . ");\n";
312 if(defined($widget->{"func"})) {
313 print "${p}gtk_tree_view_column_set_cell_data_func(column, renderer, " . $widget->{"func"} . ", " . ($widget->{"funcdata"} || "NULL") . ", NULL);\n";
315 $widget->{"noshow"} = 1;
316 } elsif($widget->{"type"} eq "custrend") {
317 print "${p}renderer = GTK_CELL_RENDERER(" . $widget->{"newfunc"} . "());\n";
318 print "${p}gtk_tree_view_column_pack_start(column, renderer, " . (defined($widget->{"expand"})?$widget->{"expand"}:"FALSE") . ");\n";
319 foreach $attr (keys %{$widget})
321 if($attr =~ /attr\((\S+)\)/)
323 print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"" . $1 . "\", " . $widget->{$attr} . ");\n";
326 $widget->{"noshow"} = 1;
327 } elsif($widget->{"type"} eq "pixbufrend") {
328 print "${p}renderer = gtk_cell_renderer_pixbuf_new();\n";
329 print "${p}gtk_tree_view_column_pack_start(column, renderer, FALSE);\n";
330 if(defined($widget->{"stock_id"})) {
331 print "${p}gtk_tree_view_column_add_attribute(column, renderer, \"stock_id\", " . $widget->{"stock_id"} . ");\n";
333 $widget->{"noshow"} = 1;
334 } elsif($widget->{"type"} eq "textview") {
335 print "${p}stack[$sl] = gtk_text_view_new();\n";
336 if(defined($widget->{"editable"})) {
337 print "${p}gtk_text_view_set_editable(GTK_TEXT_VIEW(stack[$sl]), " . $widget->{"editable"} . ");\n";
339 } elsif($widget->{"type"} eq "pbar") {
340 print "${p}stack[$sl] = gtk_progress_bar_new();\n";
341 } elsif($widget->{"type"} eq "hr") {
342 print "${p}stack[$sl] = gtk_hseparator_new();\n";
343 } elsif($widget->{"type"} eq "sbar") {
344 print "${p}stack[$sl] = gtk_statusbar_new();\n";
345 if($widget->{"grip"} eq "n") {
346 print "${p}gtk_statusbar_set_has_resize_grip(GTK_STATUSBAR(stack[$sl]), FALSE);\n";
348 } elsif($widget->{"type"} eq "filechooser") {
349 print "${p}stack[$sl] = gtk_file_chooser_widget_new(GTK_FILE_CHOOSER_ACTION_" . (defined($widget->{"action"})?$widget->{"action"}:"OPEN") . ");\n";
351 print STDERR "Unknown widget: " . $widget->{"type"} ."\n";
353 if($widget->{"sensitive"}) {
354 print "${p}gtk_widget_set_sensitive(stack[$sl], " . $widget->{"sensitive"} . ");\n";
356 if($widget->{"rqsz"} =~ /(\d+)x(\d+)/) {
357 print "${p}gtk_widget_set_size_request(stack[$sl], $1, $2);\n";
359 if($widget->{"align"} =~ /([\d\.]+):([\d\.]+)/) {
360 print "${p}gtk_misc_set_alignment(GTK_MISC(stack[$sl]), $1, $2);\n";
362 if($widget->{"wpad"} =~ /([\d\.]+):([\d\.]+)/) {
363 print "${p}gtk_misc_set_padding(GTK_MISC(stack[$sl]), $1, $2);\n";
365 if($widget->{"var"} eq "y") {
366 print $p . $options{"prefix"} . $widget->{"name"} . " = stack[$sl];\n";
368 if($widget->{"var"} eq "l") {
369 print $p . "GtkWidget *" . $widget->{"name"} . " = stack[$sl];\n";
373 while($widget->{"sig"} =~ /\G([\w_]+),?/g) {
374 print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$1\", G_CALLBACK(cb_" . $options{"prefix"} . $widget->{"name"} . "_" . $1 . "), (gpointer)NULL);\n";
377 if($widget->{"accel"})
380 while($widget->{"accel"} =~ /\G(\w+)\+/gc)
382 $mod .= " | " if($mod);
383 $mod = $mod . "GDK_" . $1 . "_MASK";
385 $mod || ($mod = "0");
386 $widget->{"accel"} =~ /\G(\w+)/g;
388 print "${p}gtk_widget_add_accelerator(stack[$sl], \"activate\", accel_group, GDK_$key, $mod, GTK_ACCEL_VISIBLE);\n";
390 foreach $attr (keys %{$widget})
392 if($attr =~ /^sig\((\S+)\)/)
395 if($widget->{$attr} =~ /([^,]*),(.*)/)
400 $cb = $widget->{$attr};
403 print "${p}g_signal_connect(G_OBJECT(stack[$sl]), \"$sig\", G_CALLBACK($cb), (gpointer)$data);\n";
406 if($widget->{"subwidgets"})
409 printwidgets($widget->{"subwidgets"}, $sl + 1, $pf);
413 &$cpf($widget, $p, $sl);
414 if(!$widget->{"noshow"}) {
415 print "${p}gtk_widget_show(stack[$sl]);\n";
420 foreach $line (@delayedlines)
422 print $p . $line . "\n";
429 foreach $widget (@{$_[0]})
433 print "GtkWidget *" . $options{"prefix"} . $widget->{"name"} .";\n";
435 printvars($widget->{"subwidgets"}) if($widget->{"subwidgets"});
443 $text =~ s/([^\\]|^)\"/$1/g;
444 $text =~ s/\\(.)/$1/g;
449 @estack = ($rootwidgets);
459 if(/^;\s*(\w+)\s*:\s*(\w.*)/)
462 } elsif(/^([:\$])\s*(\w+)/g) {
463 $curwidget = {"type" => $2};
464 push @{$estack[0]}, $curwidget;
465 if((scalar @wstack) > 0) {
466 $curwidget->{"parent"} = $wstack[0];
470 unshift @estack, ($curwidget->{"subwidgets"} = []);
471 unshift @wstack, $curwidget;
473 $maxstack = (scalar @estack) if((scalar @estack) > $maxstack);
474 while(/\G\s*(\S+)\s*:\s*((\w+|\"([^\\\"]+|\\.)*([^\\]|)\"|\\.)+)/g)
476 $curwidget->{$1} = dequote($2);
478 } elsif(/^%\s*(\S+)\s*:\s*((\w+|\"([^\\\"]+|\\.)*([^\\]|)\"|\\.)+)/) {
479 $curwidget || die("No current widget\n");
480 $curwidget->{$1} = dequote($2);
484 $curwidget = $wstack[0] if((scalar @wstack) > 0);
487 print STDERR "Invalid construct: $_\n";
491 printvars $rootwidgets;
493 print "GtkWidget *create_" . $options{"prefix"} . "wnd(void)\n";
495 print " GtkWidget *stack[$maxstack];\n";
496 print " GtkAccelGroup *accel_group;\n" if $options{"hasaccels"};
497 print " GtkTreeViewColumn *column;\n" if $options{"hascolumns"};
498 print " GtkCellRenderer *renderer;\n" if $options{"hasrenderers"};
500 print " accel_group = gtk_accel_group_new();\n" if $options{"hasaccels"};
501 printwidgets $rootwidgets, 0;
502 print " return(stack[0]);\n";