Stop TCL timer when GUI quits

This commit is contained in:
Matthias Hochsteger 2017-05-11 11:49:58 +02:00
parent 3eef3a66bc
commit 4a331a8a38

View File

@ -421,6 +421,7 @@ set videoactive 0
# puts "error: $result" # puts "error: $result"
} }
after cancel { timer2 }
Ng_Exit; Ng_Exit;
destroy . destroy .
} }