home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 377 / BACKLITE.SIS / macExitAndLoseChanges.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  1998-10-28  |  816 b   |  31 lines
  1.  
  2.  
  3. rem // Backlite+Plus macro - macExitLoseChanges
  4. rem // v1.01 By Phil Spencer 1st February 1998
  5.  
  6. PROC macExitAndLoseChanges:
  7. LOCAL Dia%
  8.     IF BLIsCurrentAPP%:("Backlite+")<>1
  9.         BLHideBacklite:
  10.         BLBacklitetoFront:
  11.     ELSE
  12.         GIPRINT "Can not use this macro on Backlite+"
  13.         RETURN
  14.     ENDIF
  15.     dINIT "Confirm the loss of all changes"
  16.     dTEXT "","('Yes' discards all changes)",2
  17.     dBUTTONS "No",-(%n OR $300),"Yes",%y OR $300
  18.     Dia%=DIALOG
  19.     BLBacklitetoBack:
  20.     BLUnHideBacklite:
  21.   IF Dia%<>%y
  22.         RETURN
  23.     ENDIF
  24.     BLSwitchtoCurrent:
  25.     BLKeyCommand:("CTRL+R")
  26.     BLKeyCommand:("Y")
  27.     BLKeyCommand:("CTRL+E")
  28. ENDP
  29.  
  30.  
  31.