{LisaBoxer: box-drawing application for the Tool Kit} {Copyright 1983, Apple Computer Inc.} UNIT U1Boxer; INTERFACE USES {$U UObject} UObject, {$U QuickDraw} QuickDraw, {$U UDraw} UDraw, {$U UABC} UABC; TYPE TBoxProcess = SUBCLASS OF TProcess {Creation/Destruction} FUNCTION TBoxProcess.CREATE: TBoxProcess; FUNCTION TBoxProcess.NewDocManager(volumePrefix: TFilePath; openAsTool: BOOLEAN) : TDocManager; OVERRIDE; END; TBoxDocManager = SUBCLASS OF TDocManager {Creation/Destruction} FUNCTION TBoxDocManager.CREATE(object: TObject; itsHeap: THeap; itsPathPrefix: TFilePath) : TBoxDocManager; FUNCTION TBoxDocManager.NewWindow(heap: THeap; wmgrID: TWindowID): TWindow; OVERRIDE; END; TBoxWindow = SUBCLASS OF TWindow {Creation/Destruction} FUNCTION TBoxWindow.CREATE(object: TObject; itsHeap: THeap; itsWmgrID: TWindowID): TBoxWindow; {Document Creation} PROCEDURE TBoxWindow. BlankStationery; OVERRIDE; END; TBoxView = SUBCLASS OF TView {Creation/Destruction} FUNCTION TBoxView.CREATE(object: TObject; itsHeap: THeap; itsPanel: TPanel; itsExtent: LRect) : TBoxView; {Display} PROCEDURE TBoxView. Draw; OVERRIDE; END; IMPLEMENTATION {$I U1Boxer2.text} END.