Fix for tcl/tk 8.0.4

1 files changed, 115 insertions, 0 deletions

diff --git a/sysutils/cd-write/files/patch-1 b/sysutils/cd-write/files/patch-1
new file mode 100644
index 00000000000..d62af63944c
--- /dev/null
+++ b/sysutils/cd-write/files/patch-1
@@ -0,0 +1,115 @@
+--- 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
+ }