Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-10-31 23:09:33 +00:00
Code Issues Projects Releases Wiki Activity

LIBGUI:more bugfix

Browse Source
This commit is contained in:
burniouf 2022-10-26 17:20:15 +02:00
parent 658749b18f
commit 0db3bf5bf0
4 changed files with 8 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LIB/LIBGUI.S.MBOX.txt
View File

@ -1,7 +1,7 @@
NEW
AUTO 3,1
*--------------------------------------
* MsgBox(hWND, pTITLE, pTEXT, pBM, iButtons)
* iButton MsgBox(hWND, pTITLE, pTEXT, pBM, iButtons)
*--------------------------------------
*--------------------------------------

28
LIB/LIBGUI.S.MOU.txt
View File

@ -59,34 +59,6 @@ MOU.Quit lda hDevMouse
.8 clc
rts
*--------------------------------------
MOU.ReadMouse.OLD >PULLW ZPPtr1 pS.XY
lda A2osX.ASCREEN GUI screen active ?
cmp DCB.GFX+S.DCB.GFX.DEVID
bne .9 no, exit....
lda hDevMouse
beq .99 CS
>PUSHA
>PUSHBI IOCTL.READ
>PUSHW L.XY
>SYSCALL2 IOCTL
bcs .99
ldy #S.XY-1
.1 lda XY,y
sta (ZPPtr1),y
dey
bpl .1
* clc
rts
.9 sec
.99 rts
*--------------------------------------
MOU.CheckOverMenu
.1 ldx MENU.Stack.Cnt
beq .9

21
LIB/LIBGUI.S.MSG.txt
View File

@ -5,39 +5,30 @@ MSG.Get stz MSG+S.MSG.T
lda A2osX.ASCREEN GUI screen active ?
cmp DCB.GFX+S.DCB.GFX.DEVID
beq .10
beq .1
jmp .9 no, exit....
.10 lda hDevMouse
.1 lda hDevMouse
beq .5
>PUSHA
>PUSHBI IOCTL.READ
>PUSHW L.XY
>PUSHW L.MSG.XY
>SYSCALL2 IOCTL
bcs .5
ldx #S.XY-1
ldy #S.MSG-1
.1 lda XY,x
sta MSG,y
dey
dex
bpl .1
lda #S.MSG.T.XY
sta MSG+S.MSG.T
lda XY+S.XY.S
lda MSG+S.MSG.S
bit #S.MSG.S.MOVE
beq .2
>PUSHW L.XY
>PUSHW L.MSG.XY
jsr PTR.SetPos
lda XY+S.XY.S
lda MSG+S.MSG.S
.2 bit #S.MSG.S.MOVE+S.MSG.S.CLK
beq .5

3
LIB/LIBGUI.S.txt
View File

@ -147,8 +147,8 @@ L.SYSX7B .DA SYSX7B
L.IOCTL .DA IOCTL
L.DCB.GFX .DA DCB.GFX
L.MouseClamp .DA MouseClamp
L.XY .DA XY
L.MSG .DA MSG
L.MSG.XY .DA MSG+S.MSG.X1
L.CB.PTR .DA CB.PTR
L.CB.Cache .DA CB.Cache
L.OBJ.Cache .DA OBJ.Cache
@ -330,7 +330,6 @@ IOCTL .BS S.IOCTL
DCB.GFX .BS S.DCB.GFX
*--------------------------------------
MouseClamp .BS 8
XY .BS S.XY
MSG .BS S.MSG
*--------------------------------------
CB.PTR .DA #S.CB.CMD.BITBLT