Han-First Selected in Active Container

From Vectorlab

Returns the first selected object in the active container. This needs H_ActContainer to be loaded first. By Orso B. Schmid

{ Orso ***************** }
{ the first sel obj in the active container }
FUNCTION H_FSActContainer: HANDLE;
    VAR
        h : HANDLE;
    BEGIN
        h := FIn3D(H_ActContainer);
        
        WHILE (h <> NIL) & (Selected(h) = FALSE) DO
            IF Selected(h) THEN
                H_FSActContainer := h
            ELSE
                h := NextObj(h);
            
        H_FSActContainer := h;
    END;