← Back to branch summary

~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to src/setupDrGeoDevelopment.st

  • Committer: Hilaire Fernandes
  • Date: 2022-08-07 08:55:48 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20220807085548-n5j04a3gxcvtgn30
Clean up

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/setupDrGeoDevelopment.st
1
 
| world area morph extent |
2
 
"Report by any mean error"
3
 
Transcript
4
 
   showOnDisplay: false;
5
 
   logToFile: true;
6
 
   logToStdout: true.
7
 
"Smalltalk at: #LogStartupDebugAids put: true."
8
 
"Install change set"
9
 
ChangeSet installNewUpdates.
10
 
"System configurations"
11
 
Utilities setAuthorName: 'Hilaire Fernandes' initials: 'hlsf'.
12
 
Preferences at: #logDebuggerStackToFile put: true.
13
 
Preferences at: #autoNumberUserChanges put: false.
14
 
"Install DrGeo code"
15
 
Feature require: #'DrGeo'.
16
 
Feature require: #'DrGeoFrench'.
17
 
"Morphic operation, to handle with care"
18
 
world := UISupervisor ui.
19
 
[
20
 
        (Delay forSeconds: 1) wait.
21
 
        UISupervisor whenUIinSafeState: [
22
 
                (world submorphs reject: [:aMorph | aMorph is: #TaskbarMorph])
23
 
                        do: [:each | each delete].
24
 
                "Adjust font size"
25
 
                Preferences at: #defaultFontSize put: 10.
26
 
                "Adjust taskbar size"
27
 
                morph := world taskbar.
28
 
                morph scale: 1/2.
29
 
                Display fullScreenMode: true.
30
 
                "Compute the available free space for windows placement"
31
 
                area := RealEstateAgent maximumUsableArea extendBy: 0 @ morph morphHeight negated.
32
 
                extent := area extent // 2.
33
 
                "Open a few System Browsers"
34
 
                BrowserWindow openBrowser 
35
 
                        morphPosition: 0@0;
36
 
                        morphExtent: extent.
37
 
                BrowserWindow openBrowser 
38
 
                        morphPosition: area width // 2 @ 0; 
39
 
                        morphExtent: extent.
40
 
                "Open a System Browser on a specific class"
41
 
                morph := BrowserWindow openBrowser 
42
 
                        morphPosition: area extent // 2;
43
 
                        morphExtent: extent.
44
 
                morph model setClass: (Smalltalk at: #DrGeo) selector: nil.
45
 
                "Open a Workspace with some default contents"
46
 
                morph := Workspace openWorkspace.
47
 
                morph model actualContents: 'ChangeSet installNewUpdates.
48
 
DrGeoSystem beDevelopment.
49
 
DrGeoSystem beWorkstation.
50
 
DrGeo new.
51
 
NaturalLanguageTranslator privateStartUp .
52
 
TextDomainManager registerCategoryPrefix: ''DrGeo'' domain: ''drgeo''.
53
 
TextDomainManager allKnownDomains.
54
 
DrGSmalltalkSketchBrowser open: DrGeoSystem smalltalkSketchesPath label: ''Browse''.
55
 
DrGSmalltalkSketchEditor open: ''DrGeoSketch new'' label: ''Edit Smalltalk Sketch''.
56
 
PreferenceBrowser open: DrGeoSystem preferences label: ''Dr. Geo Preferences''.
57
 
Smalltalk browseAllSelect: [:m| m pragmas anySatisfy: [:p | p key = #drgeosettings]].
58
 
GetTextExporter exportTemplate.'.
59
 
                morph 
60
 
                        morphPosition: 0 @ (area height // 2);
61
 
                        morphExtent: extent x @ (2 / 3 * extent y).
62
 
                "Open a transcript for logs"
63
 
                TranscriptWindow openTranscript 
64
 
                        morphPosition: 0 @ (area height // 2 + (2 / 3 * extent y));
65
 
                        morphExtent: extent x @ (1 / 3 * extent y ).
66
 
                Smalltalk saveImage ]
67
 
] fork