{**********************************************************************
{*
{* Teach Globals -- Version 3.0  (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1990
{* All Rights Reserved.
{*
{* Developer Technical Support Apple II Sample Code
{*
{* This file contains the global variables used by the Teach 
{* program.
{*
{**********************************************************************}

UNIT uGlobals;

INTERFACE

USES	

		types,
		locator,
		memory,
		quickdraw,
		intMath,
		events,
		controls,
		windows,
		dialogs,
		STDFile;

const

		AppleMenuID         = $1100;
			AboutItem       = $1101;

		FileMenuID          = $1200;
			NewItem		    = $1203;
			OpenItem	    = $1204;
			SaveItem        = $1205;
			SaveAsItem      = $1206;
			CloseItem       = 255;   {For DA's}
			PageSetupItem   = $1207;
			PrintItem	    = $1208;
			QuitItem        = $1202;

		EditMenuID          = $1300;
			UndoItem        = 250;    {For DA's}
			CutItem         = 251;    {For DA's}
			CopyItem        = 252;    {For DA's}
			PasteItem       = 253;    {For DA's}
			ClearItem       = 254;    {For DA's}
			SelectAllItem   = $1306;

		FontMenuID		    = $1400;
			ChooseFontItem  = $1401;

		StyleMenuID		    = $1500;
			PlainItem		= $1501;
			BoldItem 		= $1502;
			ItalicItem 		= $1503;
			UnderlineItem 	= $1504;
			ShadowItem 		= $1505;
			OutlineItem 	= $1506;

		SizeMenuID		 	= $1600;
			Size8Item		= $1601;
			Size10Item		= $1602;
			Size12Item		= $1603;
			Size16Item		= $1604;
			Size20Item		= $1605;
			Size24Item		= $1606;
			FirstFontItem 	= $1402;

	MainWindowID = $1000;
	

var
       userID    	: integer;      {Application ID assigned by Memory Mgr}
       quitFlag		: boolean;      {True when quitting}
	   staggerCount : integer;		{used to stagger windows as they open }
       event        : WmTaskRec;	{All events are returned here}
	   lastWindow	: GrafPortPtr;	{This private global is used in CheckFrontW.
								** to prevent extra work when the windows
								** have not changed.  It is initialized
								** at the beginning of MainEvent.}
									   
procedure InitGlobals;                                     {Setup variables}

IMPLEMENTATION

{$i uGlobals.inc.p}


END.
