// Use FdxCheck.vw // View for interfacing validity check of table definitions Use FdxCheck.pkg // Classes for displaying validity check of table definitions #IFDEF IS$WINDOWS register_object oGrp register_object oFrm_ErrorText object oFdxCheck_Vw is a aps.View label "Check definitions" property integer piDoRunOnActivate public 0 on_key KCANCEL send close_panel object oLst is a cFdxCheckErrorList procedure OnErrorChange string full_error_text# integer error_class# set value of (oFrm_ErrorText(oGrp(self))) item 0 to full_error_text# set label of (oFrm_ErrorText(oGrp(self))) to (sErrorClassText.i(self,error_class#)+":") end_procedure procedure update_display_counter integer errors# integer warnings# string detail_level_text# local string str# move "# error(s) and # warning(s), displaying #" to str# replace "#" in str# with errors# replace "#" in str# with warnings# replace "#" in str# with (lowercase(detail_level_text#)) send UpdateTotal str# end_procedure end_object object oTotal is a aps.TextBox snap SL_DOWN set fixed_size to 0 200 set auto_size_state to DFFALSE set Justification_Mode to JMODE_LEFT end_object procedure UpdateTotal string str# set label of (oTotal(self)) to str# end_procedure object oGrp is a aps.Group label "Current error info" snap SL_DOWN object oFrm_ErrorText is a aps.Form abstract AFT_ASCII60 label "Error:" set enabled_state to DFFALSE Set Fontweight to 900 end_object end_object send aps_align_by_sizing (oGrp(self)) (oLst(self)) SL_ALIGN_RIGHT procedure update_display local integer iObj move (oFdxCheck(self)) to iObj send fill_list.i to (oLst(self)) iObj end_procedure procedure Callback_Filelist_Entry integer file# integer selected# integer shaded# send DoFdxCheckTable (fdx.object_id(0)) file# end_procedure procedure DoRun local integer select_count# send cursor_wait to (cursor_control(self)) send DoFdxCheckReset send DFMatrix_CallBack_Selected_Files msg_Callback_Filelist_Entry self -1 0 1 // Selected=Dont care, shaded=0, master tables only send update_display send cursor_ready to (cursor_control(self)) end_procedure procedure OnChangeFDX_Broadcasted set delegation_mode to DELEGATE_TO_PARENT if (active_state(self)) send DoRun else set piDoRunOnActivate to DFTRUE end_procedure procedure DoDisplayDefinitionFromCheckView local integer vw# sz# move (oFdxDisplayFileAttributes(self)) to vw# ifnot (active_state(vw#)) begin send Activate_Table_Definition set location to 5 5 get size to sz# move (hi(sz#)) to sz# send aps_onResize (230-sz#) 0 set location of vw# to 235 5 end else send Activate_Table_Definition end_procedure object oBtn1 is a aps.Multi_Button on_item "Show &definition" send DoDisplayDefinitionFromCheckView end_object object oBtn2 is a aps.Multi_Button on_item "Severity level" send Toggle_DetailLevel to (oLst(self)) end_object object oBtn3 is a aps.Multi_Button on_item "Close" send close_panel end_object send aps_locate_multi_buttons set Border_Style to BORDER_THICK // Make panel resizeable procedure aps_onResize integer delta_rw# integer delta_cl# send aps_resize (oLst(self)) delta_rw# 0 // delta_cl# send aps_auto_locate_control (oTotal(self)) SL_DOWN send aps_auto_locate_control (oGrp(self)) SL_DOWN send aps_register_multi_button (oBtn1(self)) send aps_register_multi_button (oBtn2(self)) send aps_register_multi_button (oBtn3(self)) send aps_locate_multi_buttons send aps_auto_size_container end_procedure procedure popup forward send popup if (piDoRunOnActivate(self)) send DoRun set piDoRunOnActivate to DFFALSE end_procedure end_object // oFdxCheck_Vw procedure Activate_FdxCheck_Vw send popup to (oFdxCheck_Vw(self)) end_procedure #ELSE /FdxCheck_Vw.hdr 旼Check definitions컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � � /FdxCheck_Vw.lst � # Root name Err# Error text � � ___. ______________________ ___. _____________________________________ � � ___. ______________________ ___. _____________________________________ � � ___. ______________________ ___. _____________________________________ � � ___. ______________________ ___. _____________________________________ � � ___. ______________________ ___. _____________________________________ � � ___. ______________________ ___. _____________________________________ � � ___. ______________________ ___. _____________________________________ � � ___. ______________________ ___. _____________________________________ � � ___. ______________________ ___. _____________________________________ � /FdxCheck_Vw.frm � ______________________________________________________________________ � � � � ________ ______________________________________________________________� � � /FdxCheck_Vw.btn � _________________ ______________ _________ � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 /* object oFdxCheck_Vw is a app.Client FdxCheck_Vw.hdr action_bar (main_menu(self)) set location to 3 0 ABSOLUTE property integer piDoRunOnActivate public 0 on_key kcancel send request_cancel object oLst is a cFdxCheckErrorList FdxCheck_Vw.lst set location to 2 0 RELATIVE register_object oFrm procedure OnErrorChange string full_error_text# integer error_class# set value of (oFrm(self)) item 1 to (sErrorClassText.i(self,error_class#)+":") set value of (oFrm(self)) item 2 to full_error_text# end_procedure procedure update_display_counter integer errors# integer warnings# string detail_level_text# local string str# move "# error(s) and # warning(s), displaying #" to str# replace "#" in str# with errors# replace "#" in str# with warnings# replace "#" in str# with (lowercase(detail_level_text#)) send UpdateTotal str# end_procedure end_object object oFrm is a Form FdxCheck_Vw.frm set location to 12 0 RELATIVE set focus_mode to POINTER_ONLY item_list on_item "" send none on_item "" send none on_item "" send none end_item_list set window_color 0 to 2 set window_color 1 to 2 end_object procedure UpdateTotal string str# set value of (oFrm(self)) item 0 to str# end_procedure object oBtn is a app.Button FdxCheck_Vw.btn set location to 16 0 RELATIVE item_list on_item "Show definition" send none // DoDisplayDefinitionFromCheckView on_item "Detail level" send Toggle_DetailLevel to (oLst(self)) on_item "Close" send request_cancel end_item_list end_object procedure update_display local integer iObj move (oFdxCheck(self)) to iObj send fill_list.i to (oLst(self)) iObj end_procedure procedure Callback_Filelist_Entry integer file# integer selected# integer shaded# send DoFdxCheckTable (fdx.object_id(0)) file# end_procedure procedure DoRun local integer select_count# send DoFdxCheckReset send DFMatrix_CallBack_Selected_Files msg_Callback_Filelist_Entry self -1 0 1 // Selected=Dont care, shaded=0, master tables only send update_display end_procedure procedure OnChangeFDX_Broadcasted set delegation_mode to DELEGATE_TO_PARENT if (active_state(self)) send DoRun else set piDoRunOnActivate to DFTRUE end_procedure procedure activate_scope forward send activate_scope if (piDoRunOnActivate(self)) send DoRun set piDoRunOnActivate to DFFALSE end_procedure end_object // oFdxCheck_Vw procedure Activate_FdxCheck_Vw send activate_scope to (oFdxCheck_Vw(self)) end_procedure #ENDIF