diff options
| author | Jun-ichiro itojun Hagino <itojun@FreeBSD.org> | 1998-03-04 06:19:02 +0000 |
|---|---|---|
| committer | Jun-ichiro itojun Hagino <itojun@FreeBSD.org> | 1998-03-04 06:19:02 +0000 |
| commit | 7b8628fdacb241348134dfe092c2d797ba814063 (patch) | |
| tree | 6651a7bf8b033b2f16a10ca436c4f6924f656232 /misc/ewipe | |
| parent | 698bd37d8163e23e71fa8c3e0c2c058a49f3560a (diff) | |
| download | ports-7b8628fdacb241348134dfe092c2d797ba814063.tar.gz ports-7b8628fdacb241348134dfe092c2d797ba814063.zip | |
wish4.2 friendly. (-kanjifont not allowed)
Notes
Notes:
svn path=/head/; revision=10026
Diffstat (limited to 'misc/ewipe')
| -rw-r--r-- | misc/ewipe/files/patch-aa | 73 |
1 files changed, 65 insertions, 8 deletions
diff --git a/misc/ewipe/files/patch-aa b/misc/ewipe/files/patch-aa index 6312fbe565ad..095eaaffc376 100644 --- a/misc/ewipe/files/patch-aa +++ b/misc/ewipe/files/patch-aa @@ -1,19 +1,76 @@ ---- ewipe.orig Fri Dec 5 10:00:10 1997 -+++ ewipe Fri Dec 5 10:54:04 1997 +--- 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.2jp "$0" "--" "$@" ++exec wish4.2 "$0" "--" "$@" - # # - # EWIPE: Extended WIPE (Editor for WIPE) # + # # + # EWIPE : Extended WIPE (Editor for WIPE) # @@ -20,7 +20,7 @@ - # set PATH /usr/local/lib/ewipe # - # # + # 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 |