Racket代码信息

运行结果
教程手册
代码仓库
极速运行
交互输入
极速运行模式,不支持键盘输入语句但是拥有更高的运行速度,输出简洁明了 。 点击编辑器上方的运行按钮即刻体验吧。
以下是用户最新保存的代码
[更多]
显示目录

对象

对象

一个对象系统是另一个复杂的语言扩展的例子,值得球拍用户学习和使用。对象有时比函数更好,即使你有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扩展以填充框架的相等部分,因为这是框架在默认情况下管理其子元素的方式。

由JSRUN为你提供的Racket在线工具
        JSRUN提供的Racket在线运行,Racket 在线编译工具,基于linux操作系统环境提供线上编译和线上运行,具有运行快速,运行结果与常用开发、生产环境保持一致的特点。

title

使用此草稿 删除草稿

皮肤:

运行模式:

嵌入代码 iframe嵌入: