Term::WinConsole - Perl extension for text based windows management.
use WinConsole; $con = WinConsole->new('HELLO',80,25,1,1,'~',1); $con->home; $con->gotoCR(1,1); $con->centerSt('This application uses WinConsole!'); $index = $con->setWindow('Login',5,5,55,5,1,1,'.'); $con->setActiveWin($index); $con->setWinColor('light red on_black'); $con->resetColor; $con->home; $con->gotoCR(1,2); $con->printSt('Hi you! what is your name ? :'); $con->fullDump; $con->readyCurs; chomp($answer = <>); $con->doCR; $index = $con->setWindow('Connected',7,7,50,6,1,1,'_'); $con->setActiveWin($index); $con->setWinColor('light green on_black'); $con->resetColor; $con->home; $con->printSt("Your access is granted\n"); $con->printSt("Glads to see you $answer\n"); $con->printSt("Have a nice day\n"); $con->flush; <>; $con->setActiveWin(1); $con->setWinTitle('Disconnected'); $con->home; $con->printSt("Good Bye $answer\n"); $con->showWindow; $con->fullDump;
This module allows you to handle windows, cursor and colors on an ANSI compliant terminal.
First of all, WinConsole uses ANSI sequences so don't expect to use it if your terminal is not ANSI/VT100 compliant.
WinConsole uses a backbuffer to build your screens. This means that all printing operations are invisible to the user until the next terminal refresh. WinConsole implements two methods for screen display. The first is a simple refresh method that just prints the backbuffer on the terminal. The second prints only differences between the terminal and the back buffer. Thanks to this feature, WinConsole allows you to greatly improve terminal applications performance by reducing the amount of data sent other the net.
WinConsole allows you to manage independent regions of text called miniwins. each miniwin has its own backbuffer so it can be moved around the screen and overlapped as you wish. they can even be resized under some restrictions.
There's always an active miniwin (miniwin 0 stands for the full screen) and all the cursor moving, color changing and text printing operations take place in that active miniwin. Thus, coordinates are relative to the active miniwin and not the entire screen (unless using the miniwin 0).
... functions used to create, move, resize, activate and delete miniwins ...
Creates a new miniwin starting at row $rowTop and column $colTop (in screen coordinates), $width characters wide and $height characters high with $title as title and char $pattern used as a default pattern. $border and $cr are just flags meaning 'draw a window border' if $border is true, and manage automatic carriage return if $cr is true.
This function returns the new miniwin index.
Deletes the miniwin number $winId. Beware, this function just frees the memory used by the miniwin. It doesn't suppress this entry in the miniwin array.
Sets miniwin number $winId as the current active miniwin.
Sets the value of the 'border' flag for the active miniwin.
Sets the value of the 'automatic carriage return' flag for the active miniwin.
Sets $pattern as the default char used as background pattern in the active miniwin.
Sets $title as the new miniwin title for the active miniwin
Sets $col as the new starting column for the active miniwin.
Sets $row as the new starting row for the active miniwin.
Sets $width as the new width for the active miniwin.(The new value can't be greater than the creation size)
Sets $height as the new height for the active miniwin.(The new value can't be greater than the creation size)
Returns the miniwin index with $title as title
... functions used to send data to the terminal ...
Every drawing operations are made in a local miniwin backbuffer, so are they invisible to the user until the next refresh. When you want to refresh the terminal, all the miniwins' backbuffers are melt into a unique fullscreen backbuffer. This fullscreen backbuffer is then copied into a fullscreen frontbuffer (its purpose is to store a mirror of terminal's content into memory).
There are two methods to send the frontbuffer to the terminal :
- fullDump : displays every character on the terminal using correct colors and attributes. (it needs less computations but sends more data to the terminal)
- flush : makes a diff between the front and the back buffer and sends only differences (more computations needed but less data sent to the terminal)
return a fullscreen attribute and a fullscreen text backbuffers using all the miniwins' backbuffer content.
(See above for description) $win is optional. if defined, the refresh is limited to the miniwin $win. if ommited full screen will be refreshed.
In an array context : return data to be sent as a string.
In a non array context : send data to the terminal (i.e. print).
...functions used to set or retrieve the cursor position...
(these functions target the active miniwin's backbuffer. It means that you won't see their effect until the next terminal refresh.)
Sets the cursor position on column $col and row $row of the active miniwin.A negative value takes the opposite edge as origin (-1,-1 means the last row and the last column)
Returns the cursor current column and row position relative to the active miniwin.
Returns the cursor current column and row position relative to the entire screen.
Sets the cursor position to the left side of the active miniwin, one row below. ("do Carriage return")
Prepares the terminal for direct character display. Useful if you want to retrieve user input with the correct active win colors and char attributes. Basically it sends ESC[$row;$colH and some ESC[....m to the terminal.
...functions used to set the current and window color...
To set a character color and attribute you have to define a color string using a combination of the following keywords :
Background colors : on_black on_red on_green on_yellow on_blue on_magenta on_cyan on_white
Foreground colors : black red green yellow blue magenta cyan white
Attributes : reset dark underscore clear light underline blink reverse hidden
for example : to define a light blue blinking text on a white background you will use the following string "light blue blink on_white".
Set a new default color for the active window. This default color is especially used when calling the home function.
Set a new current color for the active window. This color is used when printing text.
Set the default window color as the new current color.
...functions used to draw text and clear screen...
Erases the active miniwin content replacing every character by the miniwin's pattern and draws a border around the miniwin if its border flag is set to true.
deletes the char at column $col and row $row in current active miniwin coordinates.
prints the char $char at column $col and row $row in current active miniwin coordinates.
prints the char $char at column $col and row $row in current active miniwin coordinates and moves the cursor one column right.
prints the string $text at the current cursor position in current active miniwin coordinates.
prints the string $text centered at the current cursor row in the active miniwin.
...functions used to paste or move text area...
The direction parameter is one of the following keywords : 'up' or 'u', 'down' or 'd', 'left' or 'l', 'right' or 'r'.
Scrolls the active miniwin's content $dist steps in the $dir direction.
Paste the content of the supplied arrays on the $dir border. $txtref and $attref are arrays reference. txtref contains the characters to be printed. attref is optionnal and contains the attributes to be associated with each character of txtref.
... In order to manage miniwins overlapping, a stack is used to store miniwins depth level. I recommend you to only use the showWindow and hideWindow functions...
adds window with ref $idx on top of the stack
supress window $idx from the stack
moves window $idx on top of the stack
returns the offset of window $idx in the stack
sets the active miniwin visible
sets the active miniwin hidden
...the stat counter is incremented each time a character is printed by a display function (currently fullDump and flush). This feature is given for optimisation purposes...
reset the stat counter.
return the stat counter value.
These characters are stored in a hash %borderChr. the keys are : 'ul' for upper left corner 'ur' for upper right corner 'bl' for bottom left corner 'br' for bottom right corner 'hrz' for horizontal border 'vrt' for vertival border
Just change the value of $MAXWIN
You can set $USECOLOR to zero.
None by default.
Jean-Michel VILOMET, jmichel@faeryscape.com
Term::ANSIColor - Color screen output using ANSI escape sequences by Russ Allbery
Term::ANSIScreen - Terminal control using ANSI escape sequences by Autrijus Tang
ANSI sequence call via AUTOLOAD with placeholders borrowed from Term::ANSIScreen.
Copyright 2002 by Jean-Michel VILOMET <jmichel@faeryscape.com>
All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Term::WinConsole, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Term::WinConsole
CPAN shell
perl -MCPAN -e shell install Term::WinConsole
For more information on module installation, please visit the detailed CPAN module installation guide.