对象

对象

一个对象系统是另一个复杂的语言扩展的例子，值得球拍用户学习和使用。对象有时比函数更好，即使你有lambda，对象特别适合图形用户界面。球拍的GUI和图形系统的API是用对象和类来表示的。

类系统本身是由racket/class库实现的，racket/gui/base库提供了gui和绘图类。按照惯例，类的名字以%结尾:

(require racket/class
         racket/gui/base)
(define f (new frame% [label "My Art"]
                      [width 300]
                      [height 300]
                      [alignment '(center center)]))


> (send f show #t)

新表单创建一个类的实例，其中初始化参数(如label和width)由名称提供。发送表单调用对象的一个方法，例如show，方法名后面有参数;在本例中，参数#t是布尔常量“true”。

使用slideshow生成的图片封装了一个函数，该函数使用图形工具箱的绘制命令将图片呈现到绘图上下文，例如框架中的画布。来自slideshow的make-pict-drawer函数公开了图片的绘制函数。我们可以在canvas-painting回调中使用make-pict-drawer绘制一张图片到画布上:

(define (add-drawing p)
  (let ([drawer (make-pict-drawer p)])
    (new canvas% [parent f]
                 [style '(border)]
                 [paint-callback (lambda (self dc)
                                   (drawer dc 0 0))])))


> (add-drawing (pict+code (circle 10)))
#(struct:object:canvas% ...)

> (add-drawing (colorize (filled-flash 50 30) "yellow"))
#(struct:object:canvas% ...)

[image]

每个canvas扩展以填充框架的相等部分，因为这是框架在默认情况下管理其子元素的方式。