123 lines
3.7 KiB
Text
123 lines
3.7 KiB
Text
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
|