--- a/UIPainterView.st	Thu Apr 10 10:01:44 1997 +0200
+++ b/UIPainterView.st	Thu Apr 10 10:06:33 1997 +0200
@@ -11,8 +11,7 @@
 "
 
 UIObjectView subclass:#UIPainterView
-	instanceVariableNames:'fontPanel viewProperties superclassName className methodName
-		categoryName'
+	instanceVariableNames:'viewProperties superclassName className methodName categoryName'
 	classVariableNames:'HandCursor'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
@@ -829,11 +828,9 @@
 !
 
 showFontPanel
-    |action theFont|
+    |action theFont fontPanel|
 
-    fontPanel isNil ifTrue:[
-        fontPanel := FontPanel new 
-    ].
+    fontPanel := FontPanel new. 
 
     selection notNil ifTrue:[
         action := [:aFontDescription | theFont := aFontDescription].
@@ -845,7 +842,7 @@
         ]
     ]
 
-    "Modified: 10.4.1997 / 09:55:43 / cg"
+    "Modified: 10.4.1997 / 10:06:15 / cg"
 !
 
 subMenuAlign