mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-19 10:31:15 +00:00
1 line
5.7 KiB
Plaintext
1 line
5.7 KiB
Plaintext
|
********************************************************************
* Imports...
*
* Thursday, April 27, 1989 11:51:49 AM
********************************************************************
;------------------------------------------
;
; Equates from procedure WPglobals
;
;------------------------------------------
W_HdrPixelLimit equ 110
W_NormalOn equ 0
W_HeaderOn equ 1
W_FooterOn equ -1
;The paragraph data structure is an array from 1..W_LastP of par info blocks
;The paragraph info block
W_pBlockHand equ 0 ;the W_Handle to the block that the par is in
W_pOffset equ 4 ;the W_offset into this block that starts the par
W_pAttr equ 6 ;the attribute word for the par
W_pRulerHand equ 8 ;the W_Handle to the ruler(formatting) that governs this par
W_pPixels equ 12 ;the number of Q_Pixels tall this par is
W_pLineHand equ 14 ;the W_Handle to the Q_Line structure for this par(Purgeable)
W_pLastLine equ 18 ;the number of last Q_Line in the parplus 1, cr is 0
W_pBytes equ 20
W_PgBrk equ 1
W_Picture equ $8000
W_Font equ 1
W_Size equ 2
W_Style equ 3
W_Color equ 4
W_PageNumber equ 5
W_Date equ 6
W_Time equ 7
;The block structure may contain several pars, but the block will always
;have a header of BlockHeader length
W_BSize equ 0
W_BUsed equ 2
W_BHeader equ 4
;The linehandle will always have a header as follows
W_MaxLine equ 0
W_LineHeader equ 4
;The LineHandle in the par record is an array from 0..W_lastline-1
;Each record looks like
W_lOffset equ 0
W_lFont equ 2
W_lStyle equ 4
W_lSize equ 5
W_lColor equ 6
W_lAscent equ 8
W_lDescent equ 10
W_lHeight equ 12
W_lLeading equ 14
W_lBytes equ 16
W_TextHeader equ 7
W_StandFont equ 3 ;X_Geneva
W_StandStyle equ $c00 ; 12 pt X_Plain
W_InsertUndo equ 1
W_DeleteUndo equ 2
W_RangeUndo equ 3
W_RTUndo equ 4
W_StyleUndo equ 5
W_CaseUndo equ 6
W_CutUndo equ 7
W_ClearUndo equ 8
W_PasteUndo equ 9
********************************************************************
*
* Equates from W_pagedlg
*
*
*
*
* Monday, May 1, 1989 6:07:00 AM
********************************************************************
W_FSkipFirst equ 1<<5
W_FonEven equ 1<<4
W_FonOdd equ 1<<3
W_HSkipFirst equ 1<<2
W_HonEven equ 1<<1
W_HonOdd equ 1<<0
********************************************************************
* Added from rulers source segment
*
* Sunday, April 30, 1989 9:31:24 PM
********************************************************************
*--------------------------------------------------------------*
* Definition of ruler record (et al.) *
*--------------------------------------------------------------*
W_maxTabs equ 10 ; << Maximum number of W_Tabs
W_RulWdth equ 29
W_RulLength equ 640
W_TabOffset equ -4 ; how far right would a tab at 0 be?
W_TabSlop equ 10 ; how D_Close can W_Tabs be to each other?
W_pixPerInch equ 80 ; (currently, anyhow)
W_boxtop equ 16
W_welltop equ 20
W_tabtop equ 10
W_t1 equ 272
W_t2 equ 304
W_t3 equ 336
W_THoff equ 10
W_ort_Location equ 0 ; << ---- TAB RECORD OFFSETS ----
W_ort_Type equ W_ort_Location+2
W_ort_EndTabRec equ W_ort_Type+2
W_or_Reserved equ 0 ; << ---- RULER RECORD OFFSETS ----
W_or_Status equ W_or_Reserved+2
W_or_LeftM equ W_or_Status+2
W_or_IndentM equ W_or_LeftM+2
W_or_RightM equ W_or_IndentM+2
W_or_NumTabs equ W_or_RightM+2
W_or_TabList equ W_or_NumTabs+2
W_or_EndRulRec equ W_or_TabList+(W_ort_EndTabRec*W_maxTabs)
W_r_single equ 1<<0 ; << ---- STATUS BITS ----
W_r_double equ 1<<1
W_r_triple equ 1<<2
W_r_widow equ 1<<3
W_r_left equ 1<<4
W_r_center equ 1<<5
W_r_right equ 1<<6
W_r_full equ 1<<7
;
W_ch_left equ 1<<8 ; << ---- CHANGE BITS (incl. above) ----
W_ch_indent equ 1<<9
W_ch_right equ 1<<10
W_ch_tabs equ 1<<11
W_r_spacing equ W
|