home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Utilities / MPW Extras / Scripts / ToggleColumnClipboard < prev    next >
Encoding:
Text File  |  1991-07-29  |  647 b   |  22 lines  |  [TEXT/MPS ]
  1. # ToggleColumnClipboard - script to open or close the column clipboard window
  2.  
  3. # test if the window is already open
  4. Set IsOpen 0                                        #initialize
  5. For i In `Windows`
  6.     If ("{i}" == "{ColumnClipboardFile}")
  7.         Set IsOpen 1                                #signal already open
  8.         Break
  9.     End  # If
  10. End  # For i
  11.  
  12. If ({IsOpen} == 1)
  13.     # file is open - so close it
  14.     Close -y "{ColumnClipboardFile}" ∑∑ Dev:Null
  15.     MenuTextTool -s 2 25 "Show Column Clipboard"    # change menu item text
  16. Else
  17.     # file is closed - so open it
  18.     Open "{ColumnClipboardFile}" ∑∑ Dev:Null
  19.     MenuTextTool -s 2 25 "Hide Column Clipboard"    # change menu item text
  20. End  # If {IsOpen}
  21.  
  22. # end of ToggleColumnClipboard