Graphics.UI.Gtk.Board.TiledBoard

Documentation

data Board index tile piece

Constructors

Board

Fields

• boardDrawingArea :: DrawingArea
• boardTiles :: GameBoard index tile
• boardPieces :: GameBoard index piece
• tilePixmaps :: PixmapsFor tile
• piecePixmaps :: PixmapsFor piece
• tileSize :: (Int, Int)
• background :: IORef (Maybe (Pixbuf, SizeAdjustment))
• overlay :: IORef (Maybe (Pixbuf, SizeAdjustment))
• dragEnabled :: IORef Bool
• draggingFrom :: IORef (Maybe (index, index))
• draggingTo :: IORef (Maybe (index, index))
• draggingMouseOrig :: IORef (Maybe (Int, Int))
• draggingMousePos :: IORef (Maybe (Int, Int))
• movingStatus :: IORef (Maybe (MovingStatus index))

Instances

GObjectClass (Board index tile piece)

Methods

toGObject :: Board index tile piece -> GObject

unsafeCastGObject :: GObject -> Board index tile piece

ObjectClass (Board index tile piece)

WidgetClass (Board index tile piece)

data MovingStatus index

Constructors

MovingStatus

Fields

• movingFrom :: (index, index)
• movingTo :: (index, index)
• stepsPerUnit :: Double
• timePerUnit :: Double
• movingStep :: Double

type PixmapsFor a = a -> Pixbuf

data SizeAdjustment

Constructors

SizeAdjustment

boardNew :: Ix index => [(index, index, tile)] -> PixmapsFor tile -> PixmapsFor piece -> IO (Board index tile piece)

getTileSize :: [(index, index, tile)] -> PixmapsFor tile -> IO (Int, Int)

boardGetPiece :: Ix index => (index, index) -> Board index tile piece -> IO (Maybe piece)

boardSetPiece :: Ix index => (index, index) -> piece -> Board index tile piece -> IO ()

boardSetPieceNoRefresh :: Ix index => (index, index) -> piece -> Board index tile piece -> IO ()

boardRemovePiece :: Ix index => (index, index) -> Board index tile piece -> IO ()

boardMovePiece :: Ix index => (index, index) -> (index, index) -> Board index tile piece -> IO ()

boardInvalidate :: Ix index => Board index tile piece -> IO ()

boardRefresh :: Ix index => Board index tile piece -> IO ()

adjustPixbuf :: (Int, Int) -> Pixbuf -> SizeAdjustment -> IO ((Int, Int), Pixbuf)

mouseMotionHandler :: Ix index => Board index tile piece -> ((index, index) -> EventM EMotion Bool) -> EventM EMotion Bool

mouseButtonHandler :: Ix index => Board index tile piece -> ((index, index) -> EventM EButton Bool) -> EventM EButton Bool

getMouseCoordinates :: Ix index => Board index tile piece -> (Double, Double) -> IO (Maybe (index, index))

clickHandler :: Ix index => Board index tile piece -> ((index, index) -> IO ()) -> EventM EButton Bool

boardGetPixelSize :: Ix index => Board index tile piece -> IO (Int, Int)

drawPixmaps :: (Ix index, DrawableClass d) => d -> (Int, Int) -> GameBoard index e -> PixmapsFor e -> IO ()

boardFoldM :: Ix index => Board index tile piece -> (b -> ((index, index), piece) -> IO b) -> b -> IO b

boardClear :: Ix index => Board index tile piece -> IO ()

boardLoad :: Ix index => Board index tile piece -> [((index, index), piece)] -> IO ()

boardOnClick :: Ix index => Board index tile piece -> ((index, index) -> IO ()) -> IO ()

boardOnPress :: Ix index => Board index tile piece -> ((index, index) -> EventM EButton Bool) -> IO ()

boardOnRelease :: Ix index => Board index tile piece -> ((index, index) -> EventM EButton Bool) -> IO ()

boardOnMotion :: Ix index => Board index tile piece -> ((index, index) -> EventM EMotion Bool) -> IO ()

boardSetBackground :: Ix index => Board index tile piece -> Maybe (Pixbuf, SizeAdjustment) -> IO ()

boardSetOverlay :: Ix index => Board index tile piece -> Maybe (Pixbuf, SizeAdjustment) -> IO ()

boardEnableDrag :: Ix index => Board index tile piece -> IO ()

boardDisableDrag :: Ix index => Board index tile piece -> IO ()

boardStartDrag :: Ix index => Board index tile piece -> (index, index) -> IO ()

boardStopDrag :: Ix index => Board index tile piece -> IO ()

boardOnPieceDragStart :: Ix index => Board index tile piece -> ((index, index) -> IO Bool) -> IO ()

boardOnPieceDragOver :: Ix index => Board index tile piece -> ((index, index) -> (index, index) -> IO Bool) -> IO ()

boardOnPieceDragDrop :: Ix index => Board index tile piece -> ((index, index) -> (index, index) -> IO ()) -> IO ()

boardIsDragging :: Ix index => Board index tile piece -> IO Bool

relativePos :: Ix index => Board index tile piece -> (index, index) -> (Int, Int) -> (Int, Int)

returning :: Monad m => a -> m b -> m a