8 lines
137 B
Smalltalk
8 lines
137 B
Smalltalk
<?cs # $Id$ ?>
|
|
|
|
<?cs # display a warning because of a busy volume ?>
|
|
|
|
<?cs call:handle_messages() ?>
|
|
|
|
<?cs call:hint('VolumeIsBusy') ?>
|
|
|