/*
**      Newton Developer Technical Support Sample Code
**
**      ArchiveTransport, a transport example
**
**      by Ryan Robertson and J. Christopher Bell, Newton Developer Technical Support
**
**      Copyright © 1994-7 by Apple Computer, Inc.  All rights reserved.
**
**      You may incorporate this sample code into your applications without
**      restriction.  This sample code has been provided "AS IS" and the
**      responsibility for its operation is 100% yours.  You are not
**      permitted to modify and redistribute the source as "DTS Sample Code."
**      If you are going to re-distribute the source, we require that you
**      make it clear in the source that the code was descended from
**      Apple-provided sample code, but that you've made changes.
*/

constant kSoupName 			:= "ArchiveTransportSoup:DTS";

constant kActionTitle		:= "Archive";

constant kMessage_NeedsRecipient := "You must choose a recipient in the 'to' field.";

// The delay between "status" messages for the status dialogs (see the Endpoint layout for more info)
// Due to a bug in AddDelayedSend and AddDelayedCall, this delay must be > 0.
constant kDelayTime			:= 500;		

constant kSpinTime			:= 500; // time to wait when spinning barber pole dialogs

// This is the viewIdleScript for our barber pole dialog. Self will be the barber view.
// See the transport's GoGoGadgetBarberPole slot...
DefConst('kSpinBarberIdleFunc, 
	func()
		begin
			inherited:?viewIdleScript();			// for future compatibility
			:UpdateIndicator( barberValueFrame ); 	// spin the barber
			return kSpinTime; 						// idle for 0.5 seconds
		end);