A2osX/INC/LIBGUI.I.txt
burniouf 9a7d20a7e1 ProDOS 203 / FX:TC mod for year 2022-2026
FORMAT: new switches & checks
SH:BREAK in FOR and WHILE
ASM / S-C MASM: new directives, CString support and .HX
LC / UC:bugfix
DHGR.DRV:bugfix
LIBGUI:wip
CC:wip
2022-12-07 08:02:29 +01:00

256 lines
5.5 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
*--------------------------------------
LIBGUI.PTR.Set .EQ 4
LIBGUI.PTR.SetPos .EQ 6
LIBGUI.PTR.Hide .EQ 8
LIBGUI.PTR.Show .EQ 10
LIBGUI.PTR.Update .EQ 12
LIBGUI.DRAW.Line .EQ 14
LIBGUI.DRAW.Fill .EQ 16
LIBGUI.DRAW.BitMap .EQ 18
LIBGUI.DRAW.Text .EQ 20
LIBGUI.OBJ.SetProp .EQ 22
LIBGUI.OBJ.GetProp .EQ 24
LIBGUI.WND.New .EQ 26
LIBGUI.WND.Destroy .EQ 28
LIBGUI.WND.Show .EQ 30
LIBGUI.WND.Paint .EQ 32
LIBGUI.WND.SetMBar .EQ 34
LIBGUI.MSG.Get .EQ 36
LIBGUI.MBOX.MsgBox .EQ 38
*--------------------------------------
C.BLACK .EQ 0
C16.D.BLUE .EQ 1
C16.D.GREEN .EQ 2
C16.M.BLUE .EQ 3
C16.BROWN .EQ 4
C16.GREY2 .EQ 5
C16.GREEN .EQ 6
C16.AQUA .EQ 7
C16.MAGENTA .EQ 8
C16.VIOLET .EQ 9
C16.GREY1 .EQ 10
C16.L.BLUE .EQ 11
C16.ORANGE .EQ 12
C16.PINK .EQ 13
C16.YELLOW .EQ 14
C.WHITE .EQ 255
*--------------------------------------
BM.ID.APPLE .EQ 2
BM.ID.CLOSE .EQ 4
BM.ID.MAX .EQ 6
BM.ID.MIN .EQ 8
BM.ID.LEFT .EQ 10
BM.ID.RIGHT .EQ 12
BM.ID.UP .EQ 14
BM.ID.DOWN .EQ 16
BM.ID.INFO .EQ 18
BM.ID.QMARK .EQ 20
BM.ID.EMARK .EQ 22
BM.ID.ERROR .EQ 24
*--------------------------------------
BUT.ID.OK .EQ 1
BUT.ID.CANCEL .EQ 2
BUT.ID.RETRY .EQ 4
BUT.ID.IGNORE .EQ 8
BUT.ID.YES .EQ 16
BUT.ID.NO .EQ 32
*--------------------------------------
PTR.T.ARROW .EQ 0
PTR.T.MOVE .EQ 2
PTR.T.RESIZEX .EQ 4
PTR.T.RESIZEY .EQ 6
PTR.T.RESIZEXY1 .EQ 8
PTR.T.RESIZEXY2 .EQ 10
PTR.T.CROSS .EQ 12
PTR.T.TEXT .EQ 14
PTR.T.WAIT .EQ 16
*--------------------------------------
KEYMOD.CTRL .EQ %10000000
KEYMOD.OA .EQ %01000000
KEYMOD.CA .EQ %00100000
*--------------------------------------
S.MSG.T .EQ 0
S.MSG.T.KEY .EQ 0
S.MSG.T.XY .EQ 2
S.MSG.T.ID .EQ 4
S.MSG.T.WND .EQ 6
*
S.MSG.KEYMOD .EQ 2
S.MSG.KEYMOD.OA .EQ %00000001
S.MSG.KEYMOD.CA .EQ %00000010
S.MSG.KEY .EQ 3
S.MSG.ID .EQ 4
S.MSG.WND .EQ 5
* S.MSG.T.XY
S.MSG.X1 .EQ 6
S.MSG.Y1 .EQ 8
S.MSG.X2 .EQ 10
S.MSG.Y2 .EQ 12
S.MSG.S .EQ 14
*
S.MSG .EQ 16
*--------------------------------------
S.POINT.X .EQ 0
S.POINT.Y .EQ 2
*
S.POINT .EQ 4
*--------------------------------------
S.RECT.X1 .EQ 0
S.RECT.Y1 .EQ 2
S.RECT.X2 .EQ 4
S.RECT.Y2 .EQ 6
*
S.RECT .EQ 8
*--------------------------------------
S.OBJ.T .EQ 0
S.OBJ.T.WND .EQ 0
S.OBJ.T.MBAR .EQ 2
S.OBJ.T.MENU .EQ 4
S.OBJ.T.BUT .EQ 6
S.OBJ.T.TEXT .EQ 8
S.OBJ.T.BITMAP .EQ 10
S.OBJ.T.LABEL .EQ 12
S.OBJ.F .EQ 1
S.OBJ.F.BORDER .EQ %10000000
S.OBJ.S .EQ 2
S.OBJ.S.VISIBLE .EQ %10000000
S.OBJ.ID .EQ 3
S.OBJ.hOWNER .EQ 4
S.OBJ.hPARENT .EQ 6
S.OBJ.X1 .EQ 8
S.OBJ.Y1 .EQ 10
S.OBJ.X2 .EQ 12
S.OBJ.Y2 .EQ 14
S.OBJ.W .EQ 16
S.OBJ.H .EQ 18
S.OBJ.pChilds .EQ 20
S.OBJ.pNext .EQ 22
*
S.OBJ .EQ 24
*--------------------------------------
S.WND.F.RESIZE .EQ %00000001
S.WND.F.MOVE .EQ %00000010
S.WND.F.CLOSE .EQ %00000100
S.WND.F.MIN .EQ %00001000
S.WND.F.MAX .EQ %00010000
S.WND.F.MODAL .EQ %00100000
*
S.WND.S.HASTBAR .EQ %00000001
S.WND.S.HASMBAR .EQ %00000010
S.WND.S.HASSBAR .EQ %00000100
S.WND.S.MAXIMIZED .EQ %00001000
S.WND.S.MINIMIZED .EQ %00010000
S.WND.S.ACTIVE .EQ %00100000
*
S.WND.MinW .EQ S.OBJ
S.WND.MinH .EQ S.OBJ+2
S.WND.pTITLE .EQ S.OBJ+4
S.WND.pMBAR .EQ S.OBJ+6
S.WND.pSTATUS .EQ S.OBJ+8
S.WND.ICON .EQ S.OBJ+10
S.WND.BGCOLOR .EQ S.OBJ+12
S.WND.BGBM .EQ S.OBJ+14
S.WND.hPTR .EQ S.OBJ+16
*
* private
*
S.WND.TBarY2 .EQ S.OBJ+20
S.WND.MBarY1 .EQ S.OBJ+22
S.WND.MBarY2 .EQ S.OBJ+24
S.WND.SBarY1 .EQ S.OBJ+26
*
S.WND.InnerX1 .EQ S.OBJ+28
S.WND.InnerY1 .EQ S.OBJ+30
S.WND.InnerX2 .EQ S.OBJ+32
S.WND.InnerY2 .EQ S.OBJ+34
S.WND.InnerW .EQ S.OBJ+36
S.WND.InnerH .EQ S.OBJ+38
*
S.WND.DocW .EQ S.OBJ+40
S.WND.DocH .EQ S.OBJ+42
S.WND.DocX .EQ S.OBJ+44
S.WND.DocY .EQ S.OBJ+46
S.WND.fPaint .EQ S.OBJ+48
*
*
S.WND .EQ S.OBJ+52
*--------------------------------------
S.MBAR.Items .EQ S.OBJ
*
*--------------------------------------
S.MBITEM.T .EQ 0
S.MBITEM.T.SUBMENU .EQ 6
S.MBITEM.S .EQ 1
S.MBITEM.S.SELECTED .EQ %10000000
S.MBITEM.W .EQ 2
S.MBITEM.pTEXT .EQ 4
S.MBITEM.pMENU .EQ 6
*
S.MBITEM .EQ 8
*--------------------------------------
S.MENU.hSAVEBUF .EQ S.OBJ+0
S.MENU.iW .EQ S.OBJ+2
S.MENU.tW .EQ S.OBJ+4
S.MENU.kW .EQ S.OBJ+6
S.MENU.Items .EQ S.OBJ+8
*
*--------------------------------------
S.MITEM.T .EQ 0
S.MITEM.T.SEP .EQ 2
S.MITEM.T.ITEM .EQ 4
S.MITEM.T.SUBMENU .EQ 6
S.MITEM.S .EQ 1
S.MITEM.S.SELECTED .EQ %10000000
S.MITEM.S.DISABLED .EQ %00000010
S.MITEM.S.CHECKED .EQ %00000001
S.MITEM.pICON .EQ 2
S.MITEM.pTEXT .EQ 4
S.MITEM.pMENU .EQ 6
S.MITEM.KEYMOD .EQ 8
S.MITEM.KEY .EQ 9
S.MITEM.ID .EQ 10
*
S.MITEM .EQ 12
*--------------------------------------
*S.BUT.F.DISABLED .EQ %00000010
S.BUT.F.NOLEAVE .EQ %00000010
S.BUT.F.NOSPACE .EQ %00000001
*
S.BUT.S.SELECTED .EQ %10000000
*
S.BUT.pICON .EQ S.OBJ
S.BUT.pTEXT .EQ S.OBJ+2
S.BUT.KEYMOD .EQ S.OBJ+4
S.BUT.KEY .EQ S.OBJ+5
S.BUT.ID .EQ S.OBJ+6
*
S.BUT .EQ S.OBJ+8
*--------------------------------------
S.LABEL.pTEXT .EQ S.OBJ
*
S.LABEL .EQ S.OBJ+2
*--------------------------------------
S.TEXT.F.DISABLED .EQ %10000000
*
S.TEXT.hBM .EQ S.OBJ
S.TEXT.TEXTX .EQ S.OBJ+2
S.TEXT.TEXTY .EQ S.OBJ+4
S.TEXT.TEXTLEN .EQ S.OBJ+6
S.TEXT.pTEXT .EQ S.OBJ+8
*
S.TEXT .EQ S.OBJ+10
*--------------------------------------
S.BITMAP.pBM .EQ S.OBJ+4
*
S.BITMAP .EQ S.OBJ+6
*--------------------------------------
MAN
SAVE inc/libgui.i