'From Cuis 1.0 of 28 November 2009 [latest update: #337] on 29 December 2009 at 11:34:08 am'!

!Debugger methodsFor: 'initialize' stamp: 'jmv 12/29/2009 11:21'!
preDebugButtonQuads

	^{
	{'Proceed'.		#proceed. 	#blue. 	'continue execution'}.
	{'Abandon'.		#delete.	 	#black.	'abandon this execution by closing this window'}.
	{'Debug'.		#debug.		#red. 		'bring up a debugger'}}! !


!Parser class methodsFor: 'class initialization' stamp: 'jmv 12/29/2009 11:32'!
initialize
	"
	Taken from Squeak trunk when converting Cuis to closures.
	Not currently (12/2009) honored, neither in Cuis nor in Squeak trunk.
	Will not remove this yet, I want Cuis compiler to be that of Squeak, without unneeded changes.
	Default changed to true even if unused.
	"
	Preferences
		addPreference: #allowUnderscoreAssignment 
		category: #compiler 
		default: true
		balloonHelp: 'If enabled, the compiler will accept _ (underscore) for assignment.\This provides backward compatibility with the pre-ANSI compiler.' withCRs.
		
	Preferences
		addPreference: #allowBlockArgumentAssignment 
		category: #compiler 
		default: false
		balloonHelp: 'If enabled, the compiler will allow assignment into block arguments.\This provides backward compatibility with the pre-closure compiler.' withCRs.! !


!Preferences class methodsFor: 'standard queries'!
allowUnderscoreAssignment
	^ self
		valueOfFlag: #allowUnderscoreAssignment
		ifAbsent: [true]! !

Preferences class removeSelector: #addBooleanPreference:category:default:balloonHelp:!
Parser initialize!
"Postscript:
Leave the line above, and replace the rest of this comment by a useful one.
Executable statements should follow this comment, and should
be separated by periods, with no exclamation points (!!).
Be sure to put any further comments in double-quotes, like this one."
Parser initialize!

