1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Description: avoid direct changes in upstream source code.
The original changes was done by Masayuki Hatta
in 1.2.0-4 revision (2001-06-10).
Author: Joao Eriberto Mota Filho <eriberto@debian.org>
Last-Update: 2016-08-25
Index: ewipe-1.2.0/ewipe
===================================================================
--- ewipe-1.2.0.orig/ewipe
+++ ewipe-1.2.0/ewipe
@@ -27,7 +27,7 @@ exec wish "$0" "--" "$@"
# set PATH /usr/local/lib/ewipe #
# #
-set PATH .
+set PATH /usr/lib/ewipe
###################################################
@@ -45,6 +45,12 @@ if {[info tclversion] < 7.6} {
exit
}
+# enabling kanji handling (Tcl 8.3 or later)
+if {[info tclversion] > 8.2} {
+ proc kanji {args} {}
+ tk useinputmethods 1
+}
+
# check arguments for ewipe
proc argvcheck {} {
|
