mirror of
https://github.com/antoinevignau/source.git
synced 2024-09-30 13:54:52 +00:00
1 line
15 KiB
Plaintext
1 line
15 KiB
Plaintext
|
load 'macros.dump'
include 'driver.equ'
include 'wp.equ'
;-----------------------------------------------
;
; Imported addresses
;
;-----------------------------------------------
IMPORT D_BLSelect
IMPORT W_GetMfString
IMPORT D_StringBuffer
;-----------------------------------------------
;
; Forward addresses and entries
;
;-----------------------------------------------
ENTRY W_dbNames
ENTRY W_DbDocStr
ENTRY W_DbDocTitle
ENTRY W_DispMergeDB
ENTRY W_DoLETextBox2
ENTRY W_FieldTitle
ENTRY W_FieldTstr
ENTRY W_WhichDB
ENTRY W_wholeStr
ENTRY W_allbutton
ENTRY W_def_replace
ENTRY W_def_search
ENTRY W_donebutton
ENTRY W_donestr
ENTRY W_dsCancelButton
ENTRY W_dsDrawItem
ENTRY W_dsOkButton
ENTRY W_findbutton
ENTRY W_findstr
ENTRY W_ignoreBox
ENTRY W_ignoreStr
ENTRY W_mfCancelButton
ENTRY W_mfDrawItem
ENTRY W_mfOkButton
ENTRY W_pmCancelStr
ENTRY W_pmOKstr
ENTRY W_pmSelItem
ENTRY W_repallstr
ENTRY W_replacebutton
ENTRY W_replaceEdit
ENTRY W_replaceTitle
ENTRY W_replaceTstr
ENTRY W_replacestr
ENTRY W_restartbutton
ENTRY W_restartstr
ENTRY W_searchEdit
ENTRY W_searchTitle
ENTRY W_searchTstr
ENTRY W_stOKbutton
ENTRY W_stOKstr
ENTRY W_stStatRect
ENTRY W_stStatText
ENTRY W_stStatTitle
ENTRY W_stStatTitleStr
ENTRY W_stStats
ENTRY W_stThingRect
ENTRY W_stThingText
ENTRY W_stThings
ENTRY W_thenbutton
ENTRY W_thenstr
ENTRY W_WhichDBlen
ENTRY W_WhichDBrect
ENTRY W_WhichDBtext
ENTRY W_wholeBox
********************************************************************
* Includes...
* Thursday, April 27, 1989 5:56:34 PM
********************************************************************
*--------------------------------------------------------------*
W_DispMergeDB PROC EXPORT
;Using W_MergeDlgData
input dialog:l,item:w
begin +b
spacelong
_GetPort
pushlong dialog
_SetPort
_PenNormal
pushlong #W_WhichDBtext
pushword >W_WhichDBlen
pushlong #W_WhichDBrect
pushword #1 ; centered
_LETextBox2
_SetPort
return
ENDP
*--------------------------------------------------------------*
W_mfDrawItem PROC EXPORT
;Using D_UtilData ; <<driver<<
;Using W_MergeDlgData
input listptr:l,item:w
begin +b
pushword #2
pushword #8
_Move
pushword item
jsl W_GetMfString
pushlong #D_StringBuffer+1
_DrawString
return
ENDP
*--------------------------------------------------------------*
W_dsDrawItem PROC EXPORT
;Using W_MergeDlgData
input listptr:l,item:w
local tmp:l
BEGIN +b
movelong W_dbNames,tmp
movelong [tmp],ax
movelong ax,tmp
lda item
asl a
asl a
tay
lda [tmp],y ; movelong [tmp]:y,tmp
tax
iny
iny
lda [tmp],y
stx tmp
sta tmp+2
Tool _HLock,in=(tmp:l)
Tool _Move,in=(#2:w,#8:w)
Tool _DrawString,in=([tmp]:l)
Tool _HUnLock,in=(tmp:l)
RETURN
ENDP
****************************************************************
W_pmSelItem PROC EXPORT
input listptr:l,item:w
begin +b
lda item ; If nothing is selected, select
bpl exit ; the last thing in the list
pushlong listptr
ldy #20 ; (offset to last item)
lda [listptr],y
dec a
pha
jsl D_BLSelect
exit return
ENDP
****************************************************************
*
* W_MergeDlgData
*
****************************************************************
W_MergeDlgData PROC EXPORT
;Using D_WindowData
;Using W_PMergeData
EXPORT W_DBsuffix
EXPORT W_NoDBs
EXPORT W_indexPtr
EXPORT W_MergeDlg
EXPORT W_mfOkButton
EXPORT W_mfCancelButton
EXPORT W_pmOKstr
EXPORT W_pmCancelStr
EXPORT W_FieldTitle
EXPORT W_FieldTstr
EXPORT W_WhichDB
EXPORT W_WhichDBrect
EXPORT W_WhichDBtext
EXPORT W_WhichDBname
EXPORT W_WhichDBlen
EXPORT W_mfBobList
EXPORT W_mfDialog
EXPORT W_mfNumItems
EXPORT W_DbSelectDlg
EXPORT W_dsOkButton
EXPORT W_dsCancelButton
EXPORT W_DbDocTitle
EXPORT W_DbDocStr
EXPORT W_dsBobList
EXPORT W_dsDialog
EXPORT W_dsNumItems
EXPORT W_dbNames
W_DBsuffix DC.B '(DB)'
W_NoDBs str 'There are
|