1 files changed, 8 insertions(+), 3 deletions(-)

M main.tcl

@@ 30,7 30,8 @@ proc start_thread {name} {
   threads::manage $thread tclircc::$name
   thread::send $thread [list variable path $path version $version]
 
-  if {[thread::send $thread [list source [file join $path $name main.tcl]] result] == 1} {
+  if {[thread::send $thread \
+        [list source [file join $path $name main.tcl] ] result] == 1} {
     ${log}::critical "couldn't start $name thread: $result"
     exit -1
   }


@@ 52,8 53,12 @@ start_thread ui
 plugins::load [file join $path testplugin]
 
 ${log}::debug "opening initial window..."
-thread::send [t::ns tclircc::ui] {mk_toplevel name; return $name} initial
-${log}::debug "initial window opened: $initial"
+t::exec tclircc::ui {
+  mk_toplevel name
+  expr {$name}
+} {
+  ${log}::debug "initial window opened: $result"
+}
 
 ${log}::info "entering event loop"
 vwait nil