a6e3152224
lathes, 3d printers, laser cutters, plasma cutters, robot arms, hexapods, and more. - Accepts G-code input, drives CNC machines in response. - Active user community. - Several different GUIs available. - Compatible with many popular machine control hardware interfaces. - Supports rigid tapping, cutter compensation, and many other advanced control features. WARNING: This port is simulation-only for now. WWW: http://linuxcnc.org/
25 lines
830 B
Tcl
25 lines
830 B
Tcl
--- tcl/tooledit.tcl.orig 2016-06-25 02:19:12 UTC
|
|
+++ tcl/tooledit.tcl
|
|
@@ -1,4 +1,4 @@
|
|
-#!/usr/bin/wish
|
|
+#!/usr/bin/env wish8.6
|
|
#
|
|
# Copyright: 2009-2012
|
|
# Author: Dewey Garrett <dgarrett@panix.com>
|
|
@@ -345,14 +345,14 @@ proc ::tooledit::watch {args} {
|
|
switch $args {
|
|
start {
|
|
set ::te(mtime) $mtime
|
|
- set ::te(md5sum) [eval exec md5sum $::te(filename)]
|
|
+ set ::te(md5sum) [eval exec md5 $::te(filename)]
|
|
}
|
|
stop {return}
|
|
default {
|
|
if {$mtime > $::te(mtime)} {
|
|
set ::te(mtime) $mtime
|
|
set md5sum $::te(md5sum)
|
|
- set ::te(md5sum) [eval exec md5sum $::te(filename)]
|
|
+ set ::te(md5sum) [eval exec md5 $::te(filename)]
|
|
# no message if file contents unchanged
|
|
if {"$md5sum" != "$::te(md5sum)"} {
|
|
::tooledit::message changed
|