@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