diff -r 42a2a4494281 -r 335faeed1663 UIPainterView.st
--- a/UIPainterView.st	Wed May 28 13:32:48 1997 +0200
+++ b/UIPainterView.st	Wed Jun 04 13:28:48 1997 +0200
@@ -601,6 +601,13 @@
                 code := code , thisCode
             ]
         ].
+        aProp spec actionSelectors do:[:aSel|
+            (cls implements:aSel asSymbol) ifFalse:[
+                "/ kludge ..
+                thisCode := (self generateActionMethodFor:aSel spec:protoSpec inClass:cls).
+                code := code , thisCode
+            ]
+        ].
 
     ].
     ^ code
@@ -970,6 +977,15 @@
 
 !UIPainterView methodsFor:'initialization'!
 
+destroy
+    "remove dependencies
+    "
+    listHolder notNil ifTrue:[
+        listHolder removeDependent:self.
+    ].
+    super destroy.
+!
+
 initialize
     "setup attributes
     "
@@ -1023,21 +1039,6 @@
 
 !UIPainterView methodsFor:'menus'!
 
-showFontPanel
-    |action theFont fontPanel|
-
-    self hasSelection ifTrue:[
-        fontPanel := FontPanel new. 
-        action := [:aFontDescription | theFont := aFontDescription].
-        fontPanel action:action.
-        fontPanel showAtPointer.
-        fontPanel destroy.
-        theFont notNil ifTrue:[
-            self changeFont:theFont
-        ]
-    ]
-!
-
 showMiddleButtonMenu
     "show the middle button menu; this returns nil
     "
@@ -2052,7 +2053,9 @@
     selection := self selectionIndex.
 
     selection size == 1 ifTrue:[
-        ^ propertyList at:(selection at:1)
+        propertyList size ~~ 0 ifTrue:[
+            ^ propertyList at:(selection first)
+        ]
     ].
     ^ nil
 !