Peter wrote:

> Hi Gang
> I'm trying to put help tags on my design program, and i've run in to a 
> problem.
> The reference manual indicates that " In the new Appearance Manager 
> runtime, edit fields are actually buttons. But the help tag (which works 
> on BUTTON buttons, I've got that working OK) doesn't work on these. Is 
> there anyway that edit fields can pick up this feature?
> 

Try this:


'~'A
'                             Runtime : Rntm Appearance.Incl
'                                 CPU : Carbon
'~'B
Include "Tlbx MacHelp.Incl"

Clear Local Mode
Local Fn InstallHelpTagInEF(EFNum As Long, wnd As Long, HelpTxt As 
Str255)
'~'9
Dim As WindowRef      @ wRef
Dim As ControlRef       c
Dim As HMHelpContent    helpText0, helpText1
Dim As HMHelpContentRec helpRec

Get Window wnd,wRef
Long If wRef
c  = fn FBFindEF( EFNum, _allEFSubClasses, wRef )
Long If c
helpRec.tagSide       = _kHMDefaultSide
helpText0.contentType = _kHMPascalStrContent
helpText0.tagString   = HelpTxt
helpText1.contentType = _kHMPascalStrContent
helpText1.tagString   = HelpTxt
helpRec.content[0]    = helpText0
helpRec.content[1]    = helpText1
c = fn HMSetControlHelpContent( c, helpRec )
End If
End If
End Fn

'~Main test

_mainWnd = 1
Begin Enum 1
_field1
_field2
End Enum

Window _mainWnd
Edit Field _field1,"", (20,20)-(250,45)
Edit Field _field2,"", (20,55)-(250,80)
Fn InstallHelpTagInEF(_field1,_mainWnd,"Help tag for Edit Field")
Fn InstallHelpTagInEF(_field2,_mainWnd,"Another field")

Include "Subs Quick Event Loop.Incl"

Alain