--- a/FontPanel.st	Mon Feb 09 16:03:56 2004 +0100
+++ b/FontPanel.st	Mon Feb 09 21:16:18 2004 +0100
@@ -211,6 +211,44 @@
     "Modified: 29.4.1996 / 09:46:19 / cg"
 ! !
 
+!FontPanel class methodsFor:'menu specs'!
+
+previewMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+    "
+     MenuEditor new openOnClass:FontPanel andSelector:#previewMenu
+     (Menu new fromLiteralArrayEncoding:(FontPanel previewMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            label: 'Copy'
+            itemValue: previewCopySelection
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'Show Character Set'
+            itemValue: previewShowCharacterSet
+            translateLabel: true
+          )
+         )
+        nil
+        nil
+      )
+! !
+
 !FontPanel class methodsFor:'startup'!
 
 fontFromUser
@@ -462,6 +500,8 @@
     faceList action:[:lineNr | self faceSelected:(faceList selectionValue)].
     sizeList action:[:lineNr | self sizeSelected:(sizeList selectionValue)].
 
+    previewField menuHolder:self previewMenu.
+
     "
      FontPanel new showAtPointer
     "
@@ -511,6 +551,17 @@
 
     "Modified: 27.2.1996 / 01:40:47 / cg"
     "Created: 24.7.1997 / 18:12:42 / cg"
+!
+
+previewMenu
+    <resource: #programMenu >
+
+    |menu|
+
+    menu :=  Menu new fromLiteralArrayEncoding:self class previewMenu.
+    menu findGuiResourcesIn:self.
+    menu receiver:self.
+    ^ menu
 ! !
 
 !FontPanel methodsFor:'private'!
@@ -799,6 +850,14 @@
     "Modified: 10.4.1997 / 09:51:31 / cg"
 !
 
+previewCopySelection
+    previewField copySelection.
+!
+
+previewShowCharacterSet
+    CharacterSetView openOn:(previewField font)
+!
+
 sizeSelected:aNumberOrString
     "a size was selected; update preview"
 
@@ -821,5 +880,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.59 2004-02-09 15:03:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.60 2004-02-09 20:16:18 cg Exp $'
 ! !