home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_tkcvs.idb / usr / freeware / lib / tkcvs / tkcvs_def.tcl.z / tkcvs_def.tcl
Encoding:
Text File  |  1999-04-16  |  7.8 KB  |  239 lines
  1. #
  2. # $Id: tkcvs_def.tcl,v 1.15 1995/11/13 05:16:56 davide Exp $
  3. #
  4. # tkCVS defaults file.
  5. #
  6. # This file is read by tkCVS on startup.  It will be installed
  7. # automatically by the "configure" script.
  8. #
  9. # Defaults in the .tkcvs file in the user's home directory will
  10. # over-ride this file.
  11. #
  12.  
  13. # Print setup.
  14.  
  15. #set cvscfg(papersize) "A4"
  16. set cvscfg(papersize) "8x11"
  17. set cvscfg(pointsize) 9
  18. set cvscfg(headingsize) 14
  19. set cvscfg(subheadingsize) 12
  20.  
  21. # Colours.  "Colors" that is if you are a yanqui who can't spell.
  22. # Added support for monochrome machines. -sj
  23. if { [winfo depth .] == 1 } {
  24.  
  25.     set cvscfg(glb_background)      "white"
  26.     set cvscfg(glb_highlight)       "black"
  27.     set cvscfg(bt_lookhere)         "white"
  28.     set cvscfg(bt_pressme)          "black"
  29.  
  30.     set cvscfg(tool_color)          "white"
  31.     set cvscfg(glb_file_mark_color) "black"
  32.     set cvscfg(glb_dir_mark_color)  "white"
  33.  
  34. } else {
  35.  
  36.     # These colours are entered into the options database,
  37.     # see below.
  38.     set cvscfg(glb_background)      "SkyBlue2"
  39.     set cvscfg(glb_highlight)       "green"
  40.     set cvscfg(bt_lookhere)         "LightSteelBlue"
  41.     set cvscfg(bt_pressme)          "green"
  42.  
  43.     # This is the colour of the ToolTips popup windows.
  44.     set cvscfg(tool_color)          "LightGoldenrod1"
  45.  
  46.     # These colours support file marking, including a colour
  47.     # to indicate a directory (which cannot be marked) -sj
  48.     set cvscfg(glb_file_mark_color) "Red"
  49.     set cvscfg(glb_dir_mark_color)  "Gray50"
  50.  
  51.     # These colours are used to support tag marking.  boxcolour
  52.     # gets used for the box and text.  dotcolour can be used to
  53.     # put "tag dots" in the boxes.
  54.     set cvscfg(boxcolour,tkcvs_r5)  "Blue"
  55.     set cvscfg(dotcolour,tkcvs_r5)  "Blue"
  56.     set cvscfg(dotcolour,tkcvs_r4)  "Green"
  57.     set cvscfg(dotcolour,tkcvs_r3)  "Yellow"
  58.     set cvscfg(dotcolour,tkcvs_r2)  "Orange"
  59.     set cvscfg(dotcolour,tkcvs_r1)  "Red"
  60.  
  61. }
  62.  
  63. #
  64. # If you want to configure the colours via the above options,
  65. # then you will also need to un-comment these lines.  Otherwise
  66. # you can use the Xdefaults method of colouring the windows.
  67. #
  68. # option add *background                 $cvscfg(glb_background)
  69. # option add *activeBackground           $cvscfg(glb_highlight)
  70. # option add *Button.background          $cvscfg(bt_lookhere)
  71. # option add *Button.activeBackground    $cvscfg(bt_pressme)
  72. # option add *Scrollbar.foreground       $cvscfg(bt_lookhere)
  73. # option add *Scrollbar.activeForeground $cvscfg(bt_pressme)
  74. #
  75. # To use the Xdefaults method, put lines like the following into
  76. # your .Xdefaults or .Xresources file:
  77. #
  78. # tkcvs*background:            SkyBlue2
  79. # tkcvs*activeBackground:        green
  80. # tkcvs*Button.background:        LightSteelBlue
  81. # tkcvs*Button.activeBackground:    green
  82. # tkcvs*Scrollbar.background:        LightSteelBlue
  83. # tkcvs*Scrollbar.activeBackground:    green
  84.  
  85. # Leave this option here so that tkCVS knows what its own background
  86. # colour is.  This is so that it can erase things like file mark dots.
  87. set cvscfg(glb_background) [option get . background Background]
  88.  
  89. #
  90. # Other defaults
  91. #
  92. # Full path to the CVS program if you want to give it,
  93. # otherwise the PATH environment variable will be searched.
  94. #
  95. set cvs "cvs"
  96.  
  97. #
  98. # Set this to 1 to see all files displayed in the directory
  99. # browser (including hidden files) by default.
  100. #
  101. set cvscfg(allfiles)           0
  102.  
  103. #
  104. # set the default log file detail to be reported; one of 
  105. #   "last"       report only the comment from the last checkin
  106. #   "summary"    version number and comment string for all check-ins
  107. #   "verbose"    all logfile detail possible, including symbolic tags
  108. # -sj
  109. set cvscfg(ldetail)            "last"
  110.  
  111. # --------------------
  112. # set the default detail for repository and workdir reports; one of
  113. #   "terse"      report "status" only and only on those files which 
  114. #                are not "up-to-date"
  115. #   "summary"    report the "status" and include "up-to-date"
  116. #   "verbose"    provide the report as it would appear unmodified
  117. # -sj
  118. set cvscfg(rdetail)            "terse"
  119.  
  120. # --------------------
  121. # set the number of file names the listbox should accomodate. 
  122. # -sj
  123. set cvscfg(y_size)             25
  124.  
  125. # --------------------
  126. # set the default pattern to be used by the filter.  Use any valid
  127. # pattern that can be used for a pattern for 'ls'. An empty string
  128. # is equilivant to the entire directory (minus hidden files); 
  129. # i.e., ls *
  130. # -sj
  131. #set cvscfg(file_filter)        "*.ad? *.a"
  132. #set cvscfg(file_filter)        "*.[ch] *.[CH]"
  133. set cvscfg(file_filter)        ""
  134.  
  135. # --------------------
  136. # set the default for automatic statusing of a CVS controlled 
  137. # directory.  Automatic updates are done when a directory is 
  138. # entered and after some operations.  More operations should cause
  139. # an automatic update ... TBD.
  140. # -sj
  141. set cvscfg(auto_status)        "true"
  142.  
  143. # --------------------
  144. # determine which remove command is to be used.  Also set
  145. # any flags that are to be used when the remove command is
  146. # invoked.
  147. # -sj
  148. set cvscfg(rm_cmd)             "/bin/rm"
  149. set cvscfg(rm_flags)           "-rf"
  150.  
  151. # --------------------
  152. # set the default command for printing output.
  153. # -sj
  154. #set cvscfg(print_cmd)          "enscript -Ghr -fCourier8"
  155. set cvscfg(print_cmd)          "lpr"
  156.  
  157. # --------------------
  158. # set the command to be used to format selected files.
  159. # e.g., "aimap" is a formatter for Ada code.
  160. # -sj
  161. set cvscfg(format_cmd)         "aimap"
  162.  
  163. # --------------------
  164. # set the pattern to be used for cleaning a directory; i.e., the
  165. # removal of unwanted files.  Typically these files are not under CVS.
  166. # -sj
  167. set cvscfg(clean_these)        "\*.bak \*~ \*tmp tmp\* #\* \*%"
  168.  
  169. # --------------------
  170. # set the default value for confirmation prompting before performing an
  171. # operation over selected files.
  172. # -sj
  173. set cvscfg(confirm_prompt)     "true"
  174.  
  175. # --------------------
  176. # set the initial value of cvsroot to be the environment variable's 
  177. # value
  178. # -sj
  179. set cvscfg(cvsroot)            "$env(CVSROOT)"
  180.  
  181. # --------------------
  182. # some of the reporting operations could usefully be recursive.  Set
  183. # the default value here.
  184. # -sj
  185. set cvscfg(recurse)            "false"
  186.  
  187. # --------------------
  188. # I find it useful to have CVSROOT checkout.  Especially so if changes
  189. # are being made the various info file to support various stages of
  190. # project development; i.e., the commit criteria.  I have $CVSROOT set
  191. # to $PROJECT/cvsroot.  Since I am allowing for traversal of modules
  192. # from different repositories, I need tie the current CVSROOT module to
  193. # the CVSROOT's value.  This value is determined anew everytime the
  194. # current working directory is changed; i.e., the Repository file is
  195. # read.  Code which actively used this variable has been removed. (But 
  196. # I may find a way to implement support for CVSROOT in a way that that
  197. # is acceptable later.  The setup_dir procedure still sets this variable.
  198. # -sj
  199. set cvscfg(admin_dir)          "$env(CVSROOT)/../CVSROOT"
  200.  
  201. # --------------------
  202. # To override the default editor (setup when tkcvs is configured and 
  203. # installed) a user can set the cvscfg(editor) variable to the editor
  204. # of choice in their .tkcvs file (if they have one). Some examples 
  205. # are shown below.  Note that the editor must be an Xwindow 
  206. # application.
  207. # -sj
  208. #set cvscfg(editor)             "notebook"
  209. #set cvscfg(editor)             "xterm -e vi"
  210. #set cvscfg(editor)             "emacs"
  211. #set cvscfg(editor)             "emacsclient"
  212.  
  213. #
  214. # This determines what sort of buttons you get on the main window, and
  215. # whether you get ToolTips with your buttons or not.
  216. #
  217.  
  218. # Small bitmap buttons with pop-up tooltips.
  219.  
  220. set cvscfg(buttonstyle) "Bitmap"
  221. set TOOLTIPS_OFF 0
  222.  
  223. # Big text buttons without pop-up tooltips.
  224.  
  225. #set cvscfg(buttonstyle) "Text"
  226. #set TOOLTIPS_OFF 1
  227.  
  228. #
  229. # Hacks for user-menu.
  230. #
  231.  
  232. # Set any of these strings to a cvs command that you want to run.
  233. set cvsmenu(Update_to_Head) "update -A"
  234. # set cvsmenu(status) "status"
  235.  
  236. # Set any of these strings to a non-cvs command that you want to run.
  237. # set usermenu(delete) "rm"
  238. set usermenu(view) "cat"
  239.