20 lines
379 B
Rexx
Executable File
20 lines
379 B
Rexx
Executable File
#!/usr/bin/env rexx
|
|
/* probe_orxncurses.rex - Test the orxncurses library API */
|
|
|
|
/* Main program */
|
|
do
|
|
/* Try version check from docs */
|
|
msg = "Orxncurses version: " || .window~orxncurses_version()
|
|
|
|
/* Test basic initialization */
|
|
scr = .window~new()
|
|
scr~addstr(msg)
|
|
scr~refresh()
|
|
scr~getch()
|
|
scr~endwin()
|
|
end
|
|
|
|
exit
|
|
|
|
::requires "ncurses.cls"
|