|
Revision 112, 0.8 kB
(checked in by ashley, 8 months ago)
|
Added pill.r
Scroller fixes
Major color / theme management changes (in progress)
|
| Line | |
|---|
| 1 |
link: make rebface [ |
|---|
| 2 |
tip: { |
|---|
| 3 |
USAGE: |
|---|
| 4 |
link |
|---|
| 5 |
link http://www.dobeash.com |
|---|
| 6 |
link "RebGUI" http://www.dobeash.com/rebgui |
|---|
| 7 |
|
|---|
| 8 |
DESCRIPTION: |
|---|
| 9 |
Hypertext link. |
|---|
| 10 |
} |
|---|
| 11 |
size: -1x5 |
|---|
| 12 |
font: make default-font [color: blue style: 'underline] |
|---|
| 13 |
para: default-para |
|---|
| 14 |
feel: make default-feel [ |
|---|
| 15 |
over: make function! [face act pos] [ |
|---|
| 16 |
face/font/color: either act [colors/state-light] [blue] |
|---|
| 17 |
show face |
|---|
| 18 |
] |
|---|
| 19 |
engage: make function! [face act event] [ |
|---|
| 20 |
all [ |
|---|
| 21 |
act = 'up |
|---|
| 22 |
browse face/data |
|---|
| 23 |
] |
|---|
| 24 |
] |
|---|
| 25 |
] |
|---|
| 26 |
rebind: make function! [] [ |
|---|
| 27 |
font/name: effects/font |
|---|
| 28 |
font/size: sizes/font |
|---|
| 29 |
] |
|---|
| 30 |
init: make function! [] [ |
|---|
| 31 |
unless text [text: either data [form data] ["http://www.rebol.com"]] |
|---|
| 32 |
unless data [data: to url! text] |
|---|
| 33 |
all [negative? size/x size/x: 10000 size/x: 4 + first size-text self] |
|---|
| 34 |
] |
|---|
| 35 |
] |
|---|
