← Back to branch summary

~drgeo-developers/drgeo/trunk

« back to all changes in this revision

Viewing changes to src/DrGeo.pck.st

  • Committer: Hilaire Fernandes
  • Date: 2022-08-16 20:20:24 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20220816202024-9trlk02ioq73bo3z
WIP bundle

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/DrGeo.pck.st
1
 
'From Cuis 6.0 [latest update: #5448] on 15 August 2022 at 5:14:57 pm'!
 
1
'From Cuis 6.0 [latest update: #5448] on 16 August 2022 at 9:55:50 pm'!
2
2
'Description '!
3
 
!provides: 'DrGeo' 1 427!
 
3
!provides: 'DrGeo' 1 433!
4
4
!requires: 'Gettext' 1 17 nil!
5
5
!requires: 'SVG' 1 16 nil!
6
6
!requires: 'YAXO' 1 19 nil!
2899
2899
DrGDevelopment class
2900
2900
        instanceVariableNames: ''!
2901
2901
 
2902
 
!classDefinition: #DrGTablet category: 'DrGeo-System'!
2903
 
DrGPlatform subclass: #DrGTablet
2904
 
        instanceVariableNames: 'wheelHeight'
2905
 
        classVariableNames: ''
2906
 
        poolDictionaries: ''
2907
 
        category: 'DrGeo-System'!
2908
 
!classDefinition: 'DrGTablet class' category: 'DrGeo-System'!
2909
 
DrGTablet class
2910
 
        instanceVariableNames: ''!
2911
 
 
2912
 
!classDefinition: #DrGAndroid category: 'DrGeo-System'!
2913
 
DrGTablet subclass: #DrGAndroid
2914
 
        instanceVariableNames: ''
2915
 
        classVariableNames: ''
2916
 
        poolDictionaries: ''
2917
 
        category: 'DrGeo-System'!
2918
 
!classDefinition: 'DrGAndroid class' category: 'DrGeo-System'!
2919
 
DrGAndroid class
2920
 
        instanceVariableNames: ''!
2921
 
 
2922
 
!classDefinition: #DrGiPad category: 'DrGeo-System'!
2923
 
DrGTablet subclass: #DrGiPad
2924
 
        instanceVariableNames: ''
2925
 
        classVariableNames: ''
2926
 
        poolDictionaries: ''
2927
 
        category: 'DrGeo-System'!
2928
 
!classDefinition: 'DrGiPad class' category: 'DrGeo-System'!
2929
 
DrGiPad class
2930
 
        instanceVariableNames: ''!
2931
 
 
2932
2902
!classDefinition: #DrGWorkstation category: 'DrGeo-System'!
2933
2903
DrGPlatform subclass: #DrGWorkstation
2934
2904
        instanceVariableNames: ''
3511
3481
!DrGDevelopment commentStamp: '' prior: 0!
3512
3482
Preferences for a Dr. Geo development environment!
3513
3483
 
3514
 
!DrGTablet commentStamp: '' prior: 0!
3515
 
Preferences common to tablets!
3516
 
 
3517
 
!DrGAndroid commentStamp: '' prior: 0!
3518
 
Preferences for Android tablet!
3519
 
 
3520
 
!DrGiPad commentStamp: '' prior: 0!
3521
 
Preferences for iPad tablet!
3522
 
 
3523
3484
!DrGWorkstation commentStamp: '' prior: 0!
3524
3485
Preferences for workstation (Linux, Mac, Windows)!
3525
3486
 
21957
21918
        toolbarIconSize _ nil.
21958
21919
        preferences _ nil! !
21959
21920
 
21960
 
!DrGPlatform methodsFor: 'initialize-release' stamp: 'hlsf 4/21/2020 21:32:20'!
 
21921
!DrGPlatform methodsFor: 'initialize-release' stamp: 'hlsf 8/16/2022 12:30:47'!
21961
21922
splash
21962
 
 | splash copy  background position splashMorph |
21963
 
        canWeDisplaySpinner _ false.
