author | Claus Gittinger <cg@exept.de> |
Tue, 10 Sep 1996 13:46:44 +0200 | |
changeset 6 | e08461c725fd |
parent 5 | 16cff74f42b0 |
child 7 | 1867a0ff352a |
STXInstaller.st | file | annotate | diff | comparison | revisions |
--- a/STXInstaller.st Mon Sep 09 23:53:16 1996 +0200 +++ b/STXInstaller.st Tue Sep 10 13:46:44 1996 +0200 @@ -503,6 +503,8 @@ (self createDirectories) ifTrue:[ ok := self copyFiles ]. + progressValue value:100. + progressView topView abortButton label:'continue'. progressView topView abortButton action:[progressView topView hide]. msg := #('ST/X Installation finished.' '' 'press continue ...' '' '' '') asStringCollection.