STXInstaller.st
author Claus Gittinger <cg@exept.de>
Mon, 31 May 1999 17:49:16 +0200
changeset 1137 77c59731e289
parent 1136 f861c61ca047
child 1138 66190ee44a6a
permissions -rw-r--r--
checkin from browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
Object subclass:#STXInstaller
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
     2
	instanceVariableNames:'stxLibDir stxLibBinDir stxBinDir installDocFiles
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
     3
		installSourceFiles installSTCFiles installGoodyFiles fullDir
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
     4
		actionPercentageHolder actionTextHolder commandTraceView
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
     5
		resources dfHolder copyProcess installWhat'
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
     6
	classVariableNames:'LastPartialDir LastBinDir LastLibBinDir LastLibDir LastFullDir'
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	poolDictionaries:''
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	category:'eXept-tools'
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
!
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
28
b3a8378dd626 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 27
diff changeset
    12
!STXInstaller class methodsFor:'startup'!
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
open
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
    ^ self new open
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
    17
    "
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
    18
     STXInstaller open
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
    19
    "
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    20
! !
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    21
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    22
!STXInstaller methodsFor:'defaults'!
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    23
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    24
defaultBinDirs
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    25
    |dirs stxRel|
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    26
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    27
    stxRel := self smalltalkRelease.
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    28
    dirs := OrderedCollection new.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    29
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    30
    OperatingSystem isMSWINDOWSlike ifTrue:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    31
        dirs add:'c:\Programme\eXept\SmalltalkX\' , stxRel , '\bin'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    32
        dirs add:'c:\Programme\SmalltalkX\' , stxRel , '\bin'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    33
        dirs add:'c:\SmalltalkX\' , stxRel , '\bin'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    34
    ] ifFalse:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    35
        dirs add:'/opt/smalltalk/' , stxRel , '/bin'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    36
        dirs add:'/usr/local/bin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    37
        dirs add:'/usr/bin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    38
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    39
        dirs add:(Filename homeDirectory constructString:'bin').
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    40
        dirs add:((Filename homeDirectory 
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    41
                                construct:'stx')
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    42
                                constructString:'bin').
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    43
        dirs add:'/tmp/stxbin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    44
        ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    45
            dirs add:'/home/stx/bin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    46
        ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    47
        ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    48
            dirs add:'/home2/stx/bin'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    49
        ].
3
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    50
    ].
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    51
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    52
"/    dirs := dirs select:[:path | 
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    53
"/                            |f|
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    54
"/
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    55
"/                            f := path asFilename.
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
    56
"/                            f exists and:[f isDirectory]].
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
    57
    ^ dirs "sort"
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    58
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    59
    "Created: / 18.7.1996 / 19:43:00 / cg"
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    60
    "Modified: / 31.5.1999 / 12:11:48 / cg"
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    61
!
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
    62
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    63
defaultFullDirs
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    64
    |dirs|
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    65
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    66
    dirs := OrderedCollection new.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    67
    dirs add:(Filename homeDirectory constructString:'stxDevelop').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    68
    dirs add:((Filename homeDirectory 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    69
                            construct:'stx')
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    70
                            constructString:'develop').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    71
    ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    72
        dirs add:'/home/stx/develop'.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    73
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    74
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
    75
    ^ dirs "sort"
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    76
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    77
    "Modified: / 18.7.1996 / 19:45:08 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    78
    "Created: / 25.2.1998 / 17:14:43 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    79
!
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
    80
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
    81
defaultLibBinDirs
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    82
    |dirs stxRel|
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
    83
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    84
    stxRel := self smalltalkRelease.
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
    85
    dirs := OrderedCollection new.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    86
    OperatingSystem isMSWINDOWSlike ifTrue:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    87
        dirs add:'c:\Programme\eXept\SmalltalkX\' , stxRel , '\lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    88
        dirs add:'c:\Programme\SmalltalkX\' , stxRel , '\lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    89
        dirs add:'c:\SmalltalkX\' , stxRel , '\lib'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    90
    ] ifFalse:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
    91
        dirs add:'/opt/smalltalk/' , stxRel , '/lib'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    92
        dirs add:'/usr/local/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    93
        dirs add:'/usr/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    94
        dirs add:'/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    95
        dirs add:(Filename homeDirectory 
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    96
                                constructString:'lib').
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
    97
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    98
        dirs add:((Filename homeDirectory 
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
    99
                                construct:'stx')
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   100
                                constructString:'lib').
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   101
        dirs add:'/tmp/stxlib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   102
        dirs add:'/home/stx/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   103
        dirs add:'/home2/stx/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   104
    ].
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   105
    ^ dirs sort
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   106
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   107
    "Created: / 18.7.1996 / 19:43:21 / cg"
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   108
    "Modified: / 31.5.1999 / 12:12:17 / cg"
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   109
!
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   110
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   111
defaultLibDirs
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   112
    |dirs stxRel|
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   113
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   114
    stxRel := self smalltalkRelease.
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   115
    dirs := OrderedCollection new.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   116
    OperatingSystem isMSWINDOWSlike ifTrue:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   117
        dirs add:'c:\Programme\eXept\SmalltalkX\' , stxRel , '\lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   118
        dirs add:'c:\Programme\SmalltalkX\' , stxRel , '\lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   119
        dirs add:'c:\SmalltalkX\' , stxRel , '\lib'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   120
    ] ifFalse:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   121
        dirs add:'/opt/smalltalk/' , stxRel , '/lib'.
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   122
        dirs add:'/usr/local/lib/smalltalk'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   123
        dirs add:'/usr/lib/smalltalk'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   124
        dirs add:((Filename homeDirectory 
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   125
                                construct:'lib')
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   126
                                constructString:'smalltalk').
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   127
        dirs add:((Filename homeDirectory 
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   128
                                construct:'stx')
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   129
                                constructString:'lib').
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   130
        dirs add:'/tmp/stxlib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   131
        dirs add:'/home/stx/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   132
        dirs add:'/home2/stx/lib'.
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   133
    ].
3
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   134
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   135
"/    dirs := dirs select:[:path | 
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   136
"/                            |f|
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   137
"/
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   138
"/                            f := path asFilename.
7b048cdcc856 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2
diff changeset
   139
"/                            f exists and:[f isDirectory]].
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   140
    ^ dirs "sort"
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   141
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   142
    "Created: / 18.7.1996 / 19:43:21 / cg"
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   143
    "Modified: / 31.5.1999 / 12:12:30 / cg"
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   144
!
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   146
directoriesToMake
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   147
    |dirsToMake|
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   149
    dirsToMake := OrderedCollection new.
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
   150
    installWhat == #full ifTrue:[
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   151
        dirsToMake add:fullDir.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   152
    ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   153
        dirsToMake add:stxBinDir.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   154
        dirsToMake add:stxLibDir.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   155
        dirsToMake add:stxLibBinDir.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   156
        dirsToMake add:(stxLibDir asFilename constructString:'configurations').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   157
        dirsToMake add:(stxLibDir asFilename constructString:'doc').
1137
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   158
        dirsToMake add:((stxLibDir asFilename construct:'doc') constructString:'online').
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   159
        dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'english').
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   160
        dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'german').
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   161
        dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'french').
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   162
        dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'italian').
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   163
        dirsToMake add:(stxLibDir asFilename constructString:'include').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   164
        dirsToMake add:(stxLibDir asFilename constructString:'resources').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   165
        dirsToMake add:(stxLibDir asFilename constructString:'binary').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   166
        dirsToMake add:(stxLibDir asFilename constructString:'bitmaps').
