REXX Tips & Tricks, Version 2.80


Inf-HTML [About][Toc][Index] 0.9b (c) 1995 Peter Childs


Sample program to create a WebExplorer_Url object





 
/* TEST202.CMD                                                        */
/* Source: Message from Dick Goran in a public CompuServe forum       */
/*         (see EMail Addresses)                                      */

/*                       added by /bs                           v2.00 */
   call rxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
   call SysLoadFuncs
/*                       added by /bs                           v2.00 */

   dll_name   = "WEBEXURL"
   class_name = "WebExplorer_Url"
   location   = "<WP_DESKTOP>"
   title      = "C F S Nevada's^Home Page"
   setup      = "LOCATOR=http://www.cfsrexx.com;"

   call SysRegisterObjectClass class_name, dll_name
   if RESULT \= 1 then                                       /* v2.00 */
   do
     say "Unable to register class" class_name
     exit
   end

   call SysCreateObject class_name, title, location, setup, "U"
   if RESULT \= 1 then                                       /* v2.00 */
   do
     say "Unable to create object for" title
     exit
   end

  

Inf-HTML End Run - Successful