Autor: Michal Pohořelský |
Uveřejněno: CHIP 08/98, str. 133 |
Seznam objektů WPS |
Pokud chceme maximálně využívat všech schopností grafického prostředí
WPS, musíme mimo jiné znát reálné názvy všech viditelných i skrytých
objektů. Proto jsem před mnoha měsíci vytvořil REXX program
OBJEKTID.CMD, který všechny názvy zobrazuje (viz. 30. TRIK). Program
OBJEKTID.CMD používám dost často, a proto jsem se rozhodl ho
zjednodušit a vylepšit. Výsledkem je krátký prográmek OBJ_ID.CMD, který
poskytuje rychleji stejné informace a navíc zobrazuje počet nalezených
objektů.
Program je nutné vytvářet v textovém editoru, který podporuje čisté
ASCII (např. Systémový editor EPM). Ve všech programech vytvořených
v jazyku REXX musí být na prvním místě komentář začínající znaky "/*",
takže neodstraňujte úvodní komentáře. V novém prostředí Object REXX
funguje program bez problémů.
/* OBJ_ID.CMD */
/* Autor: Michal Pohořelský */
/* Vytvořeno pro systém OS/2 Merlin 4.0 */
/* Program zobrazí všechny dostupné ID objektů
v prostředí WorkPlace Shell */
/* Aktivuji knihovnu funkcí REXXUTIL */
IF RxFuncQuery("SysLoadFuncs") THEN
DO
CALL RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
CALL SysLoadFuncs
END
/* --------------------------------- */
/* Postupně vypisuji ID objektů */
CALL SysIni "USER", "PM_Workplace:Location", "All:", "Objid."
CALL SysCls
SAY ' '
SAY ' Výpis informací o ObjectID'
SAY ' '
SAY ' V systému jsem našel celkem ' || objid.0 || ' objektů.'
SAY ' '
J = 1
DO i = 1 TO Objid.0
J = J + 1
SAY ' 'Objid.i
IF J = 16 THEN
DO
SAY ' '
SAY ' Stisknutím klávesy zobrazíte další obrazovku...'
key=SysGetKey()
J = 1
Call SysCls
SAY ' '
SAY ' Výpis informací o ObjectID'
SAY ' '
END
END
EXIT 0