[Pkg] The Trunk: Morphic-kfr.934.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Apr 26 19:41:52 UTC 2015
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 Packages
mailing list