freebsd-ports/comms/tkscanfax/files/patch-src:fax-init.tcl
Yoshio MITA b8460b50ff - Synchronized with latest version (1.1.4).
- Deleted dependency on japanese Tcl/Tk 8.0.5
- Added dependency on Tcl/Tk 8.3.
- Works also with japanese messages.
- (Info) To input japanese, execute:
   env LANG=ja_JP.eucJP XMODIFIERS=@im=kinput2 tkfax

PR:		ports/73930
Submitted by:	Lupe Christoph <lupe@lupe-christoph.de> pointed out the dependency problem.
2004-11-17 14:34:07 +00:00

10 lines
345 B
Tcl

--- fax-init.tcl.orig Wed Nov 17 20:07:15 2004
+++ fax-init.tcl Wed Nov 17 20:07:34 2004
@@ -409,6 +409,7 @@
set fid [open $lockfile r]
gets $fid pid
close $fid
+ set notrun 1
catch {set notrun [exec sh -c "ps -p $pid > /dev/null; echo $?"]}
if {! $notrun} {
if [tk_dialog .dialog "TkFax lock file found" \