NEW
  AUTO 3,1
*--------------------------------------
FON.Init		>LDYA L.SYSX7
				>SYSCALL2 LoadStkObj
				bcs .9

				stx hSYSFON

				>LDYA L.SYSX7B
				>SYSCALL2 LoadStkObj
				bcs .9

				stx hSYSFONB

*				ldy #S.FON.PixH
*				>SYSCALL2 GetStkObjProp
				lda #7
				dec
				sta SYSFON.Hm1
				inc
				sta SYSFON.H
				inc
				inc
				sta SYSFON.Hp2

.9				rts
*--------------------------------------
FON.GetTextSize	>STYA CB.CACHE+S.CB.TxtPtr
				stx CB.CACHE+S.CB.hFont
				
				lda #S.CB.CMD.GETTEXTSIZE+S.CB.CMD.OSD
				sta CB.CACHE+S.CB.CMD
				jmp GFXWrite.CB
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.fon
LOAD usr/src/lib/libgui.s
ASM
