#-----------------------------------------------------------------------------
# General fonts

DestroyFunc FuncFvwmSetFont-WindowTitle
AddToFunc   FuncFvwmSetFont-WindowTitle
+ I Style "$0" Font -*-lucida-bold-r-normal-*-10-*

DestroyFunc FuncFvwmSetFont-IconTitle
AddToFunc   FuncFvwmSetFont-IconTitle
+ I Style "$0" IconFont -*-lucida-medium-r-normal-*-10-*

DestroyFunc FuncFvwmSetFont-Menu
AddToFunc   FuncFvwmSetFont-Menu
+ I MenuStyle "$0" Font -*-lucida-medium-r-normal-*-10-*

# for FvwmIdent (called in globallook)
DestroyFunc FuncFvwmSetFont-FvwmIdent
AddToFunc   FuncFvwmSetFont-FvwmIdent
+ I *FvwmIdent: Font -*-lucida-medium-r-normal-*-10-*

#------------------------------------------------------------------------------
# Fonts for modules, currently the ones defined in modules@ are unchanged

# default font for IconBox, IconMan, TaskBar and WinList
DestroyFunc FuncFvwmSetFont-ModuleWindowList
AddToFunc   FuncFvwmSetFont-ModuleWindowList
+ I *$0: $1 "$2"

# selected font (TaskBar)
DestroyFunc FuncFvwmSetFont-ModuleSelectedWindowList
AddToFunc   FuncFvwmSetFont-ModuleSelectedWindowList
+ I *$0: $1 "$2"

# if one wants a small font for a Window List module (e.g., luthien IconMan)
DestroyFunc FuncFvwmSetFont-ModuleSmallWindowList
AddToFunc   FuncFvwmSetFont-ModuleSmallWindowList
+ I *$0: $1 "$2"

# small font (Pager mini window font)
DestroyFunc FuncFvwmSetFont-ModuleSmall
AddToFunc   FuncFvwmSetFont-ModuleSmall
+ I *$0: $1 "$2"

# tips font (for TaskBar, Pager)
DestroyFunc FuncFvwmSetFont-ModuleTips
AddToFunc   FuncFvwmSetFont-ModuleTips
+ I *$0: $1 "$2"

# normal "Label" font for Pager and Buttons
DestroyFunc FuncFvwmSetFont-ModuleLabel
AddToFunc   FuncFvwmSetFont-ModuleLabel
+ I *$0: $1 "$2"

# small "Label" for Buttons and Pager
DestroyFunc FuncFvwmSetFont-ModuleSmallLabel
AddToFunc   FuncFvwmSetFont-ModuleSmallLabel
+ I *$0: $1 "$2"

# large "Label" font for Buttons and Pager
DestroyFunc FuncFvwmSetFont-ModuleLargeLabel
AddToFunc   FuncFvwmSetFont-ModuleLargeLabel
+ I *$0: $1 "$2"
