[squeak-dev] The Inbox: EToys-hjh.308.mcz

H. Hirzel hannes.hirzel at gmail.com
Mon Oct 9 09:37:49 UTC 2017


A fix mentioned in the thread
    MorphicProject subclass: #EtoysProject

On Mon, 9 Oct 2017 09:30:04 0000, commits at source.squeak.org
<commits at source.squeak.org> wrote:
> A new version of EToys was added to project The Inbox:
> http://source.squeak.org/inbox/EToys-hjh.308.mcz
>
> ==================== Summary ====================
>
> Name: EToys-hjh.308
> Author: hjh
> Time: 9 October 2017, 11:29:30.946214 am
> UUID: 2dbdc43f-4c5a-411b-bbd5-d0cc06864fd6
> Ancestors: EToys-topa.307
>
> Change from old
>      Preferences menuTitleBorderColor
> to new
>      self userInterfactTheme menuTitleBorderColor
>
> This change allows the Etoys project
>      http://squeakland.org/content/articles/attach/FollowRoad.012.pr
>
> to load when dropped onto the desktop.
>
> =============== Diff against EToys-topa.307 ===============
>
> Item was changed:
>   ----- Method: CategoryViewer>>addNamePaneTo: (in category 'header pane')
> -----
>   addNamePaneTo: header
>   	"Add the namePane, which is a pop-up"
>
>   	| triangle aLabel |
>   	namePane := BorderedMorph new.
>   	namePane layoutPolicy: TableLayout new.
>   	namePane hResizing: #spaceFill.
>   	namePane listDirection: #leftToRight.
>   	namePane wrapCentering: #center.
>   	namePane cellInset: 2.
>   	namePane layoutInset: 6 @ 0.
>
>   	namePane color: ScriptingSystem baseColor.
> + 	namePane borderColor: (self userInterfaceTheme menuTitleBorderColor
> + ifNil: [(Color r: 0.6 g: 0.7 b: 1)]).
> - 	namePane borderColor: Preferences menuTitleBorderColor.
>   	namePane borderWidth: 0.
>
>   	namePane height: TileMorph defaultH.
>   	namePane useRoundedCornersInEtoys.
>
>   	triangle := ImageMorph new image: (ScriptingSystem formAtKey:
> #MenuTriangle).
>   	namePane addMorph: triangle.
>   	aLabel := StringMorph contents: '---------' font: ScriptingSystem
> fontForViewerCategoryPopups.
>
>   	namePane addMorphBack: aLabel.
>   	namePane on: #mouseDown send: #chooseCategory to: self.
>   	header addMorphBack: namePane!
>
>
>


More information about the Squeak-dev mailing list