X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.template2d.ui%2Fscl%2FSimantics%2FDrawingTemplate.scl;h=7550f707321dfaadbd5d3328628edf66394a408e;hb=a42562ce5347643cf8303eb4c6acef4d65c9e210;hp=34b4f82f27767631e6b108b949affa7a0639abb8;hpb=d615f9ce52ccde4f0de408d6345d033faa4590e6;p=simantics%2Fplatform.git

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 34b4f82f2..7550f7073 100644
--- 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