Dolda2000 GitWeb
/
doldaconnect.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d70e35d
)
Add buttonboxes to makegdesc.
author
Fredrik Tolf
<fredrik@dolda2000.com>
Tue, 14 Aug 2007 00:17:00 +0000
(
02:17
+0200)
committer
Fredrik Tolf
<fredrik@dolda2000.com>
Tue, 14 Aug 2007 00:17:00 +0000
(
02:17
+0200)
common/makegdesc
patch
|
blob
|
blame
|
history
diff --git
a/common/makegdesc
b/common/makegdesc
index
e8fd6f5
..
3adbee2
100755
(executable)
--- a/
common/makegdesc
+++ b/
common/makegdesc
@@
-63,6
+63,16
@@
sub printwidgets
print $widget->{"pad"} || "0";
print ");\n";
}
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 "table") {
print "${p}stack[$sl] = gtk_table_new(" . $widget->{"rows"} . ", " . $widget->{"cols"};
print ", " . (($widget->{"homo"} eq "TRUE")?"TRUE":"FALSE");