1137
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   167
        installGoodyFiles ifTrue:[
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   168
            dirsToMake add:(stxLibDir asFilename constructString:'goodies').
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   169
        ].
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   170
        installSourceFiles ifTrue:[
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   171
            dirsToMake add:(stxLibDir asFilename constructString:'source').
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   172
        ]
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   173
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   174
    ^ dirsToMake
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
1137
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   176
    "Modified: / 31.5.1999 / 17:42:19 / cg"
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   177
!
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   178
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   179
listOfOptionalPackages
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   180
    ^ #(
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   181
        'libDB'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   182
        'clients/CBrowser'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   183
        'libcompat'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   184
        'libxt'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   185
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   186
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   187
        "/ mhmh - these should not be needed here ...
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   188
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   189
        'projects/smalltalk/bitmaps/javaImages'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   190
        'doc/online/english/overview/icons'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   191
      )
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   192
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   193
    "Created: 2.3.1997 / 12:39:59 / cg"
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   194
    "Modified: 2.3.1997 / 13:24:41 / cg"
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   195
!
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   196
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   197
smalltalkRelease
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   198
    ^ Smalltalk majorVersionNr printString 
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   199
               , '.' , Smalltalk minorVersionNr printString
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   200
               , '.' , Smalltalk revisionNr printString.
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   201
!
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   202
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   203
specOfFilesToCopy
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   204
    OperatingSystem isMSWINDOWSlike ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   205
        ^ self specOfWindowsFilesToCopy
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   206
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   207
    ^ self specOfUnixFilesToCopy
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   208
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   209
    "Modified: / 2.5.1999 / 13:17:59 / cg"
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   210
!
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   211
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   212
specOfUnixFilesToCopy
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   213
    |fileSpec|
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
    fileSpec := #(
27
8c5195f9508a also install stx.
Claus Gittinger <cg@exept.de>
parents: 26
diff changeset
   216
                "/ name                             destination  subDir             required mode      
