home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 377 / BACKLITE.SIS / macbattCheck.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  1998-10-28  |  1.0 KB  |  43 lines
  1.  
  2.  
  3. rem // Backlite+Plus Macro - macBattcheck V1.12 - J.Kneen 2/2/98
  4.  
  5. PROC MacBattcheck:
  6.     LOCAL chReturn%
  7.     chReturn%=val(BLLoadSetting$:("chReturn%"))
  8.         IF BLisCurrentAPP%:("System")
  9.             pBattCheck:
  10.         ELSE
  11.             pBattCheck:            
  12.             blswitchtocurrent:
  13.                 IF chReturn%=-1
  14.                     BLWaitforOK:        rem Waits for the user to click ENTER 
  15.                     BLClickOK:        
  16.                     BLBackground:            rem then returns to the original APP.    
  17.                 ENDIF
  18.         ENDIF
  19. ENDP 
  20.  
  21. PROC MacBattcheckSettings:
  22.     LOCAL chReturn%
  23.     chReturn%=val(BLLoadSetting$:("chReturn%"))
  24.         dINIT "Battery Check settings"
  25.         dCHECKBOX chReturn%,"Exit with Enter Key"
  26.         dBUTTONS "Cancel",27 OR $200,"OK",13 OR $200
  27.             IF DIALOG=13
  28.                 BLSaveSetting:("chReturn%",num$(chReturn%,2))
  29.             ENDIF
  30. ENDP
  31.  
  32. PROC pBattCheck:
  33.             BLSwitchtoSystem:
  34.             BLKeyCommand:("CTRL+SHIFT+P")
  35.             BLCursorRight:(1)
  36.             BLForeground:
  37. ENDP
  38.  
  39.  
  40.  
  41.  
  42.  
  43.