The future of Morphic (Re: [squeak-dev] SimpleMorphic Editors)

Edgar J. De Cleene edgardec2005 at gmail.com
Sat Apr 2 11:59:33 UTC 2011




On 4/2/11 8:39 AM, "David T. Lewis" <lewis at mail.msen.com> wrote:

> One note of caution: Don't save your image from a SimpleMorphic world,
> because there are still issues with image restart. Instead, return
> to Morphic or MVC and then save.
> 
> Dave
>  


Having MonticelloBrowser window opwn in SimpleMorphic, still some dnu, see
attached

Method scheduledWindowControllers is implemented in ControlManager , not in
Controller

Also, for fileIn some Cuis methods, Juan have a different Compiler.

Must Cuis and Squeak 4.3 Compiler merge ?

Here is raining and nice for squeaking....


Edgar

-------------- next part --------------
MessageNotUnderstood: UndefinedObject>>scheduledWindowControllers
2 April 2011 8:52:25.205 am

VM: Mac OS - Smalltalk
Image: Squeak4.2 [latest update: #11203]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /Users/edgar/imagesZip/Squeak4.3alpha-11157
Trusted Dir /foobar/tooBar/forSqueak/bogus/
Untrusted Dir /foobar/tooBar/forSqueak/bogus/

UndefinedObject(Object)>>doesNotUnderstand: #scheduledWindowControllers
	Receiver: nil
	Arguments and temporary variables: 
		aMessage: 	scheduledWindowControllers
		exception: 	MessageNotUnderstood: UndefinedObject>>scheduledWindowControllers
		resumeValue: 	nil
	Receiver's instance variables: 
nil
RealEstateAgent class>>assignCollapseFrameFor:
	Receiver: RealEstateAgent
	Arguments and temporary variables: 
		aSSView: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwi...etc...
		grid: 	8
		otherFrames: 	nil
		topLeft: 	nil
		viewBox: 	nil
		collapsedFrame: 	nil
		extent: 	nil
		verticalBorderDistance: 	8
		top: 	nil
		newFrame: 	#(nil)
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	nil
		name: 	#RealEstateAgent
		classPool: 	a Dictionary(#ReverseStaggerOffset->-6 at 20 #StaggerOffset->6 at 20 #Stag...etc...
		sharedPools: 	nil
		environment: 	Smalltalk globals "a SystemDictionary with lots of globals"
		category: 	#'System-Support'

SMxPluggableSystemWindow(SMxSystemWindow)>>getCollapsedFrame
	Receiver: a SMxPluggableSystemWindow(629)('Message names containing "scheduledwindowcontrollers"')
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	101 at 18 corner: 701 at 418
		owner: 	a SMxPasteUpMorph(973) [world]
		submorphs: 	{a SMxIconicButton(1745) . a SMxIconicButton(1394) . a SMxIconicButt...etc...
		fullBounds: 	101 at 18 corner: 701 at 418
		color: 	(Color r: 0.945 g: 0.977 b: 0.929)
		extension: 	a SMxMorphExtension (2057) [eventHandler = a SMxEventHandler; mouseE...etc...
		borderWidth: 	2
		borderColor: 	#raised
		borderStyle: 	a SMxRaisedBorder
		model: 	a MessageNames
		slotName: 	nil
		labelString: 	'Message names containing "scheduledwindowcontrollers"'
		paneMorphs: 	#()
		collapsedFrame: 	101 at 18 corner: 701 at 418
		fullFrame: 	101 at 18 corner: 701 at 418
		isCollapsed: 	true
		updatablePanes: 	{a SMxPluggableListMorph(1915) . a SMxPluggableListMorph(3508)}...etc...
		paneColor: 	(Color r: 0.532 g: 0.8 b: 0.385)
		getLabelSelector: 	#labelString
		getChildrenSelector: 	nil
		children: 	nil
		closeWindowSelector: 	nil

SMxPluggableSystemWindow(SMxSystemWindow)>>collapseOrExpand
	Receiver: a SMxPluggableSystemWindow(629)('Message names containing "scheduledwindowcontrollers"')
	Arguments and temporary variables: 
		cf: 	nil
	Receiver's instance variables: 
		bounds: 	101 at 18 corner: 701 at 418
		owner: 	a SMxPasteUpMorph(973) [world]
		submorphs: 	{a SMxIconicButton(1745) . a SMxIconicButton(1394) . a SMxIconicButt...etc...
		fullBounds: 	101 at 18 corner: 701 at 418
		color: 	(Color r: 0.945 g: 0.977 b: 0.929)
		extension: 	a SMxMorphExtension (2057) [eventHandler = a SMxEventHandler; mouseE...etc...
		borderWidth: 	2
		borderColor: 	#raised
		borderStyle: 	a SMxRaisedBorder
		model: 	a MessageNames
		slotName: 	nil
		labelString: 	'Message names containing "scheduledwindowcontrollers"'
		paneMorphs: 	#()
		collapsedFrame: 	101 at 18 corner: 701 at 418
		fullFrame: 	101 at 18 corner: 701 at 418
		isCollapsed: 	true
		updatablePanes: 	{a SMxPluggableListMorph(1915) . a SMxPluggableListMorph(3508)}...etc...
		paneColor: 	(Color r: 0.532 g: 0.8 b: 0.385)
		getLabelSelector: 	#labelString
		getChildrenSelector: 	nil
		children: 	nil
		closeWindowSelector: 	nil

[] in SMxIconicButton(SMxSimpleButtonMorph)>>doButtonAction
	Receiver: a SMxIconicButton(1745)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	166 at 20 corner: 185 at 39
		owner: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwind...etc...
		submorphs: 	{a SMxSketchMorph(1867)}
		fullBounds: 	166 at 20 corner: 185 at 39
		color: 	Color transparent
		extension: 	a SMxMorphExtension (1939) [other:  (balloonText -> 'collapse this w...etc...
		borderWidth: 	2
		borderColor: 	#raised
		borderStyle: 	a SMxRaisedBorder
		target: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwin...etc...
		actionSelector: 	#collapseOrExpand
		arguments: 	#()
		actWhen: 	#buttonUp
		oldColor: 	nil
		label: 	nil
		font: 	nil

BlockClosure>>ensure:
	Receiver: [closure] in SMxIconicButton(SMxSimpleButtonMorph)>>doButtonAction
	Arguments and temporary variables: 
		aBlock: 	[closure] in CursorWithMask(Cursor)>>showWhile:
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	SMxIconicButton(SMxSimpleButtonMorph)>>doButtonAction
		startpc: 	68
		numArgs: 	0

CursorWithMask(Cursor)>>showWhile:
	Receiver: ((CursorWithMask
	extent: 16 at 16
	depth: 1
	fromArray: #(
		2r0
		2r10000000000000000000000...etc...
	Arguments and temporary variables: 
		aBlock: 	[closure] in SMxIconicButton(SMxSimpleButtonMorph)>>doButtonAction
		oldcursor: 	((CursorWithMask
	extent: 16 at 16
	depth: 1
	fromArray: #(
		2r0
		2r1...etc...
	Receiver's instance variables: 
		bits: 	a Bitmap of length 16
		width: 	16
		height: 	16
		depth: 	1
		offset: 	-1@ -1
		maskForm: 	Form(16x16x1)

SMxIconicButton(SMxSimpleButtonMorph)>>doButtonAction
	Receiver: a SMxIconicButton(1745)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	166 at 20 corner: 185 at 39
		owner: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwind...etc...
		submorphs: 	{a SMxSketchMorph(1867)}
		fullBounds: 	166 at 20 corner: 185 at 39
		color: 	Color transparent
		extension: 	a SMxMorphExtension (1939) [other:  (balloonText -> 'collapse this w...etc...
		borderWidth: 	2
		borderColor: 	#raised
		borderStyle: 	a SMxRaisedBorder
		target: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwin...etc...
		actionSelector: 	#collapseOrExpand
		arguments: 	#()
		actWhen: 	#buttonUp
		oldColor: 	nil
		label: 	nil
		font: 	nil

SMxIconicButton(SMxSimpleButtonMorph)>>mouseUp:
	Receiver: a SMxIconicButton(1745)
	Arguments and temporary variables: 
		evt: 	[175 at 30 mouseUp 518177]
	Receiver's instance variables: 
		bounds: 	166 at 20 corner: 185 at 39
		owner: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwind...etc...
		submorphs: 	{a SMxSketchMorph(1867)}
		fullBounds: 	166 at 20 corner: 185 at 39
		color: 	Color transparent
		extension: 	a SMxMorphExtension (1939) [other:  (balloonText -> 'collapse this w...etc...
		borderWidth: 	2
		borderColor: 	#raised
		borderStyle: 	a SMxRaisedBorder
		target: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwin...etc...
		actionSelector: 	#collapseOrExpand
		arguments: 	#()
		actWhen: 	#buttonUp
		oldColor: 	nil
		label: 	nil
		font: 	nil

SMxIconicButton(SMxMorph)>>handleMouseUp:
	Receiver: a SMxIconicButton(1745)
	Arguments and temporary variables: 
		anEvent: 	[175 at 30 mouseUp 518177]
	Receiver's instance variables: 
		bounds: 	166 at 20 corner: 185 at 39
		owner: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwind...etc...
		submorphs: 	{a SMxSketchMorph(1867)}
		fullBounds: 	166 at 20 corner: 185 at 39
		color: 	Color transparent
		extension: 	a SMxMorphExtension (1939) [other:  (balloonText -> 'collapse this w...etc...
		borderWidth: 	2
		borderColor: 	#raised
		borderStyle: 	a SMxRaisedBorder
		target: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwin...etc...
		actionSelector: 	#collapseOrExpand
		arguments: 	#()
		actWhen: 	#buttonUp
		oldColor: 	nil
		label: 	nil
		font: 	nil

SMxMouseButtonEvent>>sentTo:
	Receiver: [175 at 30 mouseUp 518177]
	Arguments and temporary variables: 
		anObject: 	a SMxIconicButton(1745)
	Receiver's instance variables: 
		timeStamp: 	518177
		source: 	a SMxHandMorph(1015)
		type: 	#mouseUp
		buttons: 	0
		position: 	175 at 30
		handler: 	nil
		wasHandled: 	true
		whichButton: 	4

SMxIconicButton(SMxMorph)>>handleEvent:
	Receiver: a SMxIconicButton(1745)
	Arguments and temporary variables: 
		anEvent: 	[175 at 30 mouseUp 518177]
	Receiver's instance variables: 
		bounds: 	166 at 20 corner: 185 at 39
		owner: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwind...etc...
		submorphs: 	{a SMxSketchMorph(1867)}
		fullBounds: 	166 at 20 corner: 185 at 39
		color: 	Color transparent
		extension: 	a SMxMorphExtension (1939) [other:  (balloonText -> 'collapse this w...etc...
		borderWidth: 	2
		borderColor: 	#raised
		borderStyle: 	a SMxRaisedBorder
		target: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwin...etc...
		actionSelector: 	#collapseOrExpand
		arguments: 	#()
		actWhen: 	#buttonUp
		oldColor: 	nil
		label: 	nil
		font: 	nil

SMxIconicButton(SMxMorph)>>handleFocusEvent:
	Receiver: a SMxIconicButton(1745)
	Arguments and temporary variables: 
		anEvent: 	[175 at 30 mouseUp 518177]
	Receiver's instance variables: 
		bounds: 	166 at 20 corner: 185 at 39
		owner: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwind...etc...
		submorphs: 	{a SMxSketchMorph(1867)}
		fullBounds: 	166 at 20 corner: 185 at 39
		color: 	Color transparent
		extension: 	a SMxMorphExtension (1939) [other:  (balloonText -> 'collapse this w...etc...
		borderWidth: 	2
		borderColor: 	#raised
		borderStyle: 	a SMxRaisedBorder
		target: 	a SMxPluggableSystemWindow(629)('Message names containing "scheduledwin...etc...
		actionSelector: 	#collapseOrExpand
		arguments: 	#()
		actWhen: 	#buttonUp
		oldColor: 	nil
		label: 	nil
		font: 	nil

[] in SMxHandMorph>>sendFocusEvent:to:in:
	Receiver: a SMxHandMorph(1015)
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		bounds: 	175 at 30 corner: 191 at 46
		owner: 	a SMxPasteUpMorph(973) [world]
		submorphs: 	#()
		fullBounds: 	175 at 30 corner: 191 at 46
		color: 	Color blue
		extension: 	a SMxMorphExtension (2305)
		mouseFocus: 	nil
		keyboardFocus: 	a SMxPluggableListMorph(2885)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a SMxMouseOverHandler
		lastMouseEvent: 	[175 at 30 mouseUp 518177]
		targetOffset: 	9 at 10
		damageRecorder: 	a SMxDamageRecorder
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 518177 175 30 0 0 0 1)

[] in SMxPasteUpMorph>>becomeActiveDuring:
	Receiver: a SMxPasteUpMorph(973) [world]
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		bounds: 	0 at 0 corner: 1879 at 1156
		owner: 	nil
		submorphs: 	{a SMxPluggableSystemWindow(744)('MessageNotUnderstood: UndefinedObj...etc...
		fullBounds: 	nil
		color: 	Color lightGreen
		extension: 	a SMxMorphExtension (1079) [other:  (clipSubmorphs -> true) (dropEna...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.861 g: 1.0 b: 0.722)
		borderStyle: 	a SMxSimpleBorder
		cursor: 	1
		backgroundMorph: 	nil
		worldState: 	a SMxWorldState

BlockClosure>>on:do:
	Receiver: [closure] in SMxPasteUpMorph>>becomeActiveDuring:
	Arguments and temporary variables: 
		exception: 	Error
		handlerAction: 	[closure] in SMxPasteUpMorph>>becomeActiveDuring:
		handlerActive: 	false
	Receiver's instance variables: 
		outerContext: 	SMxPasteUpMorph>>becomeActiveDuring:
		startpc: 	89
		numArgs: 	0

SMxPasteUpMorph>>becomeActiveDuring:
	Receiver: a SMxPasteUpMorph(973) [world]
	Arguments and temporary variables: 
		aBlock: 	[closure] in SMxHandMorph>>sendFocusEvent:to:in:
		priorWorld: 	a SMxPasteUpMorph(973) [world]
		priorHand: 	a SMxHandMorph(1015)
		priorEvent: 	[175 at 30 mouseOver red nil]
	Receiver's instance variables: 
		bounds: 	0 at 0 corner: 1879 at 1156
		owner: 	nil
		submorphs: 	{a SMxPluggableSystemWindow(744)('MessageNotUnderstood: UndefinedObj...etc...
		fullBounds: 	nil
		color: 	Color lightGreen
		extension: 	a SMxMorphExtension (1079) [other:  (clipSubmorphs -> true) (dropEna...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.861 g: 1.0 b: 0.722)
		borderStyle: 	a SMxSimpleBorder
		cursor: 	1
		backgroundMorph: 	nil
		worldState: 	a SMxWorldState

SMxHandMorph>>sendFocusEvent:to:in:
	Receiver: a SMxHandMorph(1015)
	Arguments and temporary variables: 
		anEvent: 	[175 at 30 mouseUp 518177]
		focusHolder: 	a SMxIconicButton(1745)
		world: 	a SMxPasteUpMorph(973) [world]
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	175 at 30 corner: 191 at 46
		owner: 	a SMxPasteUpMorph(973) [world]
		submorphs: 	#()
		fullBounds: 	175 at 30 corner: 191 at 46
		color: 	Color blue
		extension: 	a SMxMorphExtension (2305)
		mouseFocus: 	nil
		keyboardFocus: 	a SMxPluggableListMorph(2885)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a SMxMouseOverHandler
		lastMouseEvent: 	[175 at 30 mouseUp 518177]
		targetOffset: 	9 at 10
		damageRecorder: 	a SMxDamageRecorder
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 518177 175 30 0 0 0 1)

SMxHandMorph>>sendMouseEvent:
	Receiver: a SMxHandMorph(1015)
	Arguments and temporary variables: 
		anEvent: 	[175 at 30 mouseUp 518177]
		w: 	a SMxPasteUpMorph(973) [world]
	Receiver's instance variables: 
		bounds: 	175 at 30 corner: 191 at 46
		owner: 	a SMxPasteUpMorph(973) [world]
		submorphs: 	#()
		fullBounds: 	175 at 30 corner: 191 at 46
		color: 	Color blue
		extension: 	a SMxMorphExtension (2305)
		mouseFocus: 	nil
		keyboardFocus: 	a SMxPluggableListMorph(2885)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a SMxMouseOverHandler
		lastMouseEvent: 	[175 at 30 mouseUp 518177]
		targetOffset: 	9 at 10
		damageRecorder: 	a SMxDamageRecorder
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 518177 175 30 0 0 0 1)


--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #scheduledWindowControllers
RealEstateAgent class>>assignCollapseFrameFor:
SMxPluggableSystemWindow(SMxSystemWindow)>>getCollapsedFrame
SMxPluggableSystemWindow(SMxSystemWindow)>>collapseOrExpand
[] in SMxIconicButton(SMxSimpleButtonMorph)>>doButtonAction
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
SMxIconicButton(SMxSimpleButtonMorph)>>doButtonAction
SMxIconicButton(SMxSimpleButtonMorph)>>mouseUp:
SMxIconicButton(SMxMorph)>>handleMouseUp:
SMxMouseButtonEvent>>sentTo:
SMxIconicButton(SMxMorph)>>handleEvent:
SMxIconicButton(SMxMorph)>>handleFocusEvent:
[] in SMxHandMorph>>sendFocusEvent:to:in:
[] in SMxPasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
SMxPasteUpMorph>>becomeActiveDuring:
SMxHandMorph>>sendFocusEvent:to:in:
SMxHandMorph>>sendMouseEvent:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
SMxHandMorph>>handleEvent:
SMxHandMorph>>processEvents
[] in SMxWorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
SMxWorldState>>handsDo:
SMxWorldState>>doOneCycleNowFor:
SMxWorldState>>doOneCycleFor:
SMxPasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess
[] in BlockClosure>>newProcess


More information about the Squeak-dev mailing list