equal
deleted
inserted
replaced
920 |
920 |
921 removeMakefilesInDoc |
921 removeMakefilesInDoc |
922 |cmd msg| |
922 |cmd msg| |
923 |
923 |
924 OperatingSystem isUNIXlike ifFalse:[ ^ self ]. |
924 OperatingSystem isUNIXlike ifFalse:[ ^ self ]. |
|
925 installWhat == #full ifTrue:[^ self]. |
925 |
926 |
926 installDocFiles ifTrue:[ |
927 installDocFiles ifTrue:[ |
927 msg := (resources array:#('ST/X Installation' '' 'removing useless makefiles in doc' '' '' '')) asStringCollection. |
928 msg := (resources array:#('ST/X Installation' '' 'removing useless makefiles in doc' '' '' '')) asStringCollection. |
928 actionTextHolder value:nil. |
929 actionTextHolder value:nil. |
929 actionTextHolder value:msg. |
930 actionTextHolder value:msg. |
1488 v := View new preferredExtent:(250 @ 350). |
1489 v := View new preferredExtent:(250 @ 350). |
1489 |
1490 |
1490 textView := HVScrollableView for:TextCollector in:v. |
1491 textView := HVScrollableView for:TextCollector in:v. |
1491 textView origin:0.0@0.0 corner:1.0@1.0. |
1492 textView origin:0.0@0.0 corner:1.0@1.0. |
1492 textView bottomInset:30. |
1493 textView bottomInset:30. |
|
1494 textView lineLimit:6000. |
1493 commandTraceView := textView scrolledView. |
1495 commandTraceView := textView scrolledView. |
1494 |
1496 |
1495 installWhat == #full ifTrue:[ |
1497 installWhat == #full ifTrue:[ |
1496 dirToMonitor := fullDir. |
1498 dirToMonitor := fullDir. |
1497 ] ifFalse:[ |
1499 ] ifFalse:[ |