|
Revision 112, 0.7 kB
(checked in by ashley, 9 months ago)
|
|
Added pill.r
Scroller fixes
Major color / theme management changes (in progress)
|
| Line | |
|---|
| 1 | tooltip: make pill [
|
|---|
| 2 | tip: {
|
|---|
| 3 | USAGE:
|
|---|
| 4 | tooltip "Some text."
|
|---|
| 5 |
|
|---|
| 6 | DESCRIPTION:
|
|---|
| 7 | Tooltip text.
|
|---|
| 8 | }
|
|---|
| 9 | size: -1x-1
|
|---|
| 10 | color: colors/page
|
|---|
| 11 | ; edge: default-edge
|
|---|
| 12 | font: default-font
|
|---|
| 13 | para: make default-para [origin: 4x4 margin: 4x4]
|
|---|
| 14 | rate: 2
|
|---|
| 15 | rebind: make function! [] [color: colors/page]
|
|---|
| 16 | init: make function! [] [
|
|---|
| 17 | effect/draw/pen: colors/text
|
|---|
| 18 | either all [negative? size/x negative? size/y] [
|
|---|
| 19 | size: 10000x10000
|
|---|
| 20 | size: 8 + size-text self
|
|---|
| 21 | ][
|
|---|
| 22 | all [negative? size/x para: default-para-wrap size/x: 10000 size/x: 8 + first size-text self]
|
|---|
| 23 | all [negative? size/y para: default-para-wrap size/y: 10000 size/y: 8 + second size-text self]
|
|---|
| 24 | ]
|
|---|
| 25 | ]
|
|---|
| 26 | ] |
|---|