21964
 
        UIManager default defer: [ 
21965
 
        splash _ ImageReadWriter formFromFileNamed: (self rootPath / 'splash.bmp') pathString.
 
21923
| splash copy  background position |
 
21924
        splash _ ImageReadWriter formFromFileEntry: (DrGeoSystem iconsPath // 'splash.bmp').
21966
21925
        position _ Display center - (splash extent // 2).
21967
21926
        background _ Form fromDisplay: (position extent: splash extent).
21968
21927
        0.0 to: 1.0 by: 0.2 do: [:t |
21969
 
                copy _ background deepCopy.
 
21928
                copy _ background copy.
21970
21929
                copy copyBits: splash at: 0@0 translucent: t.
21971
21930
                copy displayAt:  position.
21972
21931
                (Delay forMilliseconds: 100) wait].
21973
 
        splashMorph _ splash asMorph.
21974
 
        splashMorph
21975
 
                position: position;
21976
 
                openInWorld.
21977
21932
        (Delay forSeconds: 2) wait.
21978
 
        splashMorph delete.
21979
 
        canWeDisplaySpinner _ true]! !
 
21933
        background displayAt: position! !
21980
21934
 
21981
21935
!DrGPlatform methodsFor: 'initialize-release' stamp: 'hlsf 3/12/2022 16:28:17'!
21982
21936
startUp
21984
21938
        self setFontPreferences.
21985
21939
        self checkForPaths! !
21986
21940
 
21987
 
!DrGPlatform methodsFor: 'path'!
 
21941
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:34:33'!
21988
21942
examplesPath
21989
 
        ^ self rootPath / 'examples'! !
 
21943
        ^ self resourcesPath / 'examples'! !
21990
21944
 
21991
 
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 6/8/2021 19:45:18'!
 
21945
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:34:26'!
21992
21946
fontPath
21993
 
        ^  DirectoryEntry smalltalkImageDirectory! !
 
21947
        ^  self resourcesPath / 'fonts'! !
21994
21948
 
21995
 
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 12/4/2021 19:40:46'!
 
21949
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:34:14'!
21996
21950
iconsPath
21997
 
        ^ self rootPath / 'resources' / 'icons'! !
 
21951
        ^ self resourcesPath / 'icons'! !
21998
21952
 
21999
 
!DrGPlatform methodsFor: 'path'!
 
21953
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:50:42'!
22000
21954
myExportsPath
22001
 
        ^ self shouldNotImplement! !
 
21955
        ^ self resourcesPath / 'MyExports'! !
22002
21956
 
22003
 
!DrGPlatform methodsFor: 'path'!
 
21957
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:34:52'!
22004
21958
mySketchesPath
22005
 
        ^self rootPath / 'MySketches'! !
 
21959
        ^self resourcesPath / 'MySketches'! !
22006
21960
 
22007
 
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 4/8/2022 11:39:13'!
 
21961
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:36:00'!
22008
21962
mySmalltalkSketchesPath
22009
 
        ^self rootPath / 'MySmalltalkSketches'! !
 
21963
        ^self resourcesPath / 'MySmalltalkSketches'! !
 
21964
 
 
21965
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:33:07'!
 
21966
resourcesPath
 
21967
"When are located folders for icons, fonts, sketches, scripts, documentation, images, user created resources"
 
21968
        ^ self rootPath / 'Resources'! !
22010
21969
 
22011
21970
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 6/8/2021 19:42:01'!
22012
21971
rootPath
22013
21972
"When deployed, the DrGeo/ directory"
22014
21973
        ^ DirectoryEntry smalltalkImageDirectory parent parent! !
22015
21974
 
22016
 
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 4/8/2022 11:33:39'!
 
21975
!DrGPlatform methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:36:11'!
22017
21976
smalltalkSketchesPath
22018
 
        ^self rootPath / 'SmalltalkSketches'! !
 
21977
        ^self resourcesPath / 'SmalltalkSketches'! !
22019
21978
 
22020
21979
!DrGPlatform methodsFor: 'user interface'!
22021
21980
showVirtualKeyboard: boolean
22107
22066
"I hold the Dr. Geo development environment preferences"
22108
22067
        ^ true! !
22109
22068
 
22110
 
!DrGDevelopment methodsFor: 'path'!
22111
 
examplesPath
22112
 
        ^ self repoPath / 'build' / 'examples'! !
22113
 
 
22114
 
!DrGDevelopment methodsFor: 'path' stamp: 'hlsf 3/12/2022 16:31:19'!
22115
 
fontPath
22116
 
        ^  self repoPath / 'build' / 'fonts'! !
22117
 
 
22118
 
!DrGDevelopment methodsFor: 'path' stamp: 'hlsf 8/15/2022 17:13:30'!
 
22069
!DrGDevelopment methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:46:11'!
22119
22070
iconsPath
22120
 
        ^ self repoPath / 'resources' / 'graphics' / 'iconsSVG'! !
22121
 
 
22122
 
!DrGDevelopment methodsFor: 'path'!
22123
 
myExportsPath
22124
 
        ^self repoPath / 'MyExports'! !
22125
 
 
22126
 
!DrGDevelopment methodsFor: 'path'!
22127
 
mySketchesPath
22128
 
        ^self repoPath / 'MySketches'! !
22129
 
 
22130
 
!DrGDevelopment methodsFor: 'path' stamp: 'hlsf 4/8/2022 11:42:08'!
22131
 
mySmalltalkSketchesPath
22132
 
        ^self repoPath / 'MySmalltalkSketches'! !
22133
 
 
22134
 
!DrGDevelopment methodsFor: 'path'!
22135
 
repoPath
22136
 
        "The path to the Dr. Geo source code local repository"
22137
 
        ^ self rootPath / 'drgeo'! !
22138
 
 
22139
 
!DrGDevelopment methodsFor: 'path' stamp: 'hlsf 3/12/2022 16:20:41'!
 
22071
        ^ self resourcePath / 'graphics' / 'iconsSVG'! !
 
22072
 
 
22073
!DrGDevelopment methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:44:36'!
 
22074
resourcePath
 
22075
"       The resources are in the Dr. Geo source code local repository "
 
22076
        ^ self rootPath / 'drgeo' / 'resources'! !
 
22077
 
 
22078
!DrGDevelopment methodsFor: 'path' stamp: 'hlsf 8/16/2022 11:40:41'!
22140
22079
rootPath
 
22080
"       Regarding the development environement, we consider the root path to be 
 
22081
        Cuis-Smalltalk-Dev from where is taking place the DrGeo development "
 
22082
 
22141
22083
        ^ DirectoryEntry smalltalkImageDirectory! !
22142
22084
 
22143
 
!DrGDevelopment methodsFor: 'path' stamp: 'hlsf 4/8/2022 12:04:06'!
22144
 
smalltalkSketchesPath
22145
 
        ^self repoPath / 'build' / 'SmalltalkSketches'! !
22146
 
 
22147
22085
!DrGDevelopment methodsFor: 'font' stamp: 'hlsf 3/24/2022 11:23:01'!
22148
22086
installFont
22149
22087
"Does nothing in development mode"! !
22157
22095
                setMenuFontTo: (DrGeoSystem fontOfSize: 11);
22158
22096
                setWindowTitleFontTo: (DrGeoSystem fontOfSize: 11)."! !
22159
22097
 
22160
 
!DrGTablet methodsFor: 'initialize-release'!
22161
 
reset
22162
 
        super reset.
22163
 
        wheelHeight _ nil! !
22164
 
 
22165
 
!DrGTablet methodsFor: 'initialize-release' stamp: 'hlsf 4/10/2022 15:04:23'!
22166
 
startUp
22167
 
        super startUp.
22168
 
        self splash.
22169
 
        (WorldMorph submorphs anySatisfy: [:morph | morph class == DrGeoView]) ifFalse:
22170
 
                [DrGeo newFullscreen]! !
22171
 
 
22172
 
!DrGTablet methodsFor: 'user interface'!
22173
 
wheelHeight
22174
 
        ^ wheelHeight ifNil: [ |maxWheelHeight|
22175
 
                maxWheelHeight _ (Display height - (3.4 * self toolbarIconSize) - 32 - self wheelWidth) // 2.
22176
 
                wheelHeight _ 180 min: maxWheelHeight]! !
22177
 
 
22178
 
!DrGTablet methodsFor: 'user interface'!
22179
 
wheelWidth
22180
 
        ^ 55! !
22181
 
 
22182
 
!DrGTablet methodsFor: 'font'!
22183
 
canvasFontSize
22184
 
        ^ 12! !
22185
 
 
22186
 
!DrGTablet methodsFor: 'font'!
22187
 
setFontPreferences
22188
 
        StandardFonts codeFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 12).
22189
 
        StandardFonts listFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 14).
