--- a/UIPainter.st Tue Jun 17 14:14:41 1997 +0200
+++ b/UIPainter.st Tue Jun 17 14:19:30 1997 +0200
@@ -1126,6 +1126,11 @@
[
again := false.
+
+ aspects at:#classNameChannel put:specClass asValue.
+ aspects at:#methodNameChannel put:specSelector asValue.
+ aspects at:#superclassNameChannel put:specSuperclass asValue.
+
(self openDialogInterface:#nameAndSelectorSpec) ifTrue:[
specClass := (self aspectFor:#classNameChannel) value.
@@ -1141,7 +1146,7 @@
] doWhile:[again]
- "Modified: 17.6.1997 / 13:04:26 / cg"
+ "Modified: 17.6.1997 / 14:18:19 / cg"
! !
!UIPainter methodsFor:'user interaction - pullDown'!