home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / util / editor / alpha513.cpt / AlphaBits.tcl < prev    next >
Text File  |  1992-10-24  |  7KB  |  339 lines
  1. # Alpha 5.0 Init File
  2.  
  3. # Comment this out if you are using an international keyboard!
  4. setVar noRemapOption 0
  5.  
  6. # Examples of using C-x and C-c combinations for you emacs freaks.
  7. bind 'x' <z>     prefixChar
  8. bind 'f' <zX>    findFile
  9. bind 'l' <X>    currentPosition
  10. bind '(' <sX>    startKeyboardMacro
  11. bind ')' <Xs>    endKeyboardMacro
  12. bind 'e' <X>    executeKeyboardMacro
  13.  
  14. bind 'c' <z>     prefixChar
  15. bind 'f' <Cz>    forwardWord
  16.  
  17. bind 'x' <e>    execute "Text"
  18. bind 'x' <e>    execute "Tex"
  19. bind 'x' <e>    execute "C"
  20. bind 'w' <zs>    rectMarkHilite
  21. bind '\r'        carriageReturn
  22. bind '\t'         tclFileCompletion "Csh"
  23. ascii 0x1b        startEscape
  24. ascii 0x8        backSpace
  25. bind "'    '" <z>    indentLine
  26. bind 's' <zoc>    spacesToTabs
  27. bind 't' <zoc>    tabsToSpaces
  28. bind 'a' <zo>    insertAscii
  29. bind 'a' <zos>    getAscii
  30. # bind 'l' <xo>    currentPosition
  31. bind 'f' <cz>     freeMem
  32. # bind 'd' <zx>    deleteSelection
  33. # bind 'l' <x>     currentPosition
  34. bind 'r' <e>     repeatSearchBackward
  35. bind 's' <e>     repeatSearchForward
  36. bind '\ ' <e>    oneSpace
  37. bind 'j' <e>    fillRegion
  38. bind 'p' <e>    fillParagraph
  39. bind 'b' <e>     backwardWord
  40. bind 'd' <e>     deleteWord
  41. bind 'f' <e>     forwardWord
  42. bind 'g' <e>     gotoLine
  43. bind 'h' <e>     backwardDeleteWord
  44. bind '<' <se>     beginningOfBuffer
  45. bind '>' <se>     endOfBuffer
  46. bind 't' <e>     findTag
  47. bind 'k' <e>     keyCode
  48. bind 'l' <e>    downcaseWord
  49. bind 'u' <e>    upcaseWord
  50. bind 'c' <e>    capitalizeWord
  51.  
  52. bind Left  backwardChar
  53. bind Left <z> beginningOfLine
  54. bind Left <s> backwardCharSelect
  55. bind Left <sz> beginningLineSelect
  56. bind Left <c> scrollLeftCol
  57.  
  58. bind Right  forwardChar
  59. bind Right <z> endOfLine
  60. bind Right <s> forwardCharSelect
  61. bind Right <sz> endLineSelect
  62. bind Right <c> scrollRightCol
  63.  
  64. bind Up  previousLine
  65. bind Up <s> prevLineSelect
  66. bind Up <z> beginningOfBuffer
  67. bind Up <sz> beginningBufferSelect
  68. bind Up <c> scrollUpLine
  69.  
  70. bind Down  nextLine
  71. bind Down <z> endOfBuffer
  72. bind Down <s> nextLineSelect
  73. bind Down <sz> endBufferSelect
  74. bind Down <c> scrollDownLine
  75.  
  76. # Keypad definitions
  77. bind KPad4  backwardWord                 
  78. bind KPad4   <c> backwardDeleteWord 
  79. bind KPad6   forwardWord                 
  80. bind KPad6   <c> deleteWord 
  81. bind Clear   insertToTop                 
  82. # Never bind Keypad /
  83. # Never bind Keypad *
  84. bind KPad0   pageBack                     
  85. bind Enter   pageForward
  86. bind KPad3   repeatSearchForward         
  87. bind KPad1   repeatSearchBackward     
  88. bind KPad.   endOfBuffer                 
  89. bind KPad5   exchangePointAndMark     
  90. bind KPad7   backwardDeleteWord         
  91. bind KPad9   deleteWord                 
  92. bind 's' <z>     isearch            
  93. bind 'r' <z>     rsearch            
  94. bind 'a' <z>     beginningOfLine    
  95. bind 'b' <z>     backwardChar        
  96. bind 'd' <z>     deleteChar        
  97. bind 'f' <z>     forwardChar        
  98. bind 'e' <z>     endOfLine        
  99. bind 'g' <z>     abortEm            
  100. bind 'k' <z>     killLine            
  101. bind 'l' <z>    centerRedraw
  102. bind 't' <z>     insertToTop        
  103. bind 'p' <z>     previousLine        
  104. bind 'n' <z>     nextLine            
  105. bind 'o' <z>     openLine            
  106. bind 'u' <z>     iterationCount    
  107. bind 'v' <z>     pageForward        
  108. bind 'z' <z>     pageBack            
  109. bind 'v' <e>     pageBack
  110. bind 'w' <z>     cut            
  111. bind 'w' <e>     copy
  112. bind "' '" <z>     setMark            
  113. bind 'y' <z>     yank                
  114.  
  115.  
  116. # Alpha variable and flag definitions.
  117. setVar optionIsMeta 1
  118. setVar bwWindows 0
  119. setVar electricSemi 1
  120. setVar elecLBrace 1
  121. setVar elecRBrace 1
  122. setVar fontSize 9
  123. setVar defaultFont "monaco"
  124. setVar defWidth 506
  125. setVar defHeight 435
  126. setVar fullScreen 1
  127. setVar fillColumn 75
  128. setVar paraColumn 180
  129. setVar posActivate 0
  130. setVar startWithNew 2
  131.  
  132. setVar backup 0
  133. setVar backupFolder 1
  134. setVar backupFolderName "$HOME:back"
  135.  
  136. setVar currFileSet "Edit"
  137.  
  138. set Think "External:C:THINK C 5.0 Folder"
  139. set includePath { {$Think:Mac #includes:Apple #includes:} {$Think:C Libraries:headers:} {:} }
  140. setVar funcExpr {^[^ \t\(#\r/@].*\(.*\)?$}
  141. set defFuncExpr {^[^ \t\(#\r/@].*\(.*\)$}
  142. setVar funcExpr $defFuncExpr
  143. setVar tagFile "$HOME:cTAGS"
  144. setVar markLabel "Sections"
  145.  
  146. # Hooks for file suffixs. Executed on opens and activates.
  147. # suffixHook ".tex" setTexMode
  148. # suffixHook ".c" setCMode
  149.  
  150. # Color support
  151. # colors -20481 2703 2703 -632 -588 -11060
  152. colors 0 0 0 -588 -818 -1507
  153.  
  154. bind F1     setMark                     
  155. bind F2     cut                         
  156. bind F3     copy                         
  157. bind F4     yank                         
  158. bind F5     nextWindow
  159. bind F6        whileTemplate
  160. bind F7        forTemplate
  161. bind F8     forwardTemplate
  162. bind F9     pushMark
  163. bind F10    popMark
  164. bind F11    shrinkHigh
  165. bind F12    shrinkLow
  166. bind F13    startKeyboardMacro         
  167. bind F14    endKeyboardMacro             
  168. bind F15    executeKeyboardMacro         
  169.  
  170. bind Del    deleteChar                 
  171. bind Help   alphaHelp                     
  172. bind Home   beginningOfBuffer             
  173. bind End    endOfBuffer                 
  174. bind Pgup   pageBack                     
  175. bind Pgdn   pageForward                  
  176.  
  177. # My menus
  178.  
  179.  
  180. menu    -n Utilities {
  181.         "longMenus"
  182.         "FLAGMENU"
  183.         "VARMENU"
  184.         {menu -n fileUtils {
  185.             "insertFile"
  186.             "(-"
  187.             "fileRemove"
  188.             "fileInfo/="}}
  189.         "FSETMENU"
  190.         {menu -n Clips {
  191.             "copyNamedClipboard"
  192.             "cutNamedClipboard"
  193.             "pasteNamedClipboard"}}
  194.         "(-"
  195.         {menu -n arrange {
  196.             "vertically^1"
  197.             "horizontally^2"
  198.             "tiled^3"
  199.             "overlay^4"}}
  200.         "zoom//"}
  201.  
  202. menu    -n "Utils" {
  203.         "shortMenus"
  204.         "FLAGMENU"
  205.         "VARMENU"
  206.         {menu -n fileUtils {
  207.             "insertFile"
  208.             "(-"
  209.             "fileRemove"
  210.             "fileInfo/="}}
  211.         "(-"
  212.         "FSETMENU"
  213.         "addFileset"
  214.         "(-"
  215.         "pushMark"
  216.         "popMark"
  217.         "(-"
  218.         "execute/'"
  219.         "(-"
  220.         "startKeyboardMacro"
  221.         "endKeyboardMacro"
  222.         "executeKeyboardMacro"
  223.         "dumpMacro"}
  224.  
  225. proc switchToThinkC {} {
  226.     switchTo {THINK C 5.0}
  227. }
  228.  
  229. fileMenu -n Help -d "$HOME:Help:" -r -m {
  230.         "Tcl"
  231.         "Alpha Tcl Extensions"
  232.         "Shells"
  233.         "Regular Expressions"
  234.         "Debugging"
  235.         "LaTeX Keys"
  236. }
  237.  
  238. menu    -n Misc {
  239.         "listBindings"
  240.         "describeBinding"
  241.         "insertPathName"
  242.         "setFontsTabs"
  243.         "(-"
  244.         "findTag"
  245.         "createTagFile"
  246.         "(-"
  247.         "copyNamedClipboard"
  248.         "cutNamedClipboard"
  249.         "pasteNamedClipboard"
  250.         "(-"
  251.         {menu -n asciiEtc {
  252.             "keyCode"
  253.             "keyAscii"
  254.             "getAscii"
  255.             "insertAscii"}}
  256.         {menu -n Modes {
  257.             "/,setCMode"
  258.             "setFortranMode"
  259.             "setShellMode"
  260.             "setTclMode"
  261.             "setTexMode"
  262.             "/.setTextMode"}}
  263.         {menu -n transfer {
  264.             "/-switchToThinkC"
  265.             "switchToMpw"}}
  266.         "/;mpwShell"
  267. }
  268.         
  269. set pasteItemNum 11
  270. hiliteMenuItem Misc $pasteItemNum off
  271.  
  272. menu    -n Convert {
  273.         "fillRegion"
  274.         "fillParagraph"
  275.         "wrapRegion"
  276.         "wrapParagraph"
  277.         "sortLines"
  278.         "(-"
  279.         "zapInvisibles"
  280.         "tabsToSpaces"
  281.         "spacesToTabs"
  282.         "(-"
  283.         {menu    -n Strings {
  284.             "setPrefix"
  285.             "setSuffix"
  286.             "insertPrefix"
  287.             "insertSuffix"
  288.             "removePrefix"
  289.             "removeSuffix"}}
  290.         {menu     -n Colors {
  291.             "foreColor"
  292.             "backColor"
  293.             "dumpColors"}}
  294.         "(-"
  295.         "ParagraphToLine"
  296.         "LineToParagraph"}
  297.  
  298. menu -n Wins {
  299.         {menu -n arrange {
  300.             "vertically^1"
  301.             "horizontally^2"
  302.             "tiled^3"
  303.             "overlay^4"}}
  304.         "//zoom"
  305.         "nextWindow"
  306.         "closeAll"
  307.         "WINDOWMENU"
  308.         "saveAll"
  309.         "(-"
  310. }
  311.  
  312. insertMenu "Utils"
  313. insertMenu "Misc"
  314. hiliteMenuItem Misc $pasteItemNum off
  315. insertMenu "Convert"
  316. insertMenu "Help"
  317. insertMenu "Wins"
  318.  
  319. proc shortMenus {} {
  320.     removeMenu "Utils"
  321.     removeMenu "Misc"
  322.     removeMenu "Convert"
  323.     removeMenu "Wins"
  324.     insertMenu "Utilities"
  325. }
  326.  
  327. proc longMenus {} {
  328.     removeMenu "Utilities"
  329.     insertMenu "Utils"
  330.     insertMenu "Misc"
  331.     insertMenu "Convert"
  332.     insertMenu "Wins"
  333. }
  334.  
  335.  
  336.  
  337. # Necessary procs. 
  338. source "$HOME:procs.tcl"
  339.