[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
|