439 topDirPrefix := '..\..\'. |
439 topDirPrefix := '..\..\'. |
440 ]. |
440 ]. |
441 |
441 |
442 installWhat == #full ifTrue:[ |
442 installWhat == #full ifTrue:[ |
443 "/ MUST be under stx (for packagePath stuff) |
443 "/ MUST be under stx (for packagePath stuff) |
444 fullDir := fullDir asFilename constructString:'stx'. |
444 fullDir asFilename baseName ~= 'stx' ifTrue:[ |
445 |
445 fullDir := fullDir asFilename constructString:'stx'. |
|
446 ]. |
|
447 |
446 msg at:4 put:(' all from CD' asText allBold). |
448 msg at:4 put:(' all from CD' asText allBold). |
447 msg at:6 put:' ' , (fullDir asText allBold). |
449 msg at:6 put:' ' , (fullDir asText allBold). |
448 actionTextHolder value:nil. |
450 actionTextHolder value:nil. |
449 actionTextHolder value:msg. |
451 actionTextHolder value:msg. |
450 |
452 |
451 actionPercentageHolder value:-1. |
453 actionPercentageHolder value:-1. |
452 OperatingSystem isUNIXlike ifTrue:[ |
454 OperatingSystem isUNIXlike ifTrue:[ |
|
455 cmd := '(cd ' , topDir , '/doc/online ; find . -type s -exec rm {} \; )'. |
|
456 commandTraceView showCR:'removing symbolic links ...'. |
|
457 commandTraceView endEntry. |
|
458 self executeCommandAndShowOutput:cmd emphasize:false. |
|
459 self halt. |
453 cmd := '(cd ' , topDir , ' ; tar cf - .) | (cd ' , fullDir , ' ; tar xvf -)'. |
460 cmd := '(cd ' , topDir , ' ; tar cf - .) | (cd ' , fullDir , ' ; tar xvf -)'. |
454 commandTraceView showCR:'copying ...'. |
461 commandTraceView showCR:'copying ...'. |
455 commandTraceView endEntry. |
462 commandTraceView endEntry. |
456 cmd := cmd , ' 2>&1' . |
463 cmd := cmd , ' 2>&1' . |
457 |
464 |
458 self executeCommandAndShowOutput:cmd emphasize:false. |
465 self executeCommandAndShowOutput:cmd emphasize:false. |
|
466 |
|
467 cmd := '(cd ' , fullDir , '/doc/online ; make )'. |
|
468 commandTraceView showCR:'creating symbolic links ...'. |
|
469 commandTraceView endEntry. |
|
470 self executeCommandAndShowOutput:cmd emphasize:false. |
|
471 |
459 ] ifFalse:[ |
472 ] ifFalse:[ |
460 fullDir asFilename exists ifFalse:[ |
473 fullDir asFilename exists ifFalse:[ |
461 commandTraceView showCR:(resources string:'creating %1 ...' with:fullDir asFilename pathName). |
474 commandTraceView showCR:(resources string:'creating %1 ...' with:fullDir asFilename pathName). |
462 commandTraceView endEntry. |
475 commandTraceView endEntry. |
463 OperatingSystem recursiveCreateDirectory:fullDir asFilename pathName |
476 OperatingSystem recursiveCreateDirectory:fullDir asFilename pathName |
1497 v := View new preferredExtent:(250 @ 350). |
1510 v := View new preferredExtent:(250 @ 350). |
1498 |
1511 |
1499 textView := HVScrollableView for:TextCollector in:v. |
1512 textView := HVScrollableView for:TextCollector in:v. |
1500 textView origin:0.0@0.0 corner:1.0@1.0. |
1513 textView origin:0.0@0.0 corner:1.0@1.0. |
1501 textView bottomInset:30. |
1514 textView bottomInset:30. |
1502 textView lineLimit:6000. |
1515 textView lineLimit:10000. |
1503 commandTraceView := textView scrolledView. |
1516 commandTraceView := textView scrolledView. |
1504 |
1517 |
1505 installWhat == #full ifTrue:[ |
1518 installWhat == #full ifTrue:[ |
1506 dirToMonitor := fullDir. |
1519 dirToMonitor := fullDir. |
1507 ] ifFalse:[ |
1520 ] ifFalse:[ |