anchor.diff:                  lastTouchY <- touchY
   
               | MotionEventActions.Up ->
  -                inputEvents.Add (KeyReleased ('w'))
  +                inputEvents.Enqueue (KeyReleased ('w'))
   
               | _ -> ()
   
  
positive.code:                 match args.Event.Action with
  
                  | MotionEventActions.Down ->
                      inputEvents.Add (KeyPressed ('w'))
  
                  | MotionEventActions.Up ->
                      inputEvents.Add (KeyReleased ('w'))
  
                  | _ -> ()
  
  
negative.code: 
          this.Window.SetFlags (WindowManagerFlags.KeepScreenOn, WindowManagerFlags.KeepScreenOn)
  
          let glView = new GLView (this :> Context)
  
          let a = new Button (this)
          a.Text <- "YOOOPAC"
  