Arrows GUI


arrow-gui.ss

The teachpack arrow-gui.ss implements three functions:

  • control : -> symbol
    to read out the current state of the message field
  • view : (union string symbol) -> true
    to display its argument in the message field
  • modelT = (button% event% -> true)
    connect : modelT modelT modelT modelT -> true
    to connect four controllers with the four directions in the arrow window
  • Example:

    > (define (make-model dir)
       (lambda (b e)
         (begin
           (view dir)
           (printf "~a ~n" (control)))))
    
    > (connect
       (make-model "left")
       (make-model "right")
       (make-model "up")
       (make-model "down"))  
    
    Now click on the four arrows. The message field will contain the current direction, the print-out the prior contents of the message field.