home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume17 / tcl-editor / part02 / tclLib / ptsetup.tcl < prev    next >
Encoding:
Text File  |  1992-03-18  |  1.1 KB  |  54 lines
  1. #
  2. # Setup some variables used in the tcl code
  3. #
  4. # CHANGE THIS:
  5. set HelpDirectory help
  6. #
  7. # these work well for an 1152x900 screen
  8. #
  9. set location1 "502x410+0+0"
  10. set location2 "502x390-200+415"
  11. set location3 "502x390-0+0"
  12. set location4 "502x390+0+435"
  13. set browserBig 490x465-0+0
  14. set browser1 135x380+510+0
  15. set browser2 135x380+651+0
  16. set browser3 135x380+787+0
  17. Option set textGeometry            $location1
  18. Option set browserGeometry        $browserBig
  19. Option set thinBrowserGeometry        $browser1
  20. #
  21. # Set Point options
  22. #
  23. Option set wrapAroundSearches        True
  24. #
  25. # Setup some variables used in the tcl code
  26. #
  27. set wcounter 0
  28. #
  29. # monochrome screen adjustments
  30. #
  31. set raised "raised"
  32. #set raised "flat"
  33. set sunken "sunken"
  34. #set sunken "flat"
  35. set bd 1
  36. #set bd 2
  37. #
  38. # set up autoloading
  39. #
  40. global PointTclLibrary
  41. source $PointTclLibrary/init.tcl
  42. set auto_path "$PointTclLibrary"
  43. #
  44. # define menus
  45. #
  46. source $PointTclLibrary/browserMenu.tcl
  47. source $PointTclLibrary/cmd.tcl
  48. source $PointTclLibrary/macros.tcl
  49. source $PointTclLibrary/makeBoxes.tcl
  50. source $PointTclLibrary/makeMenus.tcl
  51. source $PointTclLibrary/subs.tcl
  52. source $PointTclLibrary/textMenu.tcl
  53.  
  54.