22190
 
        StandardFonts menuFont: (LogicalFont familyName: DrGeoSystem fontName pointSize: 14).
22191
 
        StandardFonts windowTitleFont: (LogicalFont familyName: DrGeoSystem fontName pointSize: 14).
22192
 
        StandardFonts balloonFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 12).
22193
 
        StandardFonts haloFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 12).
22194
 
        StandardFonts buttonFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 16).
22195
 
        StandardFonts defaultFont: (LogicalFont familyName: DrGeoSystem fontName  pointSize: 14).
22196
 
! !
22197
 
 
22198
 
!DrGAndroid methodsFor: 'initialize-release' stamp: 'hlsf 4/21/2020 21:32:20'!
22199
 
initialize
22200
 
        canWeDisplaySpinner _ true.
22201
 
        WorldState desktopMenuTitle: 'Dr. Geo'.
22202
 
        WorldState desktopMenuPragmaKeyword:  'drgeoMenu'.
22203
 
        PolymorphSystemSettings uiThemeClass:  DrGeoTheme.
22204
 
        UITheme currentSettings fastDragging: true.
22205
 
        UITheme currentSettings fadedBackgroundWindows: false.
22206
 
        SystemWindow fullscreenMargin: 0.
22207
 
        UITheme currentSettings preferRoundCorner: false.
