How to Get a Full List of Widgets and thier Handles

[Chris Kelleher]

<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>

define variable wh-handle as handle no-undo.
define variable fr-handle as handle no-undo.

fr-handle = active-window:handle no-error.
if not valid-handle( fr-handle ) then return.

fr-handle = fr-handle:first-child /* First Frame */.
if not valid-handle( fr-handle ) then return.

do while fr-handle <> ?:

message fr-handle:name fr-handle:type view-as alert-box.
wh-handle = fr-handle:first-child. /* Field Group */

message wh-handle:name wh-handle:type view-as alert-box.
wh-handle = wh-handle:first-child. /* First Widget In Field Group */

do while wh-handle <> ?:
if not valid-handle( wh-handle ) then return.

message wh-handle:name wh-handle:type view-as alert-box.

wh-handle = wh-handle:next-sibling.
end. /* do while */

fr-handle = fr-handle:next-sibling. /* Next Frame */

end.

[/code]