X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.ui%2Fscl%2FSimantics%2FTesting%2FActionBrowseContext.scl;h=68479e2257737de3cd95b5ab175b91b9df4e6801;hb=bcec706e6fde4a96acf3bcd4df24c35faeef18a1;hp=b821fcc03f10b5105ff5de01d4ce45dd3aed102a;hpb=ec37e4545752e6aaa194235cf63acd9c1845a1d0;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling.ui/scl/Simantics/Testing/ActionBrowseContext.scl b/bundles/org.simantics.modeling.ui/scl/Simantics/Testing/ActionBrowseContext.scl
index b821fcc03..68479e225 100644
--- a/bundles/org.simantics.modeling.ui/scl/Simantics/Testing/ActionBrowseContext.scl
+++ b/bundles/org.simantics.modeling.ui/scl/Simantics/Testing/ActionBrowseContext.scl
@@ -123,7 +123,7 @@ printActionDetails action = do
 @private
 decorateLabelStub :: LabelDecorator -> String -> String -> <Proc> ()
 decorateLabelStub decorator key value = do
-    fontti = match decorateFont decorator (Just getDefaultFontDescriptor) key 0 with
+    fontti = match decorateFont decorator (Just defaultFontDescriptor) key 0 with
       Nothing -> ""
       Just font -> ""
     fontti = decorateBackground decorator Nothing key 0