on OS4 you have an AREXX script called "closealldrawers" but for whatever reason it does not work uner OS3.x
here is the script if you want to give a try :
/*
$VER: CloseAllDrawers.rexx 1.0 (21.12.99)
closes all drawers except root.
*/
options results
address WORKBENCH
GETATTR WINDOWS STEM WINDOW
do i = 0 to WINDOW.count-1
IF WINDOW.i ~= "root" THEN
WINDOW '"'||WINDOW.i||'"' CLOSE
END