[squeak-dev] The Trunk: ToolBuilder-MVC-mt.69.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jan 18 14:41:08 UTC 2023


Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-MVC-mt.69.mcz

==================== Summary ====================

Name: ToolBuilder-MVC-mt.69
Author: mt
Time: 18 January 2023, 3:41:08.098866 pm
UUID: 1beb3197-3ffa-8d48-8eb5-2adf88ccae5a
Ancestors: ToolBuilder-MVC-mt.68

Let #open: and #open:label: have the same features like in MorphicToolBuilder.

=============== Diff against ToolBuilder-MVC-mt.68 ===============

Item was changed:
  ----- Method: MVCToolBuilder>>open: (in category 'opening') -----
  open: anObject
  	"Build and open the object. Answer the widget opened."
+ 	^ self open: anObject label: nil!
- 	| window |
- 	window := (anObject isKindOf: View orOf: PopUpMenu)
- 		ifTrue: [anObject]
- 		ifFalse: [self build: anObject].
- 	(window isKindOf: PopUpMenu)
- 		ifTrue: [window invokeOn: nil].
- 	(window isKindOf: View)
- 		ifTrue: [window controller open].
- 	^window!

Item was changed:
  ----- Method: MVCToolBuilder>>open:label: (in category 'opening') -----
+ open: anObject label: aStringOrNil
- open: anObject label: aString
  	"Build an open the object, labeling it appropriately.  Answer the widget opened."
+ 	"Build and open the object. Answer the widget opened."
  	| window |
+ 	window := (anObject isKindOf: View orOf: PopUpMenu)
+ 		ifTrue: [anObject]
+ 		ifFalse: [self build: anObject].
+ 	(window isKindOf: PopUpMenu)
+ 		ifTrue: [
+ 			self flag: #todo. "mt: #startUpWithCaption: does not work because #targets will be ignored."
+ 			window invokeOn: nil].
+ 	(window isKindOf: View)
+ 		ifTrue: [
+ 			window label: aStringOrNil.
+ 			window controller open].
+ 	^ window!
- 	window := self build: anObject.
- 	window label: aString.
- 	window controller open.
- 	^window!



More information about the Squeak-dev mailing list