Commit a9942df2 authored by Peter Achten's avatar Peter Achten

cleaning up the comments

parent b28aed35
Pipeline #23710 failed with stage
in 2 minutes and 56 seconds
......@@ -38,8 +38,7 @@ import Graphics.Scalable.Internal.Types
| LineMarkerAttr` !(LineMarkerAttr m)
| MaskAttr` !(Image` m)
| HandlerAttr` !(ImgEventhandler m)
:: ImgTables //m
//= { imgEventhandlers :: !ImgEventhandlers m
:: ImgTables
= { imgEventhandlers :: !ImgEventhandlers`
, imgNewFonts :: !ImgFonts
, imgNewTexts :: !ImgTexts
......@@ -59,7 +58,6 @@ import Graphics.Scalable.Internal.Types
:: FontSpans :== Map FontDef FontDescent // of each font, the font descent
:: ImgFonts :== Set FontDef // the collection of fonts used in the image for which no metrics are available
:: TextSpans :== Map FontDef (Map String TextSpan) // of each font, of each text of that font, the width
//:: ImgEventhandlers m :== Map ImgTagNo [(ImgNodePath,ImgEventhandler m)] // the event handlers of the image identified by the id (once registered, an event handler can not be overruled)
:: ImgEventhandlers` :== Map ImgTagNo [(ImgNodePath,ImgEventhandler`)] // the defunctionalized version of ImgEventhandlers
:: ImgTexts :== Map FontDef (Set String) // of each font, the collection of texts
:: ImgMasks :== Map ImgTagNo Img // of each mask, the mask-image (associate the id with (MaskImg id))
......@@ -160,12 +158,10 @@ defaultLineMarkers :: LineMarkers
= { n :: !Span, e :: !Span, s :: !Span, w :: !Span }
defaultMargins` :: Margins`
toImg :: !(Image` m) !ImgNodePath !FontSpans !TextSpans !(ImgTables /*m*/) -> (!Img,!ImgTables /*m*/)
toImg :: !(Image` m) !ImgNodePath !FontSpans !TextSpans !ImgTables -> (!Img,!ImgTables)
getImgEventhandler :: !(Image` m) !ImgNodePath -> Maybe (ImgEventhandler m)
//defuncImgEventhandlers :: !(ImgEventhandlers m) -> ImgEventhandlers`
:: SpanResolveError :== String
resolve_all_spans :: !ImgTags !FontSpans !TextSpans !Img !ImgMasks !ImgLineMarkers !ImgPaths !ImgSpans !GridSpans
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment