bundles/org.simantics.diagram/scl/Simantics/Diagram/SVGNode.scl

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