// ---- End Project Data ----


// ---- File Cluster.t ----

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

nil

baseView :=
   {title: "Radio Cluster Example",
    viewBounds: {left: 0, top: 0, right: 240, bottom: 336},
    viewSetupFormScript:
      func()
      begin
      	local b := GetAppParams();
      	constant kMaxWidth := 240;
      	constant kMaxHeight := 336;
      	self.viewBounds := RelBounds(b.appAreaLeft, b.appAreaTop,
      										  MIN(b.appAreaWidth, kMaxWidth),
      										  MIN(b.appAreaHeight, kMaxHeight));
      end,
    _proto: protoApp,
    debug: "baseView"
   };


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

nil

mainCluster := /* child of baseView */
   {viewBounds: {left: 36, top: 116, right: 188, bottom: 220},
    viewFlags: 3,
    ClusterChanged:
      func()
      begin
          theSelection:Hide();  // force transition effect (drawer)
          SetValue(theSelection, 'text, "Selected no" && clusterValue);
          theSelection:Show();
      end,
    viewFormat: 67109456,
    viewJustify: 0,
    _proto: protoRadioCluster,
    debug: "mainCluster"
   };
// View mainCluster is declared to baseView


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

nil

radio1 := /* child of mainCluster */
   {buttonValue: 1,
    viewBounds: {left: 8, top: 16, right: 120, bottom: 32},
    text: "Do this",
    _proto: protoRadioButton,
    debug: "radio1"
   };




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

nil

radio2 := /* child of mainCluster */
   {buttonValue: 2,
    viewBounds: {left: 8, top: 40, right: 120, bottom: 56},
    text: "Or This!",
    _proto: protoRadioButton,
    debug: "radio2"
   };




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

nil

radio3 := /* child of mainCluster */
   {buttonValue: 3,
    viewBounds: {left: 8, top: 64, right: 120, bottom: 80},
    text: "Or maybe this!",
    _proto: protoRadioButton,
    debug: "radio3"
   };






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

nil

clusterLabel := /* child of baseView */
   {text: "The CLUSTER!!!",
    viewBounds: {left: 43, top: 109, right: 131, bottom: 125},
    viewTransferMode: 0,
    _proto: protoStaticText,
    debug: "clusterLabel"
   };




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

nil

selectLabel := /* child of baseView */
   {text: "User Selected:",
    viewBounds: {left: 18, top: 250, right: 93, bottom: 274},
    _proto: protoStaticText,
    debug: "selectLabel"
   };




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

nil

TheSelection := /* child of baseView */
   {text: "Nothing selected\u2026",
    viewBounds: {left: 116, top: 252, right: 194, bottom: 268},
    viewFormat: 33554768,
    viewEffect: 65144832,
    _proto: protoStaticText,
    debug: "TheSelection"
   };
// View TheSelection is declared to baseView




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

nil

info := /* child of baseView */
   {text: "This simple sample shows how radioclusters and radiobuttons work.",
    viewBounds: {left: 18, top: 26, right: 202, bottom: 74},
    viewJustify: 0,
    _proto: protoStaticText,
    debug: "info"
   };







// ---- Beginning of section for non used Layout files ----

// End of output