1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
# Panels control for FVWM-Crystal
#
# Version 1.0
# License GPL 3+
# Author: Jorge Daniel Sampayo Vargas
#
# This file provide basic functions to control the display of the Panels
# Toggle the visivility of the whole desktop decoration
DestroyFunc Panel-Toggle
AddToFunc Panel-Toggle
+ I All (State 31) WindowStyle NoIcon
+ I All (State 31) Schedule 100 Iconify
PipeRead "if [ \"$(echo $[infostore.Fvwm_Crystal_Recipe]| sed -e 's:.*Amiga:Amiga:')\" = \"Amiga\" ]; then echo '+ I Schedule 100 Restore-TopBar-RaiseLower'; fi"
# Toogle the whole desktop decoration (all windows with
# State 31 true, State 1 true => on bottom, false => on top
DestroyFunc Panel-Toggle-OnTop
AddToFunc Panel-Toggle-OnTop
+ I All (State 30, State 1) WindowStyle StaysOnTop, !State 1
+ I TestRc (NoMatch) All (State 31) WindowStyle StaysOnBottom, State 1
PipeRead "if [ \"$(echo $[infostore.Fvwm_Crystal_Recipe]| sed -e 's:.*Amiga:Amiga:')\" = \"Amiga\" ]; then echo '+ I Schedule 100 Restore-TopBar-RaiseLower'; fi"
# Toggle the whole topbar and pager between the top and bottom layers {{{1
# For the Amiga recipe
# bindings in components/bindings/Desktop-MMB-ToggleTopBar (Alt-MMB)
# MMB Toggle-TopBar-OnTop 1{{{
DestroyFunc Toggle-TopBar-OnTop
AddToFunc Toggle-TopBar-OnTop
+ I All (FvwmButtons-PanelTop, !State 1) PutTopBar-OnTop
+ I TestRc (NoMatch) PutTopBar-OnBottom
+ I Restore-TopBar-RaiseLower
DestroyFunc PutTopBar-OnTop
AddToFunc PutTopBar-OnTop
+ I All (FvwmButtons-PanelTop) PutOnTop
#+ I All (FvwmButtons-Pager) PutOnTop
#+ I All (FvwmPager) PutOnTop
+ I All (FvwmButtons-PanelTopMenu) PutOnTop
DestroyFunc PutTopBar-OnBottom
AddToFunc PutTopBar-OnBottom
+ I All (FvwmButtons-PanelTop) PutOnBottom
#+ I All (FvwmButtons-Pager) PutOnBottom
#+ I All (FvwmPager) PutOnBottom
+ I All (FvwmButtons-PanelTopMenu) PutOnBottom
#EdgeCommand Top Toggle-TopBar-OnTop
# vim:ft=fvwm
|
