>From 1668b7e34a6baf3b5c6011312c4c314a292605df Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio
Date: Fri, 31 May 2013 10:24:36 +0200
Subject: [PATCH] Do not display metaclassesin hierarchy browse. When you're on
the class browser select Object and show the class hierarchy as a result
you'll see all the metaclasses.
---
packages/visualgst/StBrowser/GtkClassHierarchyWidget.st | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/packages/visualgst/StBrowser/GtkClassHierarchyWidget.st b/packages/visualgst/StBrowser/GtkClassHierarchyWidget.st
index 1b85188..f861d59 100644
--- a/packages/visualgst/StBrowser/GtkClassHierarchyWidget.st
+++ b/packages/visualgst/StBrowser/GtkClassHierarchyWidget.st
@@ -37,7 +37,7 @@ GtkConcreteWidget subclass: GtkClassHierarchyWidget [
classOrMeta: aClass [
- classOrMeta := aClass.
+ classOrMeta := aClass asClass.
dic := Dictionary new.
self buildSuperclasses.
model
@@ -56,7 +56,7 @@ GtkConcreteWidget subclass: GtkClassHierarchyWidget [
buildSuperclasses [
| parent |
- parent := self classOrMeta asClass.
+ parent := self classOrMeta.
[ parent isNil ] whileFalse: [
dic at: (parent superclass ifNil: [ #root ]) put: {parent}.
root := parent.
@@ -73,7 +73,7 @@ GtkConcreteWidget subclass: GtkClassHierarchyWidget [
childrenBlock: [ :each |
dic at: each ifAbsent: [ | col |
col := SortedCollection sortBlock: [ :a :b | a asClass name <= b asClass name ].
- col addAll: each subclasses.
+ col addAll: (each subclasses select: [ :behavior | behavior isClass ]).
col ] ];
contentsBlock: [ :each | {each asClass name asString, ' '} ].
^ GTK.GtkScrolledWindow withChild: classesTree
--
1.8.1.2