Hoodle.Type.Canvas

data types

type CanvasId = Int

data PenDraw

Constructors

PenDraw

Fields

• _points :: Seq (Double, Double)

Instances

Show PenDraw

Methods

showsPrec :: Int -> PenDraw -> ShowS

show :: PenDraw -> String

showList :: [PenDraw] -> ShowS

emptyPenDraw :: PenDraw

data ViewInfo a

Constructors

ViewInfo

Fields

• _zoomMode :: ZoomMode
• _pageArrangement :: PageArrangement a

data CanvasInfo a

Constructors

CanvasInfo

Fields

• _canvasId :: CanvasId
• _drawArea :: DrawingArea
• _mDrawSurface :: Maybe Surface
• _scrolledWindow :: MyScrollWindow
• _viewInfo :: ViewInfo a
• _currentPageNum :: Int
• _horizAdjustment :: Adjustment
• _vertAdjustment :: Adjustment
• _horizAdjConnId :: Maybe (ConnectId Adjustment)
• _vertAdjConnId :: Maybe (ConnectId Adjustment)
• _canvasWidgets :: CanvasWidgets
• _notifiedItem :: Maybe (PageNum, BBox, RItem)

data CanvasInfoBox where

Constructors

CanvasSinglePage :: CanvasInfo SinglePage -> CanvasInfoBox

CanvasContPage :: CanvasInfo ContinuousPage -> CanvasInfoBox

type CanvasInfoMap = IntMap CanvasInfoBox

data MyScrollWindow

Constructors

MyScrollWindow

Fields

• _scrollCanvas :: VBox
• _scrollHScrollbar :: HScrollbar
• _scrollVScrollbar :: VScrollbar

data PenHighlighterEraserSet

Instances

Show PenHighlighterEraserSet

Methods

showsPrec :: Int -> PenHighlighterEraserSet -> ShowS

show :: PenHighlighterEraserSet -> String

showList :: [PenHighlighterEraserSet] -> ShowS

data PenInfo

Instances

Show PenInfo

Methods

showsPrec :: Int -> PenInfo -> ShowS

show :: PenInfo -> String

showList :: [PenInfo] -> ShowS

data WidthColorStyle

Instances

Show WidthColorStyle

Methods

showsPrec :: Int -> WidthColorStyle -> ShowS

show :: WidthColorStyle -> String

showList :: [WidthColorStyle] -> ShowS

default constructor

defaultViewInfoSinglePage :: ViewInfo SinglePage

default view info with single page mode

defaultCvsInfoSinglePage :: CanvasInfo SinglePage

defaultCanvasWidgets :: CanvasWidgets

default hoodle widgets

defaultPenWCS :: WidthColorStyle

defaultEraserWCS :: WidthColorStyle

defaultTextWCS :: WidthColorStyle

defaultHighligherWCS :: WidthColorStyle

defaultPenInfo :: PenInfo

lenses

points :: Simple Lens PenDraw (Seq (Double, Double))

lens for zoomMode

zoomMode :: Simple Lens (ViewInfo a) ZoomMode

lens for zoomMode

pageArrangement :: Simple Lens (ViewInfo a) (PageArrangement a)

canvasId :: Simple Lens (CanvasInfo a) CanvasId

drawArea :: Simple Lens (CanvasInfo a) DrawingArea

mDrawSurface :: Simple Lens (CanvasInfo a) (Maybe Surface)

scrolledWindow :: Simple Lens (CanvasInfo a) MyScrollWindow

viewInfo :: Simple Lens (CanvasInfo a) (ViewInfo a)

currentPageNum :: Simple Lens (CanvasInfo a) Int

horizAdjustment :: Simple Lens (CanvasInfo a) Adjustment

vertAdjustment :: Simple Lens (CanvasInfo a) Adjustment

horizAdjConnId :: Simple Lens (CanvasInfo a) (Maybe (ConnectId Adjustment))

ConnectId for horizontal scrollbar value change event

vertAdjConnId :: Simple Lens (CanvasInfo a) (Maybe (ConnectId Adjustment))

ConnectId for vertical scrollbar value change event

adjustments :: Simple Lens (CanvasInfo a) (Adjustment, Adjustment)

composition lens

canvasWidgets :: Simple Lens (CanvasInfo a) CanvasWidgets

lens for canavs widgets

notifiedItem :: Simple Lens (CanvasInfo a) (Maybe (PageNum, BBox, RItem))

lens for notified item

currentTool :: Simple Lens PenInfo WidthColorStyle

penWidth :: Simple Lens WidthColorStyle Double

lens for penWidth

penColor :: Simple Lens WidthColorStyle PenColor

lens for penColor

currPen :: Simple Lens PenHighlighterEraserSet WidthColorStyle

lens for currPen

currHighlighter :: Simple Lens PenHighlighterEraserSet WidthColorStyle

lens for currHighlighter

currEraser :: Simple Lens PenHighlighterEraserSet WidthColorStyle

lens for currEraser

currText :: Simple Lens PenHighlighterEraserSet WidthColorStyle

lens for currText

currVerticalSpace :: Simple Lens PenHighlighterEraserSet WidthColorStyle

lens for currText

penType :: Simple Lens PenInfo PenType

lens for penType

penSet :: Simple Lens PenInfo PenHighlighterEraserSet

lens for penSet

variableWidthPen :: Simple Lens PenInfo Bool

lens for variableWidthPen

for box

xfrmCvsInfo :: (ViewInfo a -> ViewInfo b) -> CanvasInfo a -> CanvasInfo b

xfrmViewInfo :: (PageArrangement a -> PageArrangement b) -> ViewInfo a -> ViewInfo b

getDrawAreaFromBox :: CanvasInfoBox -> DrawingArea

unboxLens :: (forall a. Simple Lens (CanvasInfo a) b) -> Simple Lens CanvasInfoBox b

unboxBiAct :: (CanvasInfo SinglePage -> r) -> (CanvasInfo ContinuousPage -> r) -> CanvasInfoBox -> r

single page action and continuous page act

unboxBiXform :: Functor f => (CanvasInfo SinglePage -> f (CanvasInfo SinglePage)) -> (CanvasInfo ContinuousPage -> f (CanvasInfo ContinuousPage)) -> CanvasInfoBox -> f CanvasInfoBox

single page action and continuous page act

forBoth :: ((CanvasInfo SinglePage -> f (CanvasInfo SinglePage)) -> (CanvasInfo ContinuousPage -> f (CanvasInfo ContinuousPage)) -> CanvasInfoBox -> f CanvasInfoBox) -> (forall a. CanvasInfo a -> f (CanvasInfo a)) -> CanvasInfoBox -> f CanvasInfoBox

forBoth' :: ((CanvasInfo SinglePage -> r) -> (CanvasInfo ContinuousPage -> r) -> CanvasInfoBox -> r) -> (forall a. CanvasInfo a -> r) -> CanvasInfoBox -> r

others

updateCanvasDimForSingle :: CanvasDimension -> CanvasInfo SinglePage -> IO (CanvasInfo SinglePage)

updateCanvasDimForContSingle :: PageDimension -> CanvasDimension -> CanvasInfo ContinuousPage -> IO (CanvasInfo ContinuousPage)