15 lines
301 B
Rexx
Executable File
15 lines
301 B
Rexx
Executable File
#!/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
|