1.15 箭头GUI: "arrow-gui.rkt"
| (require htdp/arrow-gui) | package： htdp-lib |
本教学包提供用于创建和操纵箭头GUI（图形用户界面）的函数。 我们建议改用2htdp/universe。
modelT (-> button% event% true)
modelT是函数，它读入两个参数并忽略之。
读出message field的当前状态。
在message
field中显示s。
在箭头窗口中连接四个控制函数和四个方向。
例子：
; 高级 (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"))
现在点击四个箭头。message field会显示当前方向。