# Klawisze sterujcec CrystalConsole i FvwmConsole
Key     grave   A       M       CC_ShowHide
Key     grave   A       MS      FvwmConsole

All (CrystalConsole) Close
# -- FUNKCJE --

DestroyFunc CC_Init
AddToFunc CC_Init
+ I Style CrystalConsole !Title, !Handles, SkipMapping, \
    WindowListSkip, VariableSize, VariablePosition, NoIcon, StaysOnTop, !Iconifiable, \
    StickyAcrossPages, Maximizable
+ I Style CrystalConsole BorderWidth 3
+ I Style CrystalConsole Colorset 0
+ I Style CrystalConsole HilightColorset 0
+ I Exec exec $[FVWM_CRYSTAL_CONSOLE]
+ I Wait CrystalConsole 
+ I All (CrystalConsole) Maximize 100 50
+ I All (CrystalConsole) Piperead 'echo Move `expr $[vp.width] / 2 - $[w.width] / 2`p w0'
+ I All (CrystalConsole) RefreshWindow
+ I Style CrystalConsole FixedPosition
+ I All (CrystalConsole) MoveToDesk 666 
+ I All (CrystalConsole) WindowShade False
+ I Style CrystalConsole FixedSize, !Maximizable
+ I Prev (CurrentPage) Focus

DestroyFunc CC_ShowHide
AddToFunc CC_ShowHide
+ I None (CrystalConsole) CC_Init
+ I All (CrystalConsole, CurrentDesk) CC_Hide
+ I TestRc (0) CC_Show

DestroyFunc CC_Show
AddToFunc CC_Show
+ I All (CrystalConsole) WindowShade true
+ I All (CrystalConsole) MoveToDesk
+ I All (CrystalConsole) Raise 
+ I All (CrystalConsole) WindowShade false
+ I All (CrystalConsole) Focus 
 
DestroyFunc CC_Hide 
AddToFunc CC_Hide 
+ I All (CrystalConsole) WindowShade true
+ I All (CrystalConsole) MoveToDesk 666 
+ I All (CrystalConsole) WindowShade false
+ I All (CrystalConsole) RefreshWindow
+ I Prev (CurrentPage) Focus
