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