Commit 1412a038 authored by Jeffrey Lee's avatar Jeffrey Lee
Browse files

Don't unblank the screen when the lid is closed

Detail:
  s/ScrBlank - EventAction now ignores KeyNo_LidClosed, as it will trigger a key press event when closing the Pandora lid.
Admin:
  Tested on Pandora


Version 2.33. Tagged as 'ScrBlank-2_33'
parent 10410a0a
;
; This file is automatically maintained by srccommit, do not edit manually.
; Last processed by srccommit version: 1.1.
;
GBLS Module_MajorVersion
GBLA Module_Version
GBLS Module_MinorVersion
GBLS Module_Date
GBLS Module_FullVersion
GBLS Module_ApplicationDate2
GBLS Module_ApplicationDate4
GBLS Module_ApplicationDate
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "2.32"
Module_Version SETA 232
Module_MajorVersion SETS "2.33"
Module_Version SETA 233
Module_MinorVersion SETS ""
Module_Date SETS "02 Jul 2001"
Module_ApplicationDate2 SETS "02-Jul-01"
Module_ApplicationDate4 SETS "02-Jul-2001"
Module_Date SETS "05 Dec 2012"
Module_ApplicationDate SETS "05-Dec-12"
Module_ComponentName SETS "ScrBlank"
Module_ComponentPath SETS "RiscOS/Sources/Video/Render/ScrBlank"
Module_FullVersion SETS "2.32"
Module_HelpVersion SETS "2.32 (02 Jul 2001)"
Module_ComponentPath SETS "castle/RiscOS/Sources/Video/Render/ScrBlank"
Module_FullVersion SETS "2.33"
Module_HelpVersion SETS "2.33 (05 Dec 2012)"
END
/* (2.32)
/* (2.33)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.1.
*
*/
#define Module_MajorVersion_CMHG 2.32
#define Module_MajorVersion_CMHG 2.33
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 02 Jul 2001
#define Module_Date_CMHG 05 Dec 2012
#define Module_MajorVersion "2.32"
#define Module_Version 232
#define Module_MajorVersion "2.33"
#define Module_Version 233
#define Module_MinorVersion ""
#define Module_Date "02 Jul 2001"
#define Module_Date "05 Dec 2012"
#define Module_ApplicationDate2 "02-Jul-01"
#define Module_ApplicationDate4 "02-Jul-2001"
#define Module_ApplicationDate "05-Dec-12"
#define Module_ComponentName "ScrBlank"
#define Module_ComponentPath "RiscOS/Sources/Video/Render/ScrBlank"
#define Module_ComponentPath "castle/RiscOS/Sources/Video/Render/ScrBlank"
#define Module_FullVersion "2.32"
#define Module_HelpVersion "2.32 (02 Jul 2001)"
#define Module_FullVersion "2.33"
#define Module_HelpVersion "2.33 (05 Dec 2012)"
#define Module_LibraryVersionInfo "2:33"
......@@ -62,6 +62,7 @@
GET Hdr:ScrBlank
GET Hdr:PaletteV
GET Hdr:UpCall
GET Hdr:Keyboard
GET Hdr:HostFS
GET Hdr:Debug
......@@ -995,6 +996,8 @@ EventAction
TEQ R0, #Event_Keyboard
TEQEQ R1, #1 ; Down transitions only
MOVNE PC, LR
TEQ R2, #KeyNo_LidClosed
MOVEQ PC, LR ; Don't unblank if lid closing
; fall thru...
Action Entry "R0"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment