| 12345678910111213141516171819202122 |
- $OpenBSD: patch-src_wnb,v 1.2 2008/09/01 20:02:53 sthen Exp $
- --- src/wnb.orig Tue Sep 11 11:41:42 2007
- +++ src/wnb Tue Sep 11 11:41:47 2007
- @@ -103,7 +103,7 @@ set version "3.0"
-
- if {$tcl_platform(platform) == "unix"} {
- if {[lsearch -exact [array names env] WNHOME] == -1} {
- - set resourcedir "/usr/local/WordNet-3.0/lib/wnres"
- + set resourcedir "${LOCALBASE}/share/wordnet/lib/wnres"
- } else {
- set resourcedir "$env(WNHOME)/lib/wnres"
- }
- @@ -357,7 +357,7 @@ proc searchanddisplay {searchword senses posnumber sea
- if {$index != -1 && $schar != 0} {
- set line [string range $i 0 [expr $index - 1]]
- if {[regexp -indices -nocase -- \
- - "(\[\.\})>,\] |^|, )($morphedword)\[0-9\]*(#\[0-9\]+)?( \[(\]|,|$\)" \
- + "(\[\.\})>,\] |^|, )($morphedword)\[0-9\]*(#\[0-9\]+)?( \[(\]|,|$)" \
- $line dummy dummy indices]} {
- .results.text tag add overviewhighlight \
- "end - 2 lines linestart + [lindex $indices 0] chars" \
|
