Commit | Line | Data |
---|---|---|
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; |