~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to src/setupDrGeoDevelopment.st

  • Committer: Hilaire Fernandes
  • Date: 2023-07-31 10:14:22 UTC
  • Revision ID: hilaire@drgeo.eu-20230731101422-e7sb8hfsrc0fp11p
Retrieve Cuis release number

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
| list 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
 
"Delete all windows but the taskbar"
18
 
self runningWorld doOneCycleNow.
19
 
list := UISupervisor ui submorphs reject: [:aMorph | aMorph is: #TaskbarMorph].
20
 
 list do: [:each | each delete].
21
 
"Adjust font size"
22
 
Preferences at: #defaultFontSize put: 11.
23
 
"Adjust taskbar size"
24
 
morph := UISupervisor ui taskbar.
25
 
morph scale: 1/2.
26
 
Display fullScreenMode: true.
27
 
self runningWorld doOneCycleNow.
28
 
"Compute the available free space for windows placement"
29
 
area _ RealEstateAgent maximumUsableArea extendBy: 0 @ morph morphHeight negated.
30
 
extent _ area extent // 2.
31
 
"Open a few System Browsers"
32
 
BrowserWindow openBrowser 
33
 
        morphPosition: 0@0;
34
 
        morphExtent: extent.
35
 
BrowserWindow openBrowser 
36
 
        morphPosition: area width // 2 @ 0; 
37
 
        morphExtent: extent.
38
 
"Open a System Browser on a specific class"
39
 
morph _ BrowserWindow openBrowser 
40
 
        morphPosition: area extent // 2;
41
 
        morphExtent: extent.
42
 
morph model setClass: (Smalltalk at: #DrGeo) selector: nil.
43
 
"Open a Workspace with some default contents"
44
 
morph _ Workspace openWorkspace.
45
 
morph model actualContents: 'ChangeSet installNewUpdates.
46
 
DrGeoSystem beDevelopment.
47
 
DrGeoSystem beWorkstation.
48
 
DrGeo new.
49
 
NaturalLanguageTranslator privateStartUp .
50
 
TextDomainManager registerCategoryPrefix: ''DrGeo'' domain: ''drgeo''.
51
 
TextDomainManager allKnownDomains.
52
 
DrGSmalltalkSketchBrowser open: DrGeoSystem smalltalkSketchesPath label: ''Browse''.
53
 
DrGSmalltalkSketchEditor open: ''DrGeoSketch new'' label: ''Edit Smalltalk Sketch''.
54
 
PreferenceBrowser open: DrGeoSystem preferences label: ''Dr. Geo Preferences''.
55
 
Smalltalk browseAllSelect: [:m| m pragmas anySatisfy: [:p | p key = #drgeosettings]].
56
 
GetTextExporter exportTemplate.'.
57
 
morph 
58
 
        morphPosition: 0 @ (area height // 2);
59
 
        morphExtent: extent x @ (2 / 3 * extent y).
60
 
"Open a transcript for logs"
61
 
TranscriptWindow openTranscript 
62
 
        morphPosition: 0 @ (area height // 2 + (2 / 3 * extent y));
63
 
        morphExtent: extent x @ (1 / 3 * extent y ).
64
 
Smalltalk saveImage