[etoys-dev] Etoys: TrueType-Richo.5.mcz

[Ricardo Moran]

Ok, I like the new preference option.

Richo

On Sat, Jun 12, 2010 at 3:44 PM, Bert Freudenberg <bert at freudenbergs.de>wrote:

> We must *only* look for fonts in <imagePath>/fonts by default. Otherwise
> projects would not be compatible between platforms anymore.
>
> One option would be to add a "platformFonts" preference that would be off
> by default in our image.
>
> - Bert -
>
> On 12.06.2010, at 17:52, commits at source.squeak.org wrote:
>
> > Ricardo Moran uploaded a new version of TrueType to project Etoys:
> > http://source.squeak.org/etoys/TrueType-Richo.5.mcz
> >
> > ==================== Summary ====================
> >
> > Name: TrueType-Richo.5
> > Author: Richo
> > Time: 12 June 2010, 2:52:41 pm
> > UUID: eac6d292-1884-4e47-8da8-e965079f6b1f
> > Ancestors: TrueType-Richo.4
> >
> > * Added (imagePath)/fonts as a path for looking fonts.
> >
> > =============== Diff against TrueType-Richo.4 ===============
> >
> > Item was changed:
> >  ----- Method: TTFileDescription class>>fontPathsDo: (in category 'font
> paths') -----
> >  fontPathsDo: aBlock
> >       "Evaluate aBlock with all of the font paths that should be searched
> on the current platform"
> >
> >       "Start with the current directory"
> >       aBlock value: FileDirectory default pathName.
> >
> >       "Then subdirectory 'fonts'"
> >       aBlock value: (FileDirectory default directoryNamed: 'fonts')
> pathName.
> >
> > +     aBlock value: (SmalltalkImage current imagePath, FileDirectory
> pathNameDelimiter asString, 'fonts').
> > +
> >       "Platform specific directories"
> >       SmalltalkImage current platformName caseOf:{
> >               ['Win32']       ->      [
> >                       "Standard Windows fonts directory"
> >                       aBlock value: 'C:\Windows\Fonts'.
> >               ].
> >               ['Mac OS']      ->      [
> >                       "Standard system fonts directory"
> >                       aBlock value: '/Library/Fonts'.
> >               ].
> >               ['unix']                ->      [ | base |
> >                       "Standard fonts are in /usr/share/fonts/*"
> >                       base := '/usr/share/fonts'.
> >                       (FileDirectory on: base) directoryNames
> >                               do:[:dn| aBlock value: base, '/', dn].
> >               ].
> >       } otherwise:[].
> >       !
>
>
> _______________________________________________
> etoys-dev mailing list
> etoys-dev at squeakland.org
> http://lists.squeakland.org/mailman/listinfo/etoys-dev
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakland.org/pipermail/etoys-dev/attachments/20100612/50abad70/attachment.html