// Text of project drawers written on 5/9/95 at 5:13 PM
// Beginning of file drawers.t

// Before Script for "mainView"
// Copyright © 1993-1995 Apple Computer, Inc.  All rights reserved.


mainView :=
    {viewFlags: 1,
     viewFormat: 1265,
     viewBounds: {left: 16, top: 8, right: 216, bottom: 272},
     declareSelf: 'base,
     debug: "mainView",
     viewClass: 74
    };

_view000 := {_proto: @166};
AddStepForm(mainView, _view000);



drawerView :=
    {viewBounds: {left: 14, top: 22, right: 186, bottom: 194},
     viewFormat: 592,
     viewFlags: 576,
     debug: "drawerView",
     _proto: @173
    };
AddStepForm(mainView, drawerView);
StepDeclare(mainView, drawerView, 'drawerView);

_view001 :=
    {text: "Surprise!",
     viewBounds: {left: 29, top: 61, right: 152, bottom: 120},
     buttonPressedScript:
       func()
       begin
            PlaySound(rom_funbeep);
       end,
     _proto: @226
    };
AddStepForm(drawerView, _view001);





toggleButton :=
    {text: "Toggle",
     buttonClickScript:
       func()
       begin
       	drawerView:Toggle(); // opens or closes appropriately
       end,
     viewBounds: {left: 68, top: 237, right: 140, bottom: 252},
     debug: "toggleButton",
     _proto: @226
    };
AddStepForm(mainView, toggleButton);
StepDeclare(mainView, toggleButton, 'toggleButton);




constant |layout_drawers.t| := mainView;
// End of file drawers.t