The Inbox: ToolBuilder-MVC-dtl.21.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: ToolBuilder-MVC-dtl.21.mcz

commits-2
A new version of ToolBuilder-MVC was added to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-MVC-dtl.21.mcz

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

Name: ToolBuilder-MVC-dtl.21
Author: dtl
Time: 9 September 2010, 8:56:51.571 pm
UUID: 57814183-2427-4d2f-9f69-5ec84d0a5e8d
Ancestors: ToolBuilder-MVC-dtl.20

Add #open:label:terminateActive: to allow ToolBuilder to support the MVC debugger. Implementation is required for MVCToolBuilder. Morphic and other environments receive default behavior (terminateActive false). Issue identified by Florin Mateoc (see squeak-dev list, "MVC debugging" thread).

=============== Diff against ToolBuilder-MVC-dtl.20 ===============

Item was changed:
  ----- Method: MVCToolBuilder>>open:label: (in category 'opening') -----
  open: anObject label: aString
  "Build an open the object, labeling it appropriately.  Answer the widget opened."
+ ^self open: anObject label: aString terminateActive: false!
- | window |
- window := self build: anObject.
- window label: aString.
- window controller open.
- ^window!

Item was added:
+ ----- Method: MVCToolBuilder>>open:label:terminateActive: (in category 'opening') -----
+ open: anObject label: aString terminateActive: terminate
+ "Build an open the object, labeling it appropriately.  Answer the widget opened.
+ If terminate is true, terminate the currently active process. "
+ | window |
+ window := self build: anObject.
+ aString ifNotNil: [window label: aString].
+ terminate
+ ifTrue: [window controller openNoTerminate]
+ ifFalse: [window controller open].
+ ^window!

Item was added:
+ ----- Method: MVCToolBuilder>>open:terminateActive: (in category 'opening') -----
+ open: anObject terminateActive: terminate
+ "Build an open the object.  Answer the widget opened. If terminate is true,
+ terminate the currently active process."
+ ^self open: anObject label: nil terminateActive: terminate
+ !