From: Holger Hans Peter Freyther <[email protected]>
2012-10-06 Holger Freyther <[email protected]>
* SqueakExporter.st: Use 'as yet unclassified' as category string
if it is nil.
---
packages/stinst/parser/ChangeLog | 5 +++++
packages/stinst/parser/SqueakExporter.st | 7 +++++++
2 files changed, 12 insertions(+)
diff --git a/packages/stinst/parser/ChangeLog b/packages/stinst/parser/ChangeLog
index 58affee..9681f53 100644
--- a/packages/stinst/parser/ChangeLog
+++ b/packages/stinst/parser/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-06 Holger Freyther <[email protected]>
+
+ * SqueakExporter.st: Use 'as yet unclassified' as category string
+ if it is nil.
+
2012-10-02 Holger Freyther <[email protected]>
* GSTParser.st: Change GSTFileInParser>>#parseClassTag to parse
diff --git a/packages/stinst/parser/SqueakExporter.st
b/packages/stinst/parser/SqueakExporter.st
index ac314f8..cf37505 100644
--- a/packages/stinst/parser/SqueakExporter.st
+++ b/packages/stinst/parser/SqueakExporter.st
@@ -69,4 +69,11 @@ OldSyntaxExporter subclass: SqueakSyntaxExporter [
super fileOutClassDeclaration: aBlock
]
+
+ fileOutCategory: aString methods: methods class: aClass [
+ | cat |
+ "Pharo does not like 'nil' as category name pick something else."
+ cat := aString ifNil: ['as yet unclassified'].
+ ^super fileOutCategory: cat methods: methods class: aClass.
+ ]
]
--
1.7.10.4
_______________________________________________
help-smalltalk mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/help-smalltalk
