Re: small ncurses demo

rick,

cool little key label program.

"... gpc-libplot will complement nicely. ..." What's the gpc- naming convention? Are you using gpc-libplot as the file name (e.g. gpc-libplot.pas) for the source interface? Or are you using it for the uses name (e.g. "uses gpc-libplot")?

Willett

On 5 May 2005, at 23:13, Rick Engebretson wrote:

Here is an example of the gpc-ncurses "software label key" terminal display : =======================================================

...

program slk ;

uses ncurses ;

var label1, label2, label3, label4, label5, label6, label7, label8 : CString ; n : int32 ;

begin n := slk_init(1); stdscr := initscr ; n := start_color ;

label1 := 'one' ;
label2 := 'two' ;
label3 := 'three' ;
label4 := 'four' ;
label5 := 'five' ;
label6 := 'six' ;
label7 := 'seven' ;
label8 := 'eight' ;

n := slk_set(1, label1, 1);
n := slk_set(2, label2, 1);
n := slk_set(3, label3, 1);
n := slk_set(4, label4, 1);
n := slk_set(5, label5, 1);
n := slk_set(6, label6, 1);
n := slk_set(7, label7, 1);
n := slk_set(8, label8, 1);

n := slk_refresh ;


n := init_pair (1, COLOR_RED, COLOR_BLUE ) ;
n := attron ( COLOR_PAIR(1)) ;

n := getch ;

n := endwin ;

end.

It especially looks nice on a SuSE 8.1 xterm.

If the __p* name conflict gets resolved, gpc-libplot will complement nicely.