From 9b0816449c2a380eed7185dbcc65a6926dad040c Mon Sep 17 00:00:00 2001
From: fredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Date: Sat, 21 Apr 2007 02:12:41 +0000
Subject: [PATCH] Added radio button and alignment.

git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@955 959494ce-11ee-0310-bf91-de5d638817bd
---
 common/makegdesc | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/common/makegdesc b/common/makegdesc
index 74f5b95..99a8314 100755
--- a/common/makegdesc
+++ b/common/makegdesc
@@ -100,6 +100,13 @@ sub printwidgets
 	} 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";
@@ -210,6 +217,34 @@ sub printwidgets
 		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";
+	    }
+	    if(defined($widget->{"ya"})) {
+		print $widget->{"ya"};
+	    } else {
+		print "0.5";
+	    }
+	    if(defined($widget->{"xs"})) {
+		print $widget->{"xs"};
+	    } else {
+		print "1.0";
+	    }
+	    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"})) {
-- 
2.11.0