home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / tech / protocol.hqx / ProtocolSources.pit / UProtocol.p < prev    next >
Encoding:
Text File  |  1985-07-10  |  2.6 KB  |  105 lines
  1. {copyright 1986 by Herb Barad}
  2. {Protocol is a program to produce a PICT representation of a class}
  3. {hierarchy from a textual description.}
  4. {parts from Flow MacApp sample - copyright 1986 by Apple Computer}
  5.  
  6. UNIT UProtocol;
  7.  
  8. INTERFACE
  9.  
  10. USES
  11.     MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf,
  12.  
  13.     UObject,
  14.     UList,
  15.     UMacApp,
  16.     UPrinting,
  17.     UTEView,
  18.  
  19.     UProtocolChart;
  20.  
  21. TYPE
  22.  
  23.     TProtocolApplication = OBJECT(TApplication)
  24.  
  25.       {Creation & Initialization}
  26.         PROCEDURE TProtocolApplication.IProtocolApplication;
  27.         FUNCTION  TProtocolApplication.DoMakeDocument(itsCmdNumber: CmdNumber): TDocument; OVERRIDE;
  28.         FUNCTION  TProtocolApplication.DoMenuCommand(aCmdNumber: CmdNumber): TCommand; OVERRIDE;
  29.         PROCEDURE TProtocolApplication.DoSetupMenus; OVERRIDE;
  30.         END;
  31.  
  32.  
  33.     TProtocolDocument = OBJECT(TDocument)
  34.         fOutlineView:    TOutlineView;
  35.         fChartView:     TChartView;
  36.         fText:            Handle;
  37.         fTree:            TTree;
  38.         fPICT:            PicHandle;
  39.  
  40.         PROCEDURE TProtocolDocument.IProtocolDocument;
  41.         PROCEDURE TProtocolDocument.FreeData; OVERRIDE;
  42.  
  43.         PROCEDURE TProtocolDocument.DoNeedDiskSpace(VAR dataForkBytes, rsrcForkBytes: LONGINT); OVERRIDE;
  44.         PROCEDURE TProtocolDocument.DoRead(aRefNum: INTEGER; rsrcExists, forPrinting: BOOLEAN); OVERRIDE;
  45.         PROCEDURE TProtocolDocument.DoWrite(aRefNum: INTEGER; makingCopy: BOOLEAN); OVERRIDE;
  46.         PROCEDURE TProtocolDocument.DoMakeViews(forPrinting: BOOLEAN); OVERRIDE;
  47.         PROCEDURE TProtocolDocument.DoMakeWindows; OVERRIDE;
  48.         FUNCTION  TProtocolDocument.DoMenuCommand(aCmdNumber: CmdNumber): TCommand; OVERRIDE;
  49.         END;
  50.  
  51.  
  52.     TOutlineView = OBJECT(TTEView)
  53.         fProtocolDoc:    TProtocolDocument;
  54.  
  55.       {Creation and Destruction}
  56.         PROCEDURE TOutlineView.IOutlineView(itsDocument: TProtocolDocument; aText: Handle);
  57.  
  58.       {Menu Events}
  59.         PROCEDURE TOutlineView.DoSetupMenus; OVERRIDE;
  60.         FUNCTION  TOutlineView.DoMenuCommand(aCmdNumber: CmdNumber): TCommand; OVERRIDE;
  61.  
  62.     END;
  63.  
  64.  
  65.     TChartView = OBJECT(TView)
  66.         fProtocolDoc:    TProtocolDocument;
  67.         fMinSize:    Point;
  68.         fTree:        TTree;
  69.         fShadow:    BOOLEAN;
  70.  
  71.       {Creation and Destruction}
  72.         PROCEDURE TChartView.IChartView(itsDocument: TProtocolDocument);
  73.  
  74.       {Menu Events}
  75.         PROCEDURE TChartView.DoSetupMenus; OVERRIDE;
  76.         FUNCTION  TChartView.DoMenuCommand(aCmdNumber: CmdNumber): TCommand; OVERRIDE;
  77.  
  78.       {Window Update Events}
  79.         PROCEDURE TChartView.Draw(area: Rect); OVERRIDE;
  80.  
  81.       {View size}
  82.         PROCEDURE TChartView.CalcMinExtent(VAR minExtent: Rect); OVERRIDE;
  83.         PROCEDURE TChartView.DoPrinterChanged; OVERRIDE;
  84.  
  85.       {Application Specific}
  86.         PROCEDURE TChartView.GeneratePict;
  87.  
  88.     END;
  89.  
  90.     TKWCommand = OBJECT(TTECommand)
  91.  
  92.     PROCEDURE TKWCommand.IKWCommand(itsTEView: TTEView; itsCmdNumber: CmdNumber;
  93.                              s: Str255);
  94.     END;
  95.  
  96.  
  97. IMPLEMENTATION
  98.  
  99. {$I UProtocol.inc1.p}
  100.  
  101. END.
  102.  
  103.  
  104.  
  105.