On 03-Jul-02, Brett Handley wrote: > Hi Carl,
> As Anton has shown, it finds a face that has the specified shortcut > key defined on it. It is called by another part of VID to implement > shortcut keys for VID layouts. Based on the logic of this function I > wrote a few face search functions that find faces given a function > that tests a condition: > http://www.codeconscious.com/rebsite/rebol-library/face-searches.r > In answer to the next question "what have you used these for?", I > used them in my "Play app" demos on Rebiste "Code. C.". These demos > were an experiment automating pre-existing view applications .eg. > Calculator, Effect lab. My demo uses the search functions to find > buttons and activate them, etc. finally taking a screen (face) > capture of the resulting screens. > Given your explorations of the face (and it pane) resulting from the > Layout function, I thought you might be interested. Thanks Brett (and Anton.) Yes, it's something that could prove useful. Oh, and my little script was a wee bit bugged. (: It would print the same object twice if its pane was an object and not a block. Fixed with this version... REBOL [] examine-lo: func [face][ style: func [face][ if error? try [return join " Style: " face/style][""] ] examine: function [face spaces][panes][ prin join spaces type? :face if not object? :face [print "" exit] print style :face append spaces " " panes: get in face 'pane either block? :panes [ print rejoin [spaces type? :panes style :panes] foreach pane face/pane [examine :pane spaces] ][ examine :panes spaces ] remove/part spaces 4 ] examine face "" ] lo: layout [text-list] examine-lo lo -- Carl Read -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
