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