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

Chris Muller asqueaker at gmail.com
Sun Apr 26 21:43:15 UTC 2015


This assumes I'm only ever building for the world I'm in.  What if I'm
building MVC widgets to go inside a special window inside my Moprhic
IDE environment?

Maybe we should ask the 'builder' if he's a kind of MorphicToolBuilder
rather than asking the global Smalltalk?

On Sun, Apr 26, 2015 at 2:41 PM,  <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.934.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-kfr.934
> Author: kfr
> Time: 26 April 2015, 9:40:34.032 pm
> UUID: fd9f26f3-4ed1-eb4f-a8ee-0f0270153871
> Ancestors: Morphic-kfr.933
>
> Add a check for morphic environment
>
> =============== Diff against Morphic-kfr.933 ===============
>
> Item was changed:
>   ----- Method: FontChooserTool>>buildWith: (in category 'toolbuilder') -----
>   buildWith: builder
>         "Create the ui for the browser"
>         "ToolBuilder open: self"
>         | windowSpec |
>         self offerStyleList ifTrue:[
>                 windowSpec := self buildWindowWith: builder specs: {
>                         (0 at 0 corner: 0.4 at 0.4) -> [self buildFontListWith: builder].
>                         (0.4 at 0 corner: 0.8 at 0.4) -> [self buildStyleListWith: builder].
>                         (0.8 at 0 corner: 1.0 at 0.4) -> [self buildPointSizeListWith: builder].
>                         (0.0 at 0.4 corner: 1.0 at 0.88) -> [self buildPreviewPaneWith: builder].
>                         (0.0 at 0.88 corner: 1 at 1) -> [self buildButtonBarWith: builder].
>                 }.
>         ] ifFalse:[
>                 windowSpec := self buildWindowWith: builder specs: {
>                         (0 at 0 corner: 0.7 at 0.4) -> [self buildFontListWith: builder].
>   "                     (0.4 at 0 corner: 0.8 at 0.4) -> [self buildStyleListWith: builder]."
>                         (0.7 at 0 corner: 1.0 at 0.4) -> [self buildPointSizeListWith: builder].
>                         (0.0 at 0.4 corner: 1.0 at 0.8) -> [self buildPreviewPaneWith: builder].
>                         (0.0 at 0.8 corner: 1 at 1) -> [self buildButtonBarWith: builder].
>                 }.
>         ].
>         windowSpec extent: self initialExtent.
>         window := builder build: windowSpec.
>         "Yes, that's a hack. But it looks ugly with line breaks."
> +       Smalltalk isMorphic ifTrue:[(builder widgetAt: #preview) textMorph wrapFlag: false].
> -       (builder widgetAt: #preview) textMorph wrapFlag: false.
>         (builder widgetAt: #fontList) scrollSelectionIntoView.
>         ^window!
>
>


More information about the Squeak-dev mailing list