[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
|