Service Manuals, User Guides, Schematic Diagrams or docs for : xerox mesa 3.0_1977 listing WManWindows.mesa_Oct77

<< Back | Home

Most service manuals and schematics are PDF files, so You will need Adobre Acrobat Reader to view : Acrobat Download Some of the files are DjVu format. Readers and resources available here : DjVu Resources
For the compressed files, most common are zip and rar. Please, extract files with Your favorite compression software ( WinZip, WinRAR ... ) before viewing. If a document has multiple parts, You should download all, before extracting.
Good luck. Repair on Your own risk. Make sure You know what You are doing.



Image preview - the first page of the document



>> Download WManWindows.mesa_Oct77 documenatation <<

Text preview - extract from the document

WManW1ndows.mesa               25-0CT-77 15:24:43                                      Page 1


--File: WManWindows.mesa
--Edited by Sandman      October 7, 1977      9:46 AM
DIRECTORY
  SegmentDefs: FROM "segmentdefs",
  StreamDefs: FROM "streamdefs",
  StringDefs: FROM "stringdefs",
  SystemOefs: FROM "systemdefs",
  MenuDefs: FROM "menudefs",
  RectangleDefs: FROM "rectangledefs",
  WindowDefs: FROM "windowdefs",
  WManagerDefs: FROM "wmanagerdefs";
DEFINITIONS FROM StreamDefs, MenuDefs, RectangleDefs, WindowDefs, WManagerDefs;
WManWindows: PROGRAM[WMState: WMDataHandle]
 IMPORTS SegmentDefs, StreamDefs, SystemDefs, MenuDefs, RectangleDefs, WindowDefs, WManagerDefs
 EXPORTS WManagerDefs
 SHARES StreamDefs, WManaaerDefs ~
BEGIN
OPEN WMState;
CR: CHARACTER = 15C;
-- some externals
PutSelect: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]=
  BEGIN
  -- Declare Locals
  i: CARDINAL;
  str: STRING;
  nw: WindowHandle;
  doit: BOOLEAN;
  [nw, doit] .. WindowFrontEnd[w, leftbutton];
  IF do it THEN
    BEGIN
    -- get current selection and jam it into the keyboard stream
    str ~ GetSelection[w];
    IF nw.ks H NIL THEN
       rOR i DECREASING IN [0 .. str. length) DO
         nw.ks.putback[nw.ks, str[i]];
         ENDLOOP;
    SystemDefs.FreeHeapString[str];
    END;
  ButtonWait;
 SetCursor[textpointer];
  END;
  CreateWindow: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]
    BEGIN
    -- define locals
       i: INTEGER;
       rectangle: Rptr;
       ds: DisplayHandle;
       ks: StreamHandle;
       name: STRING;
       nw: WindowHandle;
      mb: AMouseButton .. None;
    -- Look at mouse for what to do
       SetCursor[leftbutton);
       UNTIL 1mb" GetMouseButton[])      Red DO
         IF mb 

◦ Jabse Service Manual Search 2024 ◦ Jabse Pravopis ◦ onTap.bg ◦ Other service manual resources online : Fixya ◦ eServiceinfo