--- a/FontMenu.st	Mon Jun 09 10:14:29 2008 +0200
+++ b/FontMenu.st	Mon Jun 09 10:14:32 2008 +0200
@@ -187,12 +187,14 @@
             )
           )
          (MenuItem
+            activeHelpKey: openFontChooser
             enabled: enabledChannel
             label: 'Choose...'
             itemValue: openFontChooser
             translateLabel: true
             isVisible: enabledAndFontIsNotSymbolicHolder
             labelImage: (ResourceRetriever XPToolbarIconLibrary fontIcon)
+            isButton: true
           )
          (MenuItem
             activeHelpKey: concreteFontsFamily
@@ -652,6 +654,35 @@
     ].
 ! !
 
+!FontMenu methodsFor:'help'!
+
+flyByHelpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:ColorEditDialog    
+    "
+
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+#useDefaultFontToggle
+'Turn on, to specify the font here. Turn off to use the default'
+
+#toggleSymbolicFont
+'Turn on, to specify a symbolic font. Turn off to specify a concrete font'
+
+#openFontChooser
+'Open a font dialog'
+
+)
+! !
+
 !FontMenu methodsFor:'initialization'!
 
 destroy
@@ -786,5 +817,5 @@
 !FontMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.24 2008-05-29 16:19:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.25 2008-06-09 08:14:32 cg Exp $'
 ! !