// Text of project soundAdvice written on 11/21/95 at 2:12 PM
// Beginning of text file Project Data
// Copyright © 1995 Apple Computer, Inc. All rights reserved.

// Open the resource file that contains the sound, and assign the
// file ID to a temporary variable rf
// NOTE: specify the full pathname from your hard drive down...
rf := OpenResFileX(home & "resources"); 

// Read in the 11KHz sampled sound
DefConst('kBoingSound, GetSound11("Boing")) ;

// close up any resource files that were opened (VERY important)
CloseResFileX(rf);
// End of text file Project Data
// Beginning of file soundAdvice.t

// Before Script for "_view000"
// Copyright 1993-1994 Apple Computer, Inc. All rights reserved.


_view000 :=
    {title: "Sound Advice",
     viewBounds: {left: 4, top: 42, right: 185, bottom: 151},
     _proto: @157
    };

_view001 :=
    {text: "Boinggggg",
     buttonClickScript:
       func()
       begin
          PlaySound(kBoingSound);
       end,
     viewBounds: {left: 43, top: 42, right: 139, bottom: 66},
     _proto: @226
    };
AddStepForm(_view000, _view001);




constant |layout_soundAdvice.t| := _view000;
// End of file soundAdvice.t



