games-mud/tkmoo/files/0.3.32-keys-workaround.patch


1
2
3
4
5
6
7
8
9
10
11
12
13

--- source.tcl.orig	2004-12-28 23:36:47.000000000 -0800
+++ source.tcl	2004-12-28 23:37:09.000000000 -0800
@@ -51,6 +51,10 @@
 #
 #
 
+tk::unsupported::ExposePrivateCommand tkTextSetCursor
+tk::unsupported::ExposePrivateCommand tkTextScrollPages
+tk::unsupported::ExposePrivateCommand tkTextInsert
+
 proc db.set { id field val args } {
     global db
     if { $args == {} } {