xerox DisplayControl.mesa Oct77 free download

File name DisplayControl.mesa_Oct77.pdf

DisplayControl.mesa 25-0CT-77 15:01:02 Page 1 -- file DisplayControl.Mesa -- last edited by Johnsson, October 14, 1977 2:57 PM DIRECTORY AltoFileDefs: FROM "AltoFileDefs", ControlOefs: FROM "ControlDefs", OirectoryOefs: FROM "OirectoryOefs", OisplayOefs: FROM "OisplayOefs", FontOefs: FROM "FontDefs", ImageOefs: FROM "ImageOefs", SegmentDefs: FROM "SegmentOefs", StreamOefs: FROM "StreamDefs", StringOefs: FROM "StringDefs", SystemOisplay: FROM "SystemOisplay"; OisplayControl: PROGRAM IMPORTS OirectoryOefs. DisplayOefs, FontDefs. ImageDefs. SegmentDefs. StreamDefs. StringDefs. SystemD **isplay = BEGIN mesafont: short ImageOefs.FileRequest ~ [ link: NIL. file:. access: SegmentOefs.Read. body: Short[fill:.name: "MesaFont.al."]]; sysfont: short ImageOefs.FileRequest ~ [ link: @mesafont. file:. access: SegmentDefs.Read, body: short[fill:.name: "SysFont.al."]]; typescript: short ImageDefs.FileRequest ~ [ link: @Sysfont. file:. access: SegmentDefs.Read+SegmentDefs.Write+SegmentOefs.Append. body: short[fill:.name: "Mesa.Typescript."]]; font: FontOefs.FontHandle; fontseg: SegmentDefs.FileSegmentHandle; initialize: BOOLEAN ~ TRUE; imaging: BOOLEAN; cleanupitem: ImageDefs.CleanupItem ~ [ link:. proc: Cleanup]: Cleanup: ImageDefs.CleanupProcedure BEGIN file: SegmentDefs.FileHandle; i: CARDINAL; si: StreamDefs.StreamIndex: ts: StreamDefs.StreamHandle; SELECT why FROM Finish. Abort. Save => BEGIN IF -initialize AND SystemDisplay.typescript # NIL THEN BEGIN StreamDefs.TruncateDiskStream[SystemDisplay.typescript]: SystemDisplay.typescript ~ NIL; END; IF why = Save AND -initialize THEN BEGIN DisplayDefs.DisplayOff[black]: font.destroy[font); SegmentDefs.DeleteFileSegment[fontseg]: END: If. why # Save TIIEN RETURN: imaging ~ (REGISTER[ControlDefs.SDreg]+ControlDefs.sAddFileRequest)t # 0: mesafont.file ~ NIL; IF imaging TH[N ImageDefs.AddFileRequest[@~esafont]; sysfont.file ~ NIL; If Imaging THEN ImageDefs.AddFileRequest[@sysfont]; typescript.file ~ NIL; IF imaging THfN ImageOefs.AddfileRequest[@typescript]; END; Restore =) BrGIN OPEN SegmentDefs; If (file~mesafont.file) = NIL TIIEN file ~ sysfonl.file ELSE ReleaseFile[sysfont.file); fonLreg ~ NewFileSegment[file.DefaultBase,DefaultPages,Read]; font ~ FontDefs.Createfont[fontseg]; DisplnyControl.mesa 25-0CT-77 15:01:02 Page 2 IF initialize THEN BEGIN initialize ~ FALSE; DisplayDefs.InitDisplay(72,30,20,font] END ELSE BEGIN SystemDisplay.SetFont[font]; DisplayDefs.DisplayOn[] END; IF (file~typescript.file) = NIL THEN file ~ NewFile[ty