equal
deleted
inserted
replaced
263 ! |
263 ! |
264 |
264 |
265 askForDestination |
265 askForDestination |
266 "open a dialog to enter destination directories" |
266 "open a dialog to enter destination directories" |
267 |
267 |
268 |d cm l green dark |
268 |d cm l green dark img |
269 stxLibDirHolder stxBinDirHolder |
269 stxLibDirHolder stxBinDirHolder |
270 | |
270 | |
271 |
271 |
272 LastLibDir isNil ifTrue:[ |
272 LastLibDir isNil ifTrue:[ |
273 LastLibDir := '/usr/local/lib/smalltalk' |
273 LastLibDir := '/usr/local/lib/smalltalk' |
288 ]. |
288 ]. |
289 |
289 |
290 d := DialogBox new. |
290 d := DialogBox new. |
291 |
291 |
292 d label:'ST/X CD Installation'. |
292 d label:'ST/X CD Installation'. |
|
293 img := Image fromFile:'SmalltalkX.xbm'. |
|
294 |
|
295 l := d addTextLabel:img. |
|
296 l adjust:#left; foregroundColor:green backgroundColor:dark. |
|
297 |
293 l := d addTextLabel:'Smalltalk/X CD installation.'. |
298 l := d addTextLabel:'Smalltalk/X CD installation.'. |
294 l adjust:#left; backgroundColor:dark; foregroundColor:Color white. |
299 l adjust:#left; backgroundColor:dark; foregroundColor:Color white. |
295 d addVerticalSpace. |
300 d addVerticalSpace. |
296 d addVerticalSpace. |
301 d addVerticalSpace. |
297 |
302 |
350 |
355 |
351 stxLibDir asFilename exists ifTrue:[ |
356 stxLibDir asFilename exists ifTrue:[ |
352 whatToDo := Dialog |
357 whatToDo := Dialog |
353 choose:('detected existing installation in ' |
358 choose:('detected existing installation in ' |
354 , stxLibDir asText allBold) |
359 , stxLibDir asText allBold) |
|
360 label:'Attention' |
355 labels:#('remove first' 'overwrite' 'cancel') |
361 labels:#('remove first' 'overwrite' 'cancel') |
356 values:#(remove over nil) |
362 values:#(remove over nil) |
357 default:nil. |
363 default:nil. |
358 whatToDo isNil ifTrue:[^false]. |
364 whatToDo isNil ifTrue:[^false]. |
359 whatToDo == #remove ifTrue:[ |
365 whatToDo == #remove ifTrue:[ |