[mirrors/Programs.git] / perl / curses / plaincurses.pl

#!/usr/bin/env perl
use Curses;

initscr;
END{endwin;}

printw("Normalni text\n");
attron(A_BOLD);
printw("Tucny text\n");
attron(A_UNDERLINE);
printw("Tucny a podtrzeny text\n");
attron(A_BLINK);
printw("Tucny, podtrzeny a blikajici text\n");
attron(A_STANDOUT);
printw("Jeste navic zvyrazneny text\n");
attroff(A_BLINK);
printw("Vypiname blikani\n");
attrset(A_BLINK | A_BOLD);
printw("Nyni je text pouze blikajici a tucny\n");

getch;
Commit	Line	Data
21c4e167 H	1	#!/usr/bin/env perl
	2	use Curses;
	3
	4	initscr;
	5	END{endwin;}
	6
	7	printw("Normalni text\n");
	8	attron(A_BOLD);
	9	printw("Tucny text\n");
	10	attron(A_UNDERLINE);
	11	printw("Tucny a podtrzeny text\n");
	12	attron(A_BLINK);
	13	printw("Tucny, podtrzeny a blikajici text\n");
	14	attron(A_STANDOUT);
	15	printw("Jeste navic zvyrazneny text\n");
	16	attroff(A_BLINK);
	17	printw("Vypiname blikani\n");
	18	attrset(A_BLINK \| A_BOLD);
	19	printw("Nyni je text pouze blikajici a tucny\n");
	20
	21	getch;