Author: aschnell
Date: Mon Apr 21 16:30:13 2008
New Revision: 46925
URL: http://svn.opensuse.org/viewcvs/yast?rev=46925&view=rev
Log:
- consistency
Modified:
branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp
Modified: branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp
URL: http://svn.opensuse.org/viewcvs/yast/branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp?rev=46925&r1=46924&r2=46925&view=diff
==============================================================================
--- branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp (original)
+++ branches/tmp/aschnell/part-redesign/storage/src/modules/StorageFields.ycp Mon Apr 21 16:30:13 2008
@@ -629,7 +629,7 @@
global term Table(list<symbol> fields, map target_map,
- symbol(map, map) predicate)
+ symbol(map, map) predicate)
{
term header = TableHeader(fields);
list<term> content = TableContents(fields, target_map, predicate);
@@ -638,7 +638,7 @@
}
- global term Overview(list<symbol> fields, map target_map, string device)
+ global string OverviewContent(list<symbol> fields, map target_map, string device)
{
map disk = Storage::GetDisk(target_map, device);
map part = Storage::GetPartition(target_map, device);
@@ -646,13 +646,21 @@
if (part == $[])
part = nil;
- string text = mergestring(maplist(symbol field, fields, {
+ string content = mergestring(maplist(symbol field, fields, {
if (field == `newline)
return "\n";
else
return MakeSubInfo(disk, part, field, `overview);
}), "");
- return `RichText(`opt(`plainText, `hstretch, `vstretch), text);
+ return content;
+ }
+
+
+ global term Overview(list<symbol> fields, map target_map, string device)
+ {
+ string content = OverviewContent(fields, target_map, device);
+
+ return `RichText(`opt(`plainText, `hstretch, `vstretch), content);
}
}
--
To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org
For additional commands, e-mail: yast-commit+help@opensuse.org