[squeak-dev] The Trunk: Morphic-kfr.930.mcz

karl ramberg karlramberg at gmail.com
Sun Apr 26 12:39:55 UTC 2015


I got confused, too.

But it's reason is that it's a cascade sent to a morph, not to TableLayout,
like this:

aMorph layoutPolicy: TableLayout new;
  listDirection: #leftToRight;
  wrapCentering: #topLeft;
  hResizing: #shrinkWrap;
  vResizing: #shrinkWrap;
  layoutInset: 2;
  rubberBandCells: true

Karl


On Sun, Apr 26, 2015 at 2:29 PM, Tobias Pape <Das.Linux at gmx.de> wrote:

> Hey Karl
>
> On 26.04.2015, at 05:56, commits at source.squeak.org wrote:
>
> > Karl Ramberg uploaded a new version of Morphic to project The Trunk:
> > http://source.squeak.org/trunk/Morphic-kfr.930.mcz
> >
> > ==================== Summary ====================
> >
> > Name: Morphic-kfr.930
> > Author: kfr
> > Time: 26 April 2015, 7:56:20.732 am
> > UUID: 719010c7-4822-d540-842d-0091f1df654d
> > Ancestors: Morphic-kfr.929
> >
> > Added a missing semicolon
> >
> > =============== Diff against Morphic-kfr.929 ===============
> >
> > Item was changed:
> > ----- Method: LayoutProperties>>stringWithLayout (in category 'table
> defaults') -----
> > stringWithLayout
> >       | defaultValues uniqueValues |
> >       defaultValues := TableLayoutProperties new.
> >       uniqueValues := self class allInstVarNames
> >               select: [:title | (self instVarNamed: title)
> >                                       ~= (defaultValues instVarNamed:
> title)].
> >       ^ String
> >               streamContents: [:aStream |
> > +                     aStream nextPutAll: 'TableLayout new; '.
> > -                     aStream nextPutAll: 'TableLayout new '.
>
> can you explain why this is necessary?
> Why should subsequent messages go to the class instead of the instance?
>
> Best regards
>         -Tobias
>
>
> >                       uniqueValues
> >                               do: [:title | aStream nextPutAll: title;
> >                                                nextPut: $:;
> >                                                space;
> >
> >                                               print: (self instVarNamed:
> title).
> >                                               (title = uniqueValues last)
> >                                               ifTrue:[ aStream
> nextPut:$.]
> >                                               ifFalse:[ aStream nextPut:
> $;; cr]
> >                                               ]]!
> >
> >
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20150426/47c6d863/attachment.htm


More information about the Squeak-dev mailing list