Exit the Routine when clicked return in TCL Script

chetanwable

I have a subroutine that does certain task. Since the task is repetitive It should avoid running tcl Script again and again from File --> Run --> Tcl/Tk script. So, is there a way to come out of the loop once I did all the connections.

for eg.

 

proc mycode {}

{

*createmarkpanel 

#my working code here

}

 

while {0<1} {

mycode

}

 

Now I need to exit while loop whenever I complete desired repetitions of the tasks without any warnings or error.

 

 

<?xml version="1.0" encoding="UTF-8"?>

tinh

Just return a break if nothing selected

 

proc mycode {} {

*createmarkpanel elems 1 'select elems'

if {![hm_marklength elems 1]} {

      return -code break

}

#my working code here

 

 

}

chetanwable

you are genius ! worked like a charm