! install GLASS package.
!
!  expects Monticello to already be loaded.
!
!  expects .mcz files http://seaside.gemstone.com/ss/GLASS
!
ifError where
errorCount
output push glassInstall.out only
display resultcheck
errorCount

! install into UserGlobals
run
| policy |
policy := GsPackagePolicy current.
policy homeSymbolDict:  UserGlobals.
policy externalSymbolList: Array new.
true
%

errorCount
commit

run
| httpRepository |
httpRepository := MCHttpRepository
    location: 'http://seaside.gemstone.com/ss/GLASS'
    user: ''
    password: ''.
"pick up the GLASS repository if it's already in default repository group"
MCRepositoryGroup default repositoriesDo: [:rep |
	rep = httpRepository ifTrue: [ httpRepository := rep ]].
#[	
    'GLASS-dkh.114.mcz',

]do: [:fileName | | version rg |
    version := httpRepository loadVersionFromFileNamed: fileName.
    [ version load ] 
      on: OBConfirmationRequest
      do: [:ex | 
        "answer ok"
        GsFile gciLogServer: 'Answering okay to: ', ex prompt printString.
        ex ok ].
    rg := version workingCopy repositoryGroup.
    rg addRepository: httpRepository.
].
true
%

errorCount
commit

output pop
errorCount
