equal
deleted
inserted
replaced
1124 |
1124 |
1125 |again| |
1125 |again| |
1126 |
1126 |
1127 [ |
1127 [ |
1128 again := false. |
1128 again := false. |
|
1129 |
|
1130 aspects at:#classNameChannel put:specClass asValue. |
|
1131 aspects at:#methodNameChannel put:specSelector asValue. |
|
1132 aspects at:#superclassNameChannel put:specSuperclass asValue. |
|
1133 |
1129 (self openDialogInterface:#nameAndSelectorSpec) ifTrue:[ |
1134 (self openDialogInterface:#nameAndSelectorSpec) ifTrue:[ |
1130 |
1135 |
1131 specClass := (self aspectFor:#classNameChannel) value. |
1136 specClass := (self aspectFor:#classNameChannel) value. |
1132 specSelector := (self aspectFor:#methodNameChannel) value. |
1137 specSelector := (self aspectFor:#methodNameChannel) value. |
1133 specSuperclass := (self aspectFor:#superclassNameChannel) value. |
1138 specSuperclass := (self aspectFor:#superclassNameChannel) value. |
1139 ] |
1144 ] |
1140 ] |
1145 ] |
1141 |
1146 |
1142 ] doWhile:[again] |
1147 ] doWhile:[again] |
1143 |
1148 |
1144 "Modified: 17.6.1997 / 13:04:26 / cg" |
1149 "Modified: 17.6.1997 / 14:18:19 / cg" |
1145 ! ! |
1150 ! ! |
1146 |
1151 |
1147 !UIPainter methodsFor:'user interaction - pullDown'! |
1152 !UIPainter methodsFor:'user interaction - pullDown'! |
1148 |
1153 |
1149 doBrowseAppClass |
1154 doBrowseAppClass |