freebsd-ports/sysutils/cd-write/files/patch-1

--- c++tk/tk.tcl.orig	Thu Sep 25 03:43:23 1997
+++ c++tk/tk.tcl	Mon May  3 23:16:51 1999
@@ -3,7 +3,7 @@
 # Initialization script normally executed in the interpreter for each
 # Tk-based application.  Arranges class bindings for widgets.
 #
-# SCCS: @(#) tk.tcl 1.87 96/09/30 09:28:02
+# RCS: @(#) $Id: tk.tcl,v 1.5 1998/11/12 06:22:05 welch Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -13,8 +13,8 @@
 
 # Insist on running with compatible versions of Tcl and Tk.
 
-package require -exact Tk 4.2
-package require -exact Tcl 7.6
+package require -exact Tk 8.0
+package require -exact Tcl 8.0
 
 
 # Turn off strict Motif look and feel as a default.
@@ -32,13 +32,23 @@
 # screen -		The name of the new screen.
 
 proc tkScreenChanged screen {
-    set disp [file rootname $screen]
+    set x [string last . $screen]
+    if {$x > 0} {
+	set disp [string range $screen 0 [expr {$x - 1}]]
+    } else {
+	set disp $screen
+    }
+
     uplevel #0 upvar #0 tkPriv.$disp tkPriv
     global tkPriv
-    if [info exists tkPriv] {
+    global tcl_platform
+
+    if {[info exists tkPriv]} {
 	set tkPriv(screen) $screen
 	return
     }
+    set tkPriv(activeMenu) {}
+    set tkPriv(activeItem) {}
     set tkPriv(afterId) {}
     set tkPriv(buttons) 0
     set tkPriv(buttonWindow) {}
@@ -48,14 +58,17 @@
     set tkPriv(initPos) {}
     set tkPriv(inMenubutton) {}
     set tkPriv(listboxPrev) {}
+    set tkPriv(menuBar) {}
     set tkPriv(mouseMoved) 0
     set tkPriv(oldGrab) {}
     set tkPriv(popup) {}
     set tkPriv(postedMb) {}
     set tkPriv(pressX) 0
     set tkPriv(pressY) 0
+    set tkPriv(prevPos) 0
     set tkPriv(screen) $screen
     set tkPriv(selectMode) char
+    set tkPriv(tearoff) 1
     set tkPriv(window) {}
 }
 
@@ -76,7 +89,7 @@
 proc tkEventMotifBindings {n1 dummy dummy} {
     upvar $n1 name
     
-    if $name {
+    if {$name} {
 	set op delete
     } else {
 	set op add
@@ -94,15 +107,17 @@
 	event add <<Cut>> <Control-Key-x> <Key-F20> 
 	event add <<Copy>> <Control-Key-c> <Key-F16>
 	event add <<Paste>> <Control-Key-v> <Key-F18>
+	event add <<PasteSelection>> <ButtonRelease-2>
 	trace variable tk_strictMotif w tkEventMotifBindings
 	set tk_strictMotif $tk_strictMotif
 
+
 # ----------------------------------------------------------------------
 # Default bindings for keyboard traversal.
 # ----------------------------------------------------------------------
 
-bind all <Tab> {focus [tk_focusNext %W]}
-bind all <Shift-Tab> {focus [tk_focusPrev %W]}
+bind all <Tab> {tkTabToWindow [tk_focusNext %W]}
+bind all <Shift-Tab> {tkTabToWindow [tk_focusPrev %W]}
 
 # tkCancelRepeat --
 # This procedure is invoked to cancel an auto-repeat action described
@@ -117,4 +132,19 @@
     global tkPriv
     after cancel $tkPriv(afterId)
     set tkPriv(afterId) {}
+}
+
+# tkTabToWindow --
+# This procedure moves the focus to the given widget.  If the widget
+# is an entry, it selects the entire contents of the widget.
+#
+# Arguments:
+# w - Window to which focus should be set.
+
+proc tkTabToWindow {w} {
+    if {"[winfo class $w]" == "Entry"} {
+	$w select range 0 end
+	$w icur end
+    }
+    focus $w
 }