15 lines
386 B
Smalltalk
15 lines
386 B
Smalltalk
<?cs # $Id$ ?>
|
|
|
|
<?cs call:show_plugin_title() ?>
|
|
<?cs call:handle_messages() ?>
|
|
|
|
<?cs if:subcount(Data.Disks) == 0 ?>
|
|
<?cs call:hint("Plugins.disks.NoDisksAvailable") ?>
|
|
<?cs else ?>
|
|
<?cs # we use "loop" instead of "each" to keep the order of the disks ?>
|
|
<?cs loop: index = #0, subcount(Data.Disks)-1, #1 ?>
|
|
<?cs call:show_volume(Data.Disks[index]) ?>
|
|
<?cs /loop ?>
|
|
<?cs /if ?>
|
|
|