VERSION DVX 1.00
Begin Form XferOptsForm
    Caption   = "Transfer Options"
    Layout    = VBox
    AutoSize  = True
    Resizable = False
    Centered  = True
    Begin HBox rowDir
        Begin Label lblDir
            Caption  = "Download folder:"
            MinWidth = 128
        End
        Begin TextBox txtDir
            MinWidth = 224
            Weight   = 1
        End
    End
    Begin HBox rowExists
        Begin Label lblExists
            Caption  = "If a file exists:"
            MinWidth = 128
        End
        Begin DropDown ddExists
            MinWidth = 224
            Weight   = 1
        End
    End
    Begin CheckBox chkAutoZmodem
        Caption = "Start ZMODEM downloads automatically"
    End
    Begin CheckBox chkResume
        Caption = "Ask the other side to continue interrupted uploads (ZMODEM)"
    End
    Begin CheckBox chkEscape
        Caption = "Escape all control characters (for links that lose them)"
    End
    Begin HBox boxButtons
        Alignment = Right
        Begin CommandButton cmdXferOk
            Caption   = "&OK"
            Default   = True
            MinWidth  = 80
            MinHeight = 24
        End
        Begin CommandButton cmdXferCancel
            Caption   = "&Cancel"
            Cancel    = True
            MinWidth  = 80
            MinHeight = 24
        End
    End
End


' The MIT License (MIT)
'
' Copyright (C) 2026 Scott Duensing
'
' Permission is hereby granted, free of charge, to any person obtaining a copy
' of this software and associated documentation files (the "Software"), to
' deal in the Software without restriction, including without limitation the
' rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
' sell copies of the Software, and to permit persons to whom the Software is
' furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in
' all copies or substantial portions of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
' IN THE SOFTWARE.


' termXfer.frm -- Terminal's Transfer Options dialog: the download
' folder, what happens to a download that already exists, and the ZMODEM
' settings (start downloads automatically, ask to continue uploads,
' escape every control character).  OK copies them into the phone book's
' transfer settings (terminal.bas) and sets dlgAccepted; the caller saves
' them.  An empty folder means the default one.

OPTION EXPLICIT


' Show the dialog (modal).  True when the user pressed OK.
FUNCTION XferOptionsDialog() AS BOOLEAN
    Load XferOptsForm
    dlgAccepted = False

    txtDir.MaxLength    = TERM_DIR_MAX
    txtDir.Text         = downloadDir
    FillChoices ddExists, EXISTS_LABELS, xferExists
    chkAutoZmodem.Value = autoZmodem
    chkResume.Value     = resumeUploads
    chkEscape.Value     = escapeCtl

    XferOptsForm.Show vbModal
    XferOptionsDialog = dlgAccepted
END FUNCTION


SUB cmdXferCancel_Click
    Unload XferOptsForm
END SUB


SUB cmdXferOk_Click
    downloadDir = txtDir.Text

    IF downloadDir = "" THEN
        downloadDir = DefaultDownloadDir$()
    END IF

    xferExists    = ChosenIndex(ddExists)
    autoZmodem    = chkAutoZmodem.Value
    resumeUploads = chkResume.Value
    escapeCtl     = chkEscape.Value
    dlgAccepted   = True
    Unload XferOptsForm
END SUB