|
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 |
led: make rebface [ |
|---|
| 2 |
tip: { |
|---|
| 3 |
USAGE: |
|---|
| 4 |
led "Option" |
|---|
| 5 |
led "Option" data true |
|---|
| 6 |
led "Option" data false |
|---|
| 7 |
led "Option" data none |
|---|
| 8 |
|
|---|
| 9 |
DESCRIPTION: |
|---|
| 10 |
Tristate indicator box with colors representing Yes & No, and empty being Unknown. |
|---|
| 11 |
} |
|---|
| 12 |
size: -1x5 |
|---|
| 13 |
effect: [draw [pen colors/outline-light fill-pen none box 0x0 0x0]] |
|---|
| 14 |
font: default-font |
|---|
| 15 |
para: default-para-indented |
|---|
| 16 |
feel: make default-feel [ |
|---|
| 17 |
redraw: make function! [face act pos] [ |
|---|
| 18 |
all [ |
|---|
| 19 |
act = 'show |
|---|
| 20 |
face/effect/draw/4: select reduce [true colors/state-dark false colors/state-light] face/data |
|---|
| 21 |
] |
|---|
| 22 |
] |
|---|
| 23 |
] |
|---|
| 24 |
init: make function! [] [ |
|---|
| 25 |
if negative? size/x [size/x: 10000 size/x: 4 + para/origin/x + first size-text self] |
|---|
| 26 |
effect/draw/6/y: sizes/cell |
|---|
| 27 |
effect/draw/7: as-pair sizes/cell * 3 sizes/cell * 2.5 |
|---|
| 28 |
] |
|---|
| 29 |
] |
|---|
