Il 06/10/2012 18:32, Holger Hans Peter Freyther ha scritto: > 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. > + ] > ] >
Applied, thanks! Paolo _______________________________________________ help-smalltalk mailing list [email protected] https://lists.gnu.org/mailman/listinfo/help-smalltalk