12
6cb00d713d4d LICENSE texts must always be installed
Claus Gittinger <cg@exept.de>
parents: 11
diff changeset
   217
                ( 'projects/smalltalk/smalltalk'        #bin     nil                  true  '755' )
27
8c5195f9508a also install stx.
Claus Gittinger <cg@exept.de>
parents: 26
diff changeset
   218
                ( 'projects/smalltalk/stx'              #bin     nil                  true  '755' )
12
6cb00d713d4d LICENSE texts must always be installed
Claus Gittinger <cg@exept.de>
parents: 11
diff changeset
   219
                ( 'projects/smalltalk/include'          #lib     nil                  true  '644' )
277
935f9a055594 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 276
diff changeset
   220
                ( 'COPYRIGHT'                           #lib     nil                  true  '644' )
12
6cb00d713d4d LICENSE texts must always be installed
Claus Gittinger <cg@exept.de>
parents: 11
diff changeset
   221
                ( 'projects/smalltalk/*.rc'             #lib     nil                  true  '644' )
6cb00d713d4d LICENSE texts must always be installed
Claus Gittinger <cg@exept.de>
parents: 11
diff changeset
   222
                ( 'projects/smalltalk/patches'          #lib     nil                  true  '644' )
6cb00d713d4d LICENSE texts must always be installed
Claus Gittinger <cg@exept.de>
parents: 11
diff changeset
   223
                ( 'projects/smalltalk/bitmaps'          #lib     nil                  true  '644' )
6cb00d713d4d LICENSE texts must always be installed
Claus Gittinger <cg@exept.de>
parents: 11
diff changeset
   224
                ( 'projects/smalltalk/resources'        #lib     nil                  true  '644' )
6cb00d713d4d LICENSE texts must always be installed
Claus Gittinger <cg@exept.de>
parents: 11
diff changeset
   225
                ( 'projects/smalltalk/lib'              #lib     nil                  true  '644' )
16
e41abdee193f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 15
diff changeset
   226
                ( 'doc/online/german/LICENCE.STX.html'  #lib     'doc/online/german'  true  '644' )
277
935f9a055594 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 276
diff changeset
   227
                ( 'doc/online/english/LICENCE.STX.html' #lib     'doc/online/english' true  '644' )
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   228
    ).
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   230
    installDocFiles ifTrue:[
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   231
        fileSpec := fileSpec , #(
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   232
                ( 'doc'                                  #lib     nil        false '644' )
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   233
        ).
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   234
    ].
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   235
9
9f31213107b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 8
diff changeset
   236
    installSourceFiles ifTrue:[
9f31213107b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 8
diff changeset
   237
        fileSpec := fileSpec , #(
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   238
                ( 'projects/smalltalk/source'                #lib        nil        false '644' )
9
9f31213107b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 8
diff changeset
   239
        ).
9f31213107b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 8
diff changeset
   240
    ].
9f31213107b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 8
diff changeset
   241
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   242
    installSTCFiles ifTrue:[
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   243
        fileSpec := fileSpec , #(
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   244
                ( 'stc/stc'                                  #bin        nil              false '755' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   245
                ( 'rules/stmkmp'                             #bin        nil              false '755' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   246
                ( 'rules/stmkmf'                             #bin        nil              false '755' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   247
                ( 'include'                                  #lib        nil              false '644' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   248
                ( 'configurations'                           #lib        nil              false '644' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   249
                ( 'configurations/PACKS'                     #lib        'configurations' false '644' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   250
                ( 'configurations/my*'                       #lib        'configurations' false '644' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   251
                ( 'configurations/vendor*'                   #lib        'configurations' false '644' )
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   252
                ( 'rules'                                    #lib        nil              false '644' )
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   253
276
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   254
                ( 'support/VGL/vogl/src/libvogl.*'           #lib        'lib'            false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   255
                ( 'support/VGL/vogl/src/*.h'                 #lib        'include'        false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   256
                ( 'support/DLD/dld-3.2.5/libdld.*'           #lib        'lib'            false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   257
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   258
                ( 'goodies/persistency/db-1.6/PORT/libdb.*'  #lib        'lib'            false '644' )
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
276
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   260
                ( 'librun/librun.*'                          #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   261
                ( 'libbasic/libbasic.*'                      #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   262
                ( 'libbasic2/libbasic2.*'                    #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   263
                ( 'libbasic3/libbasic3.*'                    #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   264
                ( 'libhtml/libhtml.*'                        #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   265
                ( 'libcomp/libcomp.*'                        #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   266
                ( 'libcomp/ObjFL*.o'                         #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   267
                ( 'libcomp/ObjFL*.obj'                       #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   268
                ( 'libcomp/ObjFL*.so'                        #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   269
                ( 'libview/libview.*'                        #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   270
                ( 'libview/GLX*.o'                           #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   271
                ( 'libview/GLX*.obj'                         #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   272
                ( 'libview/GLX*.so'                          #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   273
                ( 'libview/XW*.o'                            #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   274
                ( 'libview/XW*.obj'                          #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   275
                ( 'libview/XW*.so'                           #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   276
                ( 'libview2/libview2.*'                      #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   277
                ( 'libwidg/libwidg.*'                        #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   278
                ( 'libwidg2/libwidg2.*'                      #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   279
                ( 'libwidg3/libwidg3.*'                      #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   280
                ( 'libui/libui.*'                            #libBin     nil              false '644' )
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   281
27
8c5195f9508a also install stx.
Claus Gittinger <cg@exept.de>
parents: 26
diff changeset
   282
"/                ( 'libsnmp/libsnmp.*'                        #libBin     nil      false '644' )
8c5195f9508a also install stx.
Claus Gittinger <cg@exept.de>
parents: 26
diff changeset
   283
"/                ( 'contrib/libPVM/libPVM.*'                  #libBin     nil      false '644' )
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   284
                ( 'goodies/persistency/libdbase.*'           #libBin     nil      false '644' )
27
8c5195f9508a also install stx.
Claus Gittinger <cg@exept.de>
parents: 26
diff changeset
   285
"/                ( 'libtable/libtable.*'                      #libBin     nil      false '644' )
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   286
                ( 'libtool/libtool.*'                        #libBin     nil      false '644' )
214
e5aaf5e3bbf9 also install libtool2 & libui
Claus Gittinger <cg@exept.de>
parents: 117
diff changeset
   287
                ( 'libtool2/libtool2.*'                      #libBin     nil      false '644' )
27
8c5195f9508a also install stx.
Claus Gittinger <cg@exept.de>
parents: 26
diff changeset
   288
"/                ( 'libxt/libxt.*'                            #libBin     nil      false '644' )
8c5195f9508a also install stx.
Claus Gittinger <cg@exept.de>
parents: 26
diff changeset
   289
"/                ( 'librt/librt.*'                            #libBin     nil      false '644' )
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   290
        ).
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   291
    ].
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   293
    installGoodyFiles ifTrue:[
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   294
        fileSpec := fileSpec , #(
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   295
                ( 'goodies/*.st'                             #lib     'goodies'  false '644' )
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   296
                ( 'goodies/*.chg'                            #lib     'goodies'  false '644' )
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   297
                ( 'goodies/rdoit/rdoit'                      #bin     nil        false '755' )
236
622b9a04eb9b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 214
diff changeset
   298
                ( 'goodies/bitmaps/rdoit'                    #lib     'goodies/bitmaps'  false '755' )
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   299
        ).
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   300
    ].
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   302
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   303
    ^ fileSpec
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   304
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   305
    "Modified: / 30.4.1999 / 18:02:22 / cg"
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   306
    "Created: / 2.5.1999 / 13:17:37 / cg"
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   307
!
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   308
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   309
specOfWindowsFilesToCopy
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   310
    |fileSpec|
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   311
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   312
    fileSpec := #(
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   313
                "/ name                             destination  subDir             required       
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   314
                ( 'projects\smalltalk\smalltalk.bat'    #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   315
                ( 'projects\smalltalk\stx.exe'          #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   316
                ( 'projects\smalltalk\stxspawn.exe'     #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   317
                ( 'projects\smalltalk\include'          #lib     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   318
                ( 'projects\smalltalk\lib*.dll'         #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   319
                ( 'projects\smalltalk\stxc3240.dll'     #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   320
                ( 'projects\smalltalk\X11.dll'          #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   321
                ( 'projects\smalltalk\Xext.dll'         #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   322
                ( 'projects\smalltalk\XWorkstat.dll'    #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   323
                ( 'projects\smalltalk\WinWorkstat.dll'  #bin     nil                  true   )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   324
                ( 'COPYRIGHT'                           #lib     nil                  true   )
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   325
                ( 'projects\smalltalk\*.rc'             #bin     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   326
                ( 'projects\smalltalk\patches'          #bin     nil                  true   )
1135
c27511f3028c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1134
diff changeset
   327
                ( 'projects\smalltalk\include\abbrev.stc'  #lib  'include'                  true   )
c27511f3028c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1134
diff changeset
   328
                ( 'projects\smalltalk\include\symbols.stc' #lib  'include'                  true   )
c27511f3028c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1134
diff changeset
   329
                ( 'projects\smalltalk\include\modules.stx' #lib  'include'                  true   )
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   330
                ( 'projects\smalltalk\bitmaps'          #lib     nil                  true   )
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   331
                ( 'projects\smalltalk\resources'        #lib     nil                  true   )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   332
                ( 'doc\online\german\LICENCE.STX.html'  #lib     'doc\online\german'  true   )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   333
                ( 'doc\online\english\LICENCE.STX.html' #lib     'doc\online\english' true   )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   334
    ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   335
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   336
    installDocFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   337
        fileSpec := fileSpec , #(
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   338
                ( 'doc'                                 #lib     nil        false  )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   339
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   340
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   341
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   342
    installSourceFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   343
        fileSpec := fileSpec , #(
1137
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   344
                ( 'projects\smalltalk\source'   #lib     nil                    false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   345
                ( 'libbasic\*.st'               #lib     'source\libbasic'      false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   346
                ( 'libbasic2\*.st'              #lib     'source\libbasic2'     false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   347
                ( 'libbasic3\*.st'              #lib     'source\libbasic3'     false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   348
                ( 'libcomp\*.st'                #lib     'source\libcomp'       false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   349
                ( 'libview\*.st'                #lib     'source\libview'       false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   350
                ( 'libview2\*.st'               #lib     'source\libview2'      false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   351
                ( 'libwidg\*.st'                #lib     'source\libwidg'       false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   352
                ( 'libwidg2\*.st'               #lib     'source\libwidg2'      false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   353
                ( 'libwidg3\*.st'               #lib     'source\libwidg3'      false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   354
                ( 'libtool\*.st'                #lib     'source\libtool'       false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   355
                ( 'libtool2\*.st'               #lib     'source\libtool2'      false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   356
                ( 'libui\*.st'                  #lib     'source\libui'         false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   357
                ( 'libhtml\*.st'                #lib     'source\libhtml'       false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   358
                ( 'libodbc\*.st'                #lib     'source\libodbc'       false  )
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   359
                ( 'libopengl\*.st'              #lib     'source\libopengl'     false  )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   360
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   361
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   362
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   363
    installSTCFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   364
        fileSpec := fileSpec , #(
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   365
                ( 'projects\smalltalk\stc.exe'           #bin        nil              false  )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   366
                ( 'include'                              #lib        nil              false  )
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   367
                ( 'libbc\*.lib'                          #lib        nil              false  )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   368
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   369
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   370
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   371
    installGoodyFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   372
        fileSpec := fileSpec , #(
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   373
                ( 'goodies\*.st'                             #lib     'goodies'  false  )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   374
                ( 'goodies\*.chg'                            #lib     'goodies'  false  )
1137
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   375
                ( 'clients\*'                                #lib     'clients'  false  )
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   376
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   377
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   378
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   379
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   380
    ^ fileSpec
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   381
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   382
    "Created: / 2.5.1999 / 13:23:06 / cg"
1137
77c59731e289 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   383
    "Modified: / 31.5.1999 / 17:39:58 / cg"
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   384
!
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   385
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   386
xxspecOfFilesToCopy
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   387
    |fileSpec|
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   388
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   389
    OperatingSystem isMSWINDOWSlike ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   390
        ^self specOfWindowsFilesToCopy
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   391
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   392
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   393
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   394
    fileSpec := #(
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   395
                "/ name                             destination  subDir             required mode      
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   396
                ( 'projects/smalltalk/smalltalk'        #bin     nil                  true  '755' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   397
                ( 'projects/smalltalk/stx'              #bin     nil                  true  '755' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   398
                ( 'projects/smalltalk/include'          #lib     nil                  true  '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   399
                ( 'COPYRIGHT'                           #lib     nil                  true  '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   400
                ( 'projects/smalltalk/*.rc'             #lib     nil                  true  '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   401
                ( 'projects/smalltalk/patches'          #lib     nil                  true  '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   402
                ( 'projects/smalltalk/bitmaps'          #lib     nil                  true  '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   403
                ( 'projects/smalltalk/resources'        #lib     nil                  true  '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   404
                ( 'projects/smalltalk/lib'              #lib     nil                  true  '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   405
                ( 'doc/online/german/LICENCE.STX.html'  #lib     'doc/online/german'  true  '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   406
                ( 'doc/online/english/LICENCE.STX.html' #lib     'doc/online/english' true  '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   407
    ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   408
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   409
    installDocFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   410
        fileSpec := fileSpec , #(
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   411
                ( 'doc'                                  #lib     nil        false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   412
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   413
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   414
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   415
    installSourceFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   416
        fileSpec := fileSpec , #(
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   417
                ( 'projects/smalltalk/source'                #lib        nil        false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   418
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   419
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   420
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   421
    installSTCFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   422
        fileSpec := fileSpec , #(
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   423
                ( 'stc/stc'                                  #bin        nil              false '755' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   424
                ( 'rules/stmkmp'                             #bin        nil              false '755' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   425
                ( 'rules/stmkmf'                             #bin        nil              false '755' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   426
                ( 'include'                                  #lib        nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   427
                ( 'configurations'                           #lib        nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   428
                ( 'configurations/PACKS'                     #lib        'configurations' false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   429
                ( 'configurations/my*'                       #lib        'configurations' false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   430
                ( 'configurations/vendor*'                   #lib        'configurations' false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   431
                ( 'rules'                                    #lib        nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   432
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   433
                ( 'support/VGL/vogl/src/libvogl.*'           #lib        'lib'            false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   434
                ( 'support/VGL/vogl/src/*.h'                 #lib        'include'        false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   435
                ( 'support/DLD/dld-3.2.5/libdld.*'           #lib        'lib'            false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   436
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   437
                ( 'goodies/persistency/db-1.6/PORT/libdb.*'  #lib        'lib'            false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   438
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   439
                ( 'librun/librun.*'                          #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   440
                ( 'libbasic/libbasic.*'                      #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   441
                ( 'libbasic2/libbasic2.*'                    #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   442
                ( 'libbasic3/libbasic3.*'                    #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   443
                ( 'libhtml/libhtml.*'                        #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   444
                ( 'libcomp/libcomp.*'                        #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   445
                ( 'libcomp/ObjFL*.o'                         #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   446
                ( 'libcomp/ObjFL*.obj'                       #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   447
                ( 'libcomp/ObjFL*.so'                        #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   448
                ( 'libview/libview.*'                        #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   449
                ( 'libview/GLX*.o'                           #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   450
                ( 'libview/GLX*.obj'                         #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   451
                ( 'libview/GLX*.so'                          #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   452
                ( 'libview/XW*.o'                            #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   453
                ( 'libview/XW*.obj'                          #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   454
                ( 'libview/XW*.so'                           #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   455
                ( 'libview2/libview2.*'                      #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   456
                ( 'libwidg/libwidg.*'                        #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   457
                ( 'libwidg2/libwidg2.*'                      #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   458
                ( 'libwidg3/libwidg3.*'                      #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   459
                ( 'libui/libui.*'                            #libBin     nil              false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   460
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   461
"/                ( 'libsnmp/libsnmp.*'                        #libBin     nil      false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   462
"/                ( 'contrib/libPVM/libPVM.*'                  #libBin     nil      false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   463
                ( 'goodies/persistency/libdbase.*'           #libBin     nil      false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   464
"/                ( 'libtable/libtable.*'                      #libBin     nil      false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   465
                ( 'libtool/libtool.*'                        #libBin     nil      false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   466
                ( 'libtool2/libtool2.*'                      #libBin     nil      false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   467
"/                ( 'libxt/libxt.*'                            #libBin     nil      false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   468
"/                ( 'librt/librt.*'                            #libBin     nil      false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   469
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   470
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   471
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   472
    installGoodyFiles ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   473
        fileSpec := fileSpec , #(
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   474
                ( 'goodies/*.st'                             #lib     'goodies'  false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   475
                ( 'goodies/*.chg'                            #lib     'goodies'  false '644' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   476
                ( 'goodies/rdoit/rdoit'                      #bin     nil        false '755' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   477
                ( 'goodies/bitmaps/rdoit'                    #lib     'goodies/bitmaps'  false '755' )
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   478
        ).
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   479
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   480
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   481
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   482
    ^ fileSpec
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   483
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   484
    "Modified: / 8.8.1997 / 18:39:06 / cg"
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   485
    "Created: / 2.5.1999 / 13:17:27 / cg"
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   486
! !
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   487
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   488
!STXInstaller methodsFor:'installing'!
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   489
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   490
changeWritability
791
108f933f9385 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 790
diff changeset
   491
    |msg|
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   492
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
   493
    installWhat == #full ifTrue:[
792
bffad322b0bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 791
diff changeset
   494
        msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   495
792
bffad322b0bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 791
diff changeset
   496
        commandTraceView showCR:(resources string:'making target dir writable ...').
bffad322b0bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 791
diff changeset
   497
        commandTraceView endEntry.
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   498
        OperatingSystem executeCommand:('(cd ' , fullDir , ' ; find . -exec chmod u+w {} \;)').
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   499
    ].
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   500
791
108f933f9385 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 790
diff changeset
   501
    "Created: / 17.7.1996 / 15:24:19 / cg"
792
bffad322b0bb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 791
diff changeset
   502
    "Modified: / 20.4.1998 / 15:40:00 / cg"
790
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   503
!
79bc027907ee checkin from browser
Claus Gittinger <cg@exept.de>
parents: 682
diff changeset
   504
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   505
copyFiles
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   506
    |msg fileSpec filesToCopy numFiles nDone cmd topDir topDirPrefix|
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   507
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   508
    msg := (resources array:#('ST/X Installation' '' 'copying:' '' 'to:' '')) asStringCollection.
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   509
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   510
    OperatingSystem isUNIXlike ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   511
        topDir := '../..'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   512
        topDirPrefix := '../../'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   513
    ] ifFalse:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   514
        topDir := '..\..'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   515
        topDirPrefix := '..\..\'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   516
    ].
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   517
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
   518
    installWhat == #full ifTrue:[
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   519
        msg at:4 put:('    all from CD' asText allBold).
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   520
        msg at:6 put:'    ' , (fullDir asText allBold).
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   521
        actionTextHolder value:nil.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   522
        actionTextHolder value:msg.
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   523
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   524
        cmd := '(cd ' , topDir , ' ; tar cf - .) | (cd ' , fullDir , ' ; tar xvf -)'.
793
43a9a195b0f3 use tar instead of cp to copy full
Claus Gittinger <cg@exept.de>
parents: 792
diff changeset
   525
"/        "/
43a9a195b0f3 use tar instead of cp to copy full
Claus Gittinger <cg@exept.de>
parents: 792
diff changeset
   526
"/        "/ not all systems have cp -rv
43a9a195b0f3 use tar instead of cp to copy full
Claus Gittinger <cg@exept.de>
parents: 792
diff changeset
   527
"/        "/
43a9a195b0f3 use tar instead of cp to copy full
Claus Gittinger <cg@exept.de>
parents: 792
diff changeset
   528
"/        OperatingSystem getOSType = 'linux' ifTrue:[
43a9a195b0f3 use tar instead of cp to copy full
Claus Gittinger <cg@exept.de>
parents: 792
diff changeset
   529
"/            cmd := 'cp -rv ../../* ' , fullDir.
43a9a195b0f3 use tar instead of cp to copy full
Claus Gittinger <cg@exept.de>
parents: 792
diff changeset
   530
"/        ].
43a9a195b0f3 use tar instead of cp to copy full
Claus Gittinger <cg@exept.de>
parents: 792
diff changeset
   531
"/      commandTraceView showCR:cmd , ' ...'.
43a9a195b0f3 use tar instead of cp to copy full
Claus Gittinger <cg@exept.de>
parents: 792
diff changeset
   532
        commandTraceView showCR:'copying ...'.
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   533
        commandTraceView endEntry.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   534
        cmd := cmd , ' 2>&1' .
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   535
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   536
        self executeCommandAndShowOutput:cmd.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   537
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   538
        ^ true
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   539
    ].
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   540
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   541
    fileSpec := self specOfFilesToCopy.
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   542
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
    filesToCopy := OrderedCollection new.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
    fileSpec do:[:entry |
8
88df33224360 oops - did not copy file*
Claus Gittinger <cg@exept.de>
parents: 7
diff changeset
   546
        |fileNames dest subDir required destDir|
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
8
88df33224360 oops - did not copy file*
Claus Gittinger <cg@exept.de>
parents: 7
diff changeset
   548
        fileNames := entry at:1.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
        dest := entry at:2.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
        subDir := entry at:3.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
        required := entry at:4.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
        dest == #bin ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
            destDir := stxBinDir
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
        ] ifFalse:[
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   556
            dest == #libBin ifTrue:[
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   557
                destDir := stxLibBinDir
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   558
            ] ifFalse:[
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   559
                destDir := stxLibDir
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
   560
            ]
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
        
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
        destDir := destDir asFilename.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
        subDir notNil ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
            destDir := destDir construct:subDir
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
8
88df33224360 oops - did not copy file*
Claus Gittinger <cg@exept.de>
parents: 7
diff changeset
   568
        filesToCopy add:(fileNames -> destDir pathName)
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
    numFiles := filesToCopy size.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
    nDone := 0.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
    filesToCopy do:[:entry |
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   575
        |fileName destDir cmd|
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
        fileName := entry key.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
        destDir := entry value.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
8
88df33224360 oops - did not copy file*
Claus Gittinger <cg@exept.de>
parents: 7
diff changeset
   580
        ((fileName includes:$*)
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   581
        or:[(topDirPrefix , fileName) asFilename exists])ifTrue:[
4
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   582
            actionPercentageHolder value:(nDone / numFiles * 100) rounded.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
4
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   584
            msg at:4 put:'    ' , (fileName asText allBold).
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   585
            msg at:6 put:'    ' , (destDir asText allBold).
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   586
            actionTextHolder value:nil.
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   587
            actionTextHolder value:msg.
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   588
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   589
            ((fileName includes:$*) not
1136
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   590
            and:[(topDirPrefix , fileName) asFilename exists not]) ifTrue:[
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   591
                (self listOfOptionalPackages includes:fileName) ifFalse:[
117
45af2b7a5eca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 73
diff changeset
   592
                    commandTraceView showCR:('cannot copy ' , fileName , ' - not included in distribution').
45af2b7a5eca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 73
diff changeset
   593
                    commandTraceView endEntry.
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   594
                ]
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   595
            ] ifFalse:[
1136
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   596
                destDir asFilename exists ifFalse:[
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   597
                    commandTraceView showCR:(resources string:'creating %1 ...' with:destDir asFilename pathName).
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   598
                    commandTraceView endEntry.
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   599
                    OperatingSystem recursiveCreateDirectory:destDir asFilename pathName
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   600
                ].
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   601
                self recursiveCopy:(topDirPrefix , fileName) to:destDir.
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   602
            ]
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   603
        ].
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
        nDone := nDone + 1
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
    ^ true
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   610
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   611
     STXInstaller open
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   612
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   613
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   614
    "Created: / 17.7.1996 / 15:16:20 / cg"
1136
f861c61ca047 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1135
diff changeset
   615
    "Modified: / 31.5.1999 / 17:29:19 / cg"
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
!
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
createDirectories
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
    |msg dirsToMake numDirs nDone|
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   621
    msg := (resources array:#('ST/X Installation' '' 'creating directory:' '' '' '')) asStringCollection.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   623
    dirsToMake := self directoriesToMake.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
    numDirs := dirsToMake size.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   626
    nDone := 0.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
    dirsToMake do:[:dirName |
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
        |d errMsg stop box|
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   631
        actionPercentageHolder value:(nDone / numDirs * 100) rounded.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
4
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   633
        msg at:4 put:'    ' , (dirName asText allBold).
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
        actionTextHolder value:nil.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
        actionTextHolder value:msg.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
        d := dirName asFilename.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   639
        commandTraceView showCR:(resources string:'creating %1 ...' with:d pathName).
117
45af2b7a5eca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 73
diff changeset
   640
        commandTraceView endEntry.
4
8b68fdf7c870 better looking; show command output
Claus Gittinger <cg@exept.de>
parents: 3
diff changeset
   641
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
        d exists ifFalse:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   643
            OperatingSystem recursiveCreateDirectory:d pathName
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
        d exists ifFalse:[
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   647
            errMsg := resources string:'failed to create directory: %1' with: dirName.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
            stop := true
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
        ] ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
            d isDirectory ifFalse:[
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   651
                errMsg := resources string:'not a directory: %1' with:dirName.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
                stop := true
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
            ] ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
                (d isReadable
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
                and:[d isWritable]) ifFalse:[
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   656
                    errMsg := resources string:'no read/write access to directory: %1' with:dirName.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
                    stop := false
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
                ] ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
                    errMsg := nil
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
                ]
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
            ]
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
        errMsg notNil ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
            box := WarningBox new.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
            box title:errMsg.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
            box showAtPointerNotCovering:(WindowGroup activeGroup topViews first).
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
   668
            stop ifTrue:[^ false].
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
        ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
        Delay waitForSeconds:0.25.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
        nDone := nDone + 1.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
    ^ true
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
    "Created: 17.7.1996 / 15:24:19 / cg"
117
45af2b7a5eca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 73
diff changeset
   677
    "Modified: 22.5.1997 / 15:06:41 / cg"
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   678
!
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   679
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   680
createRegistryEntries
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   681
    |release msg k|
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   682
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   683
    msg := (resources array:#('ST/X Installation' '' 'creating registry entries' '' '' '')) asStringCollection.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   684
    actionTextHolder value:nil.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   685
    actionTextHolder value:msg.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   686
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   687
    commandTraceView showCR:(resources string:'creating registry entries...').
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   688
    commandTraceView endEntry.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   689
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   690
    release := self smalltalkRelease.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   691
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   692
    k := Win32OperatingSystem::RegistryEntry key:'HKEY_LOCAL_MACHINE\Software'.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   693
    k := k createSubKeyNamed:'eXept'.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   694
    k := k createSubKeyNamed:'Smalltalk/X'.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   695
    k valueNamed:'CurrentVersion' put:release.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   696
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   697
    k := k createSubKeyNamed:release.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   698
    k valueNamed:'LibDir' put:stxLibDir.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   699
    k valueNamed:'BinDir' put:stxBinDir.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   700
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   701
    "Modified: / 31.5.1999 / 15:24:41 / cg"
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   702
!
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   703
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   704
createSymbolicLinks
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   705
    |msg dirsToMake numDirs nDone|
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   706
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   707
    OperatingSystem isUNIXlike ifFalse:[^ self].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   708
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   709
    msg := (resources array:#('ST/X Installation' '' 'creating symbolic links' '' '' '')) asStringCollection.
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   710
    actionTextHolder value:nil.
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   711
    actionTextHolder value:msg.
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   712
28
b3a8378dd626 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 27
diff changeset
   713
    commandTraceView showCR:(resources string:'setting up symbolic links in doc/online ...').
117
45af2b7a5eca checkin from browser
Claus Gittinger <cg@exept.de>
parents: 73
diff changeset
   714
    commandTraceView endEntry.
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
   715
    installWhat == #full ifTrue:[
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   716
        OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   717
    ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   718
        OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   719
    ].
19
504c3ad987d1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 18
diff changeset
   720
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   721
    "Created: / 17.7.1996 / 15:24:19 / cg"
1134
8401cae5d88e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1133
diff changeset
   722
    "Modified: / 31.5.1999 / 14:46:36 / cg"
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   723
!
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   724
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   725
executeCommandAndShowOutput:cmd
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   726
    |doneSemaphore line p|
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   727
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   728
    OperatingSystem isMSWINDOWSlike ifTrue:[
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   729
        ^ self
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   730
    ].
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   731
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   732
    doneSemaphore := Semaphore new.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   733
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   734
    copyProcess := [   
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   735
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   736
        p := PipeStream readingFrom:cmd.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   737
        p isNil ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   738
            self warn:('command error. Could not execute:\\' , cmd) withCRs.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   739
        ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   740
            [
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   741
                [p atEnd] whileFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   742
                    (p readWaitWithTimeout:0.1) ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   743
                        line := p nextLine.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   744
                        (line notNil and:[line notEmpty]) ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   745
                            commandTraceView showCR:(('  ' , line) asText emphasizeAllWith:(#color->Color red)).
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   746
                            commandTraceView endEntry.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   747
                        ]
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   748
                    ]
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   749
                ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   750
                p close.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   751
            ] valueOnUnwindDo:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   752
                p shutDown
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   753
            ]
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   754
        ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   755
        doneSemaphore signal.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   756
        copyProcess := nil.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   757
    ] forkAt:4.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   758
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   759
    doneSemaphore wait.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   760
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   761
    "Created: / 25.2.1998 / 17:46:06 / cg"
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   762
    "Modified: / 30.4.1999 / 18:00:43 / cg"
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   763
!
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   764
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   765
outputInitialMessage
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   766
    #(
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   767
    'Notice:'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   768
    ''
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   769
    'During the installation, you may get error messages'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   770
    'complaining that some files where not found'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   771
    'and could therefore not be copied.'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   772
    ) do:[:line |
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   773
        commandTraceView showCR:((resources string:line) asText emphasizeAllWith:(#color->Color blue)).
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   774
        commandTraceView endEntry. 
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   775
    ].
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   776
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   777
    Delay waitForSeconds:2.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   778
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   779
    #(
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   780
    ''
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   781
    'This is normal behavior; since the CD may contain'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   782
    'broken symbolic links to non-existing packages'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   783
    'which are either not contained on your ordered'
276
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   784
    'package (i.e. non-commercial) or are not required'
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   785
    'for your architecture (and therefore not contained'
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   786
    'on the CD).'
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   787
    ''
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   788
    ) do:[:line |
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   789
        commandTraceView showCR:((resources string:line) asText emphasizeAllWith:(#color->Color blue)).
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   790
        commandTraceView endEntry.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   791
    ].
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   792
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   793
    Delay waitForSeconds:2.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   794
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   795
    #(
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   796
    ''
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   797
    'Please excuse this inconvenience.'
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   798
    ''
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   799
    ) do:[:line |
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   800
        commandTraceView showCR:((resources string:line) asText emphasizeAllWith:(#color->Color blue)).
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   801
        commandTraceView endEntry.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   802
    ].
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   803
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   804
    Delay waitForSeconds:2.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   805
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   806
    "Created: 2.3.1997 / 12:49:52 / cg"
276
c8b7fd1fcec5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 237
diff changeset
   807
    "Modified: 8.8.1997 / 17:47:06 / cg"
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   808
!
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   809
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   810
recursiveCopy:src to:destDir
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   811
    |cmd|
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   812
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   813
    OperatingSystem isUNIXlike ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   814
        cmd := 'cp -r ' , src , ' ' , destDir.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   815
        commandTraceView showCR:cmd , ' ...'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   816
        commandTraceView endEntry.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   817
        cmd := cmd , ' 2>&1' .
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   818
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   819
        self executeCommandAndShowOutput:cmd
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   820
    ] ifFalse:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   821
        commandTraceView showCR:('copy ' , src , ' ' , destDir).
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   822
        commandTraceView endEntry.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   823
        src includesMatchCharacters ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   824
            src asFilename directory directoryContents do:[:fileName |
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   825
                ((src asFilename baseName) match:fileName) ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   826
                    (src asFilename directory construct:fileName)
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   827
                        recursiveCopyTo:destDir
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   828
                ]
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   829
            ]
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   830
        ] ifFalse:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   831
            src asFilename recursiveCopyTo:destDir
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   832
        ]
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   833
    ]
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   834
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   835
    "Created: / 31.5.1999 / 13:05:09 / cg"
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   836
    "Modified: / 31.5.1999 / 13:14:19 / cg"
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
! !
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
!STXInstaller methodsFor:'startup'!
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
askAndInstall
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
    "/ check, if we are in the projects/smalltalk directory
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   844
    |answer here|
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   845
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   846
    resources := ResourcePack for:self class.
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   847
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   848
    (((here := Filename currentDirectory pathName) endsWith:'projects/smalltalk') not
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   849
    and:[(here asLowercase endsWith:'stx\binbc') not
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   850
    and:[(here asLowercase endsWith:'projects\smalltalk') not
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   851
    ]]) ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   852
        self warn:(resources string:'must be in the ''projects/smalltalk'' directory').
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   853
        ^ self
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   856
    answer := self askForFullInstallation.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   857
    answer ifFalse:[^ self].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   858
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
    [self askForDestination] whileTrue:[
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   860
        self checkForExistingInstallationAndConfirm ifTrue:[
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   861
            self preInstall.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   862
            self doInstall ifTrue:[
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   863
                self postInstall.
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   864
                ^ self
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   865
            ].
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   866
            (self confirm:(resources string:'installation failed or aborted - retry ?'))
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   867
            ifFalse:[
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   868
                ^ self
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   869
            ]
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
        ]
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   873
    "Modified: / 31.5.1999 / 12:04:14 / cg"
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
!
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
askForDestination
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
    "open a dialog to enter destination directories"
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
1010
d744cc925443 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 793
diff changeset
   879
    installWhat == #full ifTrue:[
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   880
        ^ self askForDestinationForFullInstallation
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   881
    ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   882
        ^ self askForDestinationForPartialInstallation
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   883
    ]
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   884
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   885
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   886
     STXInstaller open
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   887
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   888
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   889
    "Modified: / 25.2.1998 / 17:12:45 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   890
!
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   891
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   892
askForDestinationForFullInstallation
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   893
    "open a dialog to enter destination directories"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   894
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   895
    |d cm l green dark img
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   896
     fullDirHolder|
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   897
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   898
    LastFullDir isNil ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   899
        LastFullDir := (Filename homeDirectory 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   900
                            construct:'stx')
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   901
                            constructString:'develop'
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   902
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   903
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   904
    fullDirHolder := LastFullDir asValue.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   905
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   906
    Screen current hasColors ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   907
        green := (Color red:0 green:80 blue:20) "darkened".
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   908
        dark := Color grey:10.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   909
    ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   910
        green := Color white.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   911
        dark := Color black.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   912
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   913
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   914
    d := DialogBox new.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   915
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   916
    d label:(resources string:'ST/X Full Installation').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   917
    img := Image fromFile:'SmalltalkX.xbm'.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   918
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   919
    l := d addTextLabel:img.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   920
    l adjust:#left; foregroundColor:green backgroundColor:dark.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   921
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   922
    l := d addTextLabel:(resources string:'Smalltalk/X CD installation (full).').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   923
    l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   924
    d addVerticalSpace.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   925
    d addVerticalSpace.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   926
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   927
    d addHorizontalLine.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   928
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   929
    l := d addTextLabel:(resources string:'ST/X development directory:').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   930
    l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   931
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   932
    cm := ComboBoxView on:fullDirHolder.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   933
    cm list:self defaultFullDirs.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   934
    d 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   935
        addLabelledField:cm 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   936
        label:(resources string:'stx develop')
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   937
        adjust:#left 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   938
        tabable:true 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   939
        from:0.0 to:1.0 separateAtX:0.25
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   940
        nameAs:'fullBox'.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   941
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   942
    (d componentAt:'fullBox.label') backgroundColor:dark; foregroundColor:Color white.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   943
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   944
    d addVerticalSpace.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   945
    d addHorizontalLine.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   946
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   947
    d addHelpButtonFor:'STXInstaller/installHelp.html';
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   948
      addAbortButton; 
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   949
      addOkButtonLabelled:(resources string:'install').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   950
    d extent:500@400.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   951
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   952
    d allViewBackground:dark.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   953
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   954
    d openAtCenter.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   955
    d accepted ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   956
        fullDir := LastFullDir := fullDirHolder value.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   957
        d destroy.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   958
        ^ true
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   959
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   960
    d destroy.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   961
    ^ false
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   962
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   963
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   964
     STXInstaller open
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   965
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   966
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   967
    "Created: / 25.2.1998 / 17:11:37 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   968
    "Modified: / 25.2.1998 / 17:29:07 / cg"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   969
!
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   970
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   971
askForDestinationForPartialInstallation
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   972
    "open a dialog to enter destination directories"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   973
2
936a4407697b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1
diff changeset
   974
    |d cm l green dark img
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   975
     stxInstDirHolder stxLibDirHolder stxLibBinDirHolder stxBinDirHolder
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   976
     installDocHolder installSourceHolder installSTCHolder installGoodiesHolder
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   977
     binMegabytes libMegabytes docMegabytes stcMegabytes srcMegabytes
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   978
     goodyMegabytes stxRel list stxInstDir
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
    |
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   981
    binMegabytes := 12.
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
   982
    libMegabytes := 30.
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
   983
    docMegabytes := 15.
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   984
    stcMegabytes := 2.
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   985
    srcMegabytes := 25.
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
   986
    goodyMegabytes := 2.
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
   987
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   988
    stxRel := self smalltalkRelease.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   989
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   990
    OperatingSystem isMSWINDOWSlike ifTrue:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   991
        LastPartialDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   992
            LastPartialDir := 'c:\Programme\SmalltalkX\' , stxRel 
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
   993
        ].
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   994
"/        LastLibDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   995
"/            LastLibDir := 'c:\Programme\SmalltalkX\' , stxRel , '\lib'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   996
"/        ].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   997
"/        LastLibBinDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   998
"/            LastLibBinDir := 'c:\Programme\SmalltalkX\' , stxRel , '\lib'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
   999
"/        ].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1000
"/        LastBinDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1001
"/            LastBinDir := 'c:\Programme\SmalltalkX\' , stxRel , '\bin'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1002
"/        ].
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
  1003
    ] ifFalse:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1004
        LastPartialDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1005
            LastPartialDir := '/opt/smalltalk/' , stxRel
1119
556bb6c9e36c first changes for win32
Claus Gittinger <cg@exept.de>
parents: 1118
diff changeset
  1006
        ].
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1007
"/        LastLibDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1008
"/            LastLibDir := '/opt/smalltalk/' , stxRel , '/lib'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1009
"/        ].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1010
"/        LastLibBinDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1011
"/            LastLibBinDir := '/opt/smalltalk/' , stxRel , '/lib'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1012
"/        ].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1013
"/        LastBinDir isNil ifTrue:[
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1014
"/            LastBinDir := '/opt/smalltalk/' , stxRel , '/bin'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1015
"/        ].
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1018
    stxInstDirHolder := LastPartialDir asValue.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1019
"/    stxLibDirHolder := LastLibDir asValue.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1020
"/    stxLibBinDirHolder := LastLibBinDir asValue.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1021
"/    stxBinDirHolder := LastBinDir asValue.
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
  1022
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1023
    installDocHolder := true asValue.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1024
    installSourceHolder := true asValue.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1025
    installSTCHolder := true asValue.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1026
    installGoodiesHolder := true asValue.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1027
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1028
    Screen current hasColors ifTrue:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
        green := (Color red:0 green:80 blue:20) "darkened".
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1030
        dark := Color grey:10.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1031
    ] ifFalse:[
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1032
        green := Color white.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
        dark := Color black.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1034
    ].
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1036
    d := DialogBox new.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1037
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1038
    d label:(resources string:'ST/X Partial Installation').
2
936a4407697b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1
diff changeset
  1039
    img := Image fromFile:'SmalltalkX.xbm'.
936a4407697b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1
diff changeset
  1040
936a4407697b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1
diff changeset
  1041
    l := d addTextLabel:img.
936a4407697b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1
diff changeset
  1042
    l adjust:#left; foregroundColor:green backgroundColor:dark.
936a4407697b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1
diff changeset
  1043
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1044
    l := d addTextLabel:(resources string:'Smalltalk/X CD installation (partial).').
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
    l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
    d addVerticalSpace.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
    d addVerticalSpace.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
    d addHorizontalLine.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1050
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
  1051
    l := d addTextLabel:(resources string:'Destination directories:').
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
    l adjust:#left; backgroundColor:dark; foregroundColor:Color white.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1054
    l := d addTextLabel:(resources string:'(the default below is recommended)').
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1055
    l adjust:#right; backgroundColor:dark; foregroundColor:Color white.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1056
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1057
    cm := ComboBoxView on:stxInstDirHolder.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1058
    list := self defaultBinDirs collect:[:line |
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1059
                line replChar:$\ withString:'\\'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1060
            ].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1061
    cm list:list.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
    d 
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
        addLabelledField:cm 
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1064
        label:(resources string:'install into:')
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
        adjust:#left 
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
        tabable:true 
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
        from:0.0 to:1.0 separateAtX:0.25
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1068
        nameAs:'instDirBox'.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1070
    (d componentAt:'instDirBox.label') backgroundColor:dark; foregroundColor:Color white.
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
  1071
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1072
"/    cm := ComboBoxView on:stxBinDirHolder.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1073
"/    list := self defaultBinDirs collect:[:line |
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1074
"/                line replChar:$\ withString:'\\'
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1075
"/            ].
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1076
"/    cm list:list.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1077
"/    d 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1078
"/        addLabelledField:cm 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1079
"/        label:(resources string:'binaries')
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1080
"/        adjust:#left 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1081
"/        tabable:true 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1082
"/        from:0.0 to:1.0 separateAtX:0.25
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1083
"/        nameAs:'binaryBox'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1084
"/
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1085
"/    (d componentAt:'binaryBox.label') backgroundColor:dark; foregroundColor:Color white.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1086
"/
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1087
"/    cm := ComboBoxView on:stxLibBinDirHolder.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1088
"/    cm list:self defaultLibBinDirs.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1089
"/    d 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1090
"/        addLabelledField:cm 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1091
"/        label:(resources string:'libraries') 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1092
"/        adjust:#left 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1093
"/        tabable:true 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1094
"/        from:0.0 to:1.0 separateAtX:0.25
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1095
"/        nameAs:'libraryBinBox'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1096
"/
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1097
"/    (d componentAt:'libraryBinBox.label') backgroundColor:dark; foregroundColor:Color white.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1098
"/
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1099
"/    cm := ComboBoxView on:stxLibDirHolder.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1100
"/    cm list:self defaultLibDirs.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1101
"/    d 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1102
"/        addLabelledField:cm 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1103
"/        label:(resources string:'other files') 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1104
"/        adjust:#left 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1105
"/        tabable:true 
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1106
"/        from:0.0 to:1.0 separateAtX:0.25
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1107
"/        nameAs:'libraryBox'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1108
"/
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1109
"/    (d componentAt:'libraryBox.label') backgroundColor:dark; foregroundColor:Color white.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1111
    d addVerticalSpace.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1112
    d addHorizontalLine.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1113
    d addVerticalSpace.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1114
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
  1115
    (d addTextLabel:(resources string:'required:'))
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1116
        adjust:#left; foregroundColor:Color white backgroundColor:dark.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1117
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1118
    d leftIndent:35.
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
  1119
    (d addTextLabel:(resources string:'binaries (approx. %1 Mb)' with:binMegabytes printString))
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1120
        adjust:#left; foregroundColor:Color white backgroundColor:dark.
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
  1121
    (d addTextLabel:(resources string:'libraries (approx. %1 Mb)' with:libMegabytes printString))
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1122
        adjust:#left; foregroundColor:Color white backgroundColor:dark.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1123
    d leftIndent:0.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1124
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1125
    d addVerticalSpace.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1126
    d addHorizontalLine.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1127
    d addVerticalSpace.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1128
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
  1129
    (d addTextLabel:(resources string:'optional:'))
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1130
        adjust:#left; foregroundColor:Color white backgroundColor:dark.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1131
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1132
    (d addCheckBox:((resources string:'doc files (+%1 Mb)' with:docMegabytes)) on:installDocHolder)
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1133
        labelView foregroundColor:Color white backgroundColor:dark.
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1134
    (d addCheckBox:((resources string:'stc & support files (+%1 Mb)' with:stcMegabytes)) on:installSTCHolder)
10
c9574685e157 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 9
diff changeset
  1135
        labelView foregroundColor:Color white backgroundColor:dark.
c9574685e157 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 9
diff changeset
  1136
c9574685e157 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 9
diff changeset
  1137
    d addVerticalSpace.
c9574685e157 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 9
diff changeset
  1138
    d addHorizontalLine.
c9574685e157 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 9
diff changeset
  1139
    d addVerticalSpace.
c9574685e157 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 9
diff changeset
  1140
11
9bc23682b68c national strings
Claus Gittinger <cg@exept.de>
parents: 10
diff changeset
  1141
    (d addTextLabel:(resources string:'optional (but highly recommended):'))
10
c9574685e157 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 9
diff changeset
  1142
        adjust:#left; foregroundColor:Color white backgroundColor:dark.
c9574685e157 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 9
diff changeset
  1143
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1144
    (d addCheckBox:((resources string:'smalltalk source files (+%1 Mb)' with:srcMegabytes)) on:installSourceHolder)
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1145
        labelView foregroundColor:Color white backgroundColor:dark.
1117
657dde1e749d new default destination: /opt/smalltalk/<RELEASE>
Claus Gittinger <cg@exept.de>
parents: 1010
diff changeset
  1146
    (d addCheckBox:((resources string:'goodies (+%1 Mb)' with:goodyMegabytes)) on:installGoodiesHolder)
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1147
        labelView foregroundColor:Color white backgroundColor:dark.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1148
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1149
    d addVerticalSpace.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1150
    d addHorizontalLine.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1151
24
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
  1152
    d addHelpButtonFor:'STXInstaller/installHelp.html';
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
  1153
      addAbortButton; 
2b61cca30b01 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 23
diff changeset
  1154
      addOkButtonLabelled:(resources string:'install').
73
2087134eea96 better messages;
Claus Gittinger <cg@exept.de>
parents: 31
diff changeset
  1155
    d extent:500@400.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1157
    d allViewBackground:dark.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
    d openAtCenter.
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
    d accepted ifTrue:[
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1161
        stxInstDir := LastPartialDir := stxInstDirHolder value.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1162
        stxLibDir := stxInstDir asFilename constructString:'lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1163
        stxLibBinDir := stxInstDir asFilename constructString:'lib'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1164
        stxBinDir := stxInstDir asFilename constructString:'bin'.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1165
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1166
"/        stxLibDir := LastLibDir := stxLibDirHolder value.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1167
"/        stxLibBinDir := LastLibBinDir := stxLibBinDirHolder value.
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1168
"/        stxBinDir := LastBinDir := stxBinDirHolder value.
5
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1169
        installDocFiles := installDocHolder value.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1170
        installSourceFiles := installSourceHolder value.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1171
        installSTCFiles := installSTCHolder value.
16cff74f42b0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1172
        installGoodyFiles := installGoodiesHolder value.
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
  1173
        d destroy.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
        ^ true
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
    ].
1
7ebb34d8f3df checkin from browser
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
  1176
    d destroy.
0
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
    ^ false
ce9f4417b660 intitial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1178
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1179
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1180
     STXInstaller open
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1181
    "
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1182
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1183
    "Created: / 25.2.1998 / 17:11:26 / cg"
1132
ef8fb42803b0 changes for win32.
Claus Gittinger <cg@exept.de>
parents: 1119
diff changeset
  1184
    "Modified: / 31.5.1999 / 13:42:48 / cg"
678
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1185
!
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1186
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1187
askForFullInstallation
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1188
    "open a dialog to enter destination directories"
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1189
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1190
    |d cm l green dark img|
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1191
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1192
    Screen current hasColors ifTrue:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1193
        green := (Color red:0 green:80 blue:20) "darkened".
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1194
        dark := Color grey:10.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1195
    ] ifFalse:[
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1196
        green := Color white.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1197
        dark := Color black.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1198
    ].
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1199
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1200
    d := DialogBox new.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1201
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1202
    d label:(resources string:'ST/X CD Installation').
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1203
    img := Image fromFile:'SmalltalkX.xbm'.
4dd439ebf162 added full installation
Claus Gittinger <cg@exept.de>
parents: 277
diff changeset
  1204