| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 |
- $OpenBSD: patch-bin_gocr_tcl,v 1.2 2009/08/12 15:23:56 ajacoutot Exp $
- --- bin/gocr.tcl.orig Fri Feb 6 10:38:46 2004
- +++ bin/gocr.tcl Fri Oct 27 10:35:15 2006
- @@ -9,7 +9,7 @@
- # - Reading from stderr of child???
- #
- # this is a multiline comment in wish, but not in sh \
- -exec wish -f $0 $@
- +exec ${MODTK_BIN} -f $0 $@
-
- set ver 0.3.6
- set gocrver 0.3.5
- @@ -31,10 +31,10 @@ wm title . "GOCR Tcl frontend $ver"
- set spacewidth 0
- set graylevel 160
- set dustsize 20
- -set imgviewer "xli -geometry 400x400 "
- +set imgviewer ""
- set gocrpath "gocr"
- set gocraddopt "-e - -f UTF8"
- -set file "../examples/text.pbm"
- +set file ""
- set ofile "out01.txt"
- # entry out{n+1}.txt can automaticly generated!
- if $argc {
- @@ -217,8 +217,8 @@ proc Scan {} {
- proc SaveOpt {} {
- global v0 v1 v2 v3 v4 v5 m1 m2 m3 m4 m5 m6 spacewidth graylevel dustsize imgviewer ofile
- global autos autod autol gocrpath gocraddopt
- - if [catch {open .gocr w} out] {
- - puts "open .gocr failed"
- + if [catch {open ~/.gocr w} out] {
- + puts "open ~/.gocr failed"
- return
- }
- set file [.abar.entf get]
- @@ -246,8 +246,8 @@ proc LoadOpt {} {
- set file [.abar.entf get]
- set vvv [expr $v0 + $v1 + $v2 + $v3 + $v4 + $v5 ]
- set mode [expr $m1 + $m2 + $m3 + $m4 + $m5 + $m6 ]
- - if [catch {open .gocr r} in] {
- - puts "open .gocr failed"
- + if [catch {open ~/.gocr r} in] {
- + puts "open ~/.gocr failed"
- return
- }
- while {[ gets $in line] >=0} {
|
