Portability | GHC |
---|---|
Stability | experimental |
Maintainer | Ian-Woo Kim <ianwookim@gmail.com> |
Safe Haskell | None |
- type CanvasId = Int
- data PenDraw = PenDraw {}
- emptyPenDraw :: PenDraw
- data ViewInfo a = ViewInfo {}
- data CanvasInfo a = CanvasInfo {
- _canvasId :: CanvasId
- _drawArea :: DrawingArea
- _mDrawSurface :: Maybe Surface
- _scrolledWindow :: ScrolledWindow
- _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
- type CanvasInfoMap = IntMap CanvasInfoBox
- data WidthColorStyle
- data PenHighlighterEraserSet
- data PenInfo
- defaultViewInfoSinglePage :: ViewInfo SinglePage
- defaultCvsInfoSinglePage :: CanvasInfo SinglePage
- defaultCanvasWidgets :: CanvasWidgets
- defaultPenWCS :: WidthColorStyle
- defaultEraserWCS :: WidthColorStyle
- defaultTextWCS :: WidthColorStyle
- defaultHighligherWCS :: WidthColorStyle
- defaultPenInfo :: PenInfo
- points :: Simple Lens PenDraw (Seq (Double, Double))
- zoomMode :: Simple Lens (ViewInfo a) 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) ScrolledWindow
- 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))
- vertAdjConnId :: Simple Lens (CanvasInfo a) (Maybe (ConnectId Adjustment))
- adjustments :: Simple Lens (CanvasInfo a) (Adjustment, Adjustment)
- canvasWidgets :: Simple Lens (CanvasInfo a) CanvasWidgets
- notifiedItem :: Simple Lens (CanvasInfo a) (Maybe (PageNum, BBox, RItem))
- currentTool :: Simple Lens PenInfo WidthColorStyle
- penWidth :: Simple Lens WidthColorStyle Double
- penColor :: Simple Lens WidthColorStyle PenColor
- currPen :: Simple Lens PenHighlighterEraserSet WidthColorStyle
- currHighlighter :: Simple Lens PenHighlighterEraserSet WidthColorStyle
- currEraser :: Simple Lens PenHighlighterEraserSet WidthColorStyle
- currText :: Simple Lens PenHighlighterEraserSet WidthColorStyle
- currVerticalSpace :: Simple Lens PenHighlighterEraserSet WidthColorStyle
- penType :: Simple Lens PenInfo PenType
- penSet :: Simple Lens PenInfo PenHighlighterEraserSet
- variableWidthPen :: Simple Lens PenInfo Bool
- 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
- unboxBiXform :: Functor f => (CanvasInfo SinglePage -> f (CanvasInfo SinglePage)) -> (CanvasInfo ContinuousPage -> f (CanvasInfo ContinuousPage)) -> CanvasInfoBox -> f CanvasInfoBox
- 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
- updateCanvasDimForSingle :: CanvasDimension -> CanvasInfo SinglePage -> IO (CanvasInfo SinglePage)
- updateCanvasDimForContSingle :: PageDimension -> CanvasDimension -> CanvasInfo ContinuousPage -> IO (CanvasInfo ContinuousPage)
data types
data CanvasInfo a Source
data CanvasInfoBox whereSource
default constructor
defaultViewInfoSinglePage :: ViewInfo SinglePageSource
default view info with single page mode
defaultCanvasWidgets :: CanvasWidgetsSource
default hoodle widgets
lenses
pageArrangement :: Simple Lens (ViewInfo a) (PageArrangement a)Source
mDrawSurface :: Simple Lens (CanvasInfo a) (Maybe Surface)Source
currentPageNum :: Simple Lens (CanvasInfo a) IntSource
horizAdjConnId :: Simple Lens (CanvasInfo a) (Maybe (ConnectId Adjustment))Source
ConnectId for horizontal scrollbar value change event
vertAdjConnId :: Simple Lens (CanvasInfo a) (Maybe (ConnectId Adjustment))Source
ConnectId for vertical scrollbar value change event
adjustments :: Simple Lens (CanvasInfo a) (Adjustment, Adjustment)Source
composition lens
canvasWidgets :: Simple Lens (CanvasInfo a) CanvasWidgetsSource
lens for canavs widgets
notifiedItem :: Simple Lens (CanvasInfo a) (Maybe (PageNum, BBox, RItem))Source
lens for notified item
currPen :: Simple Lens PenHighlighterEraserSet WidthColorStyleSource
lens for currPen
currHighlighter :: Simple Lens PenHighlighterEraserSet WidthColorStyleSource
lens for currHighlighter
currEraser :: Simple Lens PenHighlighterEraserSet WidthColorStyleSource
lens for currEraser
currText :: Simple Lens PenHighlighterEraserSet WidthColorStyleSource
lens for currText
currVerticalSpace :: Simple Lens PenHighlighterEraserSet WidthColorStyleSource
lens for currText
for box
xfrmCvsInfo :: (ViewInfo a -> ViewInfo b) -> CanvasInfo a -> CanvasInfo bSource
xfrmViewInfo :: (PageArrangement a -> PageArrangement b) -> ViewInfo a -> ViewInfo bSource
unboxLens :: (forall a. Simple Lens (CanvasInfo a) b) -> Simple Lens CanvasInfoBox bSource
unboxBiAct :: (CanvasInfo SinglePage -> r) -> (CanvasInfo ContinuousPage -> r) -> CanvasInfoBox -> rSource
single page action and continuous page act
unboxBiXform :: Functor f => (CanvasInfo SinglePage -> f (CanvasInfo SinglePage)) -> (CanvasInfo ContinuousPage -> f (CanvasInfo ContinuousPage)) -> CanvasInfoBox -> f CanvasInfoBoxSource
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 CanvasInfoBoxSource
forBoth' :: ((CanvasInfo SinglePage -> r) -> (CanvasInfo ContinuousPage -> r) -> CanvasInfoBox -> r) -> (forall a. CanvasInfo a -> r) -> CanvasInfoBox -> rSource