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

DestroyFunc FuncFvwmSetFont-WindowTitle
AddToFunc   FuncFvwmSetFont-WindowTitle
+ I Style "$0" Font "-altsys-a.d. mono-*-*-*-*-14-*-*-*-*-*-iso8859-1"

DestroyFunc FuncFvwmSetFont-IconTitle
AddToFunc   FuncFvwmSetFont-IconTitle
+ I Style "$0" IconFont "-altsys-a.d. mono-*-*-*-*-12-*-*-*-*-*-iso8859-1"

DestroyFunc FuncFvwmSetFont-Menu
AddToFunc   FuncFvwmSetFont-Menu
+ I MenuStyle "$0" Font "-altsys-a.d. mono-*-*-*-*-14-*-*-*-*-*-iso8859-1"

# for FvwmIdent (called in globallook)
DestroyFunc FuncFvwmSetFont-FvwmIdent
AddToFunc   FuncFvwmSetFont-FvwmIdent
+ I *FvwmIdent: Font "-*-fixed-medium-r-semicondensed-*-13-*"

#-----------------------------------------------------------------------------
# Fonts for modules

# default font for IconBox, IconMan, TaskBar and WinList
DestroyFunc FuncFvwmSetFont-ModuleWindowList
AddToFunc   FuncFvwmSetFont-ModuleWindowList
+ I *$0: $1 "-altsys-a.d. mono-*-*-*-*-14-*-*-*-*-*-iso8859-1"

# selected font (TaskBar)
DestroyFunc FuncFvwmSetFont-ModuleSelectedWindowList
AddToFunc   FuncFvwmSetFont-ModuleSelectedWindowList
+ I *$0: $1 "-altsys-a.d. mono-*-*-*-*-14-*-*-*-*-*-iso8859-1"

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

# small font (Pager mini window font)
DestroyFunc FuncFvwmSetFont-ModuleSmall
AddToFunc   FuncFvwmSetFont-ModuleSmall
+ I *$0: $1 "-altsys-a.d. mono-*-*-*-*-8-*-*-*-*-*-iso8859-1"

# tips font (for TaskBar, Pager)
DestroyFunc FuncFvwmSetFont-ModuleTips
AddToFunc   FuncFvwmSetFont-ModuleTips
+ I *$0: $1 "-altsys-a.d. mono-*-*-*-*-12-*-*-*-*-*-iso8859-1"

# normal "Label" font for Pager and Buttons
DestroyFunc FuncFvwmSetFont-ModuleLabel
AddToFunc   FuncFvwmSetFont-ModuleLabel
+ I *$0: $1 "-altsys-a.d. mono-*-*-*-*-12-*-*-*-*-*-iso8859-1"

# small "Label" for Buttons
DestroyFunc FuncFvwmSetFont-ModuleSmallLabel
AddToFunc   FuncFvwmSetFont-ModuleSmallLabel
+ I *$0: $1 "-altsys-a.d. mono-*-*-*-*-8-*-*-*-*-*-iso8859-1"

# large "Label" font for Buttons
DestroyFunc FuncFvwmSetFont-ModuleLargeLabel
AddToFunc   FuncFvwmSetFont-ModuleLargeLabel
+ I *$0: $1 "-altsys-a.d. mono-*-*-*-*-8-*-*-*-*-*-iso8859-1"
