home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / S / HideButtons.awebrx < prev    next >
Text File  |  2000-07-04  |  1KB  |  59 lines
  1. /*
  2.     $VER: HideButtons.awebrx 1.0 (3.3.00) (c) Neil Bothwick, Wirenet
  3.     Hides the user and navigation buttons
  4. */
  5.  
  6. /* ;;; Initialise */
  7. options results
  8.  
  9. AWebPort = address()
  10. if ~abbrev(AWebPort,'AWEB.') then do
  11.     PortList = ' 'show('P')
  12.     do until pos(' AWEB.',PortList) > 0
  13.         call delay(100)
  14.         PortList = ' 'show('P')
  15.         end
  16.  
  17.     parse var PortList . ' AWEB.' PortNum ' ' .
  18.     AWebPort = 'AWEB.'PortNum
  19.     address(AWebPort)
  20.     end
  21. ;;;     
  22. /* ;;;Hide buttons if showing */
  23. 'getcfg showbuttons'
  24. if result = 1 then do
  25.     'setcfg showbuttons 0'
  26.     SAVE = 'YES'
  27.     end
  28. address command 'waitforport' AWebPort
  29. 'getcfg navigation'
  30. if result = 1 then do
  31.     'setcfg navigation 0'
  32.     SAVE = 'YES'
  33.     end
  34.  
  35. ;;;
  36. /* ;;; Save changes */
  37. if SAVE = 'YES' then do
  38.     if exists('ENVARC:AWeb3') then do
  39.         if ~exists('ENVARC:AWeb3/Amigactive') then address command 'makedir ENVARC:AWeb3/Amigactive'
  40.         'savesettings ENVARC:AWeb3/Amigactive'
  41.         end
  42.     if exists('ENVARC:AWeb3DEMO') then do
  43.         if ~exists('ENVARC:AWeb3DEMO/Amigactive') then address command 'makedir ENVARC:AWeb3DEMO/Amigactive'
  44.         call makedir('ENVARC:AWeb3DEMO/Amigactive')
  45.         'savesettings ENVARC:AWeb3DEMO/Amigactive'
  46.         end
  47.     end
  48. ;;;
  49. exit
  50.  
  51. /* ;;; Exit with a message */
  52. ExitMsg:
  53.     parse arg msg
  54.     'request title "AACD QuickSearch" body "'msg'" gadgets "OK"'
  55.     exit
  56.     return
  57. ;;;
  58.  
  59.