On Wednesday, October 29, 2003, at 05:38  PM, Ken Shmidheiser wrote:

> Robert Covington wrote in this thread:
>
>> Thanks Alain,  but it appears that  instead of returning a regular FB
>> ID, the toolbox call returns in this case  some TXNFontMenuObject
>> reference, and not the real ID sent to the doDialog?
>>
>> FontMenuRef   Hierarchical Output ID returned when stepping...looks
>> more like a menu reference/handle than the ID.
>>
>> 4665024         0
>>   4665024         0
>>   4665024         0
>>   4665024         0
>>   4665024         13107200   < -- actually 200
>>   4665024         13172736   < -- actually 201
>>
>>   4665024         0
>>   4665024         0
>>   4665024         0
>> <Snip>
>>
>>
>> I know the FontMenu ID (5), and the Starting output ID's of the
>> hierarchicals returned (200)
>
>
>
> Robert,
>
> Perhaps this would be easier:


YES! ;) Cool.

Thanks Ken. I thunk it might be embedded in there somehow.  HiWord, 
LoWord...out of my usual experience. I had tried a Hex$ conversion 
using the ref manual example, but no aid that way.  Cool.

I can now know the parent family's name. But setting a variant, that's 
the new step/problem.

To answer Alain's inquiry...MLTE is running the font menu as a 
TXNFontMenuObject...thus I have no knowledge of where and what font it 
sets up with  hierarchal menus...I can only set the starting ID they 
use.

Now I have enough info though to at least match the font family name I 
think , and thus at least restore one aspect of the default font on a 
next run. As for the Arial  >Bold/Narrow/Italic setting, that's a new 
challenge for me.

I don't think that GetFontFamilyFromMenuSelection will work, because 
it's a submenu, and sending out just a submenu ID might not work? Will 
try it anyway.

Anyhow, one step closer.
Robert


(thanks again Ken, and Alain for the Hier-cyclotron )

> local fn SubMenuInfo( subMenuChosen as sint16 )
> dim as long menuID
>
> menuID = fn HiWord( subMenuChosen )
>
> end fn = menuID
>
> /*
> From R.C.'s example:
>
> 4665024         0
>   4665024         0
>   4665024         0
>   4665024         0
>   4665024         13107200   < -- actually 200
>   4665024         13172736   < -- actually 201
>
>   4665024         0
>   4665024         0
>   4665024         0
>
> */
>
> print fn SubMenuInfo( 13107200 )
> print fn SubMenuInfo( 13172736 )
>
> include "Subs Quick Event Loop.Incl"
>
> Keep up the excellent work!   ;-)
>
> Ken
>
> --
> To unsubscribe, send ANY message to 
> <futurebasic-unsubscribe@...>
>