[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Help-smalltalk] [PATCH 4/5] stinst: Make the result of STClassLoader be
From: |
Holger Hans Peter Freyther |
Subject: |
[Help-smalltalk] [PATCH 4/5] stinst: Make the result of STClassLoader be inspectable |
Date: |
Sun, 9 Sep 2012 23:57:01 +0200 |
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