Added generic wpad attribute.
git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@960
959494ce-11ee-0310-bf91-
de5d638817bd
print "${p}stack[$sl] = gtk_label_new(_(\"" . $widget->{"label"} . "\"));\n";
} else {
print "${p}stack[$sl] = gtk_label_new(NULL);\n";
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->{"label"} . "\"));\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";
}
if($widget->{"wrap"} eq "y") {
print "${p}gtk_label_set_line_wrap(GTK_LABEL(stack[$sl]), TRUE);\n";
if($widget->{"align"} =~ /([\d\.]+):([\d\.]+)/) {
print "${p}gtk_misc_set_alignment(GTK_MISC(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 "y") {
print $p . $options{"prefix"} . $widget->{"name"} . " = stack[$sl];\n";
}