blob: 095eaaffc376243e88123a616ca89ba9b1319045 (
plain) (
blame)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
--- ewipe.orig Fri Feb 13 10:57:57 1998
+++ ewipe Wed Mar 4 15:04:20 1998
@@ -1,6 +1,6 @@
#!/bin/sh
# the next line restarts using wish \
-exec wish "$0" "--" "$@"
+exec wish4.2 "$0" "--" "$@"
# #
# EWIPE : Extended WIPE (Editor for WIPE) #
@@ -20,7 +20,7 @@
# set PATH /usr/local/lib/ewipe #
# #
-set PATH .
+set PATH /usr/local/lib/ewipe
###################################################
@@ -1935,24 +1935,43 @@
set str1 [string trim $str1 { }]
set n [string length $str1]
set l [expr $n / ($width + 1) + 1]
- label .c.lb1($lnum) -width 10 -text $str0 \
- -anchor w -bg RoyalBlue4 -fg white \
- -font $ewfont(a) -kanjifont $ewfont(k)
- label .c.lb2($lnum) -relief raised -width $width -heigh $l \
- -wraplength $wlen -text $str1 -justify left -anchor w \
- -bg RoyalBlue4 -fg $color \
- -font $ewfont(a) -kanjifont $ewfont(k)
+ if {$Option(lang) == "jpn"} {
+ label .c.lb1($lnum) -width 10 -text $str0 \
+ -anchor w -bg RoyalBlue4 -fg white \
+ -font $ewfont(a) -kanjifont $ewfont(k)
+ label .c.lb2($lnum) -relief raised -width $width -heigh $l \
+ -wraplength $wlen -text $str1 -justify left -anchor w \
+ -bg RoyalBlue4 -fg $color \
+ -font $ewfont(a) -kanjifont $ewfont(k)
+ } else {
+ label .c.lb1($lnum) -width 10 -text $str0 \
+ -anchor w -bg RoyalBlue4 -fg white \
+ -font $ewfont(a)
+ label .c.lb2($lnum) -relief raised -width $width -heigh $l \
+ -wraplength $wlen -text $str1 -justify left -anchor w \
+ -bg RoyalBlue4 -fg $color \
+ -font $ewfont(a)
+ }
.c create window 10 $scrY($lnum) -window .c.lb1($lnum) -anchor nw
.c create window 100 $scrY($lnum) -window .c.lb2($lnum) -anchor nw
set dy [expr 30 + ($l-1) * 15]
} else {
set str [string range $line 0 [expr $width - 1]]
- label .c.lb1($lnum) -width 10 -text " " \
- -anchor w -bg RoyalBlue4 -fg white \
- -font $ewfont(a) -kanjifont $ewfont(k)
- label .c.lb2($lnum) -relief raised -width $width -height 1 \
- -text $str -anchor nw -justify left -bg RoyalBlue4 \
- -fg white -font $ewfont(a) -kanjifont $ewfont(k)
+ if {$Option(lang) == "jpn"} {
+ label .c.lb1($lnum) -width 10 -text " " \
+ -anchor w -bg RoyalBlue4 -fg white \
+ -font $ewfont(a) -kanjifont $ewfont(k)
+ label .c.lb2($lnum) -relief raised -width $width -height 1 \
+ -text $str -anchor nw -justify left -bg RoyalBlue4 \
+ -fg white -font $ewfont(a) -kanjifont $ewfont(k)
+ } else {
+ label .c.lb1($lnum) -width 10 -text " " \
+ -anchor w -bg RoyalBlue4 -fg white \
+ -font $ewfont(a)
+ label .c.lb2($lnum) -relief raised -width $width -height 1 \
+ -text $str -anchor nw -justify left -bg RoyalBlue4 \
+ -fg white -font $ewfont(a)
+ }
.c create window 10 $scrY($lnum) -window .c.lb1($lnum) -anchor nw
.c create window 100 $scrY($lnum) -window .c.lb2($lnum) -anchor nw
set dy 30
|
