#IFDEF IS$WINDOWS
object oDfmFnc07 is a fdxrpt.ModalClient label "Create selected DEF/FD files"
  object oFrm1 is a aps.SelectDirForm label "Target directory:" abstract AFT_ASCII50
    on_key kenter send next
    set p_extra_internal_width to -40
  end_object
  send aps_goto_max_row
  send make_column_space 70
  object oCb1 is a aps.CheckBox label "Create FD files" snap SL_DOWN
    set checked_state to true
  end_object
  object oCb2 is a aps.CheckBox label "Create DEF files" snap SL_DOWN
    set checked_state to true
  end_object
  object oBtn1 is a aps.Multi_Button
    on_item t.btn.ok send DoReport
  end_object
  object oBtn2 is a aps.Multi_Button
    on_item t.btn.cancel send close_panel
  end_object
  send aps_locate_multi_buttons
  function sDestination returns string
    function_return (value(oFrm1(self),0))
  end_function
  function iCreateFD returns integer
    integer liCS
    get checked_state of (oCb1(self)) to liCS
    function_return liCS
  end_function
  function iCreateDEF returns integer
    integer liCS
    get checked_state of (oCb2(self)) to liCS
    function_return liCS
  end_function
#ELSE
/DfmFnc07.Hdr
ÉÍCreate DEF/FD filesÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
/DfmFnc07.Frm
º                                                      º
º     Create DEF/FD files for selected definitions     º
º                                                      º
º Target directory:                                    º
º   __________________________________________________ º
º                                                      º
º               ___ Create FD files                    º
º               ___ Create DEF files                   º
º                                                      º
/DfmFnc07.Btn
º                                 ________ __________  º
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
/*
object oDfmFnc07 is a fdxrpt.ModalClient DfmFnc07.Hdr
  set location to 5 12 absolute
  object oFrm is a Form DfmFnc07.Frm
    set location to 1 0 relative
    set select_mode to MULTI_SELECT
    item_list
      on_item "" send none
      on_item "" send none
      set checkbox_item_state to true
      set select_state to true
      on_item "" send none
      set checkbox_item_state to true
      set select_state to false
    end_item_list
 // set checkbox_item_state item 1 to true
 // set select_state item 1 to true
  end_object
  object oBtn is a app.Button DfmFnc07.Btn
    set location to 10 0 relative
    item_list
      on_item t.btn.ok send DoReport
      on_item t.btn.cancel send cancel
    end_item_list
  end_object
  function sDestination returns string
    function_return (value(oFrm(self),0))
  end_function
  function iCreateFD returns integer
    function_return (select_state(oFrm(self),1))
  end_function
  function iCreateDEF returns integer
    function_return (select_state(oFrm(self),2))
  end_function
#ENDIF
  set piDontRegister to dfTrue // Don't register with the main menu
  procedure Callback_Filelist_Entry integer file# integer selected# integer shaded#
    local integer oFDX# grb#
    local string root# dir# dfname#
    get sDestination to dir#
    get piFDX_Server to oFDX#
    move (FDX_AttrValue_FILELIST(oFDX#,DF_FILE_ROOT_NAME,file#)) to root#
    move (FDX_AttrValue_FILELIST(oFDX#,DF_FILE_LOGICAL_NAME,file#)) to dfname#
    if dir# ne "" move (SEQ_ComposeAbsoluteFileName(dir#,root#)) to root#
    if (DBMS_OpenFileAs(root#,file#,DF_SHARE,0)) begin
      if (iCreateDEF(self)) Output_Aux_File DF_AUX_FILE_DEF For file# Number file# to (dfname#+".DEF")
      if (iCreateFD(self)) Output_Aux_File DF_AUX_FILE_FD For file# Number file# to (dfname#+".FD")
      close file#
    end
  end_procedure
  procedure DoReport
    local integer update_filelist# select_count#
    local string dir# filelist#
    get File_Select_Count of (DFMatrix_SelectorObject()) to select_count#
    ifnot select_count# send obs "No tables selected!"
    else begin
      send Callback_Filelist_Entries 1 0 // This does the actual work!
      send obs "Done"
    end
  end_procedure
end_object // oDfmFnc07

procedure Popup_CreateDEF_FD
  send popup to (oDfmFnc07(self))
end_function