Kernel 0.94

LIB/LIBGUI.S.FON.txt

@@ -4,18 +4,20 @@ NEW
 FON.Init		>LDYA L.SYSX7
 				jsr FON.Load
 				bcs .9
-				sta hSYSFON
+
+				stx hSYSFON
+
+				>LDYA L.SYSX7B
+				jsr FON.Load
+				bcs .9
+
+				stx hSYSFONB
 
 *				ldy #S.FON.PixH
 *				>SYSCALL2 GetStkObjProp
 				lda #7
 				sta SYSFON.H
 
-				>LDYA L.SYSX7B
-				jsr FON.Load
-				bcs .9
-				sta hSYSFONB
-
 .9				rts
 *--------------------------------------
 FON.Load		>PUSHYA

LIB/LIBGUI.S.WND.txt

@@ -333,19 +333,37 @@ WND.PaintTitle	ldx #S.CB-1
 				lda hSYSFONB
 				sta CB.Cache+S.CB.hFont
 				
+				ldy #S.OBJ.X1
+				lda (ZPPtr1),y
+				clc
+				adc #1
+				sta CB.Cache+S.CB.X1
+				iny
+				lda (ZPPtr1),y
+				adc #0
+				sta CB.Cache+S.CB.X1+1
+				
+				iny						#S.OBJ.Y1
+				
+				lda (ZPPtr1),y
+				clc
+				adc #1
+				sta CB.Cache+S.CB.Y1
+				iny
+				lda (ZPPtr1),y
+				adc #0
+				sta CB.Cache+S.CB.Y1+1
+				
+				
+				
 				ldy #S.WND.TITLE
 				lda (ZPPtr1),y
 				sta CB.Cache+S.CB.TxtPtr
 				iny
 				lda (ZPPtr1),y
 				sta CB.Cache+S.CB.TxtPtr+1
-			>DEBUG
+
 				jsr GFXWrite.CB
-
-			clc
-			rts
-
-
 				bcs .9
 	
 				ldx #0