home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / MUIRexx / demos / htmltext_demo.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-18  |  2KB  |  55 lines
  1. /* */
  2.  
  3. MUIM_Notify = 0x8042c9cb
  4. MUIM_Set = 0x8042549a
  5.  
  6. MUIA_NoNotify = 0x804237f9
  7. MUIA_String_Contents = 0x80428ffd
  8.  
  9. MUIA_HTMLtext_Contents = 0x90a40001
  10. MUIA_HTMLtext_Title = 0x90a40003
  11. MUIA_HTMLtext_Path = 0x90a40004
  12. MUIA_HTMLtext_OpenURLHook = 0x90a40005
  13. MUIA_HTMLtext_URL = 0x90a40006
  14. MUIA_HTMLtext_LoadImages = 0x90a4000c
  15. MUIA_HTMLtext_Block = 0x90a4000d
  16.  
  17. /* TAG variable definitions */
  18.  
  19. MUIV_EveryTime = 0x49893131
  20. MUIV_TriggerValue = 0x49893131
  21. TRUE = 1
  22. FALSE = 0
  23.  
  24. address DEMO
  25.  
  26. window TITLE '"HTMLtext Demo"' COMMAND '"quit"' PORT DEMO
  27.     group FRAME
  28.         object ID HTML CLASS '"HTMLtext.mcc"' ATTRS,
  29.             MUIA_HTMLtext_Path '"muirexx:docs/html"',
  30.             MUIA_HTMLtext_URL '"muirexx:docs/html/main.html"'
  31.     endgroup
  32.     group HORIZ
  33.         image SPEC '"4:MUI:Images/WD/13pt/ArrowUp.mf0"' PORT INLINE COMMAND """
  34.             options results;
  35.             address DEMO;
  36.             popasl ID SURL;
  37.             getvar result;
  38.             url = result;
  39.             object ID HTML ATTRS "MUIA_NoNotify" 1 "MUIA_HTMLtext_URL" url;
  40.             popasl ID SURL CONTENT url;
  41.             """
  42.         popasl ID SURL PORT DEMO COMMAND """object ID HTML ATTRS "MUIA_NoNotify" 1 "MUIA_HTMLtext_URL" %s""" CONTENT 'muirexx:docs/html/main.html' 
  43.     endgroup
  44. endwindow
  45.  
  46. callhook ID HTML TRIG MUIA_HTMLtext_URL MUIV_EveryTime PORT INLINE COMMAND """
  47.     options results;
  48.     address DEMO;
  49.     object ID HTML ATTRS "MUIA_HTMLtext_URL";
  50.     url = import(d2c(result));
  51.     popasl ID SURL;
  52.     setvar url result;
  53.     popasl ID SURL CONTENT url;
  54.     """
  55.