github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-29 21:27:41 +00:00
Code Issues Projects Releases Wiki Activity

initial checkin for library

Browse Source
This commit is contained in:
Larry Masinter
2020-08-29 18:35:53 -07:00
parent d6580ff010
commit cb46b0b62b
113 changed files with 45947 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

150
library/TBDECLS Normal file
View File

@@ -0,0 +1,150 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "27-Sep-94 15:03:22" {DSK}<lispcore>library>TBDECLS.;3 7831
changes to%: (RECORDS TABLEBROWSER TABLEITEM)
previous date%: "20-Jan-93 14:52:38" {DSK}<lispcore>library>TBDECLS.;2)
(* ; "
Copyright (c) 1985, 1988, 1990, 1993, 1994 by Venue. All rights reserved.
")
(PRETTYCOMPRINT TBDECLSCOMS)
(RPAQQ TBDECLSCOMS ((RECORDS TABLEBROWSER TABLEITEM)
(CONSTANTS TB.LEFT.MARGIN)))
(DECLARE%: EVAL@COMPILE
(DATATYPE TABLEBROWSER ((TBREADY FLAG)
(TBHEIGHTEXPLICIT FLAG) (* ;
 "True if creator set explicit item height or baseline")
(NIL 6 FLAG)
(TBITEMS POINTER) (* ; "List of items in this browser")
(TB#ITEMS WORD) (* ; "Number of items")
(TB#DELETED WORD) (* ; "Number of items marked deleted")
(TB#LINESPERITEM WORD) (* ;
 "Number of lines occupied by each item, normally 1 (dunno if any other values work)")
(TBFIRSTSELECTEDITEM WORD) (* ;
 "Number of first selected item. If none selected, is > TB#ITEMS")
(TBLASTSELECTEDITEM WORD) (* ;
 "Number of last selected item. If none selected, is 0")
(TBITEMHEIGHT WORD) (* ;
 "Height of an item, i.e., fontheight*linesperitem")
(TBMAXXPOS WORD) (* ;
 "The largest x-position a user printfn has printed to")
(TBFONTHEIGHT WORD) (* ; "Height, ascent, descent of font")
(TBFONTASCENT WORD)
(TBBASELINE WORD)
(TBWINDOW POINTER) (* ;
 "Pointer to the display window. Need to snap this link when browser is closed")
(TBLOCK POINTER) (* ;
 "Monitor lock guarding some browser operations")
(TBUSERDATA POINTER) (* ; "Arbitrary user storage")
(TBFONT POINTER) (* ; "Pointer to font used by display")
(TBEXTENT POINTER) (* ;
 "Window's extent, updated as items are added, deleted, or printfn prints farther to right")
(TBUPDATEFROMHERE POINTER) (* ;
 "If changes have occurred while shrunk, this gives the # of first item that needs redisplay")
(TBCOLUMNS POINTER) (* ;
 "Number of columns--not yet implemented")
(TBPRINTFN POINTER) (* ;
 "(Browser Item Window) -- displays Item at current line position in window")
(TBCOPYFN POINTER) (* ;
 "(Browser Item) -- copy selects Item")
(TBFONTCHANGEFN POINTER) (* ;
 "(Browser Window) -- called when tb.set.font changes the font")
(TBCLOSEFN POINTER) (* ;
 "(Browser Window Close/Shrink) -- called when you try to close or shrink window")
(TBAFTERCLOSEFN POINTER) (* ;
 "(Browser Window) -- called to cleanup AFTER a closew")
(TBTITLEEVENTFN POINTER) (* ;
 "(Window Browser) -- handles button event in browser's title")
(TBLINETHICKNESS POINTER) (* ;
 "Thickness of line for deletions (normally 1)")
(TBORIGIN POINTER) (* ;
 "Y position of the top of the first item")
(TBTAILHINT POINTER) (* ;
 "A tail of TBITEMS, used to speed up TB.NTH.ITEM")
(TBHEADINGWINDOW POINTER) (* ;
 "An optional %"header window%" that should be horizontally scrolled in synchrony with this one")
(NIL POINTER)))
(DATATYPE TABLEITEM ((TISELECTED FLAG)
(TIDELETED FLAG)
(TIUNDELETABLE FLAG)
(TIUNSELECTABLE FLAG)
(TIUNCOPYSELECTABLE FLAG)
(NIL 3 FLAG)
(TIDATA POINTER)
(TI# WORD)
(NIL WORD)))
)
(/DECLAREDATATYPE 'TABLEBROWSER
'(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)
'((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))
'48)
(/DECLAREDATATYPE 'TABLEITEM '(FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER WORD WORD)
'((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)))
'4)
(DECLARE%: EVAL@COMPILE
(RPAQQ TB.LEFT.MARGIN 8)
(CONSTANTS TB.LEFT.MARGIN)
)
(PUTPROPS TBDECLS COPYRIGHT ("Venue" 1985 1988 1990 1993 1994))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP