The Trunk: Monticello-ct.727.mcz

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

The Trunk: Monticello-ct.727.mcz

commits-2
Levente Uzonyi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ct.727.mcz

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

Name: Monticello-ct.727
Author: ct
Time: 20 August 2020, 2:38:27.66964 pm
UUID: b81a07b6-cb93-6f48-847e-dbe86460d69f
Ancestors: Monticello-cmm.726

Complements 60Deprecated-ct.80 (deprecation #doWithIndex: & Co.).

=============== Diff against Monticello-cmm.726 ===============

Item was changed:
  ----- Method: MCTool>>buildWith: (in category 'toolbuilder') -----
  buildWith: builder
  |  windowBuilder |
 
  windowBuilder := MCToolWindowBuilder builder: builder tool: self.
  self widgetSpecs do:
  [:spec | | send fractions offsets |
  send := spec first.
  fractions := (spec at: 2 ifAbsent: [#(0 0 1 1)]) copy.
  offsets := (spec at: 3 ifAbsent: [#(0 0 0 0)]) copy.
 
+ fractions withIndexDo: [:numberOrSymbol :index |
- fractions doWithIndex: [:numberOrSymbol :index |
  numberOrSymbol isSymbol
  ifTrue: [fractions at: index put: (self perform: numberOrSymbol)]].
+ offsets withIndexDo: [:numberOrSymbol :index |
- offsets doWithIndex: [:numberOrSymbol :index |
  numberOrSymbol isSymbol
  ifTrue: [offsets at: index put: (self perform: numberOrSymbol)]].
 
  windowBuilder frame: (LayoutFrame
  fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth)
  offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth)).
  windowBuilder perform: send first withArguments: send allButFirst].
 
  ^ windowBuilder build
  !