# FvwmMiniConsole

# Variables
SetEnv FvwmMiniConsole-Font "-misc-fixed-medium-r-*-*-13-*-*-*"

# Usage
#	FvwmMiniConsole

DestroyFunc FvwmMiniConsole
AddToFunc FvwmMiniConsole
+ I None (FvwmMiniConsoleNeedsUniqueName) FvwmMiniConsole_Init
+ I All (FvwmMiniConsoleNeedsUniqueName, CurrentDesk, Focused) FvwmMiniConsole_Hide
+ I TestRc (0) FvwmMiniConsole_Show

DestroyFunc FvwmMiniConsole_Init
AddToFunc FvwmMiniConsole_Init
+ I Style FvwmMiniConsoleNeedsUniqueName !Title, !Borders, SkipMapping,  WindowListSkip, \
    VariableSize, VariablePosition, NoIcon, StaysOnTop, !Iconifiable, \
    StickyAcrossPages, !Maximizable, NoHandles
+ I Style FvwmMiniConsoleNeedsUniqueName WindowShadeSteps 16
+ I Style FvwmMiniConsoleNeedsUniqueName WindowShadeShrinks
+ I Style FvwmMiniConsoleNeedsUniqueName TitleAtBottom
+ I Module FvwmConsole -terminal aterm -geometry 80x3+0-0 +tr -fn $[FvwmMiniConsole-Font] -title FvwmMiniConsoleNeedsUniqueName
+ I Wait FvwmMiniConsoleNeedsUniqueName
+ I Style FvwmMiniConsoleNeedsUniqueName FixedPosition
+ I All (FvwmMiniConsoleNeedsUniqueName) MoveToDesk 666 
+ I Prev (CurrentPage) Focus

DestroyFunc FvwmMiniConsole_Show
AddToFunc FvwmMiniConsole_Show
+ I All (FvwmMiniConsoleNeedsUniqueName) MoveToDesk
+ I All (FvwmMiniConsoleNeedsUniqueName) WindowShade false
+ I All (FvwmMiniConsoleNeedsUniqueName) Focus
 
DestroyFunc FvwmMiniConsole_Hide
AddToFunc FvwmMiniConsole_Hide
+ I All (FvwmMiniConsoleNeedsUniqueName) WindowShade true South
+ I All (FvwmMiniConsoleNeedsUniqueName) MoveToDesk 666 
+ I All (FvwmMiniConsoleNeedsUniqueName) WindowShade false South
+ I Prev (CurrentPage, AcceptsFocus, Visible) Focus


