5 (setf GUI (coproc "wish" true))
8 (while (and (setf FS (net-select (list 0 (GUI 3)) "r" -1))
10 (let ((cmd (:gets GUI)))
12 (when (starts-with cmd "eval:")
13 (println (eval-string (println (5 cmd))))))))
15 (prompt-event GUI-events)
17 (println (:pugs GUI [text]
19 button .top.b -text "whatever" -command {puts "eval: hello"}