Hi, it fixes an old bug.
Cheers, Gwen
>From 703e2255d0d19e8b0f76b6155967a731e587e72c Mon Sep 17 00:00:00 2001 From: Gwenael Casaccio <[email protected]> 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 [ <category: 'accessing'> - 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
_______________________________________________ help-smalltalk mailing list [email protected] https://lists.gnu.org/mailman/listinfo/help-smalltalk
