LIBGUI:more bugfix

INC/LIBGUI.I.txt

@@ -43,6 +43,7 @@ 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
 *--------------------------------------
 BUT.ID.OK			.EQ 1
 BUT.ID.CANCEL		.EQ 2

LIB/LIBGUI.G.BM.txt

@@ -177,6 +177,42 @@ BM.Down.AND		.DA #%1111111
 				.DA #%1110111
 				.DA #%1111111
 *--------------------------------------
+BM.Info			.DA #S.BM.F.BBP4
+				.DA #4					RowBytes
+				.DA 28					W
+				.DA 14					H
+				.DA BM.INFO.AND-BM.INFO
+
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+				.HS FFFFFFF0
+
+BM.Info.AND		.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+				.HS FFFFFFFF
+*--------------------------------------
 MAN
 SAVE usr/src/lib/libgui.g.bm
 LOAD usr/src/lib/libgui.s

LIB/LIBGUI.S.CB.txt

@@ -30,6 +30,16 @@ CB.GetWndYCacheX
 				sta CB.Cache+1,x
 				rts
 *--------------------------------------
+CB.BorderLineH	lda #S.CB.CMD.HLINE
+				sta CB.Cache+S.CB.CMD
+				lda #S.CB.OP.SET
+				sta CB.Cache+S.CB.OP
+				lda #S.CB.M.MONO
+				sta CB.Cache+S.CB.M
+				lda PREFS.BorderColor
+				sta CB.Cache+S.CB.COLOR
+				rts
+*--------------------------------------
 CB.FillRectMonoA
 				sta CB.Cache+S.CB.COLOR
 

LIB/LIBGUI.S.MBAR.txt

@@ -180,17 +180,20 @@ MBAR.Enter		ldy #S.WND.pMBAR
 .2				jsr MBAR.NextMBItem
 				bra .1
 
-*--------------------------------------				
+.3				lda ZPPtr2
+				ora ZPPtr2+1
+				bne MBAR.Set
 
 .8				clc
 .9				rts
-
 *--------------------------------------
-.3				lda ZPPtr2
+* ZPMENUPtr = MBAR
-				ora ZPPtr2+1
+* ZPPtr2 = Item to activate
-				beq .8					no change....
+*--------------------------------------
+MBAR.Reset		stz ZPPtr2
+				stz ZPPtr2+1
 
-				jsr MENU.DestroyAll
+MBAR.Set		jsr MENU.DestroyAll
 
 				ldy #S.OBJ.X1
 				ldx #S.CB.X1
@@ -204,7 +207,7 @@ MBAR.Enter		ldy #S.WND.pMBAR
 .4				lda (ZPPtr1)
 				beq .7
 
-				jsr MBAR.SetX2
+				jsr MBAR.SetX2			set X2 = X1 + W
 
 				ldy #S.MBITEM.S
 				lda (ZPPtr1),y
@@ -218,24 +221,33 @@ MBAR.Enter		ldy #S.WND.pMBAR
 				cpx ZPPtr2+1
 				bne .6
 				
+				ldx CB.Cache+S.CB.X1
+				stx Counter
+				ldx CB.Cache+S.CB.X1+1
+				stx Counter+1
+
 .5				eor #S.MBITEM.S.SELECTED
 				sta (ZPPtr1),y
 
-				>LDYA CB.Cache+S.CB.X1
-				>STYA DX
-
 				jsr MBAR.DrawMBItem
 				bcs .9
 
-.6				jsr MBAR.NextMBItem
+.6				jsr MBAR.NextMBItem		set X1 = X2
 				bra .4
 
 .7				>LDYA L.WND.Screen
 				jsr CB.FlushBufToYA
 				bcs .9
 
-				>LDYA CB.Cache+S.CB.Y2
+				>LDYA Counter
-				>STYA DY
+				>STYA DX
+
+				ldy #S.WND.MBarY2
+				lda (ZPWNDPtr),y
+				sta DY
+				iny
+				lda (ZPWNDPtr),y
+				sta DY+1
 
 				ldy #S.MBITEM.pMENU
 				lda (ZPPtr2),y
@@ -243,18 +255,13 @@ MBAR.Enter		ldy #S.WND.pMBAR
 				iny
 				lda (ZPPtr2),y
 				ply
-			>DEBUG
+
 				jsr MENU.New.I
-				bcs .99
+				bcs .9
 
 				jmp MENU.Draw
 
-.99				rts				
+.9				rts
-*--------------------------------------
-MBAR.Leave
-
-				clc
-				rts
 *--------------------------------------
 * ZPWNDPtr = parent WND
 *--------------------------------------
@@ -270,7 +277,7 @@ MBAR.Draw		>SYSCALL2 GetMemPtr
 .1				lda (ZPPtr1)
 				beq .8
 
-				jsr MBAR.SetX2
+				jsr MBAR.SetX2			set X2 = X1 + W
 
 				jsr MBAR.DrawMBItem
 				bcs .9

LIB/LIBGUI.S.MENU.txt

@@ -584,15 +584,7 @@ MENU.DrawMItem	jsr MENU.ResetX1Y1X2
 				cmp #S.MITEM.T.SEP
 				bne MENU.DrawMItem1
 
-				lda #S.CB.CMD.HLINE
+				jsr CB.BorderLineH
-				sta CB.Cache+S.CB.CMD
-				lda #S.CB.OP.SET
-				sta CB.Cache+S.CB.OP
-				lda #S.CB.M.MONO
-				sta CB.Cache+S.CB.M
-
-				lda PREFS.BorderColor
-				sta CB.Cache+S.CB.COLOR
 
 				jmp CB.Cache2CBBuf
 *--------------------------------------

LIB/LIBGUI.S.OBJ.txt

@@ -149,15 +149,7 @@ OBJ.GetInCache	>STYA .1+1
 OBJ.DrawBorders	>STYA ZPObjPtr
 				stx IY
 
-				lda #S.CB.CMD.HLINE
+				jsr CB.BorderLineH
-				jsr CB.InitCacheA
-
-				lda #S.CB.OP.SET
-				sta CB.Cache+S.CB.OP
-				lda #S.CB.M.MONO
-				sta CB.Cache+S.CB.M
-				lda PREFS.BorderColor
-				sta CB.Cache+S.CB.COLOR
 
 				ldy #S.OBJ.X1
 

LIB/LIBGUI.S.WND.txt

@@ -670,15 +670,7 @@ WND.DrawTitleBarText
 				jmp DRAW.YATextAtDXDY
 *--------------------------------------
 WND.DrawStatusBar
-				lda #S.CB.CMD.HLINE
+				jsr CB.BorderLineH
-				jsr CB.InitCacheA
-
-				lda #S.CB.OP.SET
-				sta CB.Cache+S.CB.OP
-				lda #S.CB.M.MONO
-				sta CB.Cache+S.CB.M
-				lda PREFS.BorderColor
-				sta CB.Cache+S.CB.COLOR
 
 				ldy #S.OBJ.X1
 				ldx #S.CB.X1

LIB/LIBGUI.S.txt

@@ -174,6 +174,7 @@ L.BM.Left		.DA BM.Left
 L.BM.Right		.DA BM.Right
 L.BM.Up			.DA BM.Up
 L.BM.Down		.DA BM.Down
+L.BM.Info		.DA BM.Info
 *--------------------------------------
 L.PTR.SaveBuf	.DA PTR.SaveBuf
 L.Cursors		.DA PTR.Arrow