{-# LINE 1 "System\\Win32\\Automation\\Input\\Key.hsc" #-}{-# LANGUAGE CPP #-}{- |
 Module : System.Win32.Automation.Input.Key
 Copyright : 2013 shelarcy
 License : BSD-style
 Maintainer : shelarcy@gmail.com
 Stability : Provisional
 Portability : Non-portable (Win32 API)
 Keyboard input events
-}moduleSystem.Win32.Automation.Input.KeywhereimportForeign.Ptr(Ptr)importForeign.Storable(Storable(..))importSystem.Win32.Types (ULONG_PTR )importSystem.Win32.Word (DWORD ,WORD )typePKEYBDINPUT =PtrKEYBDINPUT dataKEYBDINPUT =KEYBDINPUT {KEYBDINPUT -> WORD
wVk ::WORD ,KEYBDINPUT -> WORD
wScan ::WORD ,KEYBDINPUT -> DWORD
dwFlags ::DWORD ,KEYBDINPUT -> DWORD
time ::DWORD ,KEYBDINPUT -> ULONG_PTR
dwExtraInfo ::ULONG_PTR }derivingInt -> KEYBDINPUT -> ShowS
[KEYBDINPUT] -> ShowS
KEYBDINPUT -> String
(Int -> KEYBDINPUT -> ShowS)
-> (KEYBDINPUT -> String)
-> ([KEYBDINPUT] -> ShowS)
-> Show KEYBDINPUT
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [KEYBDINPUT] -> ShowS
$cshowList :: [KEYBDINPUT] -> ShowS
show :: KEYBDINPUT -> String
$cshow :: KEYBDINPUT -> String
showsPrec :: Int -> KEYBDINPUT -> ShowS
$cshowsPrec :: Int -> KEYBDINPUT -> ShowS
ShowinstanceStorableKEYBDINPUT wheresizeOf :: KEYBDINPUT -> Int
sizeOf=Int -> KEYBDINPUT -> Int
forall a b. a -> b -> a
const(Int
24){-# LINE 35 "System\\Win32\\Automation\\Input\\Key.hsc" #-}alignment_=8{-# LINE 36 "System\\Win32\\Automation\\Input\\Key.hsc" #-}pokebufinput=do((\hsc_ptr->pokeByteOffhsc_ptr0))buf(wVkinput){-# LINE 38 "System\\Win32\\Automation\\Input\\Key.hsc" #-}((\hsc_ptr->pokeByteOffhsc_ptr2))buf(wScaninput){-# LINE 39 "System\\Win32\\Automation\\Input\\Key.hsc" #-}((\hsc_ptr->pokeByteOffhsc_ptr4))buf(dwFlagsinput){-# LINE 40 "System\\Win32\\Automation\\Input\\Key.hsc" #-}((\hsc_ptr->pokeByteOffhsc_ptr8))buf(timeinput){-# LINE 41 "System\\Win32\\Automation\\Input\\Key.hsc" #-}((\hsc_ptr->pokeByteOffhsc_ptr16))buf(dwExtraInfoinput){-# LINE 42 "System\\Win32\\Automation\\Input\\Key.hsc" #-}peekbuf=dowVk'<-((\hsc_ptr->peekByteOffhsc_ptr0))buf{-# LINE 44 "System\\Win32\\Automation\\Input\\Key.hsc" #-}wScan'<-((\hsc_ptr->peekByteOffhsc_ptr2))buf{-# LINE 45 "System\\Win32\\Automation\\Input\\Key.hsc" #-}dwFlags'<-((\hsc_ptr->peekByteOffhsc_ptr4))buf{-# LINE 46 "System\\Win32\\Automation\\Input\\Key.hsc" #-}time'<-((\hsc_ptr->peekByteOffhsc_ptr8))buf{-# LINE 47 "System\\Win32\\Automation\\Input\\Key.hsc" #-}dwExtraInfo'<-((\hsc_ptr->peekByteOffhsc_ptr16))buf{-# LINE 48 "System\\Win32\\Automation\\Input\\Key.hsc" #-}return$KEYBDINPUTwVk'wScan'dwFlags'time'dwExtraInfo'kEYEVENTF_EXTENDEDKEY ::DWORD kEYEVENTF_EXTENDEDKEY :: DWORD
kEYEVENTF_EXTENDEDKEY =DWORD
1kEYEVENTF_KEYUP ::DWORD kEYEVENTF_KEYUP :: DWORD
kEYEVENTF_KEYUP =DWORD
2kEYEVENTF_SCANCODE ::DWORD kEYEVENTF_SCANCODE :: DWORD
kEYEVENTF_SCANCODE =DWORD
8kEYEVENTF_UNICODE ::DWORD kEYEVENTF_UNICODE :: DWORD
kEYEVENTF_UNICODE =DWORD
4{-# LINE 56 "System\\Win32\\Automation\\Input\\Key.hsc" #-}