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




Skok na další stránku Skok na hlavní menu Skok na další stránku


Copyright (c) 1993-2000 Michal Pohořelský