Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] dump-face patch

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