分享一个Fvwm下的QuickTerminal
发表于 ： 2012-09-24 9:41
开始的时候网上找别人的QuickTerminal发现没有一个满足我需求的，后来只能自己动手，用了两个多月了，没有发现任何问题，应该可以共享出来了：）希望有类似需求的可以使用她。
这个QuickTerminal 可以通过按F12调出或者隐藏。
特点, QuickTerminal显示在屏幕的最顶层(layer 99), 任何时候都可以被显示。 启动的窗口大小是屏幕宽度的 3/5, 高度的2/5（这是一个适合宽屏显示器的大小，当然如果不满意，可以修改这两个值来设定其他大小）, 并且在QuickTerminal 打开的时候鼠标会自动移动到这个terminal的横,竖都是30%的位置，选30%而不是中间(50 50)位置，因为人使用鼠标的操作习惯是看中间偏左上的位置。此外按F12 隐藏 QuickTerminal并不会移动当前鼠标。
这个QuickTerminal 可以通过按F12调出或者隐藏。
特点, QuickTerminal显示在屏幕的最顶层(layer 99), 任何时候都可以被显示。 启动的窗口大小是屏幕宽度的 3/5, 高度的2/5（这是一个适合宽屏显示器的大小，当然如果不满意，可以修改这两个值来设定其他大小）, 并且在QuickTerminal 打开的时候鼠标会自动移动到这个terminal的横,竖都是30%的位置，选30%而不是中间(50 50)位置，因为人使用鼠标的操作习惯是看中间偏左上的位置。此外按F12 隐藏 QuickTerminal并不会移动当前鼠标。
代码： 全选
Key F12 A N QuickTerminal
PipeRead "echo Setenv qt.width $(($[vp.width] * 3 / 5))"
PipeRead "echo Setenv qt.height $(($[vp.height] * 2 / 5))"
PipeRead "echo Setenv qt.xpos $((($[vp.width] - $[qt.width]) / 2))"
DestroyFunc QuickTerminal
AddToFunc QuickTerminal
+ I All (QuickTerminal, CurrentDesk) Iconify
+ I All (QuickTerminal, CurrentDesk, Visible) WarpToWindow 30 30
+ I All (QuickTerminal, CurrentDesk) break
+ I TestRc (NoMatch) Exec exec xterm +samename -title QuickTerminal -xrm QuickTerminal -name QuickTerminal
+ I wait QuickTerminal
+ I All (QuickTerminal, CurrentDesk) Resize $[qt.width]p $[qt.height]p
+ I All (QuickTerminal, CurrentDesk) Move $[qt.xpos]p 0p
+ I All (QuickTerminal, CurrentDesk) WarpToWindow 30 30
Style QuickTerminal Sticky, !Title, !Handles, !Borders, BorderWidth 0, HandleWidth 0, WindowListSkip, FPGrabFocus, layer 99
