File OS2.INI
Application PM_Abstract:Objects
Keys {object handles}
Value ?
Description This application contains
the handles of all
known objects
Created ?
Deleted ?
You can use the DLL WPTOOLS.DLL to create a list of all known objects using this application (see also List all WPS known object IDs and GETOBJ):
Note: This program needs the routines from the section General routines for the samples!
/* */
/* Sample program to display a list of all known objects */
/* */
/* Usage: ShowObj {>logfile} */
/* */
/* Note: This program needs Henk Kelders excellent DLL WPTOOLS.DLL! */
/* */
/* Tested under OS/2 WARP Connect. May not work on other OS/2 */
/* versions! */
/* */
/* History */
/* 14.01.1996 v1.00 /bs */
/* - initial release (for RXT&T v2.00) */
/* */
/* (c) 1996 Bernd Schemmer, Germany, EMail: Bernd.Schemmer@gmx.de */
/* */
/* turn on the NOVALUE condition */
signal on NOVALUE
/* load WPTOOLS functions */
call RxFuncAdd "WPToolsLoadFuncs", "WPTOOLS", "WPToolsLoadFuncs"
call WPToolsLoadFuncs
/* load REXXUTIL functions */
call rxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
call SysLoadFuncs
/* get all object handles */
thisRC = SysIni( "USER", "PM_Abstract:Objects", "ALL:", "handleList" )
call lineOut , "Object list"
call LineOut , "==========="
call LineOut , ""
/* display the object data */
do i = 1 to handleList.0
curHandle = handleList.i
call CharOut , " " || curHandle || ": "
cur2Indent = length( curHandle ) + 4 +2
curIndent = 0
/* show the data of the object */
call ShowObjectData "#2" || right( "0000" || curHandle, 4 ) ,,
cur2Indent, curIndent
call LineOut , ""
end /* do i = 1 to handleList.0 */
exit
/* ------------- insert the routines from the section ------------- */
/* General routines for the samples */
/* ---------------------------- here! ----------------------------- */