#-------------------------------------------------------------------------------
# Name     : FTP
# Licence  : Freeware
# Author   : Stuart Halliday & Fred Graute
# Version  : 1.00
# Purpose  : Demonstrate FTP uploads using StrongED
# Email    : 
# Webpage  : 
#
# Changes:
#-------------------------------------------------------------------------------

Functions
	Icon		ftp_up
	Help		Select shows settings for current FTP site.|mAdjust uploads file to current FTP site.|mc-Drag runs obey file dragged to set FTP site then uploads file to that site.  
	Select		SetTmp() Run("Run <Tmp$Mode>.Files.cFTPvars")

	Adjust		SetTmp() SaveText() Run("Run <Tmp$Mode>.Files.Upload")

	^Drag		SetTmp() SaveText() Run("Run <Tmp$Drag>") Run("Run <Tmp$Mode>.Files.Upload")
End
