view make face [
size: 10x10
do do-this: does [
insert tail pane: [] make face [
feel: make feel [
detect: func [face evt][
if evt/type = 'up [
repeat i 5000 [
do-this
]
]
evt
]
]
color: edge: font: para: none
pane: make face [color: edge: font: para: feel: none]
]
]
color: edge: font: para: none
] | 
