[squeak-dev] The Inbox: Monticello-nice.404.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Sep 21 23:31:46 UTC 2010


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!




More information about the Squeak-dev mailing list