home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / upsmon12.zip / upsminst.exe / xcenter.scr < prev    next >
Text File  |  2002-01-24  |  990b  |  44 lines
  1. XCenter Settings for REXX Gauge
  2.  
  3. Refresh Rate: 5000ms
  4. Resizeable: Yes
  5. Pixels: 145 (for 1024x768 screen resolution)
  6.  
  7. Default Title:
  8. UPS Monitor v1.2c
  9.  
  10. Gauge Script:
  11. /* UPS Monitor Widget for XCenter using Named Shared Memory */
  12.  
  13. /* Load RXU.DLL */
  14. call rxfuncadd 'rxuinit','rxu','rxuinit'
  15. call rxuinit
  16.  
  17. /* To get named shared memory */
  18. getrc = RxGetNamedSharedMem('pointer', '\SHAREMEM\UPSMON\UPSSTATUS.MEM', 'r')
  19.  
  20. IF getrc = 0 THEN
  21.   DO
  22.     UPSText = RxStorage( pointer, 75)
  23.     gauge.text =  STRIP(LEFT(UPSText, 25))
  24.     gauge.tooltip = STRIP(RIGHT(UPSText, LENGTH(UPSText) - 25))
  25.   END
  26. ELSE
  27.   DO
  28.       gauge.text = 'UPSMon n/a'
  29.       gauge.tooltip = ''
  30.   END
  31.  
  32. /* free Named Shared Memory */
  33. freerc = RxFreeMem(pointer)
  34.  
  35.  
  36. Double click action:
  37. /* Open/restore UPS Monitor */
  38.   if RxFuncQuery('SysLoadFuncs') then do
  39.      call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  40.      call SysLoadFuncs
  41.   end
  42.  
  43. call SysOpenObject '<UPSMONEXE>', 0, 1
  44.