/*
 *      Newton Developer Technical Support Sample Code
 *
 *      Constants
 *
 *      by Jason Rukman
 *
 *      Copyright © 1996 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 kCallbackDelay				:= 1000;		// Take ms for each function action.
													// kCallbackDelay is used in the DelayCallback method
													// of the TestEnabler layout

// ---------------------------------------------------------------------------------
//     String Constants
// ---------------------------------------------------------------------------------

constant kEnablerTitle				:= "TestEnabler";
constant kDeviceTitle				:= "TestEnabler";
constant kPagerVersionNumber		:= "1.0";
constant kPagerInfo					:= "Test Message Module\n© 1996 Apple Computer.";
constant kStubSerialNum				:= "555-111-911";

// ---------------------------------------------------------------------------------
//     Capabilities Constants
// ---------------------------------------------------------------------------------
constant kPortExternalString		:= "External";
constant kPortPCCardString			:= "PC Card";
constant kPortIRString				:= "Infra Red";

constant kOnString					:= "On";
constant kOffString					:= "Off";

constant kPowerSaveString			:= "No msg acks";

constant kSoundQuietString			:= "Quiet";
constant kSoundLoudString			:= "Loud";

constant kTimeFromDeviceString		:= "Set Newton from pager";
constant kTimeFromNewtonString		:= "Set pager from Newton";
		
constant kPLAMActiveString			:= "The tester has no dynamic info.";

constant kDirectorySupport			:= true;				// Can do directory functions
constant kMessagePoll				:= true;				// Poll for new messages.
constant kHardwarePoll				:= true;				// Poll for the device.
constant kPersistant				:= true;				// Persistent
constant kCannedSupport				:= true;				// Support for canned msgs.
constant kAlivePeriod				:= nil;					// Check driver is alive (sec).

// ---------------------------------------------------------------------------------
//     Capabilities Arrays
// ---------------------------------------------------------------------------------
DefConst( 'kPortSupportArray, [ kPortExternalString, kPortPCCardString, kPortIRString ] );
DefConst( 'kPowerSupportArray, [ kOnString, kOffString ] );
DefConst( 'kSoundSupportArray, [ kOffString, kSoundQuietString, kSoundLoudString ] );
DefConst( 'kTimeSupportArray, [ kTimeFromDeviceString, kTimeFromNewtonString ] );
DefConst( 'kTxSupportArray, [ kOnString, kPowerSaveString, kOffString ] );

DefConst( 'kDefaultMessageArray, 
[
 {
	ID: 			0,
	title: 			"The first message",
	body: 			{
						class: 'text,
						text: "This is the body of a test message.",
					},
	segment: 		0,
	totalSegments: 	2,
	groupID: 		0,
	replyTypes: 	[ 
						'ack, 
						{ type: 'choice, text: "Go Jump", ID: 0 },
						{ type: 'choice, text: "All right", ID: 1 },
						{ type: 'choice, text: "Not this time", ID: 2 },
						'user,
						'canned,
					],
	Complete: 		nil,
	firstName:		"First",
	lastName:		"Last",
	email:			"test@dev.null"
 },
 {
	ID: 			1,
	title: 			"The second message",
	body: 			{
						class: 'text,
						text: "This is the second test message.",
					},
	segment: 		1,
	totalSegments: 	2,
	groupID: 		0,
	Complete: 		nil,
	firstName:		"First",
	lastName:		"Last",
	email:			"test@dev.null"
 },
 {
	ID: 			2,
	body : 			{
						class: 'text,
						text: "This is the body of a test message.",
					},
	title: 			"This is the test title.",
	firstName:		"First",
	lastName:		"Last",
	email:			"test@dev.null",
	complete:		nil,
 },
] );