#!/usr/bin/env rexx
/* test_50cls.rex */

scr = .window~new()
scr~start_color()
scr~init_pair(1, scr~COLOR_WHITE, scr~COLOR_BLUE)
msg = " OrxNcurses Version: "||.window~orxncurses_version()
scr~cbreak
scr~noecho
scr~box('|'~c2d(), '-'~c2d())
scr~beep()
win = scr~subwin(10, 40, 5, 10)
win~box(0, 0)
win~refresh
win~move(2,2)
win~insstr(msg)
/* win~insch(msg)*/
/* win~addstr(msg)*/
scr~getch
scr~endwin
exit
::requires "ncurses.cls"
