(FILECREATED "18-Sep-85 19:10:58" {DSK2}TABLEBROWSERDECLS.;2
 3654   

      changes to:  (RECORDS TABLEBROWSER)
		   (VARS TABLEBROWSERDECLSCOMS)

      previous date: "13-Sep-85 16:39:03" {DSK2}TABLEBROWSERDECLS.;1)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT TABLEBROWSERDECLSCOMS)

(RPAQQ TABLEBROWSERDECLSCOMS
 ((RECORDS TABLEBROWSER TABLEITEM)
			      (CONSTANTS TB.LEFT.MARGIN)))
[DECLARE: EVAL@COMPILE 

(DATATYPE TABLEBROWSER
 ((TBREADY FLAG)
			(NIL 7 FLAG)
			(TBITEMS POINTER)
			(TB#ITEMS WORD)
			(TB#DELETED WORD)
			(TB#LINESPERITEM WORD)
			(TBFIRSTSELECTEDITEM WORD)
			(TBLASTSELECTEDITEM WORD)
			(NIL WORD)
			(TBMAXXPOS WORD)
			(TBFONTHEIGHT WORD)
			(TBFONTASCENT WORD)
			(TBFONTDESCENT WORD)
			(TBWINDOW POINTER)
			(TBLOCK POINTER)
			(TBUSERDATA POINTER)
			(TBFONT POINTER)
			(TBEXTENT POINTER)
			(TBUPDATEFROMHERE POINTER)
			(TBCOLUMNS POINTER)
			(TBPRINTFN POINTER)
			(TBCOPYFN POINTER)
			(TBFONTCHANGEFN POINTER)
			(TBCLOSEFN POINTER)
			(TBAFTERCLOSEFN POINTER)
			(TBTITLEEVENTFN POINTER)
			(TBAFTEREXPUNGEFN POINTER)
			(TBORIGIN POINTER)
			(NIL POINTER)
			(NIL POINTER)
			(NIL POINTER)))

(DATATYPE TABLEITEM
 ((TISELECTED FLAG)
		     (TIDELETED FLAG)
		     (TIUNDELETABLE FLAG)
		     (TIUNSELECTABLE FLAG)
		     (NIL 4 FLAG)
		     (TIDATA POINTER)
		     (TI# WORD)
		     (NIL WORD)))
]
(/DECLAREDATATYPE (QUOTE TABLEBROWSER)
		  (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER WORD WORD WORD WORD WORD 
			       WORD WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER 
			       POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
			       POINTER POINTER POINTER POINTER POINTER))
		  (QUOTE ((TABLEBROWSER 0 (FLAGBITS . 0))
			  (TABLEBROWSER 0 (FLAGBITS . 16))
			  (TABLEBROWSER 0 (FLAGBITS . 32))
			  (TABLEBROWSER 0 (FLAGBITS . 48))
			  (TABLEBROWSER 0 (FLAGBITS . 64))
			  (TABLEBROWSER 0 (FLAGBITS . 80))
			  (TABLEBROWSER 0 (FLAGBITS . 96))
			  (TABLEBROWSER 0 (FLAGBITS . 112))
			  (TABLEBROWSER 0 POINTER)
			  (TABLEBROWSER 2 (BITS . 15))
			  (TABLEBROWSER 3 (BITS . 15))
			  (TABLEBROWSER 4 (BITS . 15))
			  (TABLEBROWSER 5 (BITS . 15))
			  (TABLEBROWSER 6 (BITS . 15))
			  (TABLEBROWSER 7 (BITS . 15))
			  (TABLEBROWSER 8 (BITS . 15))
			  (TABLEBROWSER 9 (BITS . 15))
			  (TABLEBROWSER 10 (BITS . 15))
			  (TABLEBROWSER 11 (BITS . 15))
			  (TABLEBROWSER 12 POINTER)
			  (TABLEBROWSER 14 POINTER)
			  (TABLEBROWSER 16 POINTER)
			  (TABLEBROWSER 18 POINTER)
			  (TABLEBROWSER 20 POINTER)
			  (TABLEBROWSER 22 POINTER)
			  (TABLEBROWSER 24 POINTER)
			  (TABLEBROWSER 26 POINTER)
			  (TABLEBROWSER 28 POINTER)
			  (TABLEBROWSER 30 POINTER)
			  (TABLEBROWSER 32 POINTER)
			  (TABLEBROWSER 34 POINTER)
			  (TABLEBROWSER 36 POINTER)
			  (TABLEBROWSER 38 POINTER)
			  (TABLEBROWSER 40 POINTER)
			  (TABLEBROWSER 42 POINTER)
			  (TABLEBROWSER 44 POINTER)
			  (TABLEBROWSER 46 POINTER)))
		  (QUOTE 48))
(/DECLAREDATATYPE (QUOTE TABLEITEM)
		  (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER WORD WORD))
		  [QUOTE ((TABLEITEM 0 (FLAGBITS . 0))
			  (TABLEITEM 0 (FLAGBITS . 16))
			  (TABLEITEM 0 (FLAGBITS . 32))
			  (TABLEITEM 0 (FLAGBITS . 48))
			  (TABLEITEM 0 (FLAGBITS . 64))
			  (TABLEITEM 0 (FLAGBITS . 80))
			  (TABLEITEM 0 (FLAGBITS . 96))
			  (TABLEITEM 0 (FLAGBITS . 112))
			  (TABLEITEM 0 POINTER)
			  (TABLEITEM 2 (BITS . 15))
			  (TABLEITEM 3 (BITS . 15]
		  (QUOTE 4))
(DECLARE: EVAL@COMPILE 

(RPAQQ TB.LEFT.MARGIN
 8)

(CONSTANTS TB.LEFT.MARGIN)
)
(PUTPROPS TABLEBROWSERDECLS COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP