-- PalmMiscImpl.mesa
-- Contents: Implementation of the Palm default Viewer Create Proc.
-- Created: April 1982 by Willie-Sue and Rick
-- Lasted edited by:
--   Willie-Sue on: October 21, 1982 1:21 pm
--   Cattell on: April 23, 1982 10:02 am

DIRECTORY
  Nut,
  Palm,
  Rope,
  ViewerOps USING [CreateViewer],
  ViewerClasses;
  
PalmMiscImpl: PROGRAM
  IMPORTS
    ViewerOps
  EXPORTS
    Palm =

BEGIN

Viewer: TYPE = ViewerClasses.Viewer;

Create: PUBLIC Nut.CreateProc =
  { info: ViewerClasses.ViewerRec_
  	[name: defaultLabel, iconic: FALSE, column: IF oldV#NIL THEN oldV.column ELSE left];
    RETURN[ViewerOps.CreateViewer[flavor: $Container, info: info, paint: FALSE]];
  };

 
END.