[已解决]FvwmButton 实现的 Dock 自动隐藏 位置和层 问题

57lvii

1.我参考一份含有 autohide Dock 的 fvwm 设置，我想设置 dock 自动隐藏到屏幕的顶部，

而参考配置的 Dock 是在底部隐藏的。

2. Dock 的层好像排在其他窗口的上面，要在 Style 里面设置 Layer 进行控制吗

3, fvwmbutton Swallow 的 Timescript 不能正确的 嵌入到 Dock 里面，每次*出到
    桌面的其他位置


Dock 自动隐藏配置代码：

1. 
   
2. 
   
3. DestroyFunc AutohidePanelToggle
   
4. AddToFunc AutohidePanelToggle
   
5. + I ThisWindow (Shaded) enter_handler
   
6. + I TestRc (NoMatch) NoWindow enter_handler                                                                        
   
7. 
   
8. AddToFunc autohide
   
9. + I ThisWindow ($0) Deschedule $[w.id]
   
10. + I ThisWindow ($0) ThisWindow (shaded) WindowShade off
    
11. + I ThisWindow ($0) Focus
    
12. # 鼠标 自动聚焦到 Dock 中央
    
13. #+ I ThisWindow ($0) WarpToWindow 50 50
    
14. + I TestRc (!Match) All ($0, !shaded) autohide_hide $1 $2
    
15. #+ I ThisWindow ($0) KeepRc ThisWindow (shaded) WindowShade off
    
16. 
    
17. AddToFunc autohide_hide
    
18. + I Schedule $0 $[w.id] WindowShade $1
    
19. + I Schedule $0 $[w.id] Deschedule $[w.id]
    
20. 
    
21. # }}}
    
22. 
    
23. AddToFunc StartFunction
    
24. + I Module FvwmAuto FvwmAutohide -menter enter_handler
    
25. 
    
26. # 最后一个参数“S”表示隐藏的方向，S 是"向上隐藏"。相应的参数有N, S, E, W, NW, NE, SW or SE
    
27. # From : http://www.cnblogs.com/lone/archive/2009/08/09/1542212.html
    
28. AddToFunc enter_handler
    
29. + I autohide DockButtons 500 2000 S
    
30. 
    

复制代码

对 autohide 函数的原理不是很懂，不知是否有兄台，可以解释一下！

希望各位 Fvwm 前辈，给些指点，非常感谢！！！

TimeScript 配置脚本代码：

1. 
   
2. 
   
3. *DockButtons: (2x1, Frame0, Swallow "TimeScript" "FvwmScript scripts/TimeScript")
   
4. 
   
5. 
   
6. WindowTitle     {TimeScript}
   
7. WindowSize      40 20
   
8. Colorset        90
   
9. 
   
10. Init
    
11. Begin
    
12.         Set $time = (GetOutput {date "+%k:%M"} 1 -1)
    
13.         ChangeTitle 1 $time
    
14.     Set $toggled = 0
    
15. End
    
16. 
    
17. PeriodicTasks
    
18. Begin
    
19.         If (RemainderOfDiv (GetTime) 60)==0 Then
    
20.         Begin
    
21.                 Set $time = (GetOutput {date "+%k:%M"} 1 -1)
    
22.                 ChangeTitle 1 $time
    
23.         End
    
24. End
    
25. 
    
26. Widget                  1
    
27. Property
    
28.         Type            ItemDraw
    
29.         Size            40 20
    
30.         Position        0 0                                                                                       
    
31.         Font            "shadow=0 se:xft:Arial:bold:size=12"
    
32.         Flags           NoFocus NoReliefString
    
33. Main
    
34. Case message of
    
35.     SingleClic:
    
36.     Begin
    
37.         If $toggled==0 Then
    
38.         Begin
    
39.             Set $toggled = 1
    
40.             Do {Module FvwmScript scripts/Calendar}
    
41.         End
    
42.         Else
    
43.         Begin
    
44.             Set $toggled = 0
    
45.             Do {KillModule FvwmScript scripts/Calendar}
    
46.         End
    
47.     End
    
48. End
    

复制代码

57lvii

问题 1, 通过修改设置 TitleAtBottom 为 TitleAtTop 解决
问题 3,在 Dock 里面去掉了 Time 的显示！

pinkme005

楼主的任务栏放哪了呢