diff options
| author | itojun <itojun@FreeBSD.org> | 1998-04-12 10:21:18 +0800 |
|---|---|---|
| committer | itojun <itojun@FreeBSD.org> | 1998-04-12 10:21:18 +0800 |
| commit | 684c7836bc2df56a56cb40b782a40015f324ac6a (patch) | |
| tree | bc610d9f129b4e64f0d454fdccfa7fb8c152f6e7 /misc/ewipe/files | |
| parent | 7f3c88cde7eb7362d5e3678b6818fec13570d1ba (diff) | |
| download | freebsd-ports-graphics-684c7836bc2df56a56cb40b782a40015f324ac6a.tar.gz freebsd-ports-graphics-684c7836bc2df56a56cb40b782a40015f324ac6a.tar.zst freebsd-ports-graphics-684c7836bc2df56a56cb40b782a40015f324ac6a.zip | |
- original distribution updated. (-> 1.0.0)
- the method for removing japanese-oriented code fragment has changed.
Diffstat (limited to 'misc/ewipe/files')
| -rw-r--r-- | misc/ewipe/files/patch-aa | 64 |
1 files changed, 4 insertions, 60 deletions
diff --git a/misc/ewipe/files/patch-aa b/misc/ewipe/files/patch-aa index 095eaaffc37..53168efc66c 100644 --- a/misc/ewipe/files/patch-aa +++ b/misc/ewipe/files/patch-aa @@ -1,5 +1,5 @@ ---- ewipe.orig Fri Feb 13 10:57:57 1998 -+++ ewipe Wed Mar 4 15:04:20 1998 +--- ewipe.orig Sun Apr 12 10:59:29 1998 ++++ ewipe Sun Apr 12 10:59:57 1998 @@ -1,6 +1,6 @@ #!/bin/sh # the next line restarts using wish \ @@ -8,69 +8,13 @@ # # # EWIPE : Extended WIPE (Editor for WIPE) # -@@ -20,7 +20,7 @@ +@@ -20,7 +20,8 @@ # set PATH /usr/local/lib/ewipe # # # -set PATH . ++#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 |