STXInstaller.st
changeset 1151 4e43271cc266
parent 1150 a3879a40eb37
child 1152 455658443a5f
equal deleted inserted replaced
1150:a3879a40eb37 1151:4e43271cc266
   889     (((here := Filename currentDirectory pathName) endsWith:'projects/smalltalk') not
   889     (((here := Filename currentDirectory pathName) endsWith:'projects/smalltalk') not
   890     and:[(here asLowercase endsWith:'stx\binbc') not
   890     and:[(here asLowercase endsWith:'stx\binbc') not
   891     and:[(here asLowercase endsWith:'projects\smalltalk') not
   891     and:[(here asLowercase endsWith:'projects\smalltalk') not
   892     ]]) ifTrue:[
   892     ]]) ifTrue:[
   893         "/ double - check if some of my expected files exists here ...
   893         "/ double - check if some of my expected files exists here ...
   894         ('../libbasic' asFilename exists
   894         ('../../libbasic' asFilename exists
   895         and:['../libbasic' asFilename isDirectory]) ifTrue:[
   895         and:['../../libbasic' asFilename isDirectory]) ifTrue:[
   896             self warn:(resources string:'Oops - current directories name seems to not end with ''/projects/smalltalk''\\Assume its OK.' withCRs).
   896             self warn:(resources string:'Oops - current directories name seems to not end with ''/projects/smalltalk''\\Assume its OK.' withCRs).
   897         ] ifFalse:[
   897         ] ifFalse:[
   898             self warn:(resources string:'must be in the ''projects/smalltalk'' directory').
   898             self warn:(resources string:'must be in the ''projects/smalltalk'' directory').
   899             ^ self
   899             ^ self
   900         ]
   900         ]
   993 
   993 
   994     d addHelpButtonFor:'STXInstaller/installHelp.html';
   994     d addHelpButtonFor:'STXInstaller/installHelp.html';
   995       addAbortButton; 
   995       addAbortButton; 
   996       addOkButtonLabelled:(resources string:'install').
   996       addOkButtonLabelled:(resources string:'install').
   997     d extent:500@400.
   997     d extent:500@400.
       
   998     d resize. "/ compute best size
   998 
   999 
   999     d allViewBackground:dark.
  1000     d allViewBackground:dark.
  1000 
  1001 
  1001     d openAtCenter.
  1002     d openAtCenter.
  1002     d accepted ifTrue:[
  1003     d accepted ifTrue:[
  1198 
  1199 
  1199     d addHelpButtonFor:'STXInstaller/installHelp.html';
  1200     d addHelpButtonFor:'STXInstaller/installHelp.html';
  1200       addAbortButton; 
  1201       addAbortButton; 
  1201       addOkButtonLabelled:(resources string:'install').
  1202       addOkButtonLabelled:(resources string:'install').
  1202     d extent:500@400.
  1203     d extent:500@400.
       
  1204     d resize. "/ compute best size
  1203 
  1205 
  1204     d allViewBackground:dark.
  1206     d allViewBackground:dark.
  1205 
  1207 
  1206     d openAtCenter.
  1208     d openAtCenter.
  1207     d accepted ifTrue:[
  1209     d accepted ifTrue:[
  1275 This is also required if you want to link your own standalone executables.
  1277 This is also required if you want to link your own standalone executables.
  1276 
  1278 
  1277 It consists of a directory hierachy, including makefiles for a customizeable 
  1279 It consists of a directory hierachy, including makefiles for a customizeable 
  1278 rebuild of the whole smalltalk system.
  1280 rebuild of the whole smalltalk system.
  1279 (Actually, it simply copies the whole CD contents onto your disk).
  1281 (Actually, it simply copies the whole CD contents onto your disk).
  1280 This requires roughly 120-200Mb of hard disk space.').
  1282 This requires roughly 120-250Mb of hard disk space (dep. upon architecture).').
  1281     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
  1283     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
  1282 
  1284 
  1283     d addVerticalSpace.
  1285     d addVerticalSpace.
  1284     d addHorizontalLine.
  1286     d addHorizontalLine.
  1285 
  1287 
  1287 'partial:' asText allBold , '
  1289 'partial:' asText allBold , '
  1288 The partial (runTime) installation requires less disk space and only copies the
  1290 The partial (runTime) installation requires less disk space and only copies the
  1289 smalltalk executable, shared libraries and support files onto your hard disk.
  1291 smalltalk executable, shared libraries and support files onto your hard disk.
  1290 This setup allows normal smalltalk development and is also useful as a runtime
  1292 This setup allows normal smalltalk development and is also useful as a runtime
  1291 environment for smalltalk applications.
  1293 environment for smalltalk applications.
  1292 However, it does not support recreation of a new smalltal executable and/or
  1294 However, it does not support recreation of a new smalltalk executable and/or
  1293 shared binary classLibraries.
  1295 shared binary classLibraries.
  1294 This requires roughly 70-90Mb of hard disk space.
  1296 This setup also saves a lot of disk space, if multiple users are going to
       
  1297 use smalltalk, since most of the code is shared (both on disk and in memory).
       
  1298 This requires roughly 70-120Mb of hard disk space (dep. upon architecture).
  1295 
  1299 
  1296 
  1300 
  1297  ').
  1301  ').
  1298     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
  1302     l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
  1299 
  1303 
  1305 
  1309 
  1306     d addHelpButtonFor:'STXInstaller/installHelp.html';
  1310     d addHelpButtonFor:'STXInstaller/installHelp.html';
  1307       addAbortButton; 
  1311       addAbortButton; 
  1308       addOkButton:(Button label:(resources string:'full') action:[installWhat := #full]);
  1312       addOkButton:(Button label:(resources string:'full') action:[installWhat := #full]);
  1309       addOkButtonLabelled:(resources string:'partial').
  1313       addOkButtonLabelled:(resources string:'partial').
  1310     d extent:500@400.
  1314     d extent:500@500.
       
  1315     d resize.    "/ compute best size ...
  1311 
  1316 
  1312     d allViewBackground:dark.
  1317     d allViewBackground:dark.
  1313 
  1318 
  1314     installWhat := #partial.
  1319     installWhat := #partial.
  1315     d openAtCenter.
  1320     d openAtCenter.