barvy v kurzach

[Rostislav Matl]

Pokousim se v Curses udelat program, ktery ve smicce ruznymi barvami
vypisuje na ruzna mista obrazovky text. Problem je v tom, ze jedina
barva, kterou uvidim na vystupu je ta, ktera se prvni pouzija, ostatni
je sproste cernobile.
uvadim zjednosduseni priklad:

forech $text (@texts)
{
if ($ma_to_byt_cervene)
  {
    move($y,$x);
    init_pair(2, COLOR_BLACK, COLOR_RED);
    attron(COLOR_PAIR(2));
    printw($text);
    attrset(COLOR_PAIR(0));
  }

if ($ma_t0_byt_zlute)
  {
    move($y,$x);
    init_pair(1, COLOR_YELLOW, COLOR_BLACK);
    attron(COLOR_PAIR(1));
    printw($text);
    attrset(COLOR_PAIR(0));
  }
}

Co delam spatne ?

+-----------------------------------------------------------------------------+
|  ROSTISLAV MATL, student of Masaryk University - Faculty of Informatics     |
|  e-mail: xmatl na fi.muni.cz      WWW: http://www.fi.muni.cz/~xmatl/index.html | 
|  ICQ#: 17058749                                                             |
+-----------------------------------------------------------------------------+