Sage-ST

Sage-ST ä
Objmessage
Documentation

Close	DefineIOProc	DoFinalize	DoInitialize
Edit	Execute	FinalLink	GetExtraData
GetLastError	GetLibraryName	HistoricalLink	IsDone
IsOpen	LargeBitmapId	LinkOccurred	ObjectClassDes
ObjectClassName	ObjectComponentName	Open	RegisterClass
Run	SetCaption	SetExtraData	SetLinkInfo
SetMessage	SmallBitmapId	StoreDefault	TerminateObject
ValidObject


  PROCEDURE Close
             (VAR   dataH : SYSTEM.ADDRESS);


  PROCEDURE DoInitialize
             (CONST dataH : SYSTEM.ADDRESS) : BOOLEAN;


  PROCEDURE DoFinalize
             (CONST dataH : SYSTEM.ADDRESS) : BOOLEAN;


  PROCEDURE DefineIOProc
             (CONST IPROC : ObjDef.IOProc);


  PROCEDURE Edit
             (CONST dataH : SYSTEM.ADDRESS);


  PROCEDURE Execute
             (VAR   dataH : SYSTEM.ADDRESS;
              CONST gProc : ObjDef.GeneralProc);


  PROCEDURE FinalLink
             (CONST objectName  : ARRAY OF CHAR;
              VAR   Link        : INTEGER;
              VAR   exitType    : INTEGER;
              VAR   interface   : INTEGER;
              VAR   ObjectLabel : ARRAY OF CHAR;
              VAR   done        : BOOLEAN);


  PROCEDURE GetExtraData
             (CONST dataH : SYSTEM.ADDRESS;
              VAR   extra : SYSTEM.ADDRESS);


  PROCEDURE GetLastError
             (CONST dataH : SYSTEM.ADDRESS;
              VAR   Error : INTEGER;
              VAR   Des   : ARRAY OF CHAR);


  PROCEDURE GetLibraryName
             (VAR   libraryName : ARRAY OF CHAR);


  PROCEDURE HistoricalLink
             (CONST dataH       : SYSTEM.ADDRESS;
              VAR   Link        : INTEGER;
              VAR   exitType    : INTEGER;
              VAR   interface   : INTEGER;
              VAR   ObjectLabel : ARRAY OF CHAR;
              VAR   done        : BOOLEAN);


  PROCEDURE IsDone
             (CONST dataH : SYSTEM.ADDRESS) : BOOLEAN;


  PROCEDURE IsOpen
             (CONST dataH : SYSTEM.ADDRESS) : BOOLEAN;


  PROCEDURE LargeBitmapId
             (CONST dataH : SYSTEM.ADDRESS) : CARDINAL;


  PROCEDURE LinkOccurred
             (CONST dataH       : SYSTEM.ADDRESS;
              VAR   Link        : INTEGER;
              VAR   exitType    : INTEGER;
              VAR   interface   : INTEGER;
              VAR   ObjectLabel : ARRAY OF CHAR;
              VAR   done        : BOOLEAN);


  PROCEDURE ObjectClassDes
             (VAR   Des : ARRAY OF CHAR);


  PROCEDURE ObjectClassName
             (VAR   ClassName : ARRAY OF CHAR);


  PROCEDURE ObjectComponentName
             (CONST dataH         : SYSTEM.ADDRESS;
              VAR   componentName : ARRAY OF CHAR);


  PROCEDURE Open
             (CONST MessageName    : ARRAY OF CHAR;
              CONST instanceNumber : CARDINAL;
              CONST extra          : SYSTEM.ADDRESS;
              VAR   dataH          : SYSTEM.ADDRESS);


  PROCEDURE RegisterClass;


  PROCEDURE Run
             (CONST MessageName : ARRAY OF CHAR;
              CONST UProc       : ObjDef.GeneralProc;
              VAR   Link        : INTEGER);


  PROCEDURE TerminateObject
             (CONST objH : SYSTEM.ADDRESS);


  PROCEDURE SetExtraData
             (CONST dataH     : SYSTEM.ADDRESS;
              CONST extraData : SYSTEM.ADDRESS);


  PROCEDURE SetLinkInfo
             (CONST dataH       : SYSTEM.ADDRESS;
              CONST Link        : INTEGER;
              CONST exitType    : INTEGER;
              CONST interface   : INTEGER;
              CONST ObjectLabel : ARRAY OF CHAR;
              CONST isLink      : BOOLEAN);


  PROCEDURE SmallBitmapId
             (CONST dataH : SYSTEM.ADDRESS) : CARDINAL;


  PROCEDURE StoreDefault
             (CONST editFlag   : BOOLEAN;
              VAR   objectName : ARRAY OF CHAR;
              CONST objectDes  : ARRAY OF CHAR;
              VAR   ObjID      : CARDINAL);


  PROCEDURE ValidObject
             (CONST dataH : SYSTEM.ADDRESS) : BOOLEAN;


  PROCEDURE SetCaption
             (CONST dataH : SYSTEM.ADDRESS;
              CONST Str   : ARRAY OF CHAR);


  PROCEDURE SetMessage
             (CONST dataH : SYSTEM.ADDRESS;
              CONST Str   : ARRAY OF CHAR);