// Text of project MooUser written on 11/20/95 at 7:27 PM
// Beginning of text file MooUnit.unit
// Copyright ©1995 Apple Computer, Inc.  All rights reserved.

DeclareUnit('|Moo:PIEDTS|, 1, 0, {
	onomatopoeia:	0,
	sound:			1,
	picture:		2,
});
// End of text file MooUnit.unit
// Beginning of text file MooUser.f
// Copyright ©1995 Apple Computer, Inc.  All rights reserved.

AliasUnit('Moo, '|Moo:PIEDTS|);


// warn user that we can't work without MooUnit

SetPartFrameSlot('RemovalApproval, func(unitName, major, minor)
	begin
		"This operation will also disable MooUser."
	end);
	


// when MooUnit is gone, we close up shop

SetPartFrameSlot('ImportDisabled, func(unitName, major, minor)
	begin
		GetRoot().(kAppSymbol):Close();
	end);
// End of text file MooUser.f
// Beginning of file MooUser.layout

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


_view000 :=
    {title: "Moo",
     viewBounds: {left: 0, top: 5, right: 200, bottom: 300},
     viewFormat: 83951953,
     viewJustify: 16,
     ButtonToggleScript:
       func(curTopView)
       begin
       	if call kMissingImportsFunc with (ObjectPkgRef('foo)) then
       		begin
       			self:Notify(kNotifyAlert, "MooUser", "I can't operate without MooUnit.");
       			true;
       		end;
       end,
     _proto: @157
    };

_view001 :=
    {viewBounds: {left: 5, top: 20, right: -5, bottom: 260},
     viewFlags: 513,
     viewFormat: 336,
     viewJustify: 54,
     icon: nil,
     viewClickScript:
       func(unit)
       begin
       	PlaySound(UR('Moo, 'sound));
       	nil;
       end,
     viewClass: 76
    };
AddStepForm(_view000, _view001);

// After Script for "_view001"
thisView := _view001;
thisView.icon := UR('Moo, 'picture);




constant |layout_MooUser.layout| := _view000;
// End of file MooUser.layout



