X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.ui%2Fscl%2FSimantics%2FTesting%2FActionBrowseContext.scl;fp=bundles%2Forg.simantics.modeling.ui%2Fscl%2FSimantics%2FTesting%2FActionBrowseContext.scl;h=b821fcc03f10b5105ff5de01d4ce45dd3aed102a;hb=a0e3814041d624e3d72c21210d188e56439757aa;hp=ecacf009097034cbc6dd9c43bdc40d4df0aa5a00;hpb=49178b3ca3e43a700298124de4adb7305c7092b7;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 ecacf0090..b821fcc03 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,9 @@ printActionDetails action = do
 @private
 decorateLabelStub :: LabelDecorator -> String -> String -> <Proc> ()
 decorateLabelStub decorator key value = do
-    fontti = decorateFont decorator getDefaultFontDescriptor key 0
+    fontti = match decorateFont decorator (Just getDefaultFontDescriptor) key 0 with
+      Nothing -> ""
+      Just font -> ""
     fontti = decorateBackground decorator Nothing key 0
     fontti = decorateForeground decorator Nothing key 0
     laabeli = decorateLabel decorator value key 0