Removed uses of deprecated functions

[simantics/platform.git] / bundles / org.simantics.modeling.template2d.ui / scl / Simantics / DrawingTemplate.scl

diff --git a/bundles/org.simantics.modeling.template2d.ui/scl/Simantics/DrawingTemplate.scl b/bundles/org.simantics.modeling.template2d.ui/scl/Simantics/DrawingTemplate.scl
index 34b4f82f27767631e6b108b949affa7a0639abb8..7550f707321dfaadbd5d3328628edf66394a408e 100644 (file)
--- a/bundles/org.simantics.modeling.template2d.ui/scl/Simantics/DrawingTemplate.scl
+++ b/bundles/org.simantics.modeling.template2d.ui/scl/Simantics/DrawingTemplate.scl
@@ -114,14 +114,14 @@ importJava "org.simantics.modeling.ModelingUtils" where
 
 setMonitorPropertyValue :: Monitor -> String -> String -> <WriteGraph> ()
 setMonitorPropertyValue monitor property newValue = do
-    monitorUri = uriOf (toResource monitor)
+    monitorUri = uriOf monitor
     completeUri = monitorUri + "#" + property + "#HasDisplayValue"
     propertyVariable = variable completeUri
     setValue propertyVariable newValue
     
 setFlagTablePropertyValue :: FlagTable -> String -> String -> <WriteGraph> ()
 setFlagTablePropertyValue flagTable property newValue = do
-    flagTableUri = uriOf (toResource flagTable)
+    flagTableUri = uriOf flagTable
     completeUri = flagTableUri + "#" + property + "#HasDisplayValue"
     propertyVariable = variable completeUri
     setValue propertyVariable newValue