← Back to branch summary

~drgeo-developers/drgeo/trunk

« back to all changes in this revision

Viewing changes to images/install-drgeo-clean.st

  • Committer: Hilaire Fernandes
  • Date: 2012-01-27 21:15:40 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20120127211540-912spf97bhpx6mve
Initial additions

Show diffs side-by-side

added added

removed removed

Lines of Context:
images/install-drgeo-clean.st
 
1
Gofer new
 
2
   url: 'http://www.squeaksource.com/MetacelloRepository';
 
3
   package: 'ConfigurationOfOCompletion';
 
4
   load.
 
5
((Smalltalk at: #ConfigurationOfOCompletion) project version: '1.4') load.              
 
6
 
 
7
Gofer new
 
8
   url: 'http://www.squeaksource.com/MetacelloRepository';
 
9
   package: 'ConfigurationOfShout';
 
10
   load.
 
11
((Smalltalk at: #ConfigurationOfShout) project version: '1.3') load.            
 
12
 
 
13
Gofer new
 
14
   url: 'http://www.squeaksource.com/DrGeoII';
 
15
   package: 'ConfigurationOfDrGeo';
 
16
   load.
 
17
(Smalltalk at: #ConfigurationOfDrGeo ) perform:#load.
 
18
 
 
19
Gofer new
 
20
   url: 'http://www.squeaksource.com/PharoNonCorePackages';
 
21
   package: 'ConfigurationOfGettext';
 
22
   load.
 
23
(Smalltalk at: #ConfigurationOfGettext) perform:#load.
 
24
 
 
25
 
 
26
UIThemeWatery2 resetDefaultSettings.
 
27
PolymorphSystemSettings uiThemeClass:  UIThemeWatery2.
 
28
 
 
29
DrGeo addStartUp.
 
30
TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'.
 
31
Locale activated: true.
 
32
 
 
33
WorldState desktopMenuTitle: 'Dr. Geo'.
 
34
WorldState desktopMenuPragmaKeyword:  'drgeoMenu'.
 
35
 
 
36
"Clean for production then install font, and clean again to remove the unused fonts"
 
37
DrGDistroInfo cleanUpForRelease.
 
38
 
 
39
Gofer new
 
40
   url: 'http://www.squeaksource.com/DejaVu';
 
41
   package: 'DejaVuBitmapFonts';
 
42
   load.
 
43
 
 
44
(Smalltalk at: #DejaVuHolder) perform: #installSizes: with: #(9 11).
 
45
StandardFonts setDefaultFonts: #(
 
46
   (codeFont: 'Bitmap DejaVu Sans Regular' 11)
 
47
   (listFont: 'Bitmap DejaVu Sans Regular' 11)
 
48
   (menuFont: 'Bitmap DejaVu Sans Regular' 11)
 
49
   (windowTitleFont: 'Bitmap DejaVu Sans Regular' 11)
 
50
   (balloonFont: 'Bitmap DejaVu Sans Regular' 9)
 
51
   (haloFont: 'Bitmap DejaVu Sans Regular' 9)
 
52
   (buttonFont: 'Bitmap DejaVu Sans Regular' 11)
 
53
   (defaultFont: 'Bitmap DejaVu Sans Regular' 11)).
 
54
SystemOrganization removeSystemCategory: #DejaVuBitmapFonts.
 
55
StrikeFont cleanUp.
 
56
 
 
57
SmalltalkImage checkSourcesFileAvailability: false.
 
58
SmalltalkImage checkChangesFileAvailability: false.
 
59
 
 
60
 
 
61
Smalltalk saveAs: 'drgeo'.
 
62
World submorphs 
 
63
   select: [:m | m class == (Smalltalk at: #DrGeoWindow)]
 
64
   thenDo: [:drMorph | drMorph deleteWithoutConfirmation ].
 
65
 
 
66
DrGDefault initialize.
 
67
Smalltalk condenseChanges.
 
68
Author fullName: 'DrGeoUser'.
 
69
Smalltalk snapshot: true andQuit: true.
 
70
 
 
71
"Done"
 
72
 
 
73