X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FPageSettings.scl;h=ccd4703c05bc0401fe3cea0fc8c41c81a5cc8c0f;hp=68b6f1b3a3eadc4d83d04f64910fa2100cf9203a;hb=77d7e2176bf9b031dbe216339568d316066bcfc1;hpb=969bd23cab98a79ca9101af33334000879fb60c5 diff --git a/bundles/org.simantics.modeling/scl/Simantics/PageSettings.scl b/bundles/org.simantics.modeling/scl/Simantics/PageSettings.scl index 68b6f1b3a..ccd4703c0 100644 --- a/bundles/org.simantics.modeling/scl/Simantics/PageSettings.scl +++ b/bundles/org.simantics.modeling/scl/Simantics/PageSettings.scl @@ -1,27 +1,27 @@ -import "Simantics/DB" -import "Simantics/Variables" -import "Simantics/Diagram" - -importJava "org.simantics.utils.page.PageDesc" where - data PageDesc - getOrientedWidth :: PageDesc -> Double - getOrientedHeight :: PageDesc -> Double - getByName :: String -> PageDesc - - @JavaName serialize - serializePageDesc :: PageDesc -> String - -importJava "org.simantics.diagram.synchronization.graph.DiagramGraphUtil" where - @JavaName setPageDesc - setPageDesc :: Resource -> String -> () - - @JavaName setPageDesc - setPageDescRes :: Resource -> PageDesc -> () - - setGridSize :: Resource -> Double -> () - setPageBordersVisible :: Resource -> Boolean -> () - setMarginsVisible :: Resource -> Boolean -> () - getPageDesc :: Resource -> PageDesc - -pageDesc :: Variable -> PageDesc -pageDesc diagramVariable = getPageDesc $ represents diagramVariable +import "Simantics/DB" +import "Simantics/Variables" +import "Simantics/Diagram" + +importJava "org.simantics.utils.page.PageDesc" where + data PageDesc + getOrientedWidth :: PageDesc -> Double + getOrientedHeight :: PageDesc -> Double + getByName :: String -> PageDesc + + @JavaName serialize + serializePageDesc :: PageDesc -> String + +importJava "org.simantics.diagram.synchronization.graph.DiagramGraphUtil" where + @JavaName setPageDesc + setPageDesc :: Resource -> String -> () + + @JavaName setPageDesc + setPageDescRes :: Resource -> PageDesc -> () + + setGridSize :: Resource -> Double -> () + setPageBordersVisible :: Resource -> Boolean -> () + setMarginsVisible :: Resource -> Boolean -> () + getPageDesc :: Resource -> PageDesc + +pageDesc :: Variable -> PageDesc +pageDesc diagramVariable = getPageDesc $ represents diagramVariable