Fix for tcl/tk 8.0.4

svn path=/head/; revision=18443
2024-12-23 04:23:08 +00:00 · 1999-05-03 22:49:45 +00:00 · 1999-05-03 22:49:45 +00:00 · b2a4dc58a6 · 2021-03-31 03:12:20 +00:00
commit b2a4dc58a6
parent e1a1f5c701
1 changed files with 115 additions and 0 deletions
--- a/sysutils/cd-write/files/patch-1
+++ 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
+ }