// Text of project Chooser written on 5/9/95 at 14:44
// Beginning of file Chooser.t

// Before Script for "mainView"
// Copyright 1993-1994 Apple Computer. All rights reserved. 


mainView :=
    {title: "Application",
     viewBounds: {left: -1, top: 8, right: 212, bottom: 141},
     debug: "mainView",
     _proto: @157
    };

theButton :=
    {text: "Choose Printer!",
     buttonClickScript:
       func()
       begin
            
            GetRoot().Netchooser:OpenNetChooser(nil,"=:LaserWriter@",nil,self, "Use it, dude","Bogus Printer","printers");
       
            
       end,
     viewBounds: {left: 28, top: 20, right: 200, bottom: 64},
     NetworkChooserDone:
       func(currentSelection, currentZone)
            begin
                 getroot():Notify(kNotifyAlert,"Choice",currentSelection & " " & currentZone);
            end,
     debug: "theButton",
     _proto: @226
    };
AddStepForm(mainView, theButton);
StepDeclare(mainView, theButton, 'theButton);




constant |layout_Chooser.t| := mainView;
// End of file Chooser.t