STXInstaller.st
changeset 1509 e00cdf43c001
parent 1508 ee75546c6820
child 1510 fed60e5a736f
equal deleted inserted replaced
1508:ee75546c6820 1509:e00cdf43c001
   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:[