Ticket #15 (new defect)

Opened 5 years ago

Last modified 5 years ago

Window doesn't refresh under Gnome.

Reported by: benl Owned by:
Priority: blocker Milestone:
Component: Rendering Version:
Keywords: Cc:


I tried this in a typical Gnome environment, but the window never refreshed and X hogged 100% of the CPU.

import Graphics.Gloss.Game
import Graphics.Gloss
import Data.Maybe (maybe)
import Debug.Trace

main = do
      let state = St Nothing []
      gameInWindow "Test Game" (1400,1050) (0,0) white 100 state makePicture handleEvent stepWorld

data State = St (Maybe Path) [Picture]
type Segment = ((Float, Float), (Float, Float))

makePicture :: State -> Picture
makePicture (St m xs) = Pictures (maybe xs (\x -> Line x : xs) m)

handleEvent :: Event -> State -> State
handleEvent e st = trace (show e) (handleE e st)

handleE (EventMotion (x,y)) st@(St (Just ps) ss) = St (Just ((x-418,516 - y):ps)) ss -- Here is the offset for a 1/2 window on xmonad
handleE (EventKey (MouseButton LeftButton) Down _ pt@(x,y)) st@(St Nothing ss) = St (Just [pt]) (Translate x y (Text "Down") : ss)
handleE (EventKey (MouseButton LeftButton) Up _ pt@(x,y)) st@(St (Just ps) ss) = St Nothing (Translate x y (Text "up") : Line (pt:ps) : ss)
handleE _ st = st

stepWorld :: Float -> State -> State
stepWorld _ = id

Change History

Changed 5 years ago by benl

  • priority changed from normal to blocker
  • component changed from Unknown to Rendering

Changed 5 years ago by benl

  • milestone deleted
Note: See TracTickets for help on using tickets.