【发布时间】:2014-05-27 17:03:58
【问题描述】:
我想要实现的是在视口上注册左键单击。在视口上执行单击后,我收到一条错误消息,指出应用程序不是过程,期望可以应用于参数的过程
谁能指导我这段代码有什么问题?
(define mclick (get-mouse-click vp))
(if (left-mouse-click? mclick)
(if
(and (> (posn-x (mouse-click-posn mclick)) (50))(< (posn-x (mouse-click-posn mclick)) (99))
(> (posn-y (mouse-click-posn mclick)) (50))(< (posn-y (mouse-click-posn mclick)) (99)))
(set! c1 ((draw-solid-rectangle vp) (make-posn 50 50) 50 500 "green"))
)
)
【问题讨论】: