mirror of
https://github.com/antoinevignau/source.git
synced 2024-10-01 20:57:22 +00:00
1 line
14 KiB
Plaintext
1 line
14 KiB
Plaintext
|
load 'macros.dump'
include 'driver.equ'
include 'wp.equ'
;-----------------------------------------------
;
; Imported addresses
;
;-----------------------------------------------
IMPORT W_CRCopied
IMPORT W_CalcDocRect
IMPORT W_CalcPages
IMPORT W_CalcPixels
IMPORT W_CalcScrollVals
IMPORT CaretOff
IMPORT W_ClipRuler
IMPORT W_CurDoc
IMPORT W_DelSelect
IMPORT D_DisableMItems
IMPORT W_DrawPgBox
IMPORT D_EnableMItems
IMPORT W_EndLine
IMPORT W_EndOffset
IMPORT W_EndPar
IMPORT D_FastMult
IMPORT W_FirstPage
IMPORT W_GetLRecPtr
IMPORT W_GetLastLine
IMPORT W_GetNewOffset
IMPORT W_GetParRec
IMPORT W_GetRgn
IMPORT W_GotNewCtlVals
IMPORT W_GotoPage
IMPORT W_HideItem
IMPORT W_InsertKeys
IMPORT W_InvSelect
IMPORT W_JunkLeft
IMPORT W_Key
IMPORT W_KillSelect
IMPORT W_LastP
IMPORT W_LineToTopPixel
IMPORT W_MakeCaret
IMPORT W_MakeCaretNS
IMPORT W_MakeCr
IMPORT W_MakeLines
IMPORT W_NewNumPgs
IMPORT W_NewRuler
IMPORT W_NumPgs
IMPORT W_OverRide
IMPORT W_PageDialog
IMPORT W_ParRec
IMPORT W_Ptr
IMPORT W_PutOnScreen
IMPORT W_RulBytes
IMPORT W_ScreenChangedNS
IMPORT W_ScrollBar
IMPORT W_SelectOff
IMPORT W_SelectOn
IMPORT W_SetDocRect
IMPORT W_SetFullREct
IMPORT W_ShowItem
IMPORT W_ShowRuler
IMPORT W_StartLine
IMPORT W_StartOffset
IMPORT W_StartPar
IMPORT W_SwitchData
IMPORT W_TopPg
IMPORT W_TopPgPixel
IMPORT W_UnUseRuler
IMPORT W_UndoOff
IMPORT W_UpdateText
IMPORT W_UseRuler
IMPORT W_View
IMPORT W_HeaderBits
IMPORT W_ModFlags
IMPORT Q_Rect
IMPORT W_Selected
;-----------------------------------------------
;
; Forward addresses and entries
;
;-----------------------------------------------
ENTRY W_ChangeView
ENTRY W_UnCheckView
********************************************************************
*
* Includes...
*
* Monday, May 1, 1989 5:45:52 AM
********************************************************************
****************************************************************
* W_ChangeRuler - shows or hides the ruler
W_ChangeRuler PROC EXPORT
;Using wpglobals
;Using ScreenData
;Using W_ATTRData
local Q_Rect:r,SAmt:w,Rgn:l
begin +b
jsl CaretOff
pushlong W_CurDoc
_SetPort
jsl CaretOff
pushlong !Q_Rect
jsl W_CalcDocRect
stz Q_Rect ;go to top
pushword #$504
_DeleteMItem
lda W_ShowRuler
beq ShowIt
moveword #-W_RulerHt,SAmt
pushlong #W_HideItem
pushword #$503
pushword #5
_InsertMItem
bra DoneInvid
ShowIt
moveword #W_RulerHt,SAmt
pushlong #W_ShowItem
pushword #$503
pushword #5
_InsertMItem
DoneInvid
pushlong !Q_Rect
pushword #0
pushword SAmt
jsl W_GetRgn
movelong ax,Rgn
phx
pha
_ScrollRect
pushlong Rgn
_InValRgn
lda W_ShowRuler
eor #1
sta W_ShowRuler
jsl W_ScreenChangedNS
pha
pha
pha
jsl W_CalcScrollVals
lda 3,s
pha
pushlong W_ScrollBar
_SetCtlParams
pla
pla ;value not used
jsl W_MakeCaret
return
ENDP
****************************************************************
W_GotoPg PROC EXPORT
;Using wpglobals
local NewPage:w,UsePage:w,OldPage:l
begin +b
pushlong W_CurDoc
_SetPort
jsl W_SetDocRect
jsl CaretOff
jsl W_UndoOff
pha
jsl W_GotoPage
pullword NewPage
cmp #-1
jeq GPExit
addword W_FirstPage,W_NumPgs,a
sta UsePage
cmp NewPage
bcc GotUse
lda W_FirstPage
inc a
sta UsePage
cmp NewPage
bcs GotUse
moveword NewPage,UsePage
GotUse
movelong W_TopPg,OldPage
subword UsePage,W_FirstPage,W_TopPg
stz W_TopPgPixel
jsl W_SetFullREct
pha
pha
pha
jsl W_CalcScrollVals
pla
pla
pushlong W_ScrollBar
_SetCtlValue
pushlong OldPage
jsl W_GotNewCtlVals
jsl W_MakeCaretNS
GPExit
jsl W_SetFullREct
return
ENDP
****************************************************************
* W_GotoBeg - goes to the beginning of the W_Document
W_GotoBeg PROC EXPORT
;Using wpglobals
begin +b
pushlong W_CurDoc
_SetPort
jsl W_SetDocRect
jsl CaretOff
jsl W_UndoOff
jsl W_KillSelect
moveword #1,W_StartPar
stz W_StartLine
moveword #
|