All classes on - script

[buz]

Does anyone know of a script that will turn all classes on?

Useful for finding 'lost' objects.

tfyh

Buz

[ruud van de meent]

Here you go

Procedure ShowAllClasses;VAR numberofclasses,ClassIndex:LONGINT;ClassVisibility:INTEGER;ClassName:STRING;

BEGINnumberofclasses:=ClassNum;ClassIndex:=0; FOR ClassIndex := 1 TO numberofclasses DOBEGINClassName:= ClassList( ClassIndex );ClassVisibility:= GetCVis( ClassName ); IF ClassVisibility = -1 THENBEGINShowClass( ClassName );END;END;END;RUN ( ShowAllClasses );