Handbook
Glossary
border-metric ( border quot -- n )
Vocabulary
ui
.
gadgets
.
borders
.
private
Inputs
border
an
object
quot
an
object
Outputs
n
an
object
Definition
USING:
accessors
kernel
math
sequences
ui.gadgets
;
IN:
ui.gadgets.borders.private
:
border-metric
( border quot -- n )
[
drop
size>>
second
]
[
[
gadget-child
]
dip
call
]
2bi
dup
[
+
]
[
nip
]
if
;
inline