Use Windows.pkg
Use File_dlg.pkg

Object oFileCompareConfig is a ModalPanel
  Set Size to 127 429
  Set Label to "Configuration File Compare Tool"
  Set piMinSize to 89 211
  Set Location to 2 2
  Set Border_Style To Border_Thick

  Object oOK_Btn is a Button
    Set Label    to "&OK"
    Set Location to 109 320
    Set peAnchors To anBottomRight

    Procedure OnClick
      String sFile
      Get Value of oForm1 to sFile
      Set FileCompareApp of ghoApplication to sFile
      Send Close_Panel
    End_Procedure
  End_Object

  Object oCancel_Btn is a Button
    Set Label    to "&Cancel"
    Set Location to 109 375
    Set peAnchors to anBottomRight

    Procedure OnClick
        Send Close_Panel
    End_Procedure
  End_Object

  Object oForm1 is a Form
    Set Size to 13 311
    Set Location to 63 74
    Set Prompt_Button_Mode to pb_PromptOn


    Procedure Prompt
      Integer bOpen 
      String sFileName

      Get Show_Dialog of oOpenDialog to bOpen
      If bOpen Begin
          Get File_Name of oOpenDialog to sFileName
          Set value to sFileName
      End
    End_Procedure

  End_Object

  Object oExplanationText is a TextBox
    Set Size to 9 161
    Set Location to 11 22
    Set Label to "Select your preferred file comparison tool to use, such as Beyond Compare, WinMerge, Araxis merge etc.."
  End_Object

  Object oTextBox1 is a TextBox
    Set Size to 9 35
    Set Location to 24 23
    Set Label to "You need to put the full path and filename, without parameters"
  End_Object

  Object oOpenDialog is a OpenDialog
    Set Dialog_Caption to "Select your file compare application of choice"
    Set Filter_String to "Programs|*.exe|Any file|*.*"
  End_Object
  
  Procedure Popup
    String sFile
    Get FileCompareApp of ghoApplication to sFile
    Set Value of oForm1 to sFile
    Forward Send Popup
  End_Procedure

  On_Key Key_Alt+Key_O Send KeyAction of oOK_Btn
  On_Key Key_Alt+Key_C Send KeyAction of oCancel_Btn

End_Object