>From 703e2255d0d19e8b0f76b6155967a731e587e72c Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio
Date: Tue, 28 May 2013 11:14:22 +0200
Subject: [PATCH] Do not display metaclassesin hierarchy browser
---
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