--- 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