19 lines
422 B
Rexx
Executable File
19 lines
422 B
Rexx
Executable File
#!/usr/bin/env rexx
|
|
/* test_rxfuncadd.rex - Test RxFuncAdd with new orxncurses */
|
|
|
|
do
|
|
/* Register functions */
|
|
call RxFuncAdd "OrxCurInitscr", "orxncurses", "OrxCurInitscr"
|
|
call RxFuncAdd "OrxCurEndwin", "orxncurses", "OrxCurEndwin"
|
|
|
|
/* Test initialization */
|
|
call OrxCurInitscr
|
|
say "Initscr worked!"
|
|
call OrxCurEndwin
|
|
end
|
|
|
|
catch error
|
|
say "Error:" error~message
|
|
call OrxCurEndwin
|
|
exit
|