|
Revision 110, 0.7 kB
(checked in by ashley, 10 months ago)
|
|
Added RebDOC app and heading widget
scroll-panel.r and tree.r fixes
Removed unmaintained widgets
|
| Line | |
|---|
| 1 | anim: make rebface [
|
|---|
| 2 | tip: {
|
|---|
| 3 | USAGE:
|
|---|
| 4 | anim data [%images/go-previous.png %images/go-next.png]
|
|---|
| 5 | anim data [img1 img2 img3] rate 2
|
|---|
| 6 |
|
|---|
| 7 | DESCRIPTION:
|
|---|
| 8 | Cycles a set of images at a specified rate.
|
|---|
| 9 | }
|
|---|
| 10 | size: -1x-1
|
|---|
| 11 | effect: 'fit
|
|---|
| 12 | feel: make default-feel [
|
|---|
| 13 | engage: make function! [face act event] [
|
|---|
| 14 | all [
|
|---|
| 15 | act = 'time
|
|---|
| 16 | face/image: first face/data
|
|---|
| 17 | face/data: either tail? next face/data [head face/data] [next face/data]
|
|---|
| 18 | show face
|
|---|
| 19 | ]
|
|---|
| 20 | ]
|
|---|
| 21 | ]
|
|---|
| 22 | rate: 1
|
|---|
| 23 | init: make function! [] [
|
|---|
| 24 | repeat i length? data: reduce data [
|
|---|
| 25 | all [file? pick data i poke data i load pick data i]
|
|---|
| 26 | ]
|
|---|
| 27 | image: first data
|
|---|
| 28 | data: next data
|
|---|
| 29 | all [negative? size/x size/x: image/size/x]
|
|---|
| 30 | all [negative? size/y size/y: image/size/y]
|
|---|
| 31 | ]
|
|---|
| 32 | ] |
|---|