22208
 
 
22209
 
        TaskbarMorph showTaskbar: false.
22210
 
        World color: Color white.! !
22211
 
 
22212
 
!DrGAndroid methodsFor: 'initialize-release'!
22213
 
startUp 
22214
 
        super startUp.
22215
 
        (Smalltalk at: #Android) setVMTimerInterval: 100! !
22216
 
 
22217
 
!DrGAndroid methodsFor: 'user interface'!
22218
 
showVirtualKeyboard: boolean
22219
 
        (Smalltalk at: #Android) onScreenKbd: (boolean ifTrue: [1] ifFalse: [0])! !
22220
 
 
22221
 
!DrGAndroid methodsFor: 'user interface'!
22222
 
toolbarIconSize
22223
 
        toolbarIconSize
22224
 
                ifNil: [ toolbarIconSize _ (Display height - 110) / 12 truncateTo: 4.
22225
 
                        toolbarIconSize _ toolbarIconSize min: 48 max: 12].
22226
 
        ^ toolbarIconSize! !
22227
 
 
22228
 
!DrGAndroid methodsFor: 'path'!
22229
 
mySketchesPath
22230
 
        ^ ((Smalltalk at: #Android) getSDCardRoot), '/MySketches'.! !
22231
 
 
22232
 
!DrGAndroid methodsFor: 'path' stamp: 'hlsf 6/8/2021 19:43:02'!
22233
 
rootPath
22234
 
        ^  DirectoryEntry smalltalkImageDirectory! !
22235
 
 
22236
 
!DrGAndroid methodsFor: 'testing'!
22237
 
isAndroid
22238
 
        ^ true! !
22239
 
 
22240
 
!DrGiPad methodsFor: 'initialize-release' stamp: 'hlsf 4/21/2020 21:32:20'!
22241
 
initialize
22242
 
        canWeDisplaySpinner _ true.
22243
 
        WorldState desktopMenuTitle: 'Dr. Geo'.
22244
 
        WorldState desktopMenuPragmaKeyword:  'drgeoMenu'.
22245
 
 
22246
 
        PolymorphSystemSettings uiThemeClass:  DrGeoTheme.
22247
 
        UITheme currentSettings fastDragging: true.
22248
 
        UITheme currentSettings fadedBackgroundWindows: false.
22249
 
        SystemWindow fullscreenMargin: 0.
22250
 
        UITheme currentSettings preferRoundCorner: false.
22251
 
 
22252
 
        TaskbarMorph showTaskbar: false.
22253
 
        World color: Color white.
22254
 
"       HostWindowProxy basicNew primitiveWindowSize: 1 x: 1024 y: 768. " "does not work when building from Linux"
22255
 
"       World doOneCycleNow.
22256
 
        DrGeo new view extent: 1024@768; position: 0@0."! !
22257
 
 
22258
 
!DrGiPad methodsFor: 'initialize-release'!
22259
 
startUp
22260
 
        GetTextTranslator userDefaultLocaleDirs add: self localePath.
22261
 
        NaturalLanguageTranslator privateStartUp.
22262
 
        super startUp.
22263
 
! !
22264
 
 
22265
 
!DrGiPad methodsFor: 'as yet unclassified'!
22266
 
openURI: aString
22267
 
        | sharedApp nsUrl |
22268
 
        sharedApp _ ((Smalltalk at: #ObjectiveCBridge) classObjectForName: #UIApplication) sharedApplication.
22269
 
        nsUrl _ (Smalltalk at: #ObjectiveCBridge) classObjectForName: #NSURL.
22270
 
        sharedApp openURL: (nsUrl URLWithString: aString asNSStringUTF8).
22271
 
        
22272
 
        "(ObjectiveCBridge  classObjectForName: #UIApplication) sharedApplication 
22273
 
                openURL: ((ObjectiveCBridge classObjectForName: #NSURL) URLWithString: 'http://www.drgeo.eu' asNSStringUTF8)"! !
22274
 
 
22275
 
!DrGiPad methodsFor: 'testing'!
22276
 
isiPad
22277
 
        ^ true! !
22278
 
 
22279
 
!DrGiPad methodsFor: 'path'!
22280
 
localePath
22281
 
        ^ self rootPath / 'locale'! !
22282
 
 
22283
 
!DrGiPad methodsFor: 'path'!
22284
 
mySketchesPath
22285
 
        | path |
22286
 
        path _ self sandboxPath asFileReference / 'MySketches'.
22287
 
        ^path fullName
22288
 
! !
22289
 
 
22290
 
!DrGiPad methodsFor: 'path' stamp: 'hlsf 6/8/2021 19:43:33'!
22291
 
rootPath
22292
 
        ^ DirectoryEntry smalltalkImageDirectory! !
22293
 
 
22294
 
!DrGiPad methodsFor: 'path'!
22295
 
sandboxPath
22296
 
        | path |
22297
 
        path _ self rootPath  parent / 'Documents'.
22298
 
        path ensureDirectory.
22299
 
        ^path fullName! !
22300
 
 
22301
 
!DrGiPad methodsFor: 'user interface'!
22302
 
showVirtualKeyboard: boolean
22303
 
        (Smalltalk at: #IPhonePlatform) showKeyboard: boolean! !
22304
 
 
22305
 
!DrGiPad methodsFor: 'user interface'!
22306
 
toolbarIconSize
22307
 
        ^ 40! !
22308
 
 
22309
22098
!DrGWorkstation methodsFor: 'initialize-release'!
22310
22099
checkForPaths
22311
22100
        super checkForPaths.
22312
22101
        self myExportsPath ensureCreateDirectory! !
22313
22102
 
22314
 
!DrGWorkstation methodsFor: 'initialize-release' stamp: 'hlsf 8/4/2022 18:06:27'!
 
22103
!DrGWorkstation methodsFor: 'initialize-release' stamp: 'hlsf 8/16/2022 21:41:43'!
22315
22104
initialize
22316
22105
        canWeDisplaySpinner _ true.
22317
22106
        self flag: #drgeoTodo.
22318
 
        Preferences at: #worldMenu put: DrGeo.
22319
 
 
22320
 
"       TaskbarMorph showTaskbar: true.
22321
 
        SystemWindow fullscreenMargin: 0."! !
 
22107
        Preferences 
 
22108
                at: #worldMenu put: DrGeo;
 
22109
                at: #fullScreenLeavesDeskMargins put: false;
 
22110
                at: #guiElementsSize put: #smallFonts.
 
22111
        UISupervisor ui taskbar scale: 1/2.! !
22322
22112
 
22323
22113
!DrGWorkstation methodsFor: 'initialize-release' stamp: 'hlsf 3/12/2022 16:28:46'!
22324
22114
startUp
22328
22118
"       (World submorphs anySatisfy: [:morph | morph class == DrGeoWindow]) ifFalse:
22329
22119
                [DrGeo newFullScreen]"! !
22330
22120
 
22331
 
!DrGWorkstation methodsFor: 'path'!
22332
 
myExportsPath
22333
 
        ^ self rootPath / 'MyExports'! !
22334
 
 
22335
22121
!DrGWorkstation methodsFor: 'testing'!
22336
22122
isWorkstation
22337
22123
        ^ true! !
22348
22134
addStartUp
22349
22135
        Smalltalk addToStartUpList: self! !
22350
22136
 
22351
 
!DrGeoSystem class methodsFor: 'system startup' stamp: 'hlsf 4/24/2020 12:33:33'!
 
22137
!DrGeoSystem class methodsFor: 'system startup' stamp: 'hlsf 8/16/2022 21:54:17'!
22352
22138
removeStartUp
22353
22139
"self removeStartUp"
22354
 
        self flag: #drgeoTodo.
22355
 
        "SessionManager default unregisterClassNamed: self name."! !
 
22140
        Smalltalk removeFromStartUpList: self! !
22356
22141
 
22357
22142
!DrGeoSystem class methodsFor: 'system startup' stamp: 'hlsf 3/12/2022 16:26:08'!
22358
22143
startUp
22360
22145
        platform startUp.
22361
22146
        ! !
22362
22147
 
22363
 
!DrGeoSystem class methodsFor: 'class initialization'!
22364
 
beAndroid
22365
 
        "self beAndroid"
22366
 
        platform _ DrGAndroid new.
22367
 
        self addStartUp! !
22368
 
 
22369
22148
!DrGeoSystem class methodsFor: 'class initialization' stamp: 'hlsf 3/12/2022 16:30:26'!
22370
22149
beDevelopment
22371
22150
        "Be like the Cuis environment as the DrGeo development environment"
22380
22159
        platform _ DrGWorkstation new.
22381
22160
        self addStartUp! !
22382
22161
 
22383
 
!DrGeoSystem class methodsFor: 'class initialization'!
22384
 
beiPad
22385
 
        "self beiPad"
22386
 
        platform _ DrGiPad new.
22387
 
        self addStartUp! !
22388
 
 
22389
22162
!DrGeoSystem class methodsFor: 'class initialization' stamp: 'hlsf 7/3/2022 12:50:46'!
22390
22163
reset
22391
22164
        platform reset.
22495
22268
"Access to my Script files. There are Smalltalk scripts computing geometry sketches."
22496
22269
        ^ platform mySmalltalkSketchesPath ! !
22497
22270
 
 
22271
!DrGeoSystem class methodsFor: 'path' stamp: 'hlsf 8/16/2022 12:18:23'!
 
22272
resourcesPath
 
22273
        ^ platform resourcePath ! !
 
22274
 
22498
22275
!DrGeoSystem class methodsFor: 'path' stamp: 'hlsf 4/11/2022 21:44:47'!
22499
22276
smalltalkSketchesPath
22500
22277
"Path to the Smalltalk sketches examples. There are written with Smalltalk code."
22501
22278
        ^ platform smalltalkSketchesPath ! !
22502
22279
 
22503
 
!DrGeoSystem class methodsFor: 'resources'!
22504
 
exampleResources
22505
 
        ^ DrGDirectoryLocal new location: DrGeoSystem examplesPath pathString.! !
22506
 
 
22507
 
!DrGeoSystem class methodsFor: 'resources'!
22508
 
mySketchResources
22509
 
        ^ DrGDirectoryLocal new location: DrGeoSystem mySketchesPath pathString.! !
22510
 
 
22511
22280
!DrGeoSystem class methodsFor: 'testing' stamp: 'hlsf 4/21/2020 21:31:40'!
22512
22281
canWeDisplaySpinner
22513
22282
        ^ platform canWeDisplaySpinner! !
22550
22319
cleanUp
22551
22320
        "Smalltalk reduceCuis "! !
22552
22321
 
22553
 
!DrGeoSystem class methodsFor: 'install' stamp: 'hlsf 8/7/2022 13:13:48'!
 
22322
!DrGeoSystem class methodsFor: 'install' stamp: 'hlsf 8/16/2022 11:03:52'!
22554
22323
install
22555
22324
        "Remove all morphs"
22556
22325
        (UISupervisor ui submorphs reject: [:aMorph | aMorph is: #TaskbarMorph]) do: [:each | each delete].
22564
22333
        "Be quiet"
22565
22334
        Preferences at: #logDebuggerStackToFile put: false.
22566
22335
        Preferences at: #autoNumberUserChanges put: false.
 
22336
        "Set Locale and text domains"
 
22337
        Preferences at: #useLocale put: true.
22567
22338
        TextDomainManager registerCategoryPrefix: 'DrGeo' domain: 'drgeo'.
22568
22339
        TextDomainManager registerCategoryPrefix: 'cuis' domain: 'cuis'.        
22569
22340
        self cleanUp.