[Help-smalltalk] [PATCH 4/5] stinst: Make the result of STClassLoader be inspectable

[Holger Hans Peter Freyther]

From: Holger Hans Peter Freyther <address@hidden>

Looking at the result of the STClassLoader in VisualGST created
a DNU. Add an >>#article to the LoadedBehavior class.

2012-09-09  Holger Freyther  <address@hidden>

        * tests/stcompiler.st: Add testcase for article.
        * tests/stcompiler.ok: Update the test result.

2012-09-09  Holger Freyther  <address@hidden>

        * STLoaderObjs.st: Add LoadedBehavior>>#article.
---
 ChangeLog                              |    5 +++++
 packages/stinst/parser/ChangeLog       |    4 ++++
 packages/stinst/parser/STLoaderObjs.st |    4 ++++
 tests/stcompiler.ok                    |    3 +++
 tests/stcompiler.st                    |    8 ++++++++
 5 files changed, 24 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 4c8caff..7353dcc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2012-09-09  Holger Freyther  <address@hidden>
 
+       * tests/stcompiler.st: Add testcase for article.
+       * tests/stcompiler.ok: Update the test result.
+
+2012-09-09  Holger Freyther  <address@hidden>
+
        * kernel/Delay.st: Name the delay process.
 
 2012-09-09  Holger Freyther  <address@hidden>
diff --git a/packages/stinst/parser/ChangeLog b/packages/stinst/parser/ChangeLog
index ee88420..c49df53 100644
--- a/packages/stinst/parser/ChangeLog
+++ b/packages/stinst/parser/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-09  Holger Freyther  <address@hidden>
+
+       * STLoaderObjs.st: Add LoadedBehavior>>#article.
+
 2011-11-10  Gwenael Casaccio  <address@hidden>
             Paolo Bonzini  <address@hidden>
 
diff --git a/packages/stinst/parser/STLoaderObjs.st 
b/packages/stinst/parser/STLoaderObjs.st
index 7fd4114..99688ce 100644
--- a/packages/stinst/parser/STLoaderObjs.st
+++ b/packages/stinst/parser/STLoaderObjs.st
@@ -977,6 +977,10 @@ instanceVariableNames: ivn
 
 superclass
     ^superclass
+!
+
+article
+    ^superclass article
 ! !
 
 !LoadedMetaclass methodsFor: 'printing'!
diff --git a/tests/stcompiler.ok b/tests/stcompiler.ok
index a07cebc..f3acb52 100644
--- a/tests/stcompiler.ok
+++ b/tests/stcompiler.ok
@@ -44,3 +44,6 @@ returned value is TextCollector new "<0>"
 
 Execution begins...
 returned value is OrderedSet new: 32 "<0>"
+
+Execution begins...
+returned value is 'an'
diff --git a/tests/stcompiler.st b/tests/stcompiler.st
index 7144867..ef44d8d 100644
--- a/tests/stcompiler.st
+++ b/tests/stcompiler.st
@@ -90,3 +90,11 @@ asParser
                    with: STInST.SqueakFileInParser.
 ]
 
+Eval [
+    | classes |
+
+    classes := STInST.STClassLoader new
+                  parseSmalltalkStream: 'Object subclass: Foo []' readStream
+                  with: STInST.GSTFileInParser.
+    classes first article
+]
-- 
1.7.10.4