The Inbox: Monticello-nice.404.mcz

A new version of Monticello was added to project The Inbox:
http://source.squeak.org/inbox/Monticello-nice.404.mcz

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

Name: Monticello-nice.404
Author: nice
Time: 22 September 2010, 1:31:34.308 am
UUID: 71b1eadd-eea2-4106-92fa-c87f840d690c
Ancestors: Monticello-nice.403

Give MCTool a chance to be ToolBuilder-ized.

Has it any interest ?

=============== Diff against Monticello-nice.403 ===============

Item was changed:
  ----- Method: MCChangeSelector>>innerButtonRow (in category 'as yet unclassified') -----
  innerButtonRow
+ ^ self buttonRow: self innerButtonSpecs!
- ^ self buttonRow:
- #(('Select All' selectAll 'select all changes')
-  ('Select None' selectNone 'select no changes'))!

Item was added:
+ ----- Method: MCChangeSelector>>innerButtonSpecs (in category 'as yet unclassified') -----
+ innerButtonSpecs
+ ^
+ #(('Select All' selectAll 'select all changes')
+  ('Select None' selectNone 'select no changes'))!

Item was changed:
  ----- Method: MCMergeBrowser>>innerButtonRow (in category 'as yet unclassified') -----
  innerButtonRow
+ ^ self buttonRow: self innerButtonSpecs!
- ^ self buttonRow:
- #((Keep chooseRemote 'keep the selected change' )
-  (Reject chooseLocal 'reject the selected change' ))!

Item was added:
+ ----- Method: MCMergeBrowser>>innerButtonSpecs (in category 'as yet unclassified') -----
+ innerButtonSpecs
+ ^
+ #((Keep chooseRemote 'keep the selected change' )
+  (Reject chooseLocal 'reject the selected change' ))!

Item was changed:
  ----- Method: MCTool>>buildWindow (in category 'morphic ui') -----
  buildWindow
  | window |
+ Smalltalk at: #ToolBuilder ifPresent: [:tb | ^tb build: self].
  window := SystemWindow labelled: self label.
  window model: self.
  self widgetSpecs do: [:spec |
  | send fractions offsets |
  send := spec first.
  fractions := spec at: 2 ifAbsent: [#(0 0 1 1)].
  offsets := spec at: 3 ifAbsent: [#(0 0 0 0)].
  window
  addMorph: (self perform: send first withArguments: send allButFirst)
  fullFrame:
  (LayoutFrame
  fractions:
  ((fractions first)@(fractions second) corner:
  (fractions third)@(fractions fourth))
  offsets:
  ((offsets first)@(offsets second)  corner:
  (offsets third)@(offsets fourth)))].
  ^ window!

Item was added:
+ ----- Method: MCToolWindowBuilder>>innerButtonRow (in category 'as yet unclassified') -----
+ innerButtonRow
+ ^ self buttonRow: tool innerButtonSpecs!