15 lines
301 B
Rexx
15 lines
301 B
Rexx
|
#!/usr/bin/env rexx
|
||
|
|
/* test_rexxgetpackage.rex */
|
||
|
|
do
|
||
|
|
pkg = RexxGetPackage("orxncurses")
|
||
|
|
if pkg \= .nil then say "Package: " pkg
|
||
|
|
else say "No package returned"
|
||
|
|
call OrxCurInitscr
|
||
|
|
call OrxCurEndwin
|
||
|
|
end
|
||
|
|
catch error
|
||
|
|
say "Error:" error~message
|
||
|
|
exit
|
||
|
|
|
||
|
|
::requires "orxncurses" LIBRARY
|