[Help-smalltalk] [PATCH] visualgst: Fix method selection in the hierarchy widget

[Holger Hans Peter Freyther]

Moving to "Hierarchy" and then moving to a parent- or subclass
one could see the available categories but it was not possible
to browse methods belonging to that class. This is because the
class selection was done using >>#selectedClass on the classWidget.

Change the code to use the classOrMeta of the GtkCategoryWidget
to determine the class to look at. The concept of >>#selectedClass
is still not consistent in this class. The class should be probably
split into a few smaller ones.

2014-02-01  Holger Hans Peter Freyther  <address@hidden>

        * StBrowser/GtkClassBrowserWidget.st: Use >>#classOrMeta
        of GtkCategoryWidget for the class.
---
 packages/visualgst/ChangeLog                          | 5 +++++
 packages/visualgst/StBrowser/GtkClassBrowserWidget.st | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/packages/visualgst/ChangeLog b/packages/visualgst/ChangeLog
index 2a60be8..f131bbb 100644
--- a/packages/visualgst/ChangeLog
+++ b/packages/visualgst/ChangeLog
@@ -1,5 +1,10 @@
 2014-02-01  Holger Hans Peter Freyther  <address@hidden>
 
+       * StBrowser/GtkClassBrowserWidget.st: Use >>#classOrMeta
+       of GtkCategoryWidget for the class.
+
+2014-02-01  Holger Hans Peter Freyther  <address@hidden>
+
        * SUnit/GtkSUnitResultWidget.st: Use the right MethodState
        call in GtkSUnitResult.
 
diff --git a/packages/visualgst/StBrowser/GtkClassBrowserWidget.st 
b/packages/visualgst/StBrowser/GtkClassBrowserWidget.st
index cc95c40..4bde3b7 100644
--- a/packages/visualgst/StBrowser/GtkClassBrowserWidget.st
+++ b/packages/visualgst/StBrowser/GtkClassBrowserWidget.st
@@ -474,13 +474,13 @@ GtkConcreteWidget subclass: GtkClassBrowserWidget [
     updateInstanceSideMethodCategory: aString [
        <category: 'private-selection'>
 
-        iMethodWidget class: classWidget selectedClass withCategory: aString
+        iMethodWidget class: iCategoryWidget classOrMeta withCategory: aString
     ]
 
     updateClassSideMethodCategory: aString [
         <category: 'private-selection'>
 
-        cMethodWidget class: classWidget selectedClass class withCategory: 
aString
+        cMethodWidget class: cCategoryWidget classOrMeta withCategory: aString
     ]
 
     selectANamespace: aNamespace [
-- 
1.8.5.2