[REBOL] WB skins
From: rebolek::seznam::cz at: 14-Aug-2002 8:40
Oldesu,
jak sem si stahl novou verzi tech wb-skinz, tak sem si uvedomil, ze sem
ti zapomel rict jeste o jedne zmene, kterou sem tam udelal:
'radio sem upravil, takze kdyz das do layoutu napr [radio "Radio1" skin
'akward] tak se zobrazi radiobutton aji s textem a ten text je aktivni
(da se zmacknout aji na neho a clovek se nemusi trefovat jen do cudliku
- vlastne jako ve windows).
Takze sorry, vidim, ze ty ostatni zmeny's tam zakomponoval, tak ja ti
posilam upravenou verzi, kde je aji vylepseny 'radio.
A mimochodem, kdyz spoustis %wb-styles.r, tak predpokladas, ze 'site je
nastaveny na http://oldes.multimeda.cz , coz samzrejme neni vzdycky
pravda, takze do objektu 'wb-skinner sem dodelat 'site a ted uz to
funguje.
Jo, ted sem doupravoval aji 'wb-check, takze funguje jako 'wb-radio.
Tak se nejak ozvi, zdarec palec, bolek
---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz).
Verze: 6.0.381 / Virová báze: 214 - datum vydání: 2.8.2002
-- Attached file included as plaintext by Listar --
-- File: wb-skinz.r
rebol []
wb-skiner: make object! [
site: http://oldes.multimedia.cz/
skinz: [
default [
radio [%aquarium/radio.bmp 14 4]
check [%aquarium/checkbox.bmp 14 4]
button [%aquarium/button.bmp 54 5]
arrows [%aquarium/arrows.bmp 16 23]
HorzScroll [%aquarium/hscroll_back.bmp 47 4]
HorzScrollThumb [%aquarium/hscroll_bar.bmp 69 3]
VertScroll [%aquarium/vscroll_back.bmp 16 4]
VertScrollThumb [%aquarium/vscroll_bar.bmp 16 3]
]
eplus [
radio [ %eplus/radio.bmp 13 4]
button [%eplus/button.bmp 26 5]
]
wbmaniaiii [
radio [ %wbmaniaiii/radiobox.bmp 14 4]
button [%wbmaniaiii/button.bmp 56 5]
]
imac [
radio [%imac/radiobutton.bmp 14 4]
check [%imac/checkbox.bmp 14 4]
button [%imac/button.bmp 26 5]
arrows [%imac/scrollar.bmp 16 23]
ShowDot? on
HorzScroll [%imac/scrollhz.bmp 16 4]
HorzScrollThumb [%imac/scrollhb.bmp 16 3]
VertScroll [%imac/scrollvt.bmp 16 4]
VertScrollThumb [%imac/scrollvb.bmp 16 3]
]
maxwbgold [
check [%maxwbgold/checkbox.bmp 14 4]
radio [%maxwbgold/radiobutton.bmp 14 4]
button [%maxwbgold/bms.bmp 40 5]
arrows [%maxwbgold/arrows.bmp 16 23]
ShowDot? on
HorzScroll [%maxwbgold/hscroll.bmp 16 4]
HorzScrollThumb [%maxwbgold/hscroll2.bmp 16 3]
VertScroll [%maxwbgold/vscroll.bmp 16 4]
VertScrollThumb [%maxwbgold/vscroll2.bmp 16 3]
]
]
cutImage: func[img width count /local imgz sz][
imgz: make block! count
sz: to-pair reduce [width img/size/y]
for i 0 1 - count -1 [
append imgz to-image layout/size/origin compose [
at (to-pair reduce [i * width 0])
image img
] sz 0x0
]
imgz
]
get-images: func[type [word!] /skin skname /local data images][
skname: either skin [skname]['default]
either none? images: find/tail select skinz skname type [
return none
][
data: first images
if not block? data [return data]
if file? first data [
change/only images (
cutImage load read-thru rejoin [site/skinz #"/" data/1] data/2 data/3
)
]
return (first images)
]
]
]
wb-styles: stylize [
wb-button: button with [
skin: 'default
edge: none
over?: false
feel: make feel [
redraw: func [face act pos /local state][
if all [face/texts face/texts/2] [
face/text: either face/state [face/texts/2] [face/texts/1]
]
either face/images [
face/image: either face/state [face/images/2] [
either face/over? [ last face/images ][ face/images/1 ]
]
if all [face/colors face/effect find face/effect 'colorize] [
change next find face/effect 'colorize pick face/colors not face/state
]
] [
if face/edge [face/edge/effect: pick [ibevel bevel] face/state]
state: either not face/state [face/blinker] [true]
if face/colors [face/color: pick face/colors not state]
if face/effects [face/effect: pick face/effects not state]
]
]
over: func [face action event][
face/over?: not face/over?
if all [face/font face/font/colors] [
face/font/color: pick face/font/colors not action
show face
face/font/color: first face/font/colors
]
]
engage: func [face action event][
switch action [
time [if not face/state [face/blinker: not face/blinker]]
down [face/state: on]
alt-down [face/state: on]
up [face/over?: off if face/state [do-face face face/text] face/state: off]
alt-up [if face/state [do-face-alt face face/text] face/state: off]
over [face/over?: face/state: on]
away [face/over?: face/state: off]
]
cue face action
show face
]
]
images: none
init: [
images: wb-skiner/get-images/skin 'button skin
image: first images
if not none? color [
]
color: none
either size <> image/size [
if none? effect [effect: copy []]
append effect compose [
extend (image/size / 2) (size - image/size)
]
][
;size: image/size
]
either block? effect [
insert effect [merge key 255.0.255]
][ effect: [merge key 255.0.255] ]
]
words: [
skin [new/skin: second args next args]
]
multi: make multi [
color: func [face blk][
if pick blk 1 [
either block? face/effect [
repend face/effect ['colorize pick blk 1]
][
face/effect: reduce ['colorize pick blk 1]
]
]
]
]
]
wb-toggle: wb-button with [
feel: make feel [
engage: get in system/view/vid/vid-feel/toggle 'engage
]
]
wb-rotary: wb-button with [
feel: make feel [
redraw: func [face act pos /local state][
face/text: face/data/1
either face/images [
face/image: either face/state [face/images/2] [
either face/over? [ last face/images ][ face/images/1 ]
]
if all [face/colors face/effect find face/effect 'colorize] [
change next find face/effect 'colorize pick face/colors not face/state
]
] [
if face/edge [face/edge/effect: pick [ibevel bevel] face/state]
state: either not face/state [face/blinker] [true]
if face/colors [face/color: pick face/colors not state]
if face/effects [face/effect: pick face/effects not state]
]
]
engage: func [face action event /local do-it down-it][
do-it: [if face/state [do-face face face/data/1] face/over?: face/state: off]
down-it: [if not face/state [next-face face] face/over?: face/state: on]
switch action [
time [if not face/state [face/blinker: not face/blinker]]
down down-it
alt-down [face/state: on]
up do-it
alt-up do-it
over down-it
away [face/over?: face/state: off]
]
cue face action
show face
]
next-face: func [face][
face/data: either tail? next face/data [head face/data] [next face/data]
]
back-face: func [face][
face/data: either head? face/data [back tail face/data] [back face/data]
]
]
multi: make system/view/vid/vid-styles/rotary/multi []
insert head init [if texts [data: texts]]
]
wb-arrow: arrow with [
skin: 'default
disabled?: false
img-ofs: 0
over?: false
edge: none color: none
feel: make feel [
redraw: func [face act pos][
face/image: pick face/images face/img-ofs + either face/disabled? [3][
either face/state [2][either face/over? [4][1]]
]
]
over: func [face action event][
face/over?: not face/over?
face/image: pick face/images face/img-ofs + 3
show face
]
engage: func [face action event][
switch action [
time [if not face/state [face/blinker: not face/blinker]]
down [face/state: on]
alt-down [face/state: on]
up [face/over?: off if face/state [do-face face face/text] face/state: off]
alt-up [if face/state [do-face-alt face face/text] face/state: off]
over [face/over?: face/state: on]
away [face/over?: face/state: off]
]
cue face action
show face
]
]
init: make block! [
images: wb-skiner/get-images/skin 'arrows skin
image: first images
;size: image/size
img-ofs: any [(select [left 0 right 4 up 8 down 12] data) 8]
either block? effect [
insert effect [merge key 255.0.255 fit]
][ effect: [merge key 255.0.255 fit] ]
]
words: [
down [new/data: first args args]
up [new/data: first args args]
right [new/data: first args args]
left [new/data: first args args]
skin [new/skin: second args args]
]
]
]
wb-styles: stylize/styles [
wb-scroller: slider with [
speed: 20
edge: [size: 0x0]
skin: 'default
feel: make feel [
redraw: func [face act pos][
face/data: max 0 min 1 face/data
if face/data <> face/state [
pos: face/size - face/pane/2/size - (2 * face/edge/size) - (2 * face/clip)
either face/size/x > face/size/y [
face/pane/2/offset/x: face/data * pos/x + face/clip/x
][ face/pane/2/offset/y: face/data * pos/y + face/clip/y]
face/state: face/data
show face/pane/2
]
]
detect: none
over: none
engage: func [f act evt /local tmp][
if act = 'down [
tmp: f/axis
do-face pick reduce [f/pane/4 f/pane/3] evt/offset/:tmp > f/pane/2/offset/:tmp f/page
]
]
]
images: none
;ratio: 0.5
reset: does [data: 0]
redrag: func [val /local tmp][
min-ratio: either axis = 'y [
2 + pane/2/image/size/y / (size/y - pane/3/image/size/y - pane/4/image/size/y)
][
2 + pane/2/image/size/x / (size/x - pane/3/image/size/x - pane/4/image/size/x)
]
ratio: min 1 max min-ratio val
page: any [all [ratio = 1 0] ratio / (1 - ratio)]
pane/2/size: val: size - (2 * edge/size) - (2 * clip * pick [0x1 1x0] axis = 'y)
tmp: val/:axis * ratio
if tmp < 10 [page: either val/:axis = tmp: 10 [1] [tmp / (val/:axis - tmp)]]
either axis = 'y [
pane/2/size/y: tmp
if not none? pane/2/pane [
pane/2/pane/offset/y: (pane/2/size/y / 2) - (pane/2/pane/image/size/y / 2)
]
] [
pane/2/size/x: tmp
if not none? pane/2/pane [
pane/2/pane/offset/x: (pane/2/size/x / 2) - (pane/2/pane/image/size/x / 2)
]
]
pane/2/effect: compose [
merge key 255.0.255
extend (pane/2/image/size / 2) (pane/2/size - pane/2/image/size)
]
]
resize: func [new /x /y /local tmp] [
either any [x y] [
if x [size/x: new]
if y [size/y: new]
] [
size: any [new size]
]
tmp: pick [y x] axis = 'x
clip: pane/3/size: pane/4/size: size/:tmp - (2 * edge/size/:tmp) * 1x1
pane/4/offset: size/:axis - pane/4/size/:axis - (2 * edge/size/:axis) * 0x1
if tmp: axis = 'x [pane/4/offset: reverse pane/4/offset]
pane/3/data: pick [left up] tmp
pane/4/data: pick [right down] tmp
state: pane/3/effect: pane/4/effect: none
do pane/3/init do pane/4/init
pane/2/effect: compose [
merge key 255.0.255
extend (pane/2/image/size / 2) (pane/2/size - pane/2/image/size)
]
either axis = 'x [
pane/1/offset/x: pane/3/size/x
pane/1/size/x: size/x - pane/3/size/x - pane/4/size/x
pane/1/effect: compose [
;merge key 255.0.255
extend (pane/1/image/size / 2) (1x0 * (pane/1/size - pane/1/image/size))
]
][
pane/1/offset/y: pane/3/size/y
pane/1/size/y: size/y - pane/3/size/y - pane/4/size/y
pane/1/effect: compose [
;merge key 255.0.255
extend (pane/1/image/size / 2) (0x1 * (pane/1/size - pane/1/image/size))
]
]
pane/2/offset: 0x0
redrag any [ratio 0.1]
]
init: [
pane: reduce [
make face [
edge: none
images: none
skin: 'default
]
make dragger [
edge: none
images: none
color: none
skin: 'default
over?: false
state: off
feel: make object! [
redraw: func [f a p][
f/image: either f/state [f/images/2] [
either f/over? [last f/images ][ f/images/1 ]
]
]
detect: none
over: func [f a e][f/over?: a show f ]
engage: func [f a e][
switch a [
down [f/state: on f/data: e/offset]
up [f/over?: f/state: off]
over [f/over?: f/state: on svvf/drag-off f/parent-face f f/offset + e/offset - f/data]
away [f/over?: off svvf/drag-off f/parent-face f f/offset + e/offset - f/data]
]
show f
]
]
]
axis: make get-style/styles 'wb-arrow wb-styles [
img-ofs: 0
dir: -1
action: get in svvf 'move-drag
images: none
feel: make feel [
engage: func [f a e][
switch a [
down [f/state: flag: on do-face f f/parent-face/step f/rate: 4]
alt-down [f/state: on]
up [f/over?: f/state: flag: off f/rate: none]
alt-up [if f/state [do-face-alt f f/text] f/state: off]
over [
f/over?: f/state: on
if flag [f/rate: f/parent-face/speed]
]
away [f/over?: f/state: off f/rate: none]
time [
either flag [
either f/rate <> f/parent-face/speed [
f/rate: f/parent-face/speed
][ do-face f f/parent-face/step]
][flag: on exit]
]
]
cue f a
show f
]
]
;feel: make svvf/scroll-button []
]
make axis [dir: 1 img-ofs: 4 data: 'right]
]
pane/1/skin: pane/2/skin: pane/3/skin: pane/4/skin: skin
pane/3/images: pane/4/images: wb-skiner/get-images/skin 'arrows skin
pane/3/image: first pane/3/images
pane/4/image: fifth pane/4/images
either size/y >= size/x [
axis: 'y
pane/1/images: wb-skiner/get-images/skin 'VertScroll skin
pane/1/image: first pane/1/images
pane/2/images: wb-skiner/get-images/skin 'VertScrollThumb skin
pane/2/image: first pane/2/images
][
axis: 'x
pane/1/images: wb-skiner/get-images/skin 'HorzScroll skin
pane/1/image: first pane/1/images
pane/2/images: wb-skiner/get-images/skin 'HorzScrollThumb skin
pane/2/image: first pane/2/images
]
pane/2/size: pane/2/image/size
if wb-skiner/get-images/skin 'ShowDot? skin [
pane/2/pane: make face [
color: none
edge: none
images: none
effect: [key 255.0.255]
images: wb-skiner/get-images/skin 'arrows skin
feel: make feel [
over: func [f a e][
f/parent-face/over?: a show f/parent-face
]
]
]
either axis = 'x [
pane/2/pane/image: pane/2/pane/images/17
][
pane/2/pane/image: pane/2/pane/images/20
]
pane/2/pane/size: pane/2/pane/image/size
]
;axis: pick [y x] size/y >= size/x
resize size
]
words: [
skin [new/skin: second args next args]
]
]
wb-radio: radio with [
skin: 'default
size: 14x13
image: none
color: none
edge: make face/edge [size: 0x3 color: effect: none]
disabled?: false
feel: make feel [
redraw: func [face act pos][
face/image: either face/disabled? [
either face/data [
fourth face/images
][ third face/images ]
][
either face/data [
second face/images
][ first face/images ]
]
]
over: func [face action][
face/font/color: face/font/colors/:action
show face
]
engage: func [face action event][
if not face/disabled? [
if action = 'down [
foreach item face/parent-face/pane [
if all [flag-face? item radio item/related = face/related item/data][
item/data:
