# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 866549970 -7200
# Node ID 622b88baeff6b726127a1dd55d567a754030edf5
# Parent  16297e27636e9a98e325b59c9d6c9f0f395c2743
checkin from browser

diff -r 16297e27636e -r 622b88baeff6 UIPainter.st
--- 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'!