CloseAllDrawers.rexx with OS 4.1

First of all, thank you to Hyperion and all of the developers who brought us 4.1! (It's a really nice update.)

For some reason, since upgrading to 4.1, the ARexx script CloseAllDrawers.rexx does not work any more.

Its a short script, and I'm not sure where the problem is. This is all there is to it.

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


Any ideas?

@PEB

rexx not running ??

maybe if you tell what error you get when you run it from a SHELL, it would be much more helpfull

@Lio

The script works fine; it was just a stupid mistake on my part. (I was running it from an icon, but I didn't have the script bit checked.)