mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-04 04:31:04 +00:00
227 lines
2.9 KiB
ArmAsm
227 lines
2.9 KiB
ArmAsm
*----------------------------------------
|
|
* True Convert : Resize
|
|
*----------------------------------------
|
|
|
|
resOK = $1760
|
|
resCANCEL = $1750
|
|
resH = $1740
|
|
resW = $1730
|
|
resHT = $1721
|
|
resWT = $1720
|
|
resPOP = $1710
|
|
resBTN1 = $1701
|
|
resBTN2 = $1702
|
|
|
|
*--------------
|
|
|
|
meRESIZE pha
|
|
pha
|
|
PushLong #0
|
|
PushLong #1
|
|
PushLong #PAINTRESIZE
|
|
PushLong #0
|
|
PushWord #refIsResource
|
|
PushLong #wRESIZE
|
|
PushWord #$800e
|
|
_NewWindow2
|
|
PullLong wiRESIZE
|
|
|
|
jsr resizeENTRY
|
|
jsr resizeUPDATE
|
|
|
|
]lp pha
|
|
pha
|
|
PushLong #taskREC
|
|
PushLong #0
|
|
PushLong #0
|
|
PushLong #-1
|
|
PushWord #%11000000_00011000
|
|
_DoModalWindow
|
|
ply
|
|
plx
|
|
cpy #resCANCEL
|
|
beq meRESIZE9
|
|
cpy #resOK
|
|
beq meRESIZE8
|
|
cpy #resBTN1
|
|
beq meRESIZE7
|
|
cpy #resBTN2
|
|
bne ]lp
|
|
|
|
meRESIZE7 jsr resizeUPDATE
|
|
bra ]lp
|
|
|
|
meRESIZE8 jsr doRESIZE
|
|
jsr resizeESCAPE
|
|
|
|
meRESIZE9 _InitCursor
|
|
PushLong wiRESIZE
|
|
_CloseWindow
|
|
rts
|
|
|
|
*--------------
|
|
|
|
PAINTRESIZE PushLong wiRESIZE
|
|
_DrawControls
|
|
rtl
|
|
|
|
*--------------
|
|
|
|
doRESIZE sep #$20
|
|
ldal $c034
|
|
inc
|
|
stal $c034
|
|
rep #$20
|
|
rts
|
|
|
|
*--------------
|
|
|
|
resizeENTRY PushWord resVBTN1
|
|
PushLong wiRESIZE
|
|
PushLong #resBTN1
|
|
_SetCtlValueByID
|
|
|
|
PushWord resVBTN2
|
|
PushLong wiRESIZE
|
|
PushLong #resBTN2
|
|
_SetCtlValueByID
|
|
|
|
PushWord resVPOP
|
|
PushLong wiRESIZE
|
|
PushLong #resPOP
|
|
_SetCtlValueByID
|
|
|
|
PushLong wiRESIZE
|
|
PushLong #resW
|
|
PushLong #resWIDTH
|
|
_SetLETextByID
|
|
|
|
PushLong wiRESIZE
|
|
PushLong #resH
|
|
PushLong #resHEIGHT
|
|
_SetLETextByID
|
|
rts
|
|
|
|
*--------------
|
|
|
|
resizeESCAPE pha
|
|
PushLong wiRESIZE
|
|
PushLong #resBTN1
|
|
_GetCtlValueByID
|
|
pla
|
|
sta resVBTN1
|
|
|
|
pha
|
|
PushLong wiRESIZE
|
|
PushLong #resBTN2
|
|
_GetCtlValueByID
|
|
pla
|
|
sta resVBTN2
|
|
|
|
pha
|
|
PushLong wiRESIZE
|
|
PushLong #resPOP
|
|
_GetCtlValueByID
|
|
pla
|
|
sta resVPOP
|
|
|
|
PushLong wiRESIZE
|
|
PushLong #resW
|
|
PushLong #resWIDTH
|
|
_GetLETextByID
|
|
|
|
PushLong wiRESIZE
|
|
PushLong #resH
|
|
PushLong #resHEIGHT
|
|
_GetLETextByID
|
|
rts
|
|
|
|
*--------------
|
|
|
|
resizeUPDATE pha
|
|
PushLong wiRESIZE
|
|
PushLong #resBTN1
|
|
_GetCtlValueByID
|
|
pla
|
|
sta resVBTN1
|
|
beq resizeUPDATE1 ; Bouton 2 actif
|
|
|
|
jsr resizeNOT2
|
|
jsr resizeBUT1
|
|
rts
|
|
|
|
resizeUPDATE1 jsr resizeNOT1
|
|
jsr resizeBUT2
|
|
rts
|
|
|
|
*--------------
|
|
|
|
resizeNOT1 PushWord #255
|
|
PushLong wiRESIZE
|
|
PushLong #resPOP
|
|
_HiliteCtlByID
|
|
rts
|
|
|
|
resizeBUT1 PushWord #0
|
|
PushLong wiRESIZE
|
|
PushLong #resPOP
|
|
_HiliteCtlByID
|
|
rts
|
|
|
|
*--------------
|
|
|
|
resizeNOT2 PushWord #255
|
|
PushLong wiRESIZE
|
|
PushLong #resWT
|
|
_HiliteCtlByID
|
|
|
|
PushWord #255
|
|
PushLong wiRESIZE
|
|
PushLong #resW
|
|
_HiliteCtlByID
|
|
|
|
PushWord #255
|
|
PushLong wiRESIZE
|
|
PushLong #resHT
|
|
_HiliteCtlByID
|
|
|
|
PushWord #255
|
|
PushLong wiRESIZE
|
|
PushLong #resH
|
|
_HiliteCtlByID
|
|
rts
|
|
|
|
resizeBUT2 PushWord #0
|
|
PushLong wiRESIZE
|
|
PushLong #resWT
|
|
_HiliteCtlByID
|
|
|
|
PushWord #0
|
|
PushLong wiRESIZE
|
|
PushLong #resW
|
|
_HiliteCtlByID
|
|
|
|
PushWord #0
|
|
PushLong wiRESIZE
|
|
PushLong #resHT
|
|
_HiliteCtlByID
|
|
|
|
PushWord #0
|
|
PushLong wiRESIZE
|
|
PushLong #resH
|
|
_HiliteCtlByID
|
|
rts
|
|
|
|
*--------------
|
|
|
|
resVBTN1 dw 1
|
|
resVBTN2 dw 0
|
|
|
|
resVPOP dw $1711
|
|
resWIDTH ds 5
|
|
resHEIGHT ds 5
|
|
|
|
*--------------
|
|
|
|
wiRESIZE ds 4
|