NeedsCoResumeClassObjects

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

ASSIGN NeedsCoResumeClassObjects( lNeedsCoResumeClassObjects AS LOGIC ) AS LOGIC  ; ...
...PASCAL CLASS TS_ServerInfo
LOCAL lRetNeedsCoResumeClassObjects AS LOGIC
   TSTrace Enter
   IF SELF:IsValidObject
      IF lNeedsCoResumeClassObjects
         SELF:_COMGlobalData:_ServerInfoNeedsCoResumeClassObjects ; ...
        ... :=TRUE
      END
      lRetNeedsCoResumeClassObjects:=SELF:_COMGlobalData:_ServerInfoNeedsCoResumeClassObjects
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      lRetNeedsCoResumeClassObjects:=FALSE
   END
   TSTrace Leave
RETURN lRetNeedsCoResumeClassObjects