home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Programming / Programming Utilities / MPW Extras ƒ / Scripts / ToggleRemember < prev    next >
Encoding:
Text File  |  1991-07-29  |  650 b   |  16 lines  |  [TEXT/ttxt]
  1. # ToggleRemember - script to toggle the Remember tool on or off
  2.  
  3. If ({RememberActive} == 1)
  4.     # Remember is active - so turn it off
  5.     AddMenu File '(Remember' ''                                    # disable the Remember menu item
  6.     MenuTextTool -s 1 25 "Remember On"                            # change menu item text
  7.     Set RememberActive 0                                        # set the environment variable
  8. Else
  9.     # Remember is inactive - so turn it on
  10.     AddMenu File 'Remember' 'Begin; Remember; End ∑∑ Dev:Null'    # re-enable the Remember menu item
  11.     MenuTextTool -s 1 25 "Remember Off"                            # change menu item text
  12.     Set RememberActive 1                                        # set the environment variable
  13. End  # If {RememberActive}
  14.  
  15. # end of ToggleRemember
  16.