FolderTray

AboutToShow CalcLabelBox CanAcceptCoupon CanSortByDate ConfirmPurge CreateDrawer DeleteDrawer Draw DrawOrHitTest DrawerContainingFolder

EditName FileCard FolderContainingCard InstallInto MakeMonthFolder MakeValid OfferInstallReceiver PrepareToDisplayFolder Press PurgeTrigger

ReinstallStackForCRC RememberDateFiled SearchForSuggestions SearchForSuggestionsByDate SuggestionSearchStatus Swallow SwallowFeedback Tap Touch

Attributes

CanDeleteSelection Index List

Fields

instance FolderTray tag;
 relativeOrigin: <0.0,0.0>;
    contentSize: <0.0,0.0>;
      viewFlags: 0x00000000;
     labelStyle: nilObject;
          color: 0;
       altColor: 0;
         shadow: nilObject;
          sound: nilObject;
      purgeDate: 0;
 purgeTimeRange: 0;
       trayList: nilObject;
      trayIndex: 0;
      mainImage: nilObject;
        tabMask: nilObject;
    selectIndex: 0;
      tabOffset: <0.0,0.0>;
       tabDelta: <0.0,0.0>;
        tabSize: <0.0,0.0>;
    slantOffset: <0.0>;
     tabsPerRow: 0;
   numberOfRows: 0;
         maxTab: 0;
      textStyle: nilObject;
     emptyIndex: 0;
  filedCardList: nilObject;
  filedDateList: nilObject;
end instance;

Define Class FolderTray;
    inherits from Viewable, PurgesDaily;
    inherits from CanOfferInstallReceiver;

    field trayList:         ObjectList;
    field trayIndex:        Unsigned;
    field mainImage:        Image;
    field tabMask:          PixelMap;
    field selectIndex:      Unsigned;
    field tabOffset:        Dot;
    field tabDelta:         Dot;
    field tabSize:          Dot;
    field slantOffset:      Micron;
    field tabsPerRow:       Unsigned;
    field numberOfRows:     Unsigned;
    field maxTab:           Unsigned;
    field textStyle:        TextStyle;
    field emptyIndex:       Unsigned;
    field filedCardList:    ObjectList;
    field filedDateList:    IntegerList;

    operation FileCard(card: Card), safe, common;
    operation CanSortByDate(): Boolean;
    operation CreateDrawer(), safe, common;
    operation DeleteDrawer(), safe, common;
    operation EditName(), safe;
    operation FolderContainingCard(card: Card): Folder;
        // return the folder containing this card, or nilObject if card is not in any folder in any drawer
    operation DrawerContainingFolder(folder: Folder): DrawerStack;
        // return the drawer stack containing this folder, or nilObject if folder is not in any drawer
    operation RememberDateFiled(card: Card);

    attribute CanDeleteSelection: Boolean, readOnly;
    attribute Index: Unsigned, safe;
    overrides List;
        // returns trayList field, a list of drawers each containing folders

    overrides AboutToShow, CalcLabelBox;
    overrides SearchForSuggestions, CanAcceptCoupon, Draw;
    overrides SuggestionSearchStatus;
    
    operation PrepareToDisplayFolder(folder: Folder);
        // call to set up folder scene with <folder> before calling GoTo on folder
        // <folder> must be a folder contained in one of self's drawers
    
    overrides ConfirmPurge;
        // dirties self after calling inherited method so little numbers will update
    overrides SearchForSuggestionsByDate;   
        // adds cards that were filed long enough ago
    overrides PurgeTrigger;
        // returns iPurgeFileCabinetTrigger
    
    overrides MakeValid;
    overrides OfferInstallReceiver;
        // creates a wrapper object which specifies where a card should be filed.
        // override rarely.
    operation ReinstallStackForCRC(matchingCRC: Unsigned): StackOfCards;
        // returns stack of folder whose DrawerAndFolderNamesCRC matches <matchingCRC>
        // called by filing mechanism;
        // override rarely;
    overrides Swallow, SwallowFeedback;
    overrides Touch, Tap, Press;
    overrides InstallInto;
    
    operation DrawOrHitTest(probe: Dot; drawFlag: Boolean): Signed, intrinsic;
    operation MakeMonthFolder(card: Card): Object, intrinsic;
end class;