1081 |
1081 |
1082 progressView showProgressOf: |
1082 progressView showProgressOf: |
1083 [:progressValue :currentAction| |msg| |
1083 [:progressValue :currentAction| |msg| |
1084 |
1084 |
1085 Processor activeProcess withPriority:7 do:[ |
1085 Processor activeProcess withPriority:7 do:[ |
1086 actionPercentageHolder := progressValue. |
1086 [ |
1087 actionTextHolder := currentAction. |
1087 actionPercentageHolder := progressValue. |
1088 |
1088 actionTextHolder := currentAction. |
1089 fullInstallation ifFalse:[ |
1089 |
1090 self outputInitialMessage. |
1090 fullInstallation ifFalse:[ |
1091 ]. |
1091 self outputInitialMessage. |
1092 |
1092 ]. |
1093 (self createDirectories) ifTrue:[ |
1093 |
1094 doDfMonitoring := true. |
1094 (self createDirectories) ifTrue:[ |
1095 ok := self copyFiles |
1095 doDfMonitoring := true. |
1096 ]. |
1096 ok := self copyFiles |
1097 self createSymbolicLinks. |
1097 ]. |
1098 |
1098 self createSymbolicLinks. |
1099 progressValue value:100. |
1099 |
1100 |
1100 progressValue value:100. |
1101 progressView topView abortButton label:(resources string:'continue'). |
1101 |
1102 progressView topView abortButton action:[progressView topView hide]. |
1102 progressView topView abortButton label:(resources string:'continue'). |
1103 msg := (resources |
1103 progressView topView abortButton action:[progressView topView hide]. |
1104 array:#('ST/X Installation finished.' '' 'press continue ...' '' '' '')) |
1104 msg := (resources |
1105 asStringCollection. |
1105 array:#('ST/X Installation finished.' '' 'press continue ...' '' '' '')) |
1106 actionTextHolder value:nil. |
1106 asStringCollection. |
1107 actionTextHolder value:msg. |
1107 actionTextHolder value:nil. |
|
1108 actionTextHolder value:msg. |
|
1109 ] valueOnUnwindDo:[ |
|
1110 dfMonitorProcess notNil ifTrue:[ |
|
1111 dfMonitorProcess terminate. |
|
1112 dfMonitorProcess := nil. |
|
1113 ]. |
|
1114 copyProcess notNil ifTrue:[ |
|
1115 copyProcess terminate. |
|
1116 copyProcess := nil. |
|
1117 ]. |
|
1118 ] |
1108 ] |
1119 ] |
1109 ]. |
1120 ]. |
1110 |
1121 |
1111 dfMonitorProcess notNil ifTrue:[ |
1122 dfMonitorProcess notNil ifTrue:[ |
1112 dfMonitorProcess terminate |
1123 dfMonitorProcess terminate. |
|
1124 dfMonitorProcess := nil. |
1113 ]. |
1125 ]. |
1114 copyProcess notNil ifTrue:[ |
1126 copyProcess notNil ifTrue:[ |
1115 copyProcess terminate. |
1127 copyProcess terminate. |
1116 copyProcess := nil. |
1128 copyProcess := nil. |
1117 ]. |
1129 ]. |