~drgeo-developers/drgeo/trunk

« back to all changes in this revision

Viewing changes to src/DrGeo.pck.st

  • Committer: Hilaire Fernandes
  • Date: 2023-11-19 21:09:48 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20231119210948-umjkuwr69mpoqkzb
WIP

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
'From Cuis 6.0 [latest update: #6068] on 18 November 2023 at 4:35:37 pm'!
 
1
'From Cuis 6.0 [latest update: #6068] on 19 November 2023 at 9:56:20 pm'!
2
2
'Description '!
3
 
!provides: 'DrGeo' 1 649!
 
3
!provides: 'DrGeo' 1 654!
4
4
!requires: 'Gettext' 1 17 nil!
5
5
!requires: 'SVG' 1 16 nil!
6
6
!requires: 'YAXO' 1 19 nil!
33332
33332
fontManager
33333
33333
        ^ fontManager ifNil: [fontManager := self initFontManager]! !
33334
33334
 
33335
 
!DrGPlatform methodsFor: 'font' stamp: 'hlsf 11/18/2023 16:17:53'!
 
33335
!DrGPlatform methodsFor: 'font' stamp: 'hlsf 11/19/2023 21:56:09'!
33336
33336
initFontManager
33337
33337
        | font |
33338
33338
        fontManager := LanguageFontManager new.
33339
 
        font := LanguageFont family: 'unDotum' file: 'unDotum.ttf'.
 
33339
        font := LanguageFont family: 'UnDotum' file: 'UnDotum.ttf'.
33340
33340
        font addLocale: (LocaleID isoLanguage: 'ko').
33341
33341
        fontManager add: font.
33342
33342
        font := LanguageFont family: 'IPAexGothic' file: 'ipaexg.ttf'.
33343
 
        font addLocale: 'ja'.
 
33343
        font addLocale: (LocaleID isoLanguage: 'ja').
33344
33344
        fontManager add: font.
33345
 
        font := LanguageFont family: 'WenQuanYiMicroHei' file: 'wqy-microhei.ttc'.
33346
 
        font addLocale: 'zh'.
 
33345
        font := LanguageFont family: 'WenQuanYi Micro Hei' file: 'wqy-microhei.ttc'.
 
33346
        font addLocale:(LocaleID isoLanguage: 'zh').
33347
33347
        fontManager add: font! !
33348
33348
 
33349
 
!DrGPlatform methodsFor: 'font' stamp: 'hlsf 11/18/2023 16:29:46'!
 
33349
!DrGPlatform methodsFor: 'font' stamp: 'hlsf 11/19/2023 20:57:11'!
33350
33350
setFontPreferences
33351
33351
        | languageFont |
33352
33352
        " Pick an appropriate font file for the current locale, if necessary "
33353
 
        languageFont := self fontManager languageFontFor: Locale current isoLanguage.
 
33353
        languageFont := self fontManager languageFontFor: Locale current.
33354
33354
        languageFont ifNotNil: [
33355
33355
                TrueTypeFontFamily readTrueTypeFontEntry: self fontPath // languageFont file.
33356
33356
                PreferenceSet setDefaultFont: languageFont family       ].
33440
33440
"self removeStartUp"
33441
33441
        Smalltalk removeFromStartUpList: self! !
33442
33442
 
33443
 
!DrGeoSystem class methodsFor: 'system startup' stamp: 'hlsf 2/23/2023 16:05:58'!
 
33443
!DrGeoSystem class methodsFor: 'system startup' stamp: 'hlsf 11/19/2023 13:33:50'!
33444
33444
startUp
 
33445
        Transcript show: '[DrGeo] Init startUp'; cr.
33445
33446
        platform startUp
33446
33447
        ! !
33447
33448