From: pharo
To: Pharo-project@lists.gforge.inria.fr
Subject: [BUG]UndefinedObject(Object)>>error:

here insert explanation of what you were doing, suspect changes you've made and so forth.

31 August 2010 5:17:56 pm

VM: unix - i686 - linux - Squeak3.10.2 of '5 June 2008' [latest update: #7179]
Image: Pharo1.1 [Latest update: #11411]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true

UndefinedObject(Object)>>error:
	Receiver: nil
	Arguments and temporary variables: 
		aString: 	'NonBooleanReceiver: proceed for truth.'
	Receiver's instance variables: 
nil

[] in WorldState>>displayWorldSafely:
	Receiver: a WorldState
	Arguments and temporary variables: 
		err: 	'NonBooleanReceiver: proceed for truth.'
		rcvr: 	nil
		errCtx: 	FuzzyLabelMorph>>drawOn:
		errMorph: 	a FuzzyLabelMorph(1055391744)'Class'
	Receiver's instance variables: 
		hands: 	an Array(a HandMorph(843055104))
		viewBox: 	0@0 corner: 1900@1090
		canvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
		damageRecorder: 	a DamageRecorder
		stepList: 	a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(39059456))(an Over...etc...
		lastStepTime: 	428674815
		lastStepMessage: 	nil
		lastCycleTime: 	428674551
		commandHistory: 	a CommandHistory
		alarms: 	a Heap()
		lastAlarmTime: 	428674815
		menuBuilder: 	a PragmaMenuBuilder

BlockClosure>>valueWithPossibleArgs:
	Receiver: [:err :rcvr | 
| errCtx errMorph |
errCtx := thisContext.
	[errCtx := errCtx sender.
	[err...etc...
	Arguments and temporary variables: 
		anArray: 	#('NonBooleanReceiver: proceed for truth.' nil)
	Receiver's instance variables: 
		outerContext: 	WorldState>>displayWorldSafely:
		startpc: 	73
		numArgs: 	2

[] in BlockClosure>>ifError:
	Receiver: [aWorld displayWorld]
	Arguments and temporary variables: 
		errorHandlerBlock: 	NonBooleanReceiver: proceed for truth.
		ex: 	[:err :rcvr | 
| errCtx errMorph |
errCtx := thisContext.
	[errCtx := errCt...etc...
	Receiver's instance variables: 
		outerContext: 	WorldState>>displayWorldSafely:
		startpc: 	66
		numArgs: 	0

BlockClosure>>valueWithPossibleArgs:
	Receiver: [:ex | errorHandlerBlock valueWithPossibleArgs: {ex description. ex receiver}]
	Arguments and temporary variables: 
		anArray: 	an Array(NonBooleanReceiver: proceed for truth.)
	Receiver's instance variables: 
		outerContext: 	BlockClosure>>ifError:
		startpc: 	40
		numArgs: 	1

[] in MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	NonBooleanReceiver: proceed for truth.
	Receiver's instance variables: 
		sender: 	BlockClosure>>ifError:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(445382656)")
		closureOrNil: 	nil
		receiver: 	[aWorld displayWorld]

BlockClosure>>ensure:
	Receiver: [(self tempAt: 2)
		valueWithPossibleArgs: {exception}]
	Arguments and temporary variables: 
		aBlock: 	[self tempAt: 3 put: true]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	MethodContext(ContextPart)>>handleSignal:
		startpc: 	90
		numArgs: 	0

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	NonBooleanReceiver: proceed for truth.
		val: 	nil
	Receiver's instance variables: 
		sender: 	BlockClosure>>ifError:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(445382656)")
		closureOrNil: 	nil
		receiver: 	[aWorld displayWorld]

NonBooleanReceiver(Exception)>>signal
	Receiver: NonBooleanReceiver: proceed for truth.
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	'proceed for truth.'
		tag: 	nil
		signalContext: 	NonBooleanReceiver(Exception)>>signal
		handlerContext: 	BlockClosure>>on:do:
		outerContext: 	nil
		object: 	nil

NonBooleanReceiver(Exception)>>signal:
	Receiver: NonBooleanReceiver: proceed for truth.
	Arguments and temporary variables: 
		signalerText: 	'proceed for truth.'
	Receiver's instance variables: 
		messageText: 	'proceed for truth.'
		tag: 	nil
		signalContext: 	NonBooleanReceiver(Exception)>>signal
		handlerContext: 	BlockClosure>>on:do:
		outerContext: 	nil
		object: 	nil

UndefinedObject(Object)>>mustBeBooleanIn:
	Receiver: nil
	Arguments and temporary variables: 
		context: 	FuzzyLabelMorph>>drawOn:
		proceedValue: 	nil
	Receiver's instance variables: 
nil

UndefinedObject(Object)>>mustBeBoolean
	Receiver: nil
	Arguments and temporary variables: 

	Receiver's instance variables: 
nil

FuzzyLabelMorph>>drawOn:
	Receiver: a FuzzyLabelMorph(1055391744)'Class'
	Arguments and temporary variables: 
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
		pc: 	(Color r: 0.667 g: 0.667 b: 0.667)
		fuzzColor: 	nil
		labelColor: 	nil
	Receiver's instance variables: 
		bounds: 	328@127 corner: 363@143
		owner: 	an AlignmentMorph(1070071808)
		submorphs: 	#()
		fullBounds: 	328@127 corner: 363@143
		color: 	Color black
		extension: 	a MorphExtension (33292288) [other:  (errorOnDraw -> true)]
		font: 	a StrikeFont(Bitmap DejaVu Sans 9 14)
		emphasis: 	0
		contents: 	'Class'
		hasFocus: 	false
		getEnabledSelector: 	nil
		enabled: 	nil
		model: 	nil
		disabledStyle: 	#plain
		offset: 	1
		alpha: 	0.3

FormCanvas(Canvas)>>draw:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		anObject: 	a FuzzyLabelMorph(1055391744)'Class'
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

FormCanvas(Canvas)>>drawMorph:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		aMorph: 	a FuzzyLabelMorph(1055391744)'Class'
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

[] in FuzzyLabelMorph(Morph)>>fullDrawOn:
	Receiver: a FuzzyLabelMorph(1055391744)'Class'
	Arguments and temporary variables: 
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	328@127 corner: 363@143
		owner: 	an AlignmentMorph(1070071808)
		submorphs: 	#()
		fullBounds: 	328@127 corner: 363@143
		color: 	Color black
		extension: 	a MorphExtension (33292288) [other:  (errorOnDraw -> true)]
		font: 	a StrikeFont(Bitmap DejaVu Sans 9 14)
		emphasis: 	0
		contents: 	'Class'
		hasFocus: 	false
		getEnabledSelector: 	nil
		enabled: 	nil
		model: 	nil
		disabledStyle: 	#plain
		offset: 	1
		alpha: 	0.3

FormCanvas>>roundCornersOf:in:during:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		aMorph: 	a FuzzyLabelMorph(1055391744)'Class'
		bounds: 	328@127 corner: 363@143
		aBlock: 	[(aCanvas isVisible: self bounds)
		ifTrue: [aCanvas drawMorph: self].
...etc...
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

FormCanvas(Canvas)>>roundCornersOf:during:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		aMorph: 	a FuzzyLabelMorph(1055391744)'Class'
		aBlock: 	[(aCanvas isVisible: self bounds)
		ifTrue: [aCanvas drawMorph: self].
...etc...
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

FuzzyLabelMorph(Morph)>>fullDrawOn:
	Receiver: a FuzzyLabelMorph(1055391744)'Class'
	Arguments and temporary variables: 
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	328@127 corner: 363@143
		owner: 	an AlignmentMorph(1070071808)
		submorphs: 	#()
		fullBounds: 	328@127 corner: 363@143
		color: 	Color black
		extension: 	a MorphExtension (33292288) [other:  (errorOnDraw -> true)]
		font: 	a StrikeFont(Bitmap DejaVu Sans 9 14)
		emphasis: 	0
		contents: 	'Class'
		hasFocus: 	false
		getEnabledSelector: 	nil
		enabled: 	nil
		model: 	nil
		disabledStyle: 	#plain
		offset: 	1
		alpha: 	0.3

FormCanvas(Canvas)>>fullDraw:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		anObject: 	a FuzzyLabelMorph(1055391744)'Class'
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

FormCanvas(Canvas)>>fullDrawMorph:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		aMorph: 	a FuzzyLabelMorph(1055391744)'Class'
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

[] in [] in AlignmentMorph(Morph)>>drawSubmorphsOn:
	Receiver: an AlignmentMorph(1070071808)
	Arguments and temporary variables: 
		canvas: 	a FuzzyLabelMorph(1055391744)'Class'
		m: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	328@125 corner: 363@145
		owner: 	an OBPluggableButtonMorph(127664128)
		submorphs: 	an Array(a FuzzyLabelMorph(1055391744)'Class')
		fullBounds: 	328@125 corner: 363@145
		color: 	Color transparent
		extension: 	a MorphExtension (62914560)
		borderWidth: 	0
		borderColor: 	Color black

Array(SequenceableCollection)>>reverseDo:
	Receiver: an Array(a FuzzyLabelMorph(1055391744)'Class')
	Arguments and temporary variables: 
		aBlock: 	[:m | canvas fullDrawMorph: m]
		index: 	1
	Receiver's instance variables: 
an Array(a FuzzyLabelMorph(1055391744)'Class')

[] in AlignmentMorph(Morph)>>drawSubmorphsOn:
	Receiver: an AlignmentMorph(1070071808)
	Arguments and temporary variables: 
		canvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	328@125 corner: 363@145
		owner: 	an OBPluggableButtonMorph(127664128)
		submorphs: 	an Array(a FuzzyLabelMorph(1055391744)'Class')
		fullBounds: 	328@125 corner: 363@145
		color: 	Color transparent
		extension: 	a MorphExtension (62914560)
		borderWidth: 	0
		borderColor: 	Color black

AlignmentMorph(Morph)>>drawSubmorphsOn:
	Receiver: an AlignmentMorph(1070071808)
	Arguments and temporary variables: 
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
		drawBlock: 	[:canvas | submorphs
		reverseDo: [:m | canvas fullDrawMorph: m]]
	Receiver's instance variables: 
		bounds: 	328@125 corner: 363@145
		owner: 	an OBPluggableButtonMorph(127664128)
		submorphs: 	an Array(a FuzzyLabelMorph(1055391744)'Class')
		fullBounds: 	328@125 corner: 363@145
		color: 	Color transparent
		extension: 	a MorphExtension (62914560)
		borderWidth: 	0
		borderColor: 	Color black

[] in AlignmentMorph(Morph)>>fullDrawOn:
	Receiver: an AlignmentMorph(1070071808)
	Arguments and temporary variables: 
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	328@125 corner: 363@145
		owner: 	an OBPluggableButtonMorph(127664128)
		submorphs: 	an Array(a FuzzyLabelMorph(1055391744)'Class')
		fullBounds: 	328@125 corner: 363@145
		color: 	Color transparent
		extension: 	a MorphExtension (62914560)
		borderWidth: 	0
		borderColor: 	Color black

FormCanvas>>roundCornersOf:in:during:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		aMorph: 	an AlignmentMorph(1070071808)
		bounds: 	328@125 corner: 363@145
		aBlock: 	[(aCanvas isVisible: self bounds)
		ifTrue: [aCanvas drawMorph: self].
...etc...
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

FormCanvas(Canvas)>>roundCornersOf:during:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		aMorph: 	an AlignmentMorph(1070071808)
		aBlock: 	[(aCanvas isVisible: self bounds)
		ifTrue: [aCanvas drawMorph: self].
...etc...
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

AlignmentMorph(Morph)>>fullDrawOn:
	Receiver: an AlignmentMorph(1070071808)
	Arguments and temporary variables: 
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	328@125 corner: 363@145
		owner: 	an OBPluggableButtonMorph(127664128)
		submorphs: 	an Array(a FuzzyLabelMorph(1055391744)'Class')
		fullBounds: 	328@125 corner: 363@145
		color: 	Color transparent
		extension: 	a MorphExtension (62914560)
		borderWidth: 	0
		borderColor: 	Color black

FormCanvas(Canvas)>>fullDraw:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		anObject: 	an AlignmentMorph(1070071808)
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

FormCanvas(Canvas)>>fullDrawMorph:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		aMorph: 	an AlignmentMorph(1070071808)
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil

[] in [] in OBPluggableButtonMorph(Morph)>>drawSubmorphsOn:
	Receiver: an OBPluggableButtonMorph(127664128)
	Arguments and temporary variables: 
		canvas: 	an AlignmentMorph(1070071808)
		m: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	314@123 corner: 377@147
		owner: 	an OBRadioButtonBar(216006656)
		submorphs: 	an Array(an AlignmentMorph(1070071808))
		fullBounds: 	314@123 corner: 377@147
		color: 	Color transparent
		extension: 	a MorphExtension (67633152) [other:  (lastState -> false) (dropEnabl...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	an OBButtonModel
		label: 	'Class'
		getStateSelector: 	#isSelected
		actionSelector: 	#push
		getLabelSelector: 	#label
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	(Color r: 0.747 g: 0.743 b: 0.743)
		onColor: 	(Color r: 0.587 g: 0.587 b: 0.587)
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#()
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabledPlus: 	nil

Array(SequenceableCollection)>>reverseDo:
	Receiver: an Array(an AlignmentMorph(1070071808))
	Arguments and temporary variables: 
		aBlock: 	[:m | canvas fullDrawMorph: m]
		index: 	1
	Receiver's instance variables: 
an Array(an AlignmentMorph(1070071808))

[] in OBPluggableButtonMorph(Morph)>>drawSubmorphsOn:
	Receiver: an OBPluggableButtonMorph(127664128)
	Arguments and temporary variables: 
		canvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	314@123 corner: 377@147
		owner: 	an OBRadioButtonBar(216006656)
		submorphs: 	an Array(an AlignmentMorph(1070071808))
		fullBounds: 	314@123 corner: 377@147
		color: 	Color transparent
		extension: 	a MorphExtension (67633152) [other:  (lastState -> false) (dropEnabl...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	an OBButtonModel
		label: 	'Class'
		getStateSelector: 	#isSelected
		actionSelector: 	#push
		getLabelSelector: 	#label
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	(Color r: 0.747 g: 0.743 b: 0.743)
		onColor: 	(Color r: 0.587 g: 0.587 b: 0.587)
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#()
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabledPlus: 	nil

OBPluggableButtonMorph(Morph)>>drawSubmorphsOn:
	Receiver: an OBPluggableButtonMorph(127664128)
	Arguments and temporary variables: 
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
		drawBlock: 	[:canvas | submorphs
		reverseDo: [:m | canvas fullDrawMorph: m]]
	Receiver's instance variables: 
		bounds: 	314@123 corner: 377@147
		owner: 	an OBRadioButtonBar(216006656)
		submorphs: 	an Array(an AlignmentMorph(1070071808))
		fullBounds: 	314@123 corner: 377@147
		color: 	Color transparent
		extension: 	a MorphExtension (67633152) [other:  (lastState -> false) (dropEnabl...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	an OBButtonModel
		label: 	'Class'
		getStateSelector: 	#isSelected
		actionSelector: 	#push
		getLabelSelector: 	#label
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	(Color r: 0.747 g: 0.743 b: 0.743)
		onColor: 	(Color r: 0.587 g: 0.587 b: 0.587)
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#()
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabledPlus: 	nil

OBPluggableButtonMorph(PluggableButtonMorph)>>drawSubmorphsOn:
	Receiver: an OBPluggableButtonMorph(127664128)
	Arguments and temporary variables: 
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	314@123 corner: 377@147
		owner: 	an OBRadioButtonBar(216006656)
		submorphs: 	an Array(an AlignmentMorph(1070071808))
		fullBounds: 	314@123 corner: 377@147
		color: 	Color transparent
		extension: 	a MorphExtension (67633152) [other:  (lastState -> false) (dropEnabl...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	an OBButtonModel
		label: 	'Class'
		getStateSelector: 	#isSelected
		actionSelector: 	#push
		getLabelSelector: 	#label
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	(Color r: 0.747 g: 0.743 b: 0.743)
		onColor: 	(Color r: 0.587 g: 0.587 b: 0.587)
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#()
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabledPlus: 	nil

[] in OBPluggableButtonMorph(Morph)>>fullDrawOn:
	Receiver: an OBPluggableButtonMorph(127664128)
	Arguments and temporary variables: 
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
	Receiver's instance variables: 
		bounds: 	314@123 corner: 377@147
		owner: 	an OBRadioButtonBar(216006656)
		submorphs: 	an Array(an AlignmentMorph(1070071808))
		fullBounds: 	314@123 corner: 377@147
		color: 	Color transparent
		extension: 	a MorphExtension (67633152) [other:  (lastState -> false) (dropEnabl...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	an OBButtonModel
		label: 	'Class'
		getStateSelector: 	#isSelected
		actionSelector: 	#push
		getLabelSelector: 	#label
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	(Color r: 0.747 g: 0.743 b: 0.743)
		onColor: 	(Color r: 0.587 g: 0.587 b: 0.587)
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#()
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabledPlus: 	nil

CornerRounder class>>roundCornersOf:on:in:displayBlock:borderWidth:corners:
	Receiver: CornerRounder
	Arguments and temporary variables: 
		aMorph: 	an OBPluggableButtonMorph(127664128)
		aCanvas: 	a FormCanvas on: DisplayScreen(1900x1090x32)
		bounds: 	314@123 corner: 377@147
		displayBlock: 	[(aCanvas isVisible: self bounds)
		ifTrue: [aCanvas drawMorph: s...etc...
		w: 	0
		aList: 	#(1 2 3 4)
		rounder: 	a CornerRounder
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#masterMask:masterOverlay:->(CornerRounder>>#mas...etc...
		format: 	136
		instanceVariables: 	#('cornerMasks' 'cornerOverlays' 'underBits')
		organization: 	('all' masterMask:masterOverlay: saveBitsUnderCornersOf:on:in:cor...etc...
		subclasses: 	nil
		name: 	#CornerRounder
		classPool: 	a Dictionary(#CR0->a CornerRounder #CR1->a CornerRounder #CR2->a Cor...etc...
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Graphics-Display Objects'
		traitComposition: 	{}
		localSelectors: 	nil

FormCanvas>>roundCornersOf:in:during:
	Receiver: a FormCanvas on: DisplayScreen(1900x1090x32)
	Arguments and temporary variables: 
		aMorph: 	an OBPluggableButtonMorph(127664128)
		bounds: 	314@123 corner: 377@147
		aBlock: 	[(aCanvas isVisible: self bounds)
		ifTrue: [aCanvas drawMorph: self].
...etc...
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	931@617
		clipRect: 	1122@617 corner: 1310@766
		form: 	DisplayScreen(1900x1090x32)
		port: 	a GrafPort
		shadowColor: 	nil


--- The full stack ---
UndefinedObject(Object)>>error:
[] in WorldState>>displayWorldSafely:
BlockClosure>>valueWithPossibleArgs:
[] in BlockClosure>>ifError:
BlockClosure>>valueWithPossibleArgs:
[] in MethodContext(ContextPart)>>handleSignal:
BlockClosure>>ensure:
MethodContext(ContextPart)>>handleSignal:
NonBooleanReceiver(Exception)>>signal
NonBooleanReceiver(Exception)>>signal:
UndefinedObject(Object)>>mustBeBooleanIn:
UndefinedObject(Object)>>mustBeBoolean
FuzzyLabelMorph>>drawOn:
FormCanvas(Canvas)>>draw:
FormCanvas(Canvas)>>drawMorph:
[] in FuzzyLabelMorph(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
FuzzyLabelMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in AlignmentMorph(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in AlignmentMorph(Morph)>>drawSubmorphsOn:
AlignmentMorph(Morph)>>drawSubmorphsOn:
[] in AlignmentMorph(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
AlignmentMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in OBPluggableButtonMorph(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in OBPluggableButtonMorph(Morph)>>drawSubmorphsOn:
OBPluggableButtonMorph(Morph)>>drawSubmorphsOn:
OBPluggableButtonMorph(PluggableButtonMorph)>>drawSubmorphsOn:
[] in OBPluggableButtonMorph(Morph)>>fullDrawOn:
CornerRounder class>>roundCornersOf:on:in:displayBlock:borderWidth:corners:
FormCanvas>>roundCornersOf:in:during:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
FormCanvas(Canvas)>>roundCornersOf:during:
OBPluggableButtonMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in OBRadioButtonBar(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in OBRadioButtonBar(Morph)>>drawSubmorphsOn:
OBRadioButtonBar(Morph)>>drawSubmorphsOn:
[] in OBRadioButtonBar(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
OBRadioButtonBar(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in OBPane(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in OBPane(Morph)>>drawSubmorphsOn:
FormCanvas>>clipBy:during:
OBPane(Morph)>>drawSubmorphsOn:
[] in OBPane(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
OBPane(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in TransformMorph>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in TransformMorph>>drawSubmorphsOn:
FormCanvas>>transformBy:clippingTo:during:smoothing:
TransformMorph>>drawSubmorphsOn:
[] in TransformMorph(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
TransformMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in OBPaneScroller(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in OBPaneScroller(Morph)>>drawSubmorphsOn:
OBPaneScroller(Morph)>>drawSubmorphsOn:
[] in OBPaneScroller(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
OBPaneScroller(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in OBGroupingMorph(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in OBGroupingMorph(Morph)>>drawSubmorphsOn:
OBGroupingMorph(Morph)>>drawSubmorphsOn:
[] in OBGroupingMorph(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
OBGroupingMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in SystemWindow(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in SystemWindow(Morph)>>drawSubmorphsOn:
FormCanvas>>clipBy:during:
SystemWindow(Morph)>>drawSubmorphsOn:
[] in SystemWindow(Morph)>>fullDrawOn:
CornerRounder class>>roundCornersOf:on:in:displayBlock:borderWidth:corners:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
SystemWindow(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in WorldState>>drawWorld:submorphs:invalidAreasOn:
Rectangle>>allAreasOutsideList:startingAt:do:
Rectangle>>allAreasOutsideList:do:
[] in WorldState>>drawWorld:submorphs:invalidAreasOn:
Array(SequenceableCollection)>>do:
WorldState>>drawWorld:submorphs:invalidAreasOn:
[] in WorldState>>displayWorld:submorphs:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
WorldState>>displayWorld:submorphs:
PasteUpMorph>>privateOuterDisplayWorld
PasteUpMorph>>displayWorld
[] in WorldState>>displayWorldSafely:
BlockClosure>>on:do:
BlockClosure>>ifError:
WorldState>>displayWorldSafely:
PasteUpMorph>>displayWorldSafely
PasteUpMorph>>install
PSUIManager(MorphicUIManager)>>onPrimitiveError:
Debugger class(Object)>>primitiveError:
[] in [] in Debugger class>>openOn:context:label:contents:fullView:
BlockClosure>>valueWithPossibleArgs:
[] in MethodContext(ContextPart)>>handleSignal:
BlockClosure>>ensure:
MethodContext(ContextPart)>>handleSignal:
NonBooleanReceiver(Exception)>>signal
NonBooleanReceiver(Exception)>>signal:
UndefinedObject(Object)>>mustBeBooleanIn:
UndefinedObject(Object)>>mustBeBoolean
FuzzyLabelMorph>>drawOn:
FormCanvas(Canvas)>>draw:
FormCanvas(Canvas)>>drawMorph:
[] in FuzzyLabelMorph(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
FuzzyLabelMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in AlignmentMorph(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in AlignmentMorph(Morph)>>drawSubmorphsOn:
AlignmentMorph(Morph)>>drawSubmorphsOn:
[] in AlignmentMorph(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
AlignmentMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in OBPluggableButtonMorph(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in OBPluggableButtonMorph(Morph)>>drawSubmorphsOn:
OBPluggableButtonMorph(Morph)>>drawSubmorphsOn:
OBPluggableButtonMorph(PluggableButtonMorph)>>drawSubmorphsOn:
[] in OBPluggableButtonMorph(Morph)>>fullDrawOn:
CornerRounder class>>roundCornersOf:on:in:displayBlock:borderWidth:corners:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
OBPluggableButtonMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in OBRadioButtonBar(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in OBRadioButtonBar(Morph)>>drawSubmorphsOn:
OBRadioButtonBar(Morph)>>drawSubmorphsOn:
[] in OBRadioButtonBar(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
OBRadioButtonBar(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in OBPane(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in OBPane(Morph)>>drawSubmorphsOn:
FormCanvas>>clipBy:during:
OBPane(Morph)>>drawSubmorphsOn:
[] in OBPane(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
OBPane(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in TransformMorph>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in TransformMorph>>drawSubmorphsOn:
FormCanvas>>transformBy:clippingTo:during:smoothing:
TransformMorph>>drawSubmorphsOn:
[] in TransformMorph(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
TransformMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in [] in OBPaneScroller(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
-- and more not shown --

