2 type BoundingBox = (Double,Double,Double,Double)
4 importJava "org.simantics.diagram.elements.SVGMeasurementContext" where
5 data SVGMeasurementContext
6 getBoundingBox :: SVGMeasurementContext -> String -> <Proc> Maybe BoundingBox
8 getBoundingBoxX :: BoundingBox -> Double
9 getBoundingBoxX (x,_,_,_) = x
11 getBoundingBoxY :: BoundingBox -> Double
12 getBoundingBoxY (_,y,_,_) = y
14 getBoundingBoxW :: BoundingBox -> Double
15 getBoundingBoxW (_,_,w,_) = w
17 getBoundingBoxH :: BoundingBox -> Double
18 getBoundingBoxH (_,_,_,h) = h