--- a/UIPainter.st Mon Jan 16 23:53:38 2017 +0000
+++ b/UIPainter.st Wed Jan 18 23:45:00 2017 +0000
@@ -5805,7 +5805,7 @@
doDefineClassAndSelector
"launches a dialog for defining class, superclass, and selector of the application"
- |again readFromModelKeyed|
+ | again readFromModelKeyed |
readFromModelKeyed := [:aKey| |ret|
ret := (self aspectValueFor:aKey).
@@ -5858,12 +5858,14 @@
specClassName := specClassName isBehavior
ifTrue:[specClassName name]
ifFalse:[specClassName].
+ specClass := self resolveName: specClassName.
self clearModifiedFlag.
- self helpTool buildAndMergeFromClass:specClassName.
+ self helpTool buildAndMergeFromClass:specClass.
self updateInfoLabel
- "Modified: / 16.7.1998 / 18:26:33 / cg"
+ "Modified: / 16-07-1998 / 18:26:33 / cg"
+ "Modified: / 18-01-2017 / 23:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
doDefineGrid
@@ -7561,6 +7563,11 @@
version_CVS
^ '$Header$'
+!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
! !