[Jscheme-user] (no subject)

[Ken A. <kan...@bb...>]

I guess i don't understand how these new environmnets work.  When i load 
this file, and run
(interruptButton)
I get the error
(jl:button "Interrupt" Color.red$ (jl:action (lambda interruptButton~2 
(e)...) ))
  t = Thread[main,5,main]

  ====================================
SchemeException:[[ERROR: undefined variable "processConArgs"""]]
 >
What am i doing wrong?
(environment-import jlib.JLIB.class "jl:")
(import "java.awt.Color")
(define (interruptButton)
  ;; Provides an interrupt button for this thread.
  ;; JScheme execution will be interrupted on the next procedure call.
  (let* ((t (Thread.currentThread))
     (win (jl:window "Interrupt"
              (jl:border
               (jl:north (jl:label (.toString t)))
               (jl:center (jl:button "Interrupt"
                       Color.red$
                       (jl:action
                    (lambda (e)
                      (Scheme.interrupt t)))))))))
    (.pack win)
    (.show win)))