home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / MPW Extras ƒ / MPW / UserStartup•Extras < prev   
Encoding:
Text File  |  1991-10-05  |  4.5 KB  |  101 lines  |  [TEXT/MPS ]
  1. #    UserStartup•Extras - customized MPW Shell UserStartup File
  2. #
  3.  
  4. # add InsertFile/NewNew/NewOpen/NewTarget/Remember/Restore support
  5. Set Backup "{MPW}"Backup:
  6. Export Backup
  7. Set RememberActive 0        # initially disable Remember
  8. Export RememberActive
  9. AddMenu File '(-'                    ''
  10. AddMenu File 'GetInfo/I'            'GetInfo'
  11. AddMenu File 'New… <I/N'            'NewNew ∑∑ Dev:Null'
  12. AddMenu File 'Open… <I/O'            'NewOpen ∑∑ Dev:Null'
  13. AddMenu File 'Open Selection <I/D'    'NewOpenSelection ∑∑ Dev:Null'
  14. AddMenu File 'Close <I/W'            'NewClose ∑∑ Dev:Null'
  15. AddMenu File 'Save <I/S'            'NewSave ∑∑ Dev:Null'
  16. AddMenu File 'Insert…'                'Begin; InsertFile; End ∑∑ Dev:Null'
  17. AddMenu File 'Backup'                'Duplicate "{Active}" "{Backup}" ∑∑ Dev:Null'
  18. AddMenu File '(-'                    ''
  19. AddMenu File 'Forget…'                'Execute Forget ∑∑ Dev:Null'
  20. AddMenu File '(Remember'    ''
  21. # replacement for above if default is Remember active
  22. # AddMenu File 'Remember'            'Begin; Remember; End ∑∑ Dev:Null'
  23. AddMenu File 'Remember On'            'Execute ToggleRemember ∑∑ Dev:Null'
  24. # replacement for above if default is Remember active
  25. # AddMenu File 'Remember Off'        'Execute ToggleRemember ∑∑ Dev:Null'
  26. AddMenu File 'Restore…'                'Execute Begin; RestoreFiles -19; End ∑∑ Dev:Null'
  27.  
  28. # add Utility menu for accessing general utility scripts
  29. AddMenu Utility 'CurPath'            'InfoLine " `Directory -q`"'
  30. AddMenu Utility 'FilePos'            'FilePos'
  31. AddMenu Utility '(-' ''
  32. AddMenu Utility 'MatchIt'            'MatchIt -h "{Active}" ∑∑ Dev:Null || Alert "MatchIt:∂nNo selection or other error"'
  33. AddMenu Utility 'Check Pairs'        'Pairs'
  34. AddMenu Utility '(-' ''
  35. AddMenu Utility 'Save Position'        'Echo "Line `Position -l "{Active}"` {Active}" >> "{SavedPositions}" ≥≥ Dev:Null'
  36. AddMenu Utility 'Restore Position'    'RestorePosition'
  37. AddMenu Utility '(-' ''
  38. AddMenu Utility 'Toggle § Marker'    '"ToggleSelectionMarker"'
  39. AddMenu Utility 'Sort §' 'SortSelection'
  40. AddMenu Utility '(-' ''
  41. Set SavedPositions "{MPW}"SavedPositions    # set the file used to save the positions
  42. Delete "{SavedPositions}" ∑∑ Dev:Null        # start each session with a fresh (empty) save file
  43. Export SavedPositions
  44.  
  45. # add custom editing commands to the Edit menu
  46. Set ColumnClipboardFile "{MPW}"ColumnClipboardFile
  47. Export ColumnClipboardFile
  48. AddMenu Edit '(-' ''
  49. AddMenu Edit 'ColumnCut'                'Begin; ColumnEditTool -x; End ∑∑ Dev:Null'
  50. AddMenu Edit 'ColumnCopy'                'Begin; ColumnEditTool -c; End ∑∑ Dev:Null'
  51. AddMenu Edit 'ColumnPaste'                'Begin; ColumnEditTool -v; End ∑∑ Dev:Null'
  52. AddMenu Edit 'ColumnClear'                'Begin; ColumnEditTool -X; End ∑∑ Dev:Null'
  53. AddMenu Edit 'ColumnEdit…'                'Begin; ColumnEditTool; End ∑∑ Dev:Null'
  54. AddMenu Edit 'Show Column Clipboard'    'ToggleColumnClipboard'
  55. AddMenu Edit '(-' ''
  56. AddMenu Edit 'Shift Left <I/['            'Begin; ColumnShiftTool -l; End ∑∑ Dev:Null'
  57. AddMenu Edit 'Shift Right <I/]'            'Begin; ColumnShiftTool -r "    "; End ∑∑ Dev:Null'
  58. AddMenu Edit '(-' ''
  59. AddMenu Edit 'UpCase'                    'UpCase'
  60. AddMenu Edit 'DownCase'                    'DownCase'
  61. AddMenu Edit '(-' ''
  62. AddMenu Edit 'Comment Line'                'CommentLine'
  63.  
  64. # add the replacement find/replace commands to the Find menu
  65. Set FindStrings "{MPW}"FindStrings
  66. Set ReplaceStrings "{MPW}"ReplaceStrings
  67. Set LastFindString "{MPW}"LastFindString
  68. Set LastReplaceString "{MPW}"LastReplaceString
  69. Set FindAgainScript "{MPW}"FindAgainScript
  70. Set ReplaceAgainScript "{MPW}"ReplaceAgainScript
  71. Export FindStrings
  72. Export ReplaceStrings
  73. Export LastFindString
  74. Export LastReplaceString
  75. Export FindAgainScript
  76. Export ReplaceAgainScript
  77. AddMenu Find '(-' ''
  78. AddMenu Find 'Find <I/F'            'Begin; NewFindTool; If ({Status} == 0); Execute "{FindAgainScript}"; End; End ∑∑ Dev:Null'
  79. AddMenu Find 'Find Same <I/G'        'Execute "{FindAgainScript}" ∑∑ Dev:Null'
  80. AddMenu Find 'Replace <I/R'            'Begin; NewReplaceTool; If ({Status} == 0); Execute "{ReplaceAgainScript}"; End; End ∑∑ Dev:Null'
  81. AddMenu Find 'Replace Same <I/T'    'Execute "{ReplaceAgainScript}" ∑∑ Dev:Null'
  82.  
  83. # finally perform the additional NewOpen operations on all startup windows other than the Worksheet
  84. For i in `Windows`
  85.     If "{i}" != "{Worksheet}"                                                    # don't fiddle with the Worksheet
  86.         ReadOnlyStatus "{i}" ∑∑ Dev:Null                                        # test if this is a read-only file
  87.         If ({Status} == 0)
  88.             Set LeafName "`ParseFileName -l "{i}"`"                                # get the file's leafname
  89.             Duplicate -y "{LeafName}" "{Backup}" ∑∑ "{Worksheet}" || Beep        # create the backup file
  90.             
  91.             # Delete all the old "Remember" backup files
  92.             For i in `Begin; Files -f "{Backup}{LeafName}".[0-9]+; End ≥ Dev:Null`
  93.                 Delete "{i}"
  94.             End  # For i
  95.         End  # If {Status}
  96.     End  # If {i}
  97. End  # For i
  98. Unset i
  99. Unset LeafName
  100.  
  101. # end of UserStartup•Extras