Hide FvwmPager. fvwm
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 18 Jan 2009 20:07:06 +0200
branchfvwm
changeset 387 c3da331f67b9
parent 386 eab698c29a89
child 388 38c75446897a
Hide FvwmPager.
.fvwm/config
--- a/.fvwm/config	Sun Jan 18 19:21:39 2009 +0200
+++ b/.fvwm/config	Sun Jan 18 20:07:06 2009 +0200
@@ -266,8 +266,11 @@
 # ##########
 # FvwmPager.
 # ##########
-Style "FvwmPager" NoTitle, Handles, Borders, BorderWidth 5, Sticky, WindowListSkip, \
-  CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, !Iconifiable
+
+# No any button on pager.
+Style "FvwmPager" !Button 1, !Button 3, !Button 5, \
+         Handles, Borders, BorderWidth 5, Sticky, WindowListSkip, \
+         CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, !Iconifiable
 
 SetEnv FvwmPager_Inactive rgb:c0/c0/c0
 SetEnv FvwmPager_Active rgb:ef/df/bdc
@@ -287,6 +290,26 @@
 *FvwmPager: Rows 3
 *FvwmPager: Columns 1
 
+# #########
+# FvwmAuto.
+# #########
+
+# The autohiding functions.
+# From http://fvwm.org/documentation/faq/#toc_7.17
+# See question "Autohiding FvwmButtons or other windows".
+AddToFunc autohide
++ I ThisWindow ($0) Deschedule $[w.id]
++ I ThisWindow ($0) KeepRc ThisWindow (shaded) WindowShade off
++ I TestRc (!Match) All ($0, !shaded) autohide_hide $1 $2
+
+AddToFunc autohide_hide
++ I Schedule $0 $[w.id] WindowShade $1
++ I Schedule $0 $[w.id] Deschedule $[w.id]
+
+# Add the windows you want to autohide
+AddToFunc enter_handler
++ I autohide FvwmPager 500 N
+
 ####################
 # Startup functions.
 ####################
@@ -309,5 +332,6 @@
 # All fvwm modules exit after restart fvwm, so you must put they there.
 AddToFunc StartFunction
 + I Module FvwmPager 0 2
++ I Module FvwmAuto 1 -menter enter_handler
 # Add next to load desktop image (must be .xpm or .png)
 # + I Exec fvwm-root -r ~/tmp/MagicItemComp2_1280x1024.png