Mercurial Mercurial > hg > stx-libtool / 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.
changed:
authorClaus Gittinger <cg@exept.de>
Mon, 02 Nov 2009 11:13:01 +0100
changeset 9156 73693a9ba3e4
parent 9155 1d6e15954cf8
child 9157 c8166dbf5a5a
changed: #switchToClass:selector: #switchToFindHistoryEntry:
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Sat Oct 31 14:04:35 2009 +0100
+++ b/NewSystemBrowser.st	Mon Nov 02 11:13:01 2009 +0100
@@ -35607,6 +35607,9 @@
                 ^ self
             ].
         ].
+
+        self meta value:(aClass isMeta).
+
         self selectedClasses value:(OrderedCollection with:aClass).
         ^ self
     ].
@@ -35711,10 +35714,10 @@
 
         holder := self classHierarchyTopClass.
         cls := holder value.
-        (cls isNil or:[(cls withAllSuperclasses includesIdentical:aClass) not]) ifTrue:[
+        (cls isNil or:[(cls theNonMetaclass withAllSuperclasses includesIdentical:aClass theNonMetaclass) not]) ifTrue:[
             holder value:aClass.
         ].
-        doSwitchMeta := false.
+        "/ doSwitchMeta := false.
     ]]]].
 
     doSwitchMeta ifTrue:[
@@ -35843,8 +35846,9 @@
 switchToFindHistoryEntry:entry
     "invoked when switching back to a method from the find history"
 
+    FindHistory removeIdentical:entry ifAbsent:nil.
     self switchToHistoryEntry:entry.
-    FindHistory removeIdentical:entry ifAbsent:nil.
+    FindHistory addFirst:entry.
 !
 
 switchToHistoryEntry:entry
@@ -43280,11 +43284,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1390 2009-10-31 12:31:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1391 2009-11-02 10:13:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1390 2009-10-31 12:31:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1391 2009-11-02 10:13:01 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Sat Oct 31 14:04:35 2009 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Nov 02 11:13:01 2009 +0100
@@ -35607,6 +35607,9 @@
                 ^ self
             ].
         ].
+
+        self meta value:(aClass isMeta).
+
         self selectedClasses value:(OrderedCollection with:aClass).
         ^ self
     ].
@@ -35711,10 +35714,10 @@
 
         holder := self classHierarchyTopClass.
         cls := holder value.
-        (cls isNil or:[(cls withAllSuperclasses includesIdentical:aClass) not]) ifTrue:[
+        (cls isNil or:[(cls theNonMetaclass withAllSuperclasses includesIdentical:aClass theNonMetaclass) not]) ifTrue:[
             holder value:aClass.
         ].
-        doSwitchMeta := false.
+        "/ doSwitchMeta := false.
     ]]]].
 
     doSwitchMeta ifTrue:[
@@ -35843,8 +35846,9 @@
 switchToFindHistoryEntry:entry
     "invoked when switching back to a method from the find history"
 
+    FindHistory removeIdentical:entry ifAbsent:nil.
     self switchToHistoryEntry:entry.
-    FindHistory removeIdentical:entry ifAbsent:nil.
+    FindHistory addFirst:entry.
 !
 
 switchToHistoryEntry:entry
@@ -43280,11 +43284,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1390 2009-10-31 12:31:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1391 2009-11-02 10:13:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1390 2009-10-31 12:31:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1391 2009-11-02 10:13:01 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool