{**********************************************************************
{*
{*
{* Teach Globals -- Version 3.0  (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1988
{* 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.
