Author: aschnell Date: Tue Apr 8 16:10:47 2008 New Revision: 46244 URL: http://svn.opensuse.org/viewcvs/yast?rev=46244&view=rev Log: - added SizeUnit widget 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 Tue Apr 8 16:10:47 2008 @@ -28,7 +28,11 @@ } - // term SizeUnit(term t) + term SizeUnit(term t) + { + return `HBox(`MinWidth(15, `InputField(`id(`size), `opt(`shrinkable), "Size")), + `ComboBox(`id(`unit), "Unit", [ "Cyl", "MB", "GB", "TB" ])); + } /* @@ -62,13 +66,17 @@ list tmp1 = remove(l, size(l)-1); any tmp2 = l[size(l)-1]:nil; - return `VBox(toterm(`LeftRadioButton, tmp1), - `HBox(`HSpacing(4), tmp2)); + if (tmp2 == `Empty()) + return `VBox(toterm(`LeftRadioButton, tmp1)); + else + return `VBox(toterm(`LeftRadioButton, tmp1), + `HBox(`HSpacing(4), tmp2)); } map<symbol, term(term)> handlers = $[ `VStackFrames : VStackFrames, + `SizeUnit : SizeUnit, `LeftRadioButton : LeftRadioButton, `LeftRadioButtonWithAttachment : LeftRadioButtonWithAttachment ]; -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org