Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use:
authorca
Wed, 15 Oct 1997 12:55:40 +0200
changeset 707 424bb7ca69eb
parent 706 d35d388505ba
child 708 47d402971287
use: resolveName:
WinBuilder.st file | annotate | diff | comparison | revisions
WindowBuilder.st file | annotate | diff | comparison | revisions 
--- a/WinBuilder.st	Wed Oct 15 12:51:24 1997 +0200
+++ b/WinBuilder.st	Wed Oct 15 12:55:40 1997 +0200
@@ -237,10 +237,8 @@
         ]
     ] ifFalse:[
         "/ look for class in applications namespace ...
-        cls := self application class nameSpace at:majorKey ifAbsent:nil.
-        cls isNil ifTrue:[
-            cls := Smalltalk at:majorKey ifAbsent:nil.
-        ].
+        cls := self application resolveName:majorKey.
+
         (cls notNil and:[cls respondsTo:minorKey]) ifTrue:[
             spec := cls perform:minorKey
         ]
@@ -756,5 +754,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.49 1997-10-02 13:04:39 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.50 1997-10-15 10:55:40 ca Exp $'
 ! !
--- a/WindowBuilder.st	Wed Oct 15 12:51:24 1997 +0200
+++ b/WindowBuilder.st	Wed Oct 15 12:55:40 1997 +0200
@@ -237,10 +237,8 @@
         ]
     ] ifFalse:[
         "/ look for class in applications namespace ...
-        cls := self application class nameSpace at:majorKey ifAbsent:nil.
-        cls isNil ifTrue:[
-            cls := Smalltalk at:majorKey ifAbsent:nil.
-        ].
+        cls := self application resolveName:majorKey.
+
         (cls notNil and:[cls respondsTo:minorKey]) ifTrue:[
             spec := cls perform:minorKey
         ]
@@ -756,5 +754,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.49 1997-10-02 13:04:39 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.50 1997-10-15 10:55:40 ca Exp $'
 ! !
hg/stx-libview2