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 <
[hidden email]>
* 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 <
[hidden email]>
+ * StBrowser/GtkClassBrowserWidget.st: Use >>#classOrMeta
+ of GtkCategoryWidget for the class.
+
+2014-02-01 Holger Hans Peter Freyther <
[hidden email]>
+
* 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
_______________________________________________
help-smalltalk mailing list
[hidden email]
https://lists.gnu.org/mailman/listinfo/help-smalltalk