tooledit.tcl: allow multiple tools in pocket if

toolchanger is nonrandom (or "unknown")

Note:
1) In LinuxCNC, tooldata lines are read sequentially.  When a
   random toolchanger is specified ([EMCIO]RANDOM_TOOLCHANGER==1),
   lines that specify a previously used pocket supersede prior
   entries.
   A warning message is emitted (Ref: cd90b27).
2) When using tooledit on a file that is not used by a running
   axis gui, the toolchanger type is "unknown"

Author: dngarrett

tcl/tooledit.tcl

@@ -113,6 +113,7 @@ proc ::tooledit::init { {columns ""} } {
   set ::te(type,poc)     integer
   set ::te(type,orien)   integer
   set ::te(type,comment) ascii
+  set ::te(tool_changer) unknown
 
   # include values for each (header) item:
   set ::te(tool,width)     5; set ::te(tool,tag)     T
@@ -269,6 +270,18 @@ proc ::tooledit::readfile {filename} {
   catch {
     sendaxis ping
     set axis_is_running [sendaxis tool_table_filename]
+
+    if $axis_is_running {
+      set tchanger nonrandom ;# default if not specified
+      if [catch {set tchanger [send axis inifindall EMCIO RANDOM_TOOLCHANGER]} msg ] {
+          puts "UNEXPECTED: $msg"
+      }
+      switch "$tchanger" {
+        1       {set ::te(tool_changer)    random}
+        default {set ::te(tool_changer) nonrandom}
+      }
+    }
+
     set tooledit_pid_ct [llength $tooledit_pids]
     if {$axis_is_running  && $tooledit_pid_ct > 0} {
       set msg [_ "Current file:"]
@@ -873,8 +886,7 @@ proc ::tooledit::toolvalidate {args} {
     set pocs ""
     foreach i $::te(items) {
       set p $::te(parm,$i,poc)
-
-      if {[lsearch $pocs $p] >= 0} {
+      if { "$::te(tool_changer)" == "random" && [lsearch $pocs $p] >= 0 } {
         set nextmsg [format [_ "Pocket <%s> specified multiple times"]  $p]
         if {[lsearch $msg $nextmsg] >= 0} continue
         lappend msg $nextmsg