Toolbox Unit

Toolbox Unit
Source code by Bill Catambay

Here is the source code to Toolbox.p:



Unit Toolbox;

Interface

Uses
    Windows, Fonts, Dialogs, Processes, ToolUtils, Devices, Resources, Sound, 
    Icons, Lists, StandardFile, Folders, QDOffscreen, AppleEvents;
	
Type
    str3	=	string[3];

Procedure InitToolbox;

Implementation
	
{-----------------------------------------------------}
{  Typical procedure to initialize the Mac toolbox.   }	
{  NOTE: This isn't needed for Think Pascal as it     }
{  does this automatically (except for last 3 lines). }
{-----------------------------------------------------}
Procedure InitToolbox;

    begin
    InitGraf(@qd.thePort);
    InitFonts;
    InitWindows;
    InitMenus;
    TEInit;
    InitDialogs(NIL);
    InitCursor;
    MaxApplZone;
    MoreMasters;
    end;
	
End.