--- a/FontPanel.st	Tue Sep 19 21:03:25 2000 +0200
+++ b/FontPanel.st	Tue Sep 19 21:26:59 2000 +0200
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libwidg' }"
+
 DialogBox subclass:#FontPanel
 	instanceVariableNames:'previewField familyList faceList sizeList revertButton
 		currentFamily currentFace currentStyle currentFaceAndStyle
@@ -138,8 +140,16 @@
 defaultRomanSampleString
     "return the sample roman preview text"
 
-    ^ 'The quick brown fox
-jumps over the lazy dog
+    |t|
+
+    Smalltalk language == #german ifTrue:[
+        t := 'Franz jagt im komplett verwahrlosten Taxi
+quer durch Bayern'.
+    ] ifFalse:[
+        t := 'The quick brown fox
+jumps over the lazy dog'.
+    ].
+    t := t , '
 1234567890
 !!@#$%^&*(){}[]:"~;,./<>?
 ' , 
@@ -640,5 +650,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.46 2000-03-21 19:49:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.47 2000-09-19 19:26:59 cg Exp $'
 ! !