[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Newbie Mr.Ed question




Jon, check this out:

  (define f (make-object frame% "hello" #f 100 100))

  (send f show #t)

  (define message1 (make-object message% "hello again" f))

  (define next-question "foo")

  (define right-answer
    (lambda ()
      (begin
	(send message1 set-label "You're right!") ;message% object
	(sleep/yield 1)
	(send message1 set-label next-question))))

  (sleep/yield 1)
  (right-answer)

It doesn't explain the difference in behavior but it may help you get off
the ground.