'From Squeak3.2alpha of 4 November 2001 [latest update: #4554] on 29 November 2001 at 1:31:48 am'!
"Change Set:		NoInlineParserAddtns-dew
Date:			29 November 2001
Author:			Doug Way

Requires Henrik Gedenryd's ParserNoinline1-2-3 changesets as a prerequisite.  This changeset hooks up those changes so that the pretty-printer no longer inlines bits of code."!

Color subclass: #MyTestClass
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Testing-Only'!

!Compiler methodsFor: 'private' stamp: 'dew 11/29/2001 01:27'!
format: aStream noPattern: noPattern ifFail: failBlock
	| tree parser |
"FirstHalt ifTrue: [FirstHalt _ false. self halt]."
	parser _ self class parserClass new.
	"When formatting (pretty-printing), we don't want any transformations."
	parser transformMessages: false.
	tree _ parser
			parse: aStream
			class: class
			noPattern: noPattern
			context: context
			notifying: requestor
			ifFail: [^ failBlock value].
	^ tree! !


!MyTestClass methodsFor: 'stuff' stamp: 'dew 11/29/2001 01:25'!
myMethod
	^ rgb
		ifFalse: [3]
		ifTrue: [nil]
! !


!MyTestClass reorganize!
('stuff' myMethod)
!