Copyright | (c) 2011-2014 Ian-Woo Kim |
---|---|
License | BSD3 |
Maintainer | Ian-Woo Kim <ianwookim@gmail.com> |
Stability | experimental |
Portability | GHC |
Safe Haskell | None |
Language | Haskell98 |
- type CanvasId = Int
- data PenDraw = PenDraw {}
- emptyPenDraw :: PenDraw
- data ViewInfo a = ViewInfo {}
- data CanvasInfo a = CanvasInfo {
- _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
- type CanvasInfoMap = IntMap CanvasInfoBox
- data MyScrollWindow = MyScrollWindow {}
- data PenHighlighterEraserSet
- data PenInfo
- data WidthColorStyle
- 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) 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))
- 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 where Source #
type CanvasInfoMap = IntMap CanvasInfoBox Source #
data MyScrollWindow Source #
default constructor
defaultViewInfoSinglePage :: ViewInfo SinglePage Source #
default view info with single page mode
defaultCanvasWidgets :: CanvasWidgets Source #
default hoodle widgets
lenses
pageArrangement :: Simple Lens (ViewInfo a) (PageArrangement a) Source #
drawArea :: Simple Lens (CanvasInfo a) DrawingArea Source #
mDrawSurface :: Simple Lens (CanvasInfo a) (Maybe Surface) Source #
currentPageNum :: Simple Lens (CanvasInfo a) Int Source #
horizAdjustment :: Simple Lens (CanvasInfo a) Adjustment Source #
vertAdjustment :: Simple Lens (CanvasInfo a) Adjustment Source #
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) CanvasWidgets Source #
lens for canavs widgets
notifiedItem :: Simple Lens (CanvasInfo a) (Maybe (PageNum, BBox, RItem)) Source #
lens for notified item
currPen :: Simple Lens PenHighlighterEraserSet WidthColorStyle Source #
lens for currPen
currHighlighter :: Simple Lens PenHighlighterEraserSet WidthColorStyle Source #
lens for currHighlighter
currEraser :: Simple Lens PenHighlighterEraserSet WidthColorStyle Source #
lens for currEraser
currText :: Simple Lens PenHighlighterEraserSet WidthColorStyle Source #
lens for currText
currVerticalSpace :: Simple Lens PenHighlighterEraserSet WidthColorStyle Source #
lens for currText
for box
xfrmCvsInfo :: (ViewInfo a -> ViewInfo b) -> CanvasInfo a -> CanvasInfo b Source #
xfrmViewInfo :: (PageArrangement a -> PageArrangement b) -> ViewInfo a -> ViewInfo b Source #
unboxLens :: (forall a. Simple Lens (CanvasInfo a) b) -> Simple Lens CanvasInfoBox b Source #
unboxBiAct :: (CanvasInfo SinglePage -> r) -> (CanvasInfo ContinuousPage -> r) -> CanvasInfoBox -> r Source #
single page action and continuous page act
unboxBiXform :: Functor f => (CanvasInfo SinglePage -> f (CanvasInfo SinglePage)) -> (CanvasInfo ContinuousPage -> f (CanvasInfo ContinuousPage)) -> CanvasInfoBox -> f CanvasInfoBox Source #
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 Source #
forBoth' :: ((CanvasInfo SinglePage -> r) -> (CanvasInfo ContinuousPage -> r) -> CanvasInfoBox -> r) -> (forall a. CanvasInfo a -> r) -> CanvasInfoBox -> r Source #