@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