Fixed BrowseContext test code to work headlessly

[simantics/platform.git] / bundles / org.simantics.modeling.ui / scl / Simantics / Testing / ActionBrowseContext.scl

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 ecacf009097034cbc6dd9c43bdc40d4df0aa5a00..68479e2257737de3cd95b5ab175b91b9df4e6801 100644 (file)
--- 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 defaultFontDescriptor) key 0 with
+      Nothing -> ""
+      Just font -> ""
     fontti = decorateBackground decorator Nothing key 0
     fontti = decorateForeground decorator Nothing key 0
     laabeli = decorateLabel decorator value key 0