home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
upsmon12.zip
/
upsminst.exe
/
xcenter.scr
< prev
next >
Wrap
Text File
|
2002-01-24
|
990b
|
44 lines
XCenter Settings for REXX Gauge
Refresh Rate: 5000ms
Resizeable: Yes
Pixels: 145 (for 1024x768 screen resolution)
Default Title:
UPS Monitor v1.2c
Gauge Script:
/* UPS Monitor Widget for XCenter using Named Shared Memory */
/* Load RXU.DLL */
call rxfuncadd 'rxuinit','rxu','rxuinit'
call rxuinit
/* To get named shared memory */
getrc = RxGetNamedSharedMem('pointer', '\SHAREMEM\UPSMON\UPSSTATUS.MEM', 'r')
IF getrc = 0 THEN
DO
UPSText = RxStorage( pointer, 75)
gauge.text = STRIP(LEFT(UPSText, 25))
gauge.tooltip = STRIP(RIGHT(UPSText, LENGTH(UPSText) - 25))
END
ELSE
DO
gauge.text = 'UPSMon n/a'
gauge.tooltip = ''
END
/* free Named Shared Memory */
freerc = RxFreeMem(pointer)
Double click action:
/* Open/restore UPS Monitor */
if RxFuncQuery('SysLoadFuncs') then do
call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
call SysLoadFuncs
end
call SysOpenObject '<UPSMONEXE>', 0, 1