haskell에서 keydown 및 keyup 이벤트를 얻으려면 어떻게해야합니까?

Question

저는 haskell과 gtk2hs를 사용하고 있습니다.

keydown/keyup 이벤트를 가져 오는 방법이 있습니까? (keystate도 마찬가지로 좋고 keypress 이벤트는 그렇지 않습니다)?

Answer 1

이 수입이 필요합니다

import Graphics.UI.Gtk.Abstract.Widget 
import Graphics.UI.Gtk.Gdk.Events 

다음이 keyRelease 이벤트 (일부 간단한 예)에 대응하는 방법입니다 : 많은이 패턴이 필수적없는 정보를 포함 할 것 무시

let handler event = do 
    case event of 
     (Key _ _ _ _ _ _ _ _ _ (Just char)) -> case char of 
      'a' -> doSomething 
      _ -> return() --or whatever type the other cases have 
     _ -> return() 
    return True 

onKeyRelease widget handler 

간단한 이벤트 핸들러. 다음은 키가 해제 또는 눌렀는지 여부를 포함 출시

isPressedA <- newIORef False 
let handler event = do 
    case event of 
     (Key released _ _ _ _ _ _ _ _ (Just char)) -> case char of 
      'a' -> writeIORef isPressedA (not released) 
      _ -> return() 
     _ -> return() 
    return True 

onKeyPress window handler 
onKeyRelease window handler 

를, 그래서 동일한 핸들러는 모두 이벤트에 대해 작업 할 수 있습니다

는 여기에 키의 상태를 추적 할 수있는 방법입니다.

는 내가 키 누름을 방지하기 위해, 오히려 일부 위젯 '보다, 윈도우의 주요 이벤트에이 코드 응답을 만들어 keyRelease이를 keyDown을 받고

(이벤트 사이의 창을 전환 할 때 그래도 여전히 가능) 다른 위젯에 등록 이벤트는 마지막 keyPress 이후 keyRelease가 있었는지 여부를 추적하여 수행 할 수 있습니다.