#-------------------------------------------------------------------------------
# Name     : FTPupload
# Licence  : Freeware
# Author   : Stuart Halliday & Fred Graute
# Version  : 1.02 06-05-06
# Purpose  : Demonstrate FTP uploads using StrongED
# Email    : 
# Webpage  : 
#
# Changes  : Modified so system variables are only set during uploads
#            Now uses the new !FTPupload application
#-------------------------------------------------------------------------------

Functions
	Icon		ftp_up
	Help		Hftp_up  
	Select		SetTmp() SaveText() Run("Run <StrongED$Tmp_ToolPath>.!FTPupload SelectSite")

	Adjust		SetTmp() SaveText() Run("Run <StrongED$Tmp_ToolPath>.!FTPupload UploadFile")

	^Select		SetTmp() Run("Run <StrongED$Tmp_ToolPath>.!FTPupload ShowSites")

	^Adjust		SetTmp() Run("Run <StrongED$Tmp_ToolPath>.!FTPupload VerifySite")

	^Drag		SetTmp() Run("Run <StrongED$Tmp_ToolPath>.!FTPupload AddNewSite")
End
