[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Help-smalltalk] [PATCH 2/2] stinst: Squeak does not like nil as categor
From: |
Holger Hans Peter Freyther |
Subject: |
[Help-smalltalk] [PATCH 2/2] stinst: Squeak does not like nil as category string use a string |
Date: |
Sat, 6 Oct 2012 18:32:38 +0200 |
From: Holger Hans Peter Freyther <address@hidden>
2012-10-06 Holger Freyther <address@hidden>
* 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 <address@hidden>
+
+ * SqueakExporter.st: Use 'as yet unclassified' as category string
+ if it is nil.
+
2012-10-02 Holger Freyther <address@hidden>
* 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