# WindowList replacement

# Works similar to the window list in MS Windows - current window is placed at
# the end of the menu, previous window is first.

# Shows windows from all desktop pages
DestroyFunc Window-List
AddToFunc Window-List
+ I WindowList "$*" Function Window-Focus-DefaultDesk-Raised CurrentAtEnd CurrentDesk NoGeometry MaxLabelWidth 40 NoIcons NoCurrentDeskTitle NoHotkeys SelectOnRelease $[SelectOnReleaseKey]

# Shows windows only from current desktop page
DestroyFunc Window-List-Page
AddToFunc Window-List-Page
+ I WindowList (CurrentPage) "$*" Function Window-Focus-DefaultDesk-Raised CurrentAtEnd CurrentDesk NoGeometry MaxLabelWidth 40 NoIcons NoCurrentDeskTitle NoHotkeys SelectOnRelease $[SelectOnReleaseKey]

# Shows only iconified windows
DestroyFunc Window-List-Icons
AddToFunc Window-List-Icons
+ I WindowList "$*" Function Window-Focus-CurrentDesk-Raised CurrentDesk NoGeometry MaxLabelWidth 40 OnlyIcons NoHotkeys NoCurrentDeskTitle SelectOnRelease $[SelectOnReleaseKey]

# vim:ft=fvwm
