[yast-commit] r46244 - /branches/tmp/aschnell/part-redesign/storage/src/modules/Greasemonkey.ycp
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/storage/src/modules/Greasemonkey.ycp?rev=46244&r1=46243&r2=46244&view=diff
==============================================================================
--- 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
participants (1)
-
aschnell@svn.opensuse.org