25 lines
736 B
Diff
25 lines
736 B
Diff
|
--- tkcvs_8_1/tkcvs/tkcvs.tcl 2007-11-03 07:09:35.000000000 +0100
|
||
|
|
+++ tkcvs_8_1/tkcvs/tkcvs.tcl-gil 2008-07-30 03:41:35.000000000 +0200
|
||
|
|
@@ -59,8 +59,8 @@
|
||
|
|
}
|
||
|
|
#puts "TclRoot $TclRoot"
|
||
|
|
|
||
|
|
-set TCDIR [file join $TclRoot tkcvs]
|
||
|
|
-set cvscfg(bitmapdir) [file join $TclRoot tkcvs bitmaps]
|
||
|
|
+set TCDIR "/usr/share/tkcvs"
|
||
|
|
+set cvscfg(bitmapdir) "/usr/share/tkcvs/bitmaps"
|
||
|
|
#puts "TCDIR $TCDIR"
|
||
|
|
#puts "BITMAPDIR $cvscfg(bitmapdir)"
|
||
|
|
|
||
|
|
@@ -89,8 +89,8 @@
|
||
|
|
}
|
||
|
|
|
||
|
|
# Read in defaults
|
||
|
|
-if {[file exists [file join $TCDIR tkcvs_def.tcl]]} {
|
||
|
|
- source [file join $TCDIR tkcvs_def.tcl]
|
||
|
|
+if {[file exists [file join /etc/cvs tkcvs_def.tcl]]} {
|
||
|
|
+ source [file join /etc/cvs tkcvs_def.tcl]
|
||
|
|
}
|
||
|
|
|
||
|
|
# This helps us recover from a problem left behind by tkcvs 7.2
|