1cd8a23917
- TkCVS now supports Subversion (up to 1.7). If SVN repository has a structure similar to trunk, branches, and tags but with different names, you can tell TkCVS about it. - The previously undocumented RCS support is explicit now. - Rework the merge functionality. There's only one dialog for tagging, which you OK when you're ready to commit the merges. - Merge arrows are drawn in the Branch Browser for merges tracked by Subversion 1.5's mergeinfo property and CVSNT's mergepoint feature. - The Branch Browser positions the diagram so "you are here" is in the visible canvas, fixing a long-time nagging irritation. - Locking and unlocking for SVN, and some additional SVN-specific right-click popups.
65 lines
1.8 KiB
Text
65 lines
1.8 KiB
Text
$NetBSD: patch-aa,v 1.13 2013/08/21 10:14:54 shattered Exp $
|
|
|
|
--- doinstall.tcl.orig 2011-11-28 04:59:54.000000000 +0000
|
|
+++ doinstall.tcl
|
|
@@ -1,7 +1,7 @@
|
|
#!/bin/sh
|
|
#-*-tcl-*-
|
|
# the next line restarts using wish \
|
|
-if [ -z "$DISPLAY" -o "X$1" = "X-nox" ]; then exec tclsh "$0" -- ${1+"$@"}; else exec wish "$0" -- ${1+"$@"}; fi
|
|
+exec tclsh "$0" -- ${1+"$@"}
|
|
|
|
#
|
|
# Usage: doinstall.tcl [-nox] [destination]
|
|
@@ -31,23 +31,6 @@ proc show_paths {INSTALLROOT} {
|
|
global LIBDIR BINDIR MANDIR
|
|
|
|
set_paths $INSTALLROOT
|
|
-
|
|
- set msg(1) [file join $BINDIR $TKCVS]
|
|
- set msg(2) [file join $BINDIR $TKDIFF]
|
|
- set msg(3) [file join $LIBDIR tkcvs *.tcl]
|
|
- set msg(4) [file join $LIBDIR tkcvs bitmaps *.gif,xbm]
|
|
- if {$tcl_platform(platform) == "unix"} {
|
|
- set msg(5) [file join $MANDIR tkcvs.1]
|
|
- }
|
|
- foreach m [lsort [array names msg]] {
|
|
- if {[winfo exists .messages.$m]} {
|
|
- destroy .messages.$m
|
|
- }
|
|
- global var$m
|
|
- set var$m $msg($m)
|
|
- label .messages.$m -text $msg($m) -justify left -textvariable var$m
|
|
- pack .messages.$m -side top -anchor w
|
|
- }
|
|
}
|
|
|
|
proc doinstall { INSTALLROOT } {
|
|
@@ -97,13 +80,6 @@ proc doinstall { INSTALLROOT } {
|
|
}
|
|
cd [file join .. ..]
|
|
puts "Finished!"
|
|
-
|
|
- if {$X} {
|
|
- destroy .bottom.do
|
|
- destroy .bottom.not
|
|
- button .bottom.done -text "Finished!" -command {destroy .}
|
|
- pack .bottom.done
|
|
- }
|
|
}
|
|
|
|
################################################################################
|
|
@@ -112,12 +88,7 @@ set usage "Usage: doinstall.tcl \[-nox\]
|
|
set X 1
|
|
|
|
# Check Tcl/TK version
|
|
-if {$tcl_version < 8.3} {
|
|
- tk_dialog .wrongversion "Tcl/Tk too old" \
|
|
- "TkCVS requires Tcl/Tk 8.3 or better!" \
|
|
- error 0 {Bye Bye}
|
|
- exit 1
|
|
-}
|
|
+# This is done by the package Makefile
|
|
|
|
# See if the user changed them with command-line args
|
|
set ArgInstallRoot ""
|