# Debug functions

# It's a set of functions and panels useful for developing or debugging FVWM-Crystal

# Window list
All (FvwmIconMan-Debug-WindowList) Close
DestroyModuleConfig FvwmIconMan-Debug-WindowList: *

*FvwmIconMan-Debug-WindowList: Resolution Global
*FvwmIconMan-Debug-WindowList: UseWinList False
*FvwmIconMan-Debug-WindowList: ShowOnlyIcons False
*FvwmIconMan-Debug-WindowList: DrawIcons Always
*FvwmIconMan-Debug-WindowList: Sort Id
*FvwmIconMan-Debug-WindowList: FollowFocus True
*FvwmIconMan-Debug-WindowList: Format "%t [icon:%i]"
*FvwmIconMan-Debug-WindowList: Title "Debug Window List: Title [icon:icon title] | class/resource"
PipeRead "echo *FvwmIconMan-Debug-WindowList: ButtonGeometry $((($[vp.width]-12)/2))x24"
*FvwmIconMan-Debug-WindowList: ManagerGeometry +3+3
*FvwmIconMan-Debug-WindowList: Font "xft:Verdana:pixelsize=14"
Test (EnvIsSet FVWM_FLAG_UTF-8) *FvwmIconMan-Debug-WindowList: Font "xft:Verdana:pixelsize=14:encoding=iso10646-1"
*FvwmIconMan-Debug-WindowList: Tips always
*FvwmIconMan-Debug-WindowList: TipsDelays 400 100
*FvwmIconMan-Debug-WindowList: TipsFormat "%c/%r"
*FvwmIconMan-Debug-WindowList: TipsFont "xft:Verdana:pixelsize=12:Bold"
Test (EnvIsSet FVWM_FLAG_UTF-8) *FvwmIconMan-Debug-WindowList: TipsFont "xft:Verdana:pixelsize=12:Bold:encoding=iso10646-1"
*FvwmIconMan-Debug-WindowList: TipsBorderWidth 2
*FvwmIconMan-Debug-WindowList: TipsColorset $[cs-panel-inactive]
*FvwmIconMan-Debug-WindowList: TipsJustification leftup
*FvwmIconMan-Debug-WindowList: PlainButton flat
*FvwmIconMan-Debug-WindowList: FocusButton flat
*FvwmIconMan-Debug-WindowList: SelectButton flat
*FvwmIconMan-Debug-WindowList: FocusAndSelectButton flat
*FvwmIconMan-Debug-WindowList: IconButton flat
*FvwmIconMan-Debug-WindowList: Colorset $[cs-panel-inactive]
*FvwmIconMan-Debug-WindowList: PlainColorset $[cs-panel-wininactive]
*FvwmIconMan-Debug-WindowList: FocusColorset $[cs-panel-winactive]
*FvwmIconMan-Debug-WindowList: SelectColorset $[cs-panel-active]
*FvwmIconMan-Debug-WindowList: FocusAndSelectColorset $[cs-panel-active]
*FvwmIconMan-Debug-WindowList: IconColorset $[cs-panel-inactive]
*FvwmIconMan-Debug-WindowList: Action Mouse 1 $[Mod] SendCommand "WarpToWindow 0 0"
*FvwmIconMan-Debug-WindowList: Action Mouse 2 $[Mod] SendCommand "Nop"
*FvwmIconMan-Debug-WindowList: Action Mouse 3 $[Mod] SendCommand "Menu /Debug/WindowList $[MenuPosition-BelowRight]"

Style FvwmIconMan-Debug-WindowList UseStyle *
Style FvwmIconMan-Debug-WindowList Title, Borders, VariablePosition, VariableSize, StaysOnTop, Sticky
Module FvwmIconMan FvwmIconMan-Debug-WindowList

*FvwmIdent: Colorset $[cs-panel-active]
*FvwmIdent: MinimalLayer 6

DestroyMenu /Debug/WindowList
AddToMenu /Debug/WindowList
+ '$[gt.Identify window]' Module FvwmIdent
+ '$[gt.WindowStyle]' Popup /Developer/WindowStyle
+ "" Nop
+ '$[gt.Move]' Debug-Window-Move
+ '$[gt.Resize]' Resize
+ '$[gt.Close]' Close
+ '$[gt.Destroy]' Destroy

DestroyFunc Debug-Window-Move
AddToFunc Debug-Window-Move
+ I WarpToWindow 0 0
+ I Move

# vim:filetype=fvwm
