vty/test/Test2.hs

module Main where
import Graphics.Vty

main = do
    vty <- mkVty
    (sx,sy) <- getSize vty
    update vty (pic { pImage = renderFill (setBG red attr) 'X' sx sy })
    refresh vty
    getEvent vty
    shutdown vty
    putStrLn "Done!"
    return ()
use alloca instead of mallocBytes for exception safety Ignore-this: 1d31bef2e227fefafe8bb4b6f9511e1d darcs-hash:20090904172928-f0a0d-987b6931294fd33f7825eddc0adf04c81716a4dd.gz 2009-09-04 21:29:28 +04:00			`module Main where`
			`import Graphics.Vty`

			`main = do`
			`vty <- mkVty`
			`(sx,sy) <- getSize vty`
			`update vty (pic { pImage = renderFill (setBG red attr) 'X' sx sy })`
			`refresh vty`
adding example of Graphics.Vty.Inline to test Ignore-this: e82f6a3b8eec33ab55fd04a51f4d9873 darcs-hash:20091228233218-f0a0d-345ddcbee616acc4f39d9d12393bdea5982f34d9.gz 2009-12-29 02:32:18 +03:00			`getEvent vty`
use alloca instead of mallocBytes for exception safety Ignore-this: 1d31bef2e227fefafe8bb4b6f9511e1d darcs-hash:20090904172928-f0a0d-987b6931294fd33f7825eddc0adf04c81716a4dd.gz 2009-09-04 21:29:28 +04:00			`shutdown vty`
			`putStrLn "Done!"`
			`return ()`