Use StrucTrc.utl // Object for tracing a restructure operation #IFDEF IS$WINDOWS activate_view Activate_RestructureTracer for oRestructureTracer object oRestructureTracer is a aps.View label "Trace restructure operation" set Border_Style to BORDER_THICK // Make panel resizeable on_key kcancel send close_panel object oLst is a cRSTraceList on_key kenter send display_definition set size to 150 400 end_object object oBtn1 is a aps.Multi_Button on_item "Load trace" send load_trace to (oLst(self)) end_object object oBtn2 is a aps.Multi_Button on_item t.btn.close send close_panel end_object send aps_locate_multi_buttons procedure aps_onResize integer delta_rw# integer delta_cl# send aps_resize (oLst(self)) delta_rw# 0 send aps_register_multi_button (oBtn1(self)) send aps_register_multi_button (oBtn2(self)) send aps_locate_multi_buttons send aps_auto_size_container end_procedure // procedure popup // send fill_list to (oLst(self)) // forward send popup // end_procedure end_object #ELSE /StrucTrc.Hdr ÚÄDisplay trace of restructureÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ /StrucTrc.Lst ³ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ _________________________________________________________________________ ³ ³ ³ /StrucTrc.Btn ³ ______________ _________ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ /* activate_view Activate_RestructureTracer for oRestructureTracer object oRestructureTracer is a app.Client StrucTrc.Hdr action_bar (main_menu(self)) set location to 4 1 absolute on_key kcancel send request_cancel object oLst is a cRSTraceList StrucTrc.Lst set location to 1 0 relative on_key kuser send fill_list on_key kenter send display_definition end_object object oBtn is a app.Button StrucTrc.Btn set location to 17 0 relative item_list on_item "Load trace" send load_trace to (oLst(self)) on_item "Close" send request_cancel end_item_list end_object end_object // oRestructureTracer #ENDIF procedure Activate_RestructureTracer_With_File string fn# send load_trace_file to (oFdxTraceArray(self)) fn# send fill_list to (oLst(oRestructureTracer(self))) #IFDEF IS$WINDOWS send popup to (oRestructureTracer(self)) #ELSE send activate_scope to (oRestructureTracer(self)) #ENDIF end_procedure