New Toolbox (code)
Volume Number: 6
Issue Number: 10
Column Tag: Assembly Lab
New Toolbox Routines (code) 
By Hugues A. Oliver, Perpignan, France
Listing: Library.Txt
;------------------------------
; ****** Include Files ******
;------------------------------
INCLUDE Traps.D
INCLUDE ToolEquX.D
INCLUDE SysErrX.D
INCLUDE SysEquX.D
INCLUDE QuickEquX.D
INCLUDE PackMacs.Txt
;------------------------------
; ******* Constants *********
;------------------------------
NIL EQU 0
TRUE EQU $0101
FALSE EQU $0000
;------------------------------
; ***** Wind AuxRec *******
;------------------------------
Worigin EQU 0
WContRect EQU 4
WactivTxt EQU 12
WactivLst EQU 16
Wgrow EQU 20
WPrintRec EQU 22
WindProc EQU 26
WvRefNum EQU 30
WAuxRefC EQU 32
WText EQU 36
WList EQU 40
WPic EQU 44
SizeWindRec EQU 156
SizeAuxWind EQU 48
;--------------------------------
; ******* List AuxRec *********
;--------------------------------
SizeListAuxRec EQU 14
LID EQU 0
theList EQU 2
nextList EQU 6
fontList EQU 10
sizList EQU 12
;--------------------------------
; ******* Text AuxRec *********
;--------------------------------
SizeTEAuxRec EQU 10
TID EQU 0
theText EQU 2
nextText EQU 6
;------------------------------
; ******* Pic AuxRec ********
;------------------------------
SizePicAuxRec EQU 20
PID EQU 0
thePic EQU 2
nextPic EQU 6
tMode EQU 10
destRect EQU 12
;------------------------------
; **** Control AuxRec ****
;------------------------------
SizeCtrlAuxRec EQU 6
contrlID EQU 0
contrlProc EQU 2
;--------------------------------
; ******* New TE *********
;--------------------------------
.TRAP _TEStylNew $A83E
.TRAP _TEDispatch $A83D
.MACRO _GetStylHandle
MOVE.W #4,-(SP)
_TEDispatch
.ENDM
.MACRO _SetStylHandle
MOVE.W #5,-(SP)
_TEDispatch
.ENDM
;--------------------------------
; ******* Externals *********
;--------------------------------
XREF CurrentText,CurrentList
;------------------------------
Listing: LText.Asm
;******************************************
;* T E D I T M A N A G E R
;******************************************
INCLUDE Library.Txt
;------------------------------
; *** External Definition ***
;------------------------------
XDEF InstalText
XDEF FindText
XDEF DrawTexts
XDEF DeactivateText
XDEF ActivateText
;------------------------------
;******* Text Record *********
;------------------------------
;TERec = Record {100 bytes}
;{ 0} destRect : Rect
;{ 8} viewRect : Rect
;{ 16} selRect : Rect
;{ 24} lineHeight : -1
;{ 26} fontAscent : -1
;{ 28} selPoint : Point
;{ 32} selStart : INTEGER
;{ 34} selEnd : INTEGER
;{ 36} active : INTEGER
;{ 38} wordBreak : ProcPtr