#! ClarionLive example template for adding some code to every window in an application.
#! See ClarionLive Open Webinar 18 Jan 2017
#! clarionlive.wikispaces.com
#! Public Domain - just don't come crying to us
#! ------------------------------------------------------------------------------
#TEMPLATE(UltimateWindowExample,'Template that applies to every window'),family('abc','cw20')
#Extension(ActivateUltimateWindowExample,'Activate UltimateWindow - Version 1.00'),Application(LocalUltimateWindowExample(UltimateWindowExample))
#!-- ABC Init ------------------------------------------------------------------
#At(%WindowManagerMethodCodeSection,'Init','(),BYTE'),PRIORITY(9000),Description('UltimateWindow(Local) - ABC Init')
#INSERT(%MyCode)
#EndAt       
#!------------------------------------------------------------------------------
#!-- Legacy Init ------------------------------------------------------------------
#AT(%AfterWindowOpening),Description('UltimateWindowExample - Init'),Priority(7000)
  #IF(VarExists(%AppTemplateFamily))
    #IF(upper(%AppTemplateFamily)='CLARION')
#INSERT(%MyCode)
    #ENDIF
  #ENDIF  
#EndAt
#!------------------------------------------------------------------------------
#! Put whatever code you like here - example code here just alerts a bunch of keys
#! Prevents program hanging on Windows 10 Version 1607
#GROUP(%MyCode)		
Alert(AltKeyPressed)  
Alert(F10Key)  
Alert(CtrlF10)  
Alert(ShiftF10)  
Alert(CtrlShiftF10)  
Alert(AltSpace)                                    
#!------------------------------------------------------------------------------