What is reloading self, is reload-self: edit the program in a text widget and reload. Did I just replace notepad?
proc reload_self {} {
global tx
set gcode [$tx get 1.0 end-1c]
file_save $::LOADED_SOURCE_FN $gcode
exec tclkit $::LOADED_SOURCE_FN &
exit
}Where $tx is the text widget.