equal
deleted
inserted
replaced
501 actionTextHolder := currentAction. |
501 actionTextHolder := currentAction. |
502 |
502 |
503 (self createDirectories) ifTrue:[ |
503 (self createDirectories) ifTrue:[ |
504 ok := self copyFiles |
504 ok := self copyFiles |
505 ]. |
505 ]. |
|
506 progressValue value:100. |
|
507 |
506 progressView topView abortButton label:'continue'. |
508 progressView topView abortButton label:'continue'. |
507 progressView topView abortButton action:[progressView topView hide]. |
509 progressView topView abortButton action:[progressView topView hide]. |
508 msg := #('ST/X Installation finished.' '' 'press continue ...' '' '' '') asStringCollection. |
510 msg := #('ST/X Installation finished.' '' 'press continue ...' '' '' '') asStringCollection. |
509 actionTextHolder value:nil. |
511 actionTextHolder value:nil. |
510 actionTextHolder value:msg. |
512 actionTextHolder value:msg. |