'Copyright (C) 1998 by Masashi Umezawa  All rights reserved.'!
"Release Version  0.8 1998 09/04"
"Install script for Greed in Smalltalk"
| fPath greedFiles |
(Object canUnderstand: #when:send:to:) ifFalse:[ Dialog warn: 'Please install system event framework!! Greed cannot run!!']. 
greedFiles := #('Greed-Entity.st' 'Greed-Control.st' 'Greed-Boundary.st' 'Greed-Facade.st').
fPath := Dialog requestFileName: 'Please enter path of greed files..'  default: 'greedPath'.
greedFiles do:[:each | (fPath asFilename construct: each) fileIn].
(SimpleHelp helpString: 'Installation complete!! 
JUST DO IT "Greed start"') open !