home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Text Processing / Alpha 5.63 / sample / sample.userStartup.tcl < prev   
Encoding:
Text File  |  1993-11-22  |  1.8 KB  |  51 lines  |  [TEXT/ALFA]
  1. #================================================================================
  2. # This is my current 'userStartup.tcl'. Use this as an example of what can
  3. # be done. Do not use any of this directly, as the your files are doubtless in
  4. # different locations than mine.
  5. #================================================================================
  6.  
  7.  
  8.  
  9. #================================================================================
  10. # The following is a script that creates a menu for all the .tex files in my 
  11. # thesis directory, minus the dirname and .tex extension.
  12. #
  13. set THESIS "Internal:Textures:thesis"
  14. proc thesisMenuProc {menu item} {
  15.     global THESIS
  16.     edit -r -m $THESIS:$item.tex
  17. }
  18.  
  19. foreach f [glob $THESIS:*.tex] {
  20.     lappend files [file rootname [file tail $f]]
  21. }
  22. menu -n Thesis -m -p thesisMenuProc $files
  23. unset files
  24.  
  25. #================================================================================
  26. # Redefinition of 'latex' from latex.tcl. It sends an additional open event to 
  27. # Textures. 
  28. proc latex {} {
  29.     global latexPath
  30.     set sig ""
  31.     catch {string trim [lindex [getfinfo $latexPath] 1] '} sig
  32.     set name [checkRunning latex $sig latexPath]
  33.     if {![string length $name]} return
  34.     switchTo $name
  35.     catch {sendOpenEvent -n $name [lindex [winNames -f] 0]}
  36. }
  37.  
  38. #================================================================================
  39.  
  40. set backup 1
  41. if {[file exists "Internal:Development:Alpha"]} {
  42.     set fileSets(Edit) [glob -t TEXT "Internal:Development:Alpha:EditSource:*.c"]
  43.     addMenuItem -m fileSets "Edit"
  44. }
  45. set thinkName "Internal:Development:Symantec C++ for Macintosh:THINK Project Manager"
  46. set excaliburPath "Internal:Textures:Excalibur1.4.1:Excalibur 1.4.1"
  47. set latexPath "Internal:Textures:Textures™ 1.6.2a1"
  48. set toolserverPath "Internal:Utils:ToolServer"
  49. set referencePath "Internal:Buckaroo:Buckaroo 2.0b1"
  50.  
  51.