Sage-ST

Sage-ST ä
Objdialog
Documentation

CancelLink	Close	DefineIOProc	DoFinalize
DoInitialize	Edit	Execute	GetActionInfo
GetEventInfo	GetExtraData	GetLastError	GetLibraryName
GlobalCloseRequested	HistoricalLink	IsDone	IsOpen
LargeBitmapId	LinkOccurred	ObjectClassDes	ObjectClassName
ObjectComponentName	Open	RegisterClass	ReturnOriginalID
ReturnUniqueID	Run	SetActionResponse	SetEventResponse
SetExtraData	SetLinkInfo	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 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 GlobalCloseRequested
             (CONST dataH : SYSTEM.ADDRESS) : BOOLEAN;


  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 dialogName     : ARRAY OF CHAR;
              CONST instanceNumber : CARDINAL;
              CONST extra          : SYSTEM.ADDRESS;
              VAR   dataH          : SYSTEM.ADDRESS);


  PROCEDURE RegisterClass;


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


  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 TerminateObject
             (CONST dataH : SYSTEM.ADDRESS);


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


  PROCEDURE CancelLink
             (CONST dataH : SYSTEM.ADDRESS);


  PROCEDURE GetActionInfo
             (CONST dataH   : SYSTEM.ADDRESS;
              VAR   msgType : DisplayW.DisplayMessageType;
              VAR   msgData : SYSTEM.ADDRESS);


  PROCEDURE SetActionResponse
             (CONST dataH    : SYSTEM.ADDRESS;
              CONST response : BOOLEAN);


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


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


  PROCEDURE GetEventInfo
             (CONST dataH   : SYSTEM.ADDRESS;
              VAR   hwndDlg : WIN32.HWND;
              VAR   message : WIN32.UINT;
              VAR   wParam  : WIN32.WPARAM;
              VAR   lParam  : WIN32.LPARAM);


  PROCEDURE SetEventResponse
             (CONST dataH    : SYSTEM.ADDRESS;
              CONST response : BOOLEAN);