Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- rebol [
- Title: "Yvonne View"
- Version: 2.0
- Purpose: [To learn a bit about REBOL.]
- ]
- counter: 0
- ticks: 20
- get-pic: func[] [
- parts: parse read http://pics.mytrapster.com/yvonne.php {="}
- to-image (load-image (load to-string parts/6))
- ]
- set-size: func[ pic ] [
- tx: pic/size/x + 20
- ty: pic/size/y + 20
- to-pair (as-pair tx ty)
- ]
- reset-b: func[w i] [
- temp: get-pic
- i/size: temp/size
- set-face i temp
- w/size: set-size temp
- show w
- ]
- v1: layout [
- at 10x10 b: image get-pic rate 1 feel [engage: func[f a e] [
- if a = 'time[
- if counter = ticks[
- counter: 0
- reset-b v1 b
- ]
- counter: counter + 1
- ]
- ]
- ]
- at 10x10 btn "Refresh" [reset-b v1 b]
- at 75x10 btn "Quit" [quit]
- ]
- view v1
- do-events
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement