Robert


DIM FontName$
DIM itID,MenuH

MenuH = FN GETMHANDLE(_mFont) // Your Menu id here.
FontName$ = "Arial"
call GETITEM(MenuH,itID,FontName$)
Def CheckOneitem(_mFont,itID)

Seems right but I can't get it to work. Did it work for you in the example?

Martin

> >If I want to set a default font of Geneva how do I go about checking it
> >as selected in the FONT menu?
> >
> >I have been experimenting with "Text Edit Menus.Bas" in the Release 6
> >Examples but notice that that example doesn't check the font either.
> >
> >
> >Martin
>
> Try this.
>
> DIM FontName$
> DIM itemID
>
> MenuH = FN GETMHANDLE(_FontPopup) // Your Menu id here.
> FontName$ = "Geneva"
> call GETITEM(MenuH,itemId,FontName$)
> Def CheckOneitem(_FontPopup,itemId) // Your Menu id here.
>
> rc
>
> --
> To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>