#!/usr/bin/newlisp

(load "coproc.lsp")

(setf GUI (coproc "wish" true))

(define (GUI-events)
  (while (and (setf FS (net-select (list 0 (GUI 3)) "r" -1))
              (not (member 0 FS)))
    (let ((cmd (:gets GUI)))
      (unless cmd (exit 0))
      (when (starts-with cmd "eval:")
        (println (eval-string (println (5 cmd))))))))

(prompt-event GUI-events)

(println (:pugs GUI [text]
frame .top
button .top.b -text "whatever" -command {puts "eval: hello"}
pack .top.b
pack .top
[/text]
))