type BoundingBox = (Double,Double,Double,Double)

importJava "org.simantics.diagram.elements.SVGMeasurementContext" where
  data SVGMeasurementContext
  getBoundingBox :: SVGMeasurementContext -> String -> <Proc> Maybe BoundingBox
  modifyText :: SVGMeasurementContext -> String -> String -> <Proc> ()

getBoundingBoxX :: BoundingBox -> Double
getBoundingBoxX (x,_,_,_) = x

getBoundingBoxY :: BoundingBox -> Double
getBoundingBoxY (_,y,_,_) = y

getBoundingBoxW :: BoundingBox -> Double
getBoundingBoxW (_,_,w,_) = w

getBoundingBoxH :: BoundingBox -> Double
getBoundingBoxH (_,_,_,h) = h