<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]
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]