This script runs from a script Palette but not as a menu item

[The Hamma]

Anyone know why this script runs from the script Palette but not if I add it to the menu. When added to the menu it runs but nothing happens.

PROCEDURE ClassStyle;

PROCEDURE changedoors(h :HANDLE);

BEGIN

SETRFIELD(h, 'door', 'IDLabelClass', 'Marks');

ResetObject(h);

END;

BEGIN

ForEachObject(changedoors, (INSYMBOL & INVIEWPORT & (PON='door')));

END;

Run(ClassStyle);

[The Hamma]

Ok correction the resetObject does not work the class does change but the objects are not reset.

[Kevin McAllister]

Did you ever resolve this? I have a small script to change views which works fine from the script palette too but does nothing once I make it into a menu item.

Kevin