21 lines
892 B
Text
21 lines
892 B
Text
|
--- 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" \
|