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


// ---- File Date Expando.t ----

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

myBase :=
   {viewFlags: 1,
    viewFormat: nil,
    viewBounds: {left: 0, top: 0, right: 240, bottom: 296},
    declareSelf: 'base,
    viewSetupFormScript:
      func()
      begin
      local b := GetAppParams();
      constant kMaxWidth := 240;
      constant kMaxHeight := 336;
      
      viewBounds := RelBounds(b.appAreaLeft, b.appAreaTop,
      		Min(b.appAreaWidth, kMaxWidth),
      		Min(b.appAreaHeight, kMaxHeight) );
      
      end,
    viewclass: 74,
    debug: "myBase"
   };

_view000 := /* child of myBase */ {_proto: protoLargeClosebox};



myExpando := /* child of myBase */
   {
    viewSetupFormScript:
      func()
      begin
          self.target := self;
          self.lines := Clone(baseLines) ;
          self.dateData := Time();
          self.dateData2 := Time();
          :AddItem({_proto: protoDateExpando, label: "Last Earth Contact", path: 'dateData});
          :AddItem({_proto: protoDateExpando, label: "Gallifrey  Time", path: 'dateData2});
          inherited:?viewSetupFormScript() ;
      end,
    flushEdits:
      func()
      begin
      	nil
      end,
    lines: nil,
    numlines: 2,
    editWidth: 200,
    editHeight: 50,
    deleteThis: "delete",
    viewBounds: {left: 8, top: 24, right: 232, bottom: 144},
    baseLines:
      [{_proto: protoTextExpando,
      	label: "Override",
      	path: 'deleteThis,
      	entryFlags: (1 << 0)  + (65535 << 9)},
      	{_proto: protoTextExpando,
      	label: "These",
      	path: 'deleteThis,
      	entryFlags: (1 << 0)  + (65535 << 9)}],
    AddItem:
      func(theItemProto)
      begin
          AddArraySlot(lines, Clone(theItemProto));
          numLines := numLines + 1;
      
          // if the view is displayed, then update the children
          if GetView(self) then
              :RedoChildren();
      end,
    dateData: nil,
    firstLine: 2,
    closeEdit:
      func(closedView)
      begin
      	nil
      end,
    dateData2: nil,
    _proto: protoExpandoShell,
    debug: "myExpando"
   };
// View myExpando is declared to myBase







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

// End of output