mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-01 15:30:02 +00:00
1 line
5.7 KiB
Plaintext
Executable File
1 line
5.7 KiB
Plaintext
Executable File
********************************************************************
|
|
* 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_r_single+W_r_double+W_r_triple
|
|
W_r_just equ W_r_full+W_r_center+W_r_right+W_r_left
|
|
W_r_defined equ W_r_spacing+W_r_widow+W_r_just
|
|
W_r_reserved equ $ffff-W_r_defined
|
|
|
|
W_rt_decimal equ -1 ; << ---- TAB TYPES ----
|
|
W_rt_left equ 0
|
|
W_rt_right equ 1
|
|
W_rt_leftm equ 2 ; << \
|
|
W_rt_indentm equ 3 ; << > (for use by W_TrackTab only)
|
|
W_rt_rightm equ 4 ; << /
|
|
;------------------------------------------
|
|
;
|
|
; Equates from procedure W_ATTRData
|
|
;
|
|
;------------------------------------------
|
|
W_FindRepBit equ 1<<0
|
|
W_FindBit equ 1<<1
|
|
W_InsertBit equ 1<<2
|
|
W_GPageBit equ 1<<3
|
|
W_GBegBit equ 1<<4
|
|
W_GEndBit equ 1<<5
|
|
W_SpellBit equ 1<<6
|
|
W_ThesBit equ 1<<7
|
|
W_EUBit equ 1<<8
|
|
W_AllSearch equ (1<<9)-1
|
|
W_NVItem equ $501
|
|
W_VHItem equ $502
|
|
W_VFItem equ $503
|
|
W_vstandbit equ 1<<0
|
|
W_vheadbit equ 1<<1
|
|
W_vfootbit equ 1<<2
|
|
W_srulerbit equ 1<<3
|
|
W_PageDBit equ 1<<4
|
|
W_IPBBit equ 1<<5
|
|
W_IPNBit equ 1<<6
|
|
W_IDBit equ 1<<7
|
|
W_ITBit equ 1<<8
|
|
W_statBit equ 1<<9
|
|
W_AllDocument equ (1<<$a)-1
|
|
W_AddMergeBit equ 1<<(5+5)
|
|
W_EditAll equ EditStandard+%11111100000
|
|
W_CopyRulBit equ 1<<(ExEditStart-$301)
|
|
W_PasteRulBit equ 1<<(ExEditStart-$301)+1
|
|
W_SelectABit equ 1<<(ExEditStart-$301)+2
|
|
W_SelectPBit equ 1<<(ExEditStart-$301)+3
|
|
W_SelectSBit equ 1<<(ExEditStart-$301)+4
|
|
|
|
********************************************************************
|
|
*
|
|
* Screen Equs taken from SCREEN
|
|
*
|
|
*
|
|
*
|
|
*
|
|
* Monday, May 1, 1989 7:05:13 AM
|
|
********************************************************************
|
|
|
|
|
|
W_SideWidth equ 25
|
|
W_PNumBoxHt equ 11
|
|
W_RulerHt equ 30
|
|
|
|
|