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

				stx hSYSFON

				>LDYA L.SYSX7B
				jsr .1
				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

.1				>PUSHYA
				>PUSHBI	O.RDONLY
				>PUSHBI S.FI.T.FON
				>PUSHWZ					Aux type
				>SYSCALL LoadStkObj
				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 CB.GFXWrite
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.fon
LOAD usr/src/lib/libgui.s
ASM