rebol

Rebol是我专业课程的必修课，但之前总觉得没啥用处，一直都没有上心。直到现在要做大作业了，才渐渐发现这个语言也很有意思。

关于rebol的安装、语法等细节在此不做介绍，请参考官网http://www.rebol.com/

先放一个官网上的例子——时钟clock

REBOL [
	Title: "Resizable Digital Clock"
	Version: 1.3.3
	Author: "Carl Sassenrath"
]

f: layout [
	origin 0
	b: banner 140x32 rate 1
		effect [gradient 0x1 0.0.150 0.0.50]
		feel [engage: func [f a e] [set-face b now/time]]
]

resize: does [
	b/size: max 20x20 min 1000x200 f/size
	b/font/size: max 24 f/size/y - 40
	b/text: "Resize Me"
	b/size/x: 1024 ; for size-text
	b/size/x: 20 + first size-text b
	f/size: b/size
	show f
]

view/options/new f 'resize
resize
insert-event-func [
	if event/type = 'resize [resize]
	event
]
do-events

点击打开rebol文件，就会出现上述视图。