--- a/FontPanel.st	Sat Nov 10 00:37:54 2018 +0100
+++ b/FontPanel.st	Sat Nov 10 00:39:04 2018 +0100
@@ -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 , '
@@ -1432,6 +1434,15 @@
     "Created: / 11-10-2006 / 21:29:20 / cg"
 !
 
+computePreferredExtent
+    "return the boxes preferredExtent"
+
+    "/ ^ 450@350
+    ^ self class defaultExtent.
+
+    "Created: / 09-11-2018 / 19:53:29 / Claus Gittinger"
+!
+
 osIsUNIX
     ^ OperatingSystem isUNIXlike
 
@@ -1444,25 +1455,6 @@
     "Modified: / 11-10-2006 / 21:28:59 / cg"
 !
 
-preferredExtent
-    "return the boxes preferredExtent"
-
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
-    "/ ^ 450@350
-    ^ self class defaultExtent.
-
-    "Modified: 19.7.1996 / 20:44:08 / cg"
-!
-
 xfdCanBeUsed
     ^ self osIsUNIXAndXfdIsAvailable 
         and:[ selectedFont notNil