~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to src/setupDrGeoDevelopment.st

  • Committer: Hilaire Fernandes
  • Date: 2023-11-02 16:05:34 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20231102160534-toafcjq7329ory2n
Update build scripts

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
| list area morph extent |
 
1
| world area morph extent |
2
2
"Report by any mean error"
3
3
Transcript
4
4
   showOnDisplay: false;
14
14
"Install DrGeo code"
15
15
Feature require: #'DrGeo'.
16
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: 10.
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.
 
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.
46
48
DrGeoSystem beDevelopment.
47
49
DrGeoSystem beWorkstation.
48
50
DrGeo new.
54
56
PreferenceBrowser open: DrGeoSystem preferences label: ''Dr. Geo Preferences''.
55
57
Smalltalk browseAllSelect: [:m| m pragmas anySatisfy: [:p | p key = #drgeosettings]].
56
58
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
 
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