dump-face patch
[1/1] from: rotenca::telvia::it at: 15-Feb-2002 15:46
This is a fast dump-face patch to put in user.r, hope can be useful to someone
(else forget it). It can also dump stylize blocks.
rebol []
dump-face: func [
"Print face info for entire pane. (for debugging)"
face [object! block!]
/local depth style
][
depth: "^-"
either block? face [
foreach f face [either object? f [dump-face f] [print [depth "Styles Name:"
f]]]
][
print [
depth
"Var:" all [in face 'var face/var]
"Styl:" all [in face 'style face/style]
"Offs:" face/offset
"Size:" face/size
"Flag:" all [in face 'flags copy/part form face/flags 15]
"Text:" if face/text [copy/part form face/text 15]
]
insert depth tab
either function? get in face 'pane [
if all [in face 'subface object? face/subface] [dump-face face/subface]
][
if object? face/pane [dump-face face/pane]
if block? face/pane [foreach f face/pane [dump-face f]]
]
remove depth
]
exit
]
---
Ciao
Romano