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:


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