STXInstaller.st
changeset 2 936a4407697b
parent 1 7ebb34d8f3df
child 3 7b048cdcc856
equal deleted inserted replaced
1:7ebb34d8f3df 2:936a4407697b
   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:[