Author: aschnell Date: Sun Apr 6 22:03:19 2008 New Revision: 46161 URL: http://svn.opensuse.org/viewcvs/yast?rev=46161&view=rev Log: - allow recursion Modified: branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp Modified: branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/sto... ============================================================================== --- branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp (original) +++ branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp Sun Apr 6 22:03:19 2008 @@ -28,6 +28,13 @@ // term SizeUnit(term t) + /* + * LeftRadioButton + * + * `LeftRadioButton(`id(), `opt(), "text") + * + * `Left(`RadioButton(`id(), `opt(), "text")) + */ term LeftRadioButton(term old) { return `Left(toterm(`RadioButton, argsof(old))); @@ -52,7 +59,7 @@ list tmp1 = remove(l, size(l)-1); any tmp2 = l[size(l)-1]:nil; - return `VBox(`Left(toterm(`RadioButton, tmp1)), + return `VBox(toterm(`LeftRadioButton, tmp1), `HBox(`HSpacing(4), tmp2)); } @@ -85,7 +92,7 @@ term(term) handler = handlers[s]:nil; if (handler != nil) - return handler(old); + return Transform(handler(old)); term new = toterm(s); -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org