home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 14 / AACD14.ISO / CDTools / S / ShowButtons.awebrx < prev    next >
Text File  |  2000-03-28  |  673b  |  36 lines
  1. /*
  2.     $VER: HideButtons.awebrx 1.1 (28.3.00) (c) Neil Bothwick, Wirenet
  3.     Hides the user and navigation buttons
  4. */
  5.  
  6. /* ;;; Initialise */
  7. options results
  8. AWebPort = address()
  9. if ~abbrev(AWebPort,'AWEB.') then do
  10.     do i = 1 to 25
  11.         if show('P','AWEB.'i) then do
  12.             AWebPort = 'AWEB.'i
  13.             leave
  14.             end
  15.         end
  16.     if ~abbrev(AWebPort,'AWEB.') then exit
  17.     address(AWebPort)
  18.     end
  19. ;;;     
  20. /* ;;; Show buttons if hidden */
  21. 'getcfg showbuttons'
  22. if result = 0 then 'setcfg showbuttons 1'
  23. 'getcfg navigation'
  24. if result = 0 then 'setcfg navigation 1'
  25. exit
  26. ;;;
  27.  
  28. /* ;;; Exit with a message */
  29. ExitMsg:
  30.     parse arg msg
  31.     'request title "AACD QuickSearch" body "'msg'" gadgets "OK"'
  32.     exit
  33.     return
  34. ;;;
  35.  
  36.