Author: aschnell Date: Mon Jul 21 14:28:45 2008 New Revision: 49270 URL: http://svn.opensuse.org/viewcvs/yast?rev=49270&view=rev Log: - added LeftCheckBox and LeftCheckBoxWithAttachment 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/storage/src/modules/Greasemonkey.ycp?rev=49270&r1=49269&r2=49270&view=diff ============================================================================== --- branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp (original) +++ branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp Mon Jul 21 14:28:45 2008 @@ -95,6 +95,44 @@ /* + * LeftCheckBox + * + * `LeftCheckBox(`id(), `opt(), "text") + * + * `Left(`CheckBox(`id(), `opt(), "text")) + */ + term LeftCheckBox(term old) + { + return `Left(toterm(`CheckBox, argsof(old))); + } + + + /* + * LeftCheckBoxWithAttachment + * + * `LeftCheckBoxWithAttachment(`id(), `opt(), "text", contents) + * + * `VBox( + * `Left(`Radiobutton(`id(), `opt(), "text")), + * `HBox(`HSpacing(4), contents) + * ) + */ + term LeftCheckBoxWithAttachment(term old) + { + list args = argsof(old); + + list tmp1 = sublist(args, 0, size(args)-1); + any tmp2 = args[size(args)-1]:nil; + + if (tmp2 == `Empty()) + return `VBox(toterm(`LeftCheckBox, tmp1)); + else + return `VBox(toterm(`LeftCheckBox, tmp1), + `HBox(`HSpacing(4), tmp2)); + } + + + /* * IconAndHeading * * `IconAndHeading("title", "icon") @@ -119,6 +157,8 @@ `ComboBoxSelected : ComboBoxSelected, `LeftRadioButton : LeftRadioButton, `LeftRadioButtonWithAttachment : LeftRadioButtonWithAttachment, + `LeftCheckBox : LeftCheckBox, + `LeftCheckBoxWithAttachment : LeftCheckBoxWithAttachment, `IconAndHeading : IconAndHeading ]; -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org