Frozen Innovus GUI while executing Tcl script to highlight and zoom to wires

Hello,

I am trying to execute the following tcl script:

proc pause {{message "Hit Enter to continue ==> "}} {
puts -nonewline $message
flush stdout
gets stdin
}

set rh_rpt_dir {...}

set layers_names "..."

foreach l $layers_names {
setLayerPreference $l -isVisible 0
}

### SHORTS CHECK

append short_rpt $rh_rpt_dir "shorts.rpt"

set fid [open $short_rpt r]

while {![eof $fid]} {

gets $fid line

regexp -nocase -- {[0-9]+ +(\w+) +(\w+) +(\w+) +(\d+\.?\d*) +(\d+\.?\d*) +(\d+\.?\d*) +(\d+\.?\d*) +(\w+) +\w+ +(\w+)} \
$line all net1 net2 layer x1 y1 x2 y2 type1 type2

highlight -color red [dbGet -p2 [dbGet -p2 top.nets.sWires.net.name $net1 ].layer.name $layer]

highlight -color blue [dbGet -p2 [dbGet -p2 top.nets.sWires.net.name $net2 ].layer.name $layer]

setLayerPreference $layer -isVisible 1

zoomTo $x1 $y1 -radius 10

redraw

pause
}

close $fid

I used the pause procedure to see the changes in highlights and zoom, but the Innovus GUI is frozen and I cannot interact with it.

How can I solve this issue? Thank you