--- a/FontPanel.st	Tue Apr 25 12:59:11 2017 +0200
+++ b/FontPanel.st	Wed Apr 26 18:17:24 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -162,7 +164,7 @@
 defaultLatin1SampleString
     "return the sample latin1 preview text"
 
-    ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
+    ^ (self defaultAsciiSampleString) , 'äöüÄÖÜßéèêå©'
 !
 
 defaultSampleStringForEncoding:enc
@@ -206,8 +208,8 @@
     |t|
 
     t := (self defaultAsciiSampleString) , '
-diaresis: äöüÄÖÜß
-accent: éèêåÅ
+diaresis: äöüÄÖÜß
+accent: éèêåÅ
 special: ' ,  #(16r20AC) asUnicodeString , '
 math: ' ,  #(16r2200 16r2203 16r221E 16r2208 16r2209) asUnicodeString , '
 cyrillic: ' ,  #(16r440 16r443 16r441 16r441 16r43A 16r438 16r439 16r20 16r44F 16r437 16r44B 16r43A) asUnicodeString , '
@@ -270,6 +272,7 @@
     "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
@@ -283,7 +286,6 @@
          (MenuItem
             label: 'Copy'
             itemValue: previewCopySelection
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -291,15 +293,13 @@
          (MenuItem
             label: 'Show Character Set'
             itemValue: previewShowCharacterSet
-            translateLabel: true
             isVisible: characterSetViewClassAvailable
           )
          (MenuItem
+            enabled: xfdCanBeUsed
             label: 'Show Character Set (Using xfd)'
             itemValue: previewShowCharacterSetUsingXFD
-            translateLabel: true
             isVisible: osIsUNIXAndXfdIsAvailable
-            enabled: xfdCanBeUsed
           )
          (MenuItem
             label: '-'
@@ -308,19 +308,40 @@
          (MenuItem
             label: 'Inspect Font'
             itemValue: previewInspectFont
-            translateLabel: true
           )
          (MenuItem
             label: 'Copy Fontname'
             itemValue: copyFontName
-            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'Color'
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Black on White'
+                  itemValue: previewBlackOnWhite
+                )
+               (MenuItem
+                  label: 'White on Black'
+                  itemValue: previewWhiteOnBlack
+                )
+               (MenuItem
+                  label: 'White on Green'
+                  itemValue: previewWhiteOnGreen
+                )
+               )
+              nil
+              nil
+            )
           )
          )
         nil
         nil
       )
-
-    "Modified: / 11-10-2006 / 21:51:02 / cg"
 ! !
 
 !FontPanel class methodsFor:'startup'!
@@ -1839,6 +1860,10 @@
     "Modified: 10.4.1997 / 09:51:31 / cg"
 !
 
+previewBlackOnWhite
+    previewField foregroundColor:(Color black) backgroundColor:(Color white).
+!
+
 previewCopySelection
     previewField copySelection.
 !
@@ -1864,6 +1889,14 @@
     ] fork.
 !
 
+previewWhiteOnBlack
+    previewField foregroundColor:(Color white) backgroundColor:(Color black).
+!
+
+previewWhiteOnGreen
+    previewField foregroundColor:(Color white) backgroundColor:(Color green darkened).
+!
+
 sizeSelected:aNumberOrString
     "a size was selected; update preview"