ApplicationBuilder.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Jun 2018 22:19:39 +0100
branchjv
changeset 18227 d25a407ba86d
parent 15950 23be8cf85415
child 19607 f9108fde4972
permissions -rw-r--r--
Mini testrunner: show "green" if there's at least one pass and rest is pass or skip This is more meaningfull result then showing "gray" if there's at least one skip.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2628
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
     1
"
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
     2
 COPYRIGHT (c) 1998 by eXept Software AG
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
     3
              All Rights Reserved
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
     4
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
     5
 This software is furnished under a license and may be used
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
     6
 only in accordance with the terms of that license and with the
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
     7
 inclusion of the above copyright notice. This software may not
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
     8
 be provided or otherwise made available to, or used by, any
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
     9
 other person. No title to or ownership of the software is
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    10
 hereby transferred.
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    11
"
7087
c46a141cfe46 category change
Claus Gittinger <cg@exept.de>
parents: 2628
diff changeset
    12
"{ Package: 'stx:libtool' }"
c46a141cfe46 category change
Claus Gittinger <cg@exept.de>
parents: 2628
diff changeset
    13
15950
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13471
diff changeset
    14
"{ NameSpace: Smalltalk }"
23be8cf85415 Bugfix in merge tool.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13471
diff changeset
    15
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
    16
ToolApplicationModel subclass:#ApplicationBuilder
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    17
	instanceVariableNames:'task shellView aspects'
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    18
	classVariableNames:''
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
    19
	poolDictionaries:''
7087
c46a141cfe46 category change
Claus Gittinger <cg@exept.de>
parents: 2628
diff changeset
    20
	category:'Interface-Tools'
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
    21
!
dd37d7763def initial checkin
tz
parents:
diff changeset
    22
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    23
ApplicationBuilder class instanceVariableNames:'aspects'
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    24
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    25
"
13471
3ee11c3d0306 Support for senders/implementors for Java. Fix for accepting Java classes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13289
diff changeset
    26
 The following class instance variables are inherited by this class:
3ee11c3d0306 Support for senders/implementors for Java. Fix for accepting Java classes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13289
diff changeset
    27
3ee11c3d0306 Support for senders/implementors for Java. Fix for accepting Java classes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13289
diff changeset
    28
	ToolApplicationModel - history fileHistory clipboard settings showingHelp instances
3ee11c3d0306 Support for senders/implementors for Java. Fix for accepting Java classes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13289
diff changeset
    29
	ApplicationModel - ClassResources
3ee11c3d0306 Support for senders/implementors for Java. Fix for accepting Java classes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13289
diff changeset
    30
	Model - 
3ee11c3d0306 Support for senders/implementors for Java. Fix for accepting Java classes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13289
diff changeset
    31
	Object - 
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    32
"
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    33
!
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    34
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
    35
!ApplicationBuilder class methodsFor:'documentation'!
dd37d7763def initial checkin
tz
parents:
diff changeset
    36
2628
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    37
copyright
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    38
"
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    39
 COPYRIGHT (c) 1998 by eXept Software AG
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    40
              All Rights Reserved
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    41
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    42
 This software is furnished under a license and may be used
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    43
 only in accordance with the terms of that license and with the
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    44
 inclusion of the above copyright notice. This software may not
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    45
 be provided or otherwise made available to, or used by, any
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    46
 other person. No title to or ownership of the software is
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    47
 hereby transferred.
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    48
"
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    49
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    50
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    51
!
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    52
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
    53
documentation
dd37d7763def initial checkin
tz
parents:
diff changeset
    54
"
2628
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    55
    WARNING: unfinished - do not use.
c20c71989aa1 copyrights
Claus Gittinger <cg@exept.de>
parents: 1630
diff changeset
    56
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
    57
    The Application Builder of ST/X allows you to build ST/X-applications by following steps:
dd37d7763def initial checkin
tz
parents:
diff changeset
    58
dd37d7763def initial checkin
tz
parents:
diff changeset
    59
        0. Clobber the target directory of the application
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    60
        1. Generate the h-file with symbols
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    61
        2. Generate the c-file with modules
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    62
        3. Compile the modules init file
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    63
        4. Compile the startup C-file
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    64
        5. Define the symbolic links to the libraries
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    65
        6. Link the libraries to the application
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    66
        7. Define the symbolic links to the resources
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    67
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
    68
    [instance variables:]
dd37d7763def initial checkin
tz
parents:
diff changeset
    69
        task           <Process>               task of the running build
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
    70
        shellView      <ShellView>             shell view for outputting the build results
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
    71
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    72
    [instance class variables:]
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    73
        aspects        <IdentityDictionary>    aspects of the settings
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
    74
dd37d7763def initial checkin
tz
parents:
diff changeset
    75
    [start with:]
dd37d7763def initial checkin
tz
parents:
diff changeset
    76
        ApplicationBuilder open
dd37d7763def initial checkin
tz
parents:
diff changeset
    77
dd37d7763def initial checkin
tz
parents:
diff changeset
    78
    [see also:]
dd37d7763def initial checkin
tz
parents:
diff changeset
    79
        LibraryBuilder
dd37d7763def initial checkin
tz
parents:
diff changeset
    80
dd37d7763def initial checkin
tz
parents:
diff changeset
    81
    [author:]
dd37d7763def initial checkin
tz
parents:
diff changeset
    82
        Thomas Zwick, eXept Software AG
dd37d7763def initial checkin
tz
parents:
diff changeset
    83
"
dd37d7763def initial checkin
tz
parents:
diff changeset
    84
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
    85
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    86
!ApplicationBuilder class methodsFor:'accessing'!
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    87
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    88
aspects
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    89
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    90
    aspects isNil ifTrue: [aspects := IdentityDictionary new].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    91
    ^aspects
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    92
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    93
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    94
!
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    95
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    96
aspects: anIdentityDictionary
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    97
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
    98
    aspects := anIdentityDictionary
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
    99
!
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   100
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   101
label
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   102
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   103
   ^'Application Builder (experimental)'
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   104
! !
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   105
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   106
!ApplicationBuilder class methodsFor:'help specs'!
dd37d7763def initial checkin
tz
parents:
diff changeset
   107
dd37d7763def initial checkin
tz
parents:
diff changeset
   108
helpSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   109
    "This resource specification was automatically generated
dd37d7763def initial checkin
tz
parents:
diff changeset
   110
     by the UIHelpTool of ST/X."
dd37d7763def initial checkin
tz
parents:
diff changeset
   111
dd37d7763def initial checkin
tz
parents:
diff changeset
   112
    "Do not manually edit this!! If it is corrupted,
dd37d7763def initial checkin
tz
parents:
diff changeset
   113
     the UIHelpTool may not be able to read the specification."
dd37d7763def initial checkin
tz
parents:
diff changeset
   114
dd37d7763def initial checkin
tz
parents:
diff changeset
   115
    "
dd37d7763def initial checkin
tz
parents:
diff changeset
   116
     UIHelpTool openOnClass:ApplicationBuilder    
dd37d7763def initial checkin
tz
parents:
diff changeset
   117
    "
dd37d7763def initial checkin
tz
parents:
diff changeset
   118
dd37d7763def initial checkin
tz
parents:
diff changeset
   119
    <resource: #help>
dd37d7763def initial checkin
tz
parents:
diff changeset
   120
dd37d7763def initial checkin
tz
parents:
diff changeset
   121
    ^super helpSpec addPairsFrom:#(
dd37d7763def initial checkin
tz
parents:
diff changeset
   122
dd37d7763def initial checkin
tz
parents:
diff changeset
   123
#applicationLinkDefines
dd37d7763def initial checkin
tz
parents:
diff changeset
   124
'Opens a dialog to define the link defines for the application.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   125
dd37d7763def initial checkin
tz
parents:
diff changeset
   126
#applicationName
dd37d7763def initial checkin
tz
parents:
diff changeset
   127
'Name of the application.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   128
dd37d7763def initial checkin
tz
parents:
diff changeset
   129
#build
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   130
'Starts the process of building the target.'
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   131
dd37d7763def initial checkin
tz
parents:
diff changeset
   132
#buildDate
dd37d7763def initial checkin
tz
parents:
diff changeset
   133
'Build date of the application.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   134
dd37d7763def initial checkin
tz
parents:
diff changeset
   135
#configuration
dd37d7763def initial checkin
tz
parents:
diff changeset
   136
'Configuration information of the application.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   137
dd37d7763def initial checkin
tz
parents:
diff changeset
   138
#libraryDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   139
'Directory of the ST/X libraries.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   140
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   141
#link
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   142
'Starts the process of linking the application.'
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   143
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   144
#selectPath
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   145
'Opens a dialog for choosing the name of the file/path.'
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   146
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   147
#sourceDirectory
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   148
'Source directory of ST/X.'
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   149
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   150
#start
dd37d7763def initial checkin
tz
parents:
diff changeset
   151
'Start the build application.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   152
dd37d7763def initial checkin
tz
parents:
diff changeset
   153
#startupCFile
dd37d7763def initial checkin
tz
parents:
diff changeset
   154
'Startup C-file of ST/X for the application.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   155
dd37d7763def initial checkin
tz
parents:
diff changeset
   156
#startupFile
dd37d7763def initial checkin
tz
parents:
diff changeset
   157
'Startup C-file of ST/X for the application.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   158
dd37d7763def initial checkin
tz
parents:
diff changeset
   159
#startupMessage
dd37d7763def initial checkin
tz
parents:
diff changeset
   160
'Startup message consisting of the class name and the selector name.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   161
dd37d7763def initial checkin
tz
parents:
diff changeset
   162
#startupModule
dd37d7763def initial checkin
tz
parents:
diff changeset
   163
'Startup module of ST/X for the application.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   164
dd37d7763def initial checkin
tz
parents:
diff changeset
   165
#stop
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   166
'Stops the process of the building.'
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   167
dd37d7763def initial checkin
tz
parents:
diff changeset
   168
#stxLibraries
dd37d7763def initial checkin
tz
parents:
diff changeset
   169
'List of the ST/X library names.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   170
dd37d7763def initial checkin
tz
parents:
diff changeset
   171
#symlinkBitmaps
dd37d7763def initial checkin
tz
parents:
diff changeset
   172
'Create symbolic links to the bitmaps of ST/X.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   173
dd37d7763def initial checkin
tz
parents:
diff changeset
   174
#symlinkRCFiles
dd37d7763def initial checkin
tz
parents:
diff changeset
   175
'Create symbolic links to the RC-files of ST/X.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   176
dd37d7763def initial checkin
tz
parents:
diff changeset
   177
#symlinkResources
dd37d7763def initial checkin
tz
parents:
diff changeset
   178
'Create symbolic links to the resources of ST/X.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   179
dd37d7763def initial checkin
tz
parents:
diff changeset
   180
#symlinkSources
dd37d7763def initial checkin
tz
parents:
diff changeset
   181
'Create symbolic links to the sources of ST/X.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   182
dd37d7763def initial checkin
tz
parents:
diff changeset
   183
#systemLibaries
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   184
'Libraries of the operating system needed by the target.'
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   185
dd37d7763def initial checkin
tz
parents:
diff changeset
   186
#targetDirectory
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   187
'Directory where the target will build.'
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   188
dd37d7763def initial checkin
tz
parents:
diff changeset
   189
#topDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   190
'Top directory of ST/X.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   191
dd37d7763def initial checkin
tz
parents:
diff changeset
   192
#userLibraries
dd37d7763def initial checkin
tz
parents:
diff changeset
   193
'Libraries of the user wanted to add to the application.'
dd37d7763def initial checkin
tz
parents:
diff changeset
   194
dd37d7763def initial checkin
tz
parents:
diff changeset
   195
)
dd37d7763def initial checkin
tz
parents:
diff changeset
   196
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
   197
dd37d7763def initial checkin
tz
parents:
diff changeset
   198
!ApplicationBuilder class methodsFor:'interface specs'!
dd37d7763def initial checkin
tz
parents:
diff changeset
   199
dd37d7763def initial checkin
tz
parents:
diff changeset
   200
windowSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   201
    "This resource specification was automatically generated
dd37d7763def initial checkin
tz
parents:
diff changeset
   202
     by the UIPainter of ST/X."
dd37d7763def initial checkin
tz
parents:
diff changeset
   203
dd37d7763def initial checkin
tz
parents:
diff changeset
   204
    "Do not manually edit this!! If it is corrupted,
dd37d7763def initial checkin
tz
parents:
diff changeset
   205
     the UIPainter may not be able to read the specification."
dd37d7763def initial checkin
tz
parents:
diff changeset
   206
dd37d7763def initial checkin
tz
parents:
diff changeset
   207
    "
dd37d7763def initial checkin
tz
parents:
diff changeset
   208
     UIPainter new openOnClass:ApplicationBuilder andSelector:#windowSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   209
     ApplicationBuilder new openInterface:#windowSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   210
     ApplicationBuilder open
dd37d7763def initial checkin
tz
parents:
diff changeset
   211
    "
dd37d7763def initial checkin
tz
parents:
diff changeset
   212
dd37d7763def initial checkin
tz
parents:
diff changeset
   213
    <resource: #canvas>
dd37d7763def initial checkin
tz
parents:
diff changeset
   214
dd37d7763def initial checkin
tz
parents:
diff changeset
   215
    ^
dd37d7763def initial checkin
tz
parents:
diff changeset
   216
     
dd37d7763def initial checkin
tz
parents:
diff changeset
   217
       #(#FullSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   218
          #window: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   219
           #(#WindowSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   220
              #name: 'Application Builder'
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   221
              #layout: #(#LayoutFrame 79 0 285 0 578 0 744 0)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   222
              #label: 'Application Builder'
dd37d7763def initial checkin
tz
parents:
diff changeset
   223
              #min: #(#Point 420 220)
dd37d7763def initial checkin
tz
parents:
diff changeset
   224
              #max: #(#Point 1152 900)
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   225
              #bounds: #(#Rectangle 79 285 579 745)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   226
              #menu: #menu
dd37d7763def initial checkin
tz
parents:
diff changeset
   227
              #usePreferredExtent: false
dd37d7763def initial checkin
tz
parents:
diff changeset
   228
          )
dd37d7763def initial checkin
tz
parents:
diff changeset
   229
          #component: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   230
           #(#SpecCollection
dd37d7763def initial checkin
tz
parents:
diff changeset
   231
              #collection: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   232
               #(
dd37d7763def initial checkin
tz
parents:
diff changeset
   233
                 #(#ViewSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   234
                    #name: 'Box1'
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   235
                    #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 292 0)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   236
                    #component: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   237
                     #(#SpecCollection
dd37d7763def initial checkin
tz
parents:
diff changeset
   238
                        #collection: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   239
                         #(
dd37d7763def initial checkin
tz
parents:
diff changeset
   240
                           #(#ViewSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   241
                              #name: 'Box2'
dd37d7763def initial checkin
tz
parents:
diff changeset
   242
                              #layout: #(#LayoutFrame 0 0.0 0 0.0 -148 1.0 2 1.0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   243
                              #component: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   244
                               #(#SpecCollection
dd37d7763def initial checkin
tz
parents:
diff changeset
   245
                                  #collection: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   246
                                   #(
dd37d7763def initial checkin
tz
parents:
diff changeset
   247
                                     #(#LabelSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   248
                                        #name: 'applicationNameLabel'
dd37d7763def initial checkin
tz
parents:
diff changeset
   249
                                        #layout: #(#AlignmentOrigin 147 0 15 0 1 0.5)
dd37d7763def initial checkin
tz
parents:
diff changeset
   250
                                        #label: 'Application Name:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   251
                                        #adjust: #right
dd37d7763def initial checkin
tz
parents:
diff changeset
   252
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   253
                                     #(#InputFieldSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   254
                                        #name: 'applicationNameField'
dd37d7763def initial checkin
tz
parents:
diff changeset
   255
                                        #layout: #(#LayoutFrame 150 0 4 0 0 1 26 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   256
                                        #activeHelpKey: #applicationName
dd37d7763def initial checkin
tz
parents:
diff changeset
   257
                                        #model: #applicationName
dd37d7763def initial checkin
tz
parents:
diff changeset
   258
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   259
                                     #(#LabelSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   260
                                        #name: 'startupMessageLabel'
dd37d7763def initial checkin
tz
parents:
diff changeset
   261
                                        #layout: #(#AlignmentOrigin 147 0 39 0 1 0.5)
dd37d7763def initial checkin
tz
parents:
diff changeset
   262
                                        #label: 'Startup Message:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   263
                                        #adjust: #right
dd37d7763def initial checkin
tz
parents:
diff changeset
   264
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   265
                                     #(#InputFieldSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   266
                                        #name: 'startupMessageField'
dd37d7763def initial checkin
tz
parents:
diff changeset
   267
                                        #layout: #(#LayoutFrame 150 0 28 0 0 1.0 50 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   268
                                        #activeHelpKey: #startupMessage
dd37d7763def initial checkin
tz
parents:
diff changeset
   269
                                        #model: #startupMessage
dd37d7763def initial checkin
tz
parents:
diff changeset
   270
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   271
                                     #(#LabelSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   272
                                        #name: 'buildDateLabel'
dd37d7763def initial checkin
tz
parents:
diff changeset
   273
                                        #layout: #(#AlignmentOrigin 147 0 63 0 1 0.5)
dd37d7763def initial checkin
tz
parents:
diff changeset
   274
                                        #label: 'Build Date:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   275
                                        #adjust: #right
dd37d7763def initial checkin
tz
parents:
diff changeset
   276
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   277
                                     #(#InputFieldSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   278
                                        #name: 'buildDateField'
dd37d7763def initial checkin
tz
parents:
diff changeset
   279
                                        #layout: #(#LayoutFrame 150 0 52 0 0 1.0 74 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   280
                                        #activeHelpKey: #buildDate
dd37d7763def initial checkin
tz
parents:
diff changeset
   281
                                        #model: #buildDate
dd37d7763def initial checkin
tz
parents:
diff changeset
   282
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   283
                                     #(#LabelSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   284
                                        #name: 'configurationLabel'
dd37d7763def initial checkin
tz
parents:
diff changeset
   285
                                        #layout: #(#AlignmentOrigin 147 0 87 0 1 0.5)
dd37d7763def initial checkin
tz
parents:
diff changeset
   286
                                        #label: 'Configuration:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   287
                                        #adjust: #right
dd37d7763def initial checkin
tz
parents:
diff changeset
   288
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   289
                                     #(#InputFieldSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   290
                                        #name: 'configurationField'
dd37d7763def initial checkin
tz
parents:
diff changeset
   291
                                        #layout: #(#LayoutFrame 150 0 76 0 0 1.0 98 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   292
                                        #activeHelpKey: #configuration
dd37d7763def initial checkin
tz
parents:
diff changeset
   293
                                        #model: #configuration
dd37d7763def initial checkin
tz
parents:
diff changeset
   294
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   295
                                     #(#DividerSpec
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   296
                                        #name: 'Separator2'
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   297
                                        #layout: #(#LayoutFrame 0 0 102 0 0 1 105 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   298
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   299
                                     #(#ActionButtonSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   300
                                        #name: 'targetDirectoryButton'
dd37d7763def initial checkin
tz
parents:
diff changeset
   301
                                        #layout: #(#LayoutFrame 4 0 109 0 147 0 133 0)
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   302
                                        #activeHelpKey: #selectPath
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   303
                                        #label: 'Target Directory:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   304
                                        #model: #doSelectDirectory:
dd37d7763def initial checkin
tz
parents:
diff changeset
   305
                                        #actionValue: 'Target'
dd37d7763def initial checkin
tz
parents:
diff changeset
   306
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   307
                                     #(#InputFieldSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   308
                                        #name: 'targetDirectoryField'
dd37d7763def initial checkin
tz
parents:
diff changeset
   309
                                        #layout: #(#LayoutFrame 150 0 109 0 0 1.0 131 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   310
                                        #activeHelpKey: #targetDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   311
                                        #model: #targetDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   312
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   313
                                     #(#ActionButtonSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   314
                                        #name: 'topDirectoryButton'
dd37d7763def initial checkin
tz
parents:
diff changeset
   315
                                        #layout: #(#LayoutFrame 4 0 133 0 147 0 157 0)
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   316
                                        #activeHelpKey: #selectPath
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   317
                                        #label: 'Top Directory:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   318
                                        #model: #doSelectDirectory:
dd37d7763def initial checkin
tz
parents:
diff changeset
   319
                                        #actionValue: 'Top'
dd37d7763def initial checkin
tz
parents:
diff changeset
   320
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   321
                                     #(#InputFieldSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   322
                                        #name: 'topDirectoryField'
dd37d7763def initial checkin
tz
parents:
diff changeset
   323
                                        #layout: #(#LayoutFrame 150 0 133 0 0 1.0 155 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   324
                                        #activeHelpKey: #topDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   325
                                        #model: #topDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   326
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   327
                                     #(#ActionButtonSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   328
                                        #name: 'libraryDirectoryButton'
dd37d7763def initial checkin
tz
parents:
diff changeset
   329
                                        #layout: #(#LayoutFrame 4 0 157 0 147 0 181 0)
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   330
                                        #activeHelpKey: #selectPath
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   331
                                        #label: 'Library Directory:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   332
                                        #model: #doSelectDirectory:
dd37d7763def initial checkin
tz
parents:
diff changeset
   333
                                        #actionValue: 'Library'
dd37d7763def initial checkin
tz
parents:
diff changeset
   334
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   335
                                     #(#InputFieldSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   336
                                        #name: 'libraryDirectoryField'
dd37d7763def initial checkin
tz
parents:
diff changeset
   337
                                        #layout: #(#LayoutFrame 150 0 157 0 0 1.0 179 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   338
                                        #activeHelpKey: #libraryDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   339
                                        #model: #libraryDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   340
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   341
                                     #(#ActionButtonSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   342
                                        #name: 'startupCFileButton'
dd37d7763def initial checkin
tz
parents:
diff changeset
   343
                                        #layout: #(#LayoutFrame 4 0 181 0 147 0 205 0)
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   344
                                        #activeHelpKey: #selectPath
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   345
                                        #label: 'Startup C-File:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   346
                                        #model: #doSelectCFile:
dd37d7763def initial checkin
tz
parents:
diff changeset
   347
                                        #actionValue: 'StartupCFile'
dd37d7763def initial checkin
tz
parents:
diff changeset
   348
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   349
                                     #(#InputFieldSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   350
                                        #name: 'startupCFileField'
dd37d7763def initial checkin
tz
parents:
diff changeset
   351
                                        #layout: #(#LayoutFrame 150 0 181 0 0 1.0 203 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   352
                                        #activeHelpKey: #startupModule
dd37d7763def initial checkin
tz
parents:
diff changeset
   353
                                        #model: #startupCFile
dd37d7763def initial checkin
tz
parents:
diff changeset
   354
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   355
                                     #(#DividerSpec
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   356
                                        #name: 'Separator3'
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   357
                                        #layout: #(#LayoutFrame 0 0.0 208 0 0 1.0 211 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   358
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   359
                                     #(#LabelSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   360
                                        #name: 'stxLibraryButton'
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   361
                                        #layout: #(#AlignmentOrigin 147 0 227 0 1 0.5)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   362
                                        #label: 'ST/X Libraries:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   363
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   364
                                     #(#ComboBoxSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   365
                                        #name: 'stxLibrariesComboBox'
dd37d7763def initial checkin
tz
parents:
diff changeset
   366
                                        #layout: #(#LayoutFrame 150 0 216 0 0 1 238 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   367
                                        #activeHelpKey: #stxLibraries
dd37d7763def initial checkin
tz
parents:
diff changeset
   368
                                        #model: #stxLibrary
dd37d7763def initial checkin
tz
parents:
diff changeset
   369
                                        #immediateAccept: false
dd37d7763def initial checkin
tz
parents:
diff changeset
   370
                                        #acceptOnTab: false
dd37d7763def initial checkin
tz
parents:
diff changeset
   371
                                        #comboList: #stxLibraries
dd37d7763def initial checkin
tz
parents:
diff changeset
   372
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   373
                                     #(#ActionButtonSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   374
                                        #name: 'systemLibrariesButton'
dd37d7763def initial checkin
tz
parents:
diff changeset
   375
                                        #layout: #(#LayoutFrame 4 0 239 0 147 0 263 0)
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   376
                                        #activeHelpKey: #selectPath
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   377
                                        #label: 'System Libraries:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   378
                                        #model: #doSelectLibrary:
dd37d7763def initial checkin
tz
parents:
diff changeset
   379
                                        #actionValue: 'SystemLibrary'
dd37d7763def initial checkin
tz
parents:
diff changeset
   380
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   381
                                     #(#ComboBoxSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   382
                                        #name: 'systemLibrariesComboBox'
dd37d7763def initial checkin
tz
parents:
diff changeset
   383
                                        #layout: #(#LayoutFrame 150 0 240 0 0 1 262 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   384
                                        #activeHelpKey: #systemLibaries
dd37d7763def initial checkin
tz
parents:
diff changeset
   385
                                        #model: #systemLibrary
dd37d7763def initial checkin
tz
parents:
diff changeset
   386
                                        #immediateAccept: false
dd37d7763def initial checkin
tz
parents:
diff changeset
   387
                                        #acceptOnTab: false
dd37d7763def initial checkin
tz
parents:
diff changeset
   388
                                        #comboList: #systemLibraries
dd37d7763def initial checkin
tz
parents:
diff changeset
   389
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   390
                                     #(#ActionButtonSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   391
                                        #name: 'userLibrariesButton'
dd37d7763def initial checkin
tz
parents:
diff changeset
   392
                                        #layout: #(#LayoutFrame 4 0 263 0 147 0 287 0)
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   393
                                        #activeHelpKey: #selectPath
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   394
                                        #label: 'User Libraries:'
dd37d7763def initial checkin
tz
parents:
diff changeset
   395
                                        #model: #doSelectLibrary:
dd37d7763def initial checkin
tz
parents:
diff changeset
   396
                                        #actionValue: 'UserLibrary'
dd37d7763def initial checkin
tz
parents:
diff changeset
   397
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   398
                                     #(#ComboBoxSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   399
                                        #name: 'userLibrariesComboBox'
dd37d7763def initial checkin
tz
parents:
diff changeset
   400
                                        #layout: #(#LayoutFrame 150 0 264 0 0 1 286 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   401
                                        #activeHelpKey: #userLibraries
dd37d7763def initial checkin
tz
parents:
diff changeset
   402
                                        #model: #userLibrary
dd37d7763def initial checkin
tz
parents:
diff changeset
   403
                                        #immediateAccept: false
dd37d7763def initial checkin
tz
parents:
diff changeset
   404
                                        #acceptOnTab: false
dd37d7763def initial checkin
tz
parents:
diff changeset
   405
                                        #comboList: #userLibraries
dd37d7763def initial checkin
tz
parents:
diff changeset
   406
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   407
                                  )
dd37d7763def initial checkin
tz
parents:
diff changeset
   408
                              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   409
                          )
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   410
                           #(#DividerSpec
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   411
                              #name: 'Separator4'
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   412
                              #layout: #(#LayoutFrame -144 1 0 0.0 -138 1 0 1.0)
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   413
                              #orientation: #vertical
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   414
                          )
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   415
                           #(#ViewSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   416
                              #name: 'Box3'
dd37d7763def initial checkin
tz
parents:
diff changeset
   417
                              #layout: #(#LayoutFrame -134 1 0 0.0 0 1.0 0 1.0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   418
                              #component: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   419
                               #(#SpecCollection
dd37d7763def initial checkin
tz
parents:
diff changeset
   420
                                  #collection: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   421
                                   #(
dd37d7763def initial checkin
tz
parents:
diff changeset
   422
                                     #(#FramedBoxSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   423
                                        #name: 'FramedBox'
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   424
                                        #layout: #(#LayoutFrame -4 0.0 4 0.0 0 1.0 -150 1.0)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   425
                                        #component: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   426
                                         #(#SpecCollection
dd37d7763def initial checkin
tz
parents:
diff changeset
   427
                                            #collection: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   428
                                             #(
dd37d7763def initial checkin
tz
parents:
diff changeset
   429
                                               #(#CheckBoxSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   430
                                                  #name: 'linkRCFilesCheckBox'
dd37d7763def initial checkin
tz
parents:
diff changeset
   431
                                                  #layout: #(#LayoutFrame 12 0 24 0 12 1 46 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   432
                                                  #activeHelpKey: #symlinkRCFiles
dd37d7763def initial checkin
tz
parents:
diff changeset
   433
                                                  #model: #linkRCFiles
dd37d7763def initial checkin
tz
parents:
diff changeset
   434
                                                  #label: 'RC-Files'
dd37d7763def initial checkin
tz
parents:
diff changeset
   435
                                              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   436
                                               #(#CheckBoxSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   437
                                                  #name: 'linkResourcesCheckBox'
dd37d7763def initial checkin
tz
parents:
diff changeset
   438
                                                  #layout: #(#LayoutFrame 12 0 48 0 12 1 70 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   439
                                                  #activeHelpKey: #symlinkResources
dd37d7763def initial checkin
tz
parents:
diff changeset
   440
                                                  #model: #linkResources
dd37d7763def initial checkin
tz
parents:
diff changeset
   441
                                                  #label: 'Resources'
dd37d7763def initial checkin
tz
parents:
diff changeset
   442
                                              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   443
                                               #(#CheckBoxSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   444
                                                  #name: 'linkSourcesCheckBox'
dd37d7763def initial checkin
tz
parents:
diff changeset
   445
                                                  #layout: #(#LayoutFrame 12 0 72 0 12 1 94 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   446
                                                  #activeHelpKey: #symlinkSources
dd37d7763def initial checkin
tz
parents:
diff changeset
   447
                                                  #model: #linkSources
dd37d7763def initial checkin
tz
parents:
diff changeset
   448
                                                  #label: 'Sources'
dd37d7763def initial checkin
tz
parents:
diff changeset
   449
                                              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   450
                                               #(#CheckBoxSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   451
                                                  #name: 'linkBitmapsCheckBox'
dd37d7763def initial checkin
tz
parents:
diff changeset
   452
                                                  #layout: #(#LayoutFrame 12 0 96 0 12 1 118 0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   453
                                                  #activeHelpKey: #symlinkBitmaps
dd37d7763def initial checkin
tz
parents:
diff changeset
   454
                                                  #model: #linkBitmaps
dd37d7763def initial checkin
tz
parents:
diff changeset
   455
                                                  #label: 'Bitmaps'
dd37d7763def initial checkin
tz
parents:
diff changeset
   456
                                              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   457
                                            )
dd37d7763def initial checkin
tz
parents:
diff changeset
   458
                                        )
dd37d7763def initial checkin
tz
parents:
diff changeset
   459
                                        #label: 'Symbolic Links'
dd37d7763def initial checkin
tz
parents:
diff changeset
   460
                                        #labelPosition: #topLeft
dd37d7763def initial checkin
tz
parents:
diff changeset
   461
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   462
                                     #(#VerticalPanelViewSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   463
                                        #name: 'VerticalPanel'
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   464
                                        #layout: #(#LayoutFrame 0 0.0 -144 1 -6 1.0 -2 1.0)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   465
                                        #component: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   466
                                         #(#SpecCollection
dd37d7763def initial checkin
tz
parents:
diff changeset
   467
                                            #collection: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   468
                                             #(
dd37d7763def initial checkin
tz
parents:
diff changeset
   469
                                               #(#ActionButtonSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   470
                                                  #name: 'buildButton'
dd37d7763def initial checkin
tz
parents:
diff changeset
   471
                                                  #activeHelpKey: #build
dd37d7763def initial checkin
tz
parents:
diff changeset
   472
                                                  #label: 'Build'
dd37d7763def initial checkin
tz
parents:
diff changeset
   473
                                                  #model: #doBuild
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   474
                                                  #extent: #(#Point 128 33)
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   475
                                              )
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   476
                                               #(#ActionButtonSpec
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   477
                                                  #name: 'linkButton'
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   478
                                                  #activeHelpKey: #link
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   479
                                                  #label: 'Link'
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   480
                                                  #model: #doLink
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   481
                                                  #extent: #(#Point 128 34)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   482
                                              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   483
                                               #(#ActionButtonSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   484
                                                  #name: 'stopButton'
dd37d7763def initial checkin
tz
parents:
diff changeset
   485
                                                  #activeHelpKey: #stop
dd37d7763def initial checkin
tz
parents:
diff changeset
   486
                                                  #label: 'Stop'
dd37d7763def initial checkin
tz
parents:
diff changeset
   487
                                                  #model: #doStop
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   488
                                                  #extent: #(#Point 128 33)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   489
                                              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   490
                                               #(#ActionButtonSpec
dd37d7763def initial checkin
tz
parents:
diff changeset
   491
                                                  #name: 'Button1'
dd37d7763def initial checkin
tz
parents:
diff changeset
   492
                                                  #activeHelpKey: #start
dd37d7763def initial checkin
tz
parents:
diff changeset
   493
                                                  #label: 'Start'
dd37d7763def initial checkin
tz
parents:
diff changeset
   494
                                                  #model: #doStart
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   495
                                                  #extent: #(#Point 128 33)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   496
                                              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   497
                                            )
dd37d7763def initial checkin
tz
parents:
diff changeset
   498
                                        )
dd37d7763def initial checkin
tz
parents:
diff changeset
   499
                                        #horizontalLayout: #fit
dd37d7763def initial checkin
tz
parents:
diff changeset
   500
                                        #verticalLayout: #fit
dd37d7763def initial checkin
tz
parents:
diff changeset
   501
                                        #horizontalSpace: 3
dd37d7763def initial checkin
tz
parents:
diff changeset
   502
                                        #verticalSpace: 3
dd37d7763def initial checkin
tz
parents:
diff changeset
   503
                                    )
dd37d7763def initial checkin
tz
parents:
diff changeset
   504
                                  )
dd37d7763def initial checkin
tz
parents:
diff changeset
   505
                              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   506
                          )
dd37d7763def initial checkin
tz
parents:
diff changeset
   507
                        )
dd37d7763def initial checkin
tz
parents:
diff changeset
   508
                    )
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   509
                    #borderWidth: 1
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   510
                )
dd37d7763def initial checkin
tz
parents:
diff changeset
   511
                 #(#SubCanvasSpec
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   512
                    #name: 'shellViewSubCanvas'
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   513
                    #layout: #(#LayoutFrame 0 0.0 294 0 0 1.0 -26 1)
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   514
                    #hasHorizontalScrollBar: false
dd37d7763def initial checkin
tz
parents:
diff changeset
   515
                    #hasVerticalScrollBar: false
dd37d7763def initial checkin
tz
parents:
diff changeset
   516
                    #clientHolder: #shellView
dd37d7763def initial checkin
tz
parents:
diff changeset
   517
                )
dd37d7763def initial checkin
tz
parents:
diff changeset
   518
                 #(#UISubSpecification
dd37d7763def initial checkin
tz
parents:
diff changeset
   519
                    #name: 'windowSpecForInfoBar'
dd37d7763def initial checkin
tz
parents:
diff changeset
   520
                    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
dd37d7763def initial checkin
tz
parents:
diff changeset
   521
                    #majorKey: #ToolApplicationModel
dd37d7763def initial checkin
tz
parents:
diff changeset
   522
                    #minorKey: #windowSpecForInfoBar
dd37d7763def initial checkin
tz
parents:
diff changeset
   523
                )
dd37d7763def initial checkin
tz
parents:
diff changeset
   524
              )
dd37d7763def initial checkin
tz
parents:
diff changeset
   525
          )
dd37d7763def initial checkin
tz
parents:
diff changeset
   526
      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   527
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
   528
dd37d7763def initial checkin
tz
parents:
diff changeset
   529
!ApplicationBuilder class methodsFor:'menu specs'!
dd37d7763def initial checkin
tz
parents:
diff changeset
   530
dd37d7763def initial checkin
tz
parents:
diff changeset
   531
menu
dd37d7763def initial checkin
tz
parents:
diff changeset
   532
    "This resource specification was automatically generated
dd37d7763def initial checkin
tz
parents:
diff changeset
   533
     by the MenuEditor of ST/X."
dd37d7763def initial checkin
tz
parents:
diff changeset
   534
dd37d7763def initial checkin
tz
parents:
diff changeset
   535
    "Do not manually edit this!! If it is corrupted,
dd37d7763def initial checkin
tz
parents:
diff changeset
   536
     the MenuEditor may not be able to read the specification."
dd37d7763def initial checkin
tz
parents:
diff changeset
   537
dd37d7763def initial checkin
tz
parents:
diff changeset
   538
    "
dd37d7763def initial checkin
tz
parents:
diff changeset
   539
     MenuEditor new openOnClass:ApplicationBuilder andSelector:#menu
dd37d7763def initial checkin
tz
parents:
diff changeset
   540
     (Menu new fromLiteralArrayEncoding:(ApplicationBuilder menu)) startUp
dd37d7763def initial checkin
tz
parents:
diff changeset
   541
    "
dd37d7763def initial checkin
tz
parents:
diff changeset
   542
dd37d7763def initial checkin
tz
parents:
diff changeset
   543
    <resource: #menu>
dd37d7763def initial checkin
tz
parents:
diff changeset
   544
dd37d7763def initial checkin
tz
parents:
diff changeset
   545
    ^
dd37d7763def initial checkin
tz
parents:
diff changeset
   546
     
dd37d7763def initial checkin
tz
parents:
diff changeset
   547
       #(#Menu
dd37d7763def initial checkin
tz
parents:
diff changeset
   548
          
dd37d7763def initial checkin
tz
parents:
diff changeset
   549
           #(
dd37d7763def initial checkin
tz
parents:
diff changeset
   550
             #(#MenuItem
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   551
                #label: 'About'
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   552
                #labelImage: #(#ResourceRetriever nil #menuIcon)
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   553
                #submenuChannel: #menuAbout
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   554
            )
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   555
             #(#MenuItem
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   556
                #label: 'File'
dd37d7763def initial checkin
tz
parents:
diff changeset
   557
                #submenu: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   558
                 #(#Menu
dd37d7763def initial checkin
tz
parents:
diff changeset
   559
                    
dd37d7763def initial checkin
tz
parents:
diff changeset
   560
                     #(
dd37d7763def initial checkin
tz
parents:
diff changeset
   561
                       #(#MenuItem
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   562
                          #label: 'Exit'
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   563
                          #value: #closeRequest
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   564
                          #activeHelpKey: #fileExit
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   565
                      )
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   566
                    ) nil
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   567
                    nil
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   568
                )
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   569
            )
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   570
             #(#MenuItem
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   571
                #label: 'Application'
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   572
                #submenu: 
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   573
                 #(#Menu
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   574
                    
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   575
                     #(
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   576
                       #(#MenuItem
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   577
                          #label: 'Build'
dd37d7763def initial checkin
tz
parents:
diff changeset
   578
                          #value: #doBuild
dd37d7763def initial checkin
tz
parents:
diff changeset
   579
                          #activeHelpKey: #build
dd37d7763def initial checkin
tz
parents:
diff changeset
   580
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   581
                       #(#MenuItem
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   582
                          #label: 'Link'
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   583
                          #value: #doLink
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   584
                          #activeHelpKey: #link
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   585
                      )
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   586
                       #(#MenuItem
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   587
                          #label: '-'
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   588
                      )
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   589
                       #(#MenuItem
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   590
                          #label: 'Stop'
dd37d7763def initial checkin
tz
parents:
diff changeset
   591
                          #value: #doStop
dd37d7763def initial checkin
tz
parents:
diff changeset
   592
                          #activeHelpKey: #stop
dd37d7763def initial checkin
tz
parents:
diff changeset
   593
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   594
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   595
                          #label: 'Start'
dd37d7763def initial checkin
tz
parents:
diff changeset
   596
                          #value: #doStart
dd37d7763def initial checkin
tz
parents:
diff changeset
   597
                          #activeHelpKey: #start
dd37d7763def initial checkin
tz
parents:
diff changeset
   598
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   599
                    ) nil
dd37d7763def initial checkin
tz
parents:
diff changeset
   600
                    nil
dd37d7763def initial checkin
tz
parents:
diff changeset
   601
                )
dd37d7763def initial checkin
tz
parents:
diff changeset
   602
            )
dd37d7763def initial checkin
tz
parents:
diff changeset
   603
             #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   604
                #label: 'Settings'
dd37d7763def initial checkin
tz
parents:
diff changeset
   605
                #submenu: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   606
                 #(#Menu
dd37d7763def initial checkin
tz
parents:
diff changeset
   607
                    
dd37d7763def initial checkin
tz
parents:
diff changeset
   608
                     #(
dd37d7763def initial checkin
tz
parents:
diff changeset
   609
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   610
                          #label: 'Target Directory...'
dd37d7763def initial checkin
tz
parents:
diff changeset
   611
                          #value: #doSelectDirectory:
dd37d7763def initial checkin
tz
parents:
diff changeset
   612
                          #activeHelpKey: #targetDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   613
                          #argument: 'Target'
dd37d7763def initial checkin
tz
parents:
diff changeset
   614
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   615
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   616
                          #label: 'Top Directory...'
dd37d7763def initial checkin
tz
parents:
diff changeset
   617
                          #value: #doSelectDirectory:
dd37d7763def initial checkin
tz
parents:
diff changeset
   618
                          #activeHelpKey: #topDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   619
                          #argument: 'Top'
dd37d7763def initial checkin
tz
parents:
diff changeset
   620
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   621
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   622
                          #label: 'Library Directory...'
dd37d7763def initial checkin
tz
parents:
diff changeset
   623
                          #value: #doSelectDirectory:
dd37d7763def initial checkin
tz
parents:
diff changeset
   624
                          #activeHelpKey: #libraryDirectory
dd37d7763def initial checkin
tz
parents:
diff changeset
   625
                          #argument: 'Library'
dd37d7763def initial checkin
tz
parents:
diff changeset
   626
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   627
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   628
                          #label: 'Startup C-File...'
dd37d7763def initial checkin
tz
parents:
diff changeset
   629
                          #value: #doSelectCFile:
dd37d7763def initial checkin
tz
parents:
diff changeset
   630
                          #activeHelpKey: #startupCFile
dd37d7763def initial checkin
tz
parents:
diff changeset
   631
                          #argument: 'StartupCFile'
dd37d7763def initial checkin
tz
parents:
diff changeset
   632
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   633
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   634
                          #label: '-'
dd37d7763def initial checkin
tz
parents:
diff changeset
   635
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   636
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   637
                          #label: 'System Libraries...'
dd37d7763def initial checkin
tz
parents:
diff changeset
   638
                          #value: #doSelectLibrary:
dd37d7763def initial checkin
tz
parents:
diff changeset
   639
                          #activeHelpKey: #systemLibaries
dd37d7763def initial checkin
tz
parents:
diff changeset
   640
                          #argument: 'SystemLibrary'
dd37d7763def initial checkin
tz
parents:
diff changeset
   641
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   642
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   643
                          #label: 'User Libraries...'
dd37d7763def initial checkin
tz
parents:
diff changeset
   644
                          #value: #doSelectLibrary:
dd37d7763def initial checkin
tz
parents:
diff changeset
   645
                          #activeHelpKey: #userLibraries
dd37d7763def initial checkin
tz
parents:
diff changeset
   646
                          #argument: 'UserLibrary'
dd37d7763def initial checkin
tz
parents:
diff changeset
   647
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   648
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   649
                          #label: '-'
dd37d7763def initial checkin
tz
parents:
diff changeset
   650
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   651
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   652
                          #label: 'Application Link Defines...'
dd37d7763def initial checkin
tz
parents:
diff changeset
   653
                          #value: #doDefineApplicationLinkDefines
dd37d7763def initial checkin
tz
parents:
diff changeset
   654
                          #activeHelpKey: #applicationLinkDefines
dd37d7763def initial checkin
tz
parents:
diff changeset
   655
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   656
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   657
                          #label: '-'
dd37d7763def initial checkin
tz
parents:
diff changeset
   658
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   659
                       #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   660
                          #label: 'Fonts'
dd37d7763def initial checkin
tz
parents:
diff changeset
   661
                          #submenuChannel: #menuFont
dd37d7763def initial checkin
tz
parents:
diff changeset
   662
                      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   663
                    ) nil
dd37d7763def initial checkin
tz
parents:
diff changeset
   664
                    nil
dd37d7763def initial checkin
tz
parents:
diff changeset
   665
                )
dd37d7763def initial checkin
tz
parents:
diff changeset
   666
            )
dd37d7763def initial checkin
tz
parents:
diff changeset
   667
             #(#MenuItem
dd37d7763def initial checkin
tz
parents:
diff changeset
   668
                #label: 'Help'
dd37d7763def initial checkin
tz
parents:
diff changeset
   669
                #startGroup: #right
dd37d7763def initial checkin
tz
parents:
diff changeset
   670
                #submenuChannel: #menuHelp
dd37d7763def initial checkin
tz
parents:
diff changeset
   671
            )
dd37d7763def initial checkin
tz
parents:
diff changeset
   672
          ) nil
dd37d7763def initial checkin
tz
parents:
diff changeset
   673
          nil
dd37d7763def initial checkin
tz
parents:
diff changeset
   674
      )
dd37d7763def initial checkin
tz
parents:
diff changeset
   675
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
   676
dd37d7763def initial checkin
tz
parents:
diff changeset
   677
!ApplicationBuilder methodsFor:'actions'!
dd37d7763def initial checkin
tz
parents:
diff changeset
   678
dd37d7763def initial checkin
tz
parents:
diff changeset
   679
doBuild
dd37d7763def initial checkin
tz
parents:
diff changeset
   680
    "builds the application by doing following tasks:
dd37d7763def initial checkin
tz
parents:
diff changeset
   681
        0. Clobber the target directory of the application
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   682
        1. Generate the h-file with symbols
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   683
        2. Generate the c-file with modules
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   684
        3. Compile the modules init file
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   685
        4. Compile the startup C-file
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   686
        5. Define the symbolic links to the libraries
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   687
        6. Link the libraries to the application
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   688
        7. Define the symbolic links to the resources
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   689
    "
dd37d7763def initial checkin
tz
parents:
diff changeset
   690
    |dir compilerPath compilerFlags block0 block1 block2 block3 block4 block5 block6 block7 priority|
dd37d7763def initial checkin
tz
parents:
diff changeset
   691
dd37d7763def initial checkin
tz
parents:
diff changeset
   692
    task notNil ifTrue: [self warn: 'There is already a build running!!'].
dd37d7763def initial checkin
tz
parents:
diff changeset
   693
dd37d7763def initial checkin
tz
parents:
diff changeset
   694
    self inform: 'Starting building of application...' asBoldText.
dd37d7763def initial checkin
tz
parents:
diff changeset
   695
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   696
    (dir := self getTargetDirectory) isNil 
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   697
        ifTrue: [^self warn: 'Could not create application directory!!'].
dd37d7763def initial checkin
tz
parents:
diff changeset
   698
dd37d7763def initial checkin
tz
parents:
diff changeset
   699
    shellView directory: dir.
dd37d7763def initial checkin
tz
parents:
diff changeset
   700
dd37d7763def initial checkin
tz
parents:
diff changeset
   701
    (compilerPath := ByteCodeCompiler ccPath, ' ') isNil 
dd37d7763def initial checkin
tz
parents:
diff changeset
   702
        ifTrue: [^self warn:'Define first a system compiler!!'].
dd37d7763def initial checkin
tz
parents:
diff changeset
   703
    compilerFlags := self getCompilerFlags.
dd37d7763def initial checkin
tz
parents:
diff changeset
   704
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   705
    block0 := self getBlockForClobberingTargetDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   706
    block1 := self getBlockForGeneratingHFileWithSymbolsIn: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   707
    block2 := self getBlockForGeneratingCFileWithModulesIn: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   708
    block3 := self getBlockForCompilingModulListFileWith: compilerPath, compilerFlags inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   709
    block4 := self getBlockForCompilingStartupCFileWith: compilerPath, compilerFlags inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   710
    block5 := self getBlockForCreatingSymbolicLinksToTheLibrariesIn: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   711
    block6 := self getBlockForLinkingLibrariesToTheApplicationIn: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   712
    block7 := self getBlockForCreatingSymbolicLinksToTheResourcesIn: dir.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   713
dd37d7763def initial checkin
tz
parents:
diff changeset
   714
    priority := Processor userBackgroundPriority.
dd37d7763def initial checkin
tz
parents:
diff changeset
   715
    task := block0 forkAt: priority.
dd37d7763def initial checkin
tz
parents:
diff changeset
   716
    task addExitAction: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   717
    [
dd37d7763def initial checkin
tz
parents:
diff changeset
   718
        task isNil ifTrue: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   719
        [
dd37d7763def initial checkin
tz
parents:
diff changeset
   720
            task := block1 forkAt: priority.
dd37d7763def initial checkin
tz
parents:
diff changeset
   721
            task addExitAction: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   722
            [
dd37d7763def initial checkin
tz
parents:
diff changeset
   723
                task isNil ifTrue: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   724
                [
dd37d7763def initial checkin
tz
parents:
diff changeset
   725
                    task := block2 forkAt: priority.
dd37d7763def initial checkin
tz
parents:
diff changeset
   726
                    task addExitAction: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   727
                    [
dd37d7763def initial checkin
tz
parents:
diff changeset
   728
                        task isNil ifTrue:
dd37d7763def initial checkin
tz
parents:
diff changeset
   729
                        [
dd37d7763def initial checkin
tz
parents:
diff changeset
   730
                            task := block3 forkAt: priority.
dd37d7763def initial checkin
tz
parents:
diff changeset
   731
                            task addExitAction: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   732
                            [
dd37d7763def initial checkin
tz
parents:
diff changeset
   733
                                task isNil ifTrue: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   734
                                [
dd37d7763def initial checkin
tz
parents:
diff changeset
   735
                                    task := block4 forkAt: priority.
dd37d7763def initial checkin
tz
parents:
diff changeset
   736
                                    task addExitAction: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   737
                                    [
dd37d7763def initial checkin
tz
parents:
diff changeset
   738
                                        task isNil ifTrue: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   739
                                        [
dd37d7763def initial checkin
tz
parents:
diff changeset
   740
                                            task := block5 forkAt: priority.
dd37d7763def initial checkin
tz
parents:
diff changeset
   741
                                            task addExitAction: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   742
                                            [
dd37d7763def initial checkin
tz
parents:
diff changeset
   743
                                                task isNil ifTrue: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   744
                                                [
dd37d7763def initial checkin
tz
parents:
diff changeset
   745
                                                    task := block6 forkAt: priority.
dd37d7763def initial checkin
tz
parents:
diff changeset
   746
                                                    task addExitAction: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   747
                                                    [
dd37d7763def initial checkin
tz
parents:
diff changeset
   748
                                                        task isNil ifTrue: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   749
                                                        [
dd37d7763def initial checkin
tz
parents:
diff changeset
   750
                                                            task := block7 forkAt: priority.
dd37d7763def initial checkin
tz
parents:
diff changeset
   751
                                                            task addExitAction: 
dd37d7763def initial checkin
tz
parents:
diff changeset
   752
                                                            [
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   753
                                                                task isNil 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   754
                                                                    ifTrue: [self inform: 'Application build.' asBoldText]
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   755
                                                                    ifFalse: [self informTargetBuildingFailed].
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   756
                                                                Display beep.
dd37d7763def initial checkin
tz
parents:
diff changeset
   757
                                                            ]   
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   758
                                                        ] ifFalse: [self informTargetBuildingFailed]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   759
                                                    ]
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   760
                                                ] ifFalse: [self informTargetBuildingFailed]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   761
                                            ]
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   762
                                        ] ifFalse: [self informTargetBuildingFailed]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   763
                                    ]
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   764
                                ] ifFalse: [self informTargetBuildingFailed]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   765
                            ]
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   766
                        ] ifFalse: [self informTargetBuildingFailed]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   767
                    ]           
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   768
                ] ifFalse: [self informTargetBuildingFailed]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   769
            ]
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   770
        ] ifFalse: [self informTargetBuildingFailed]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   771
    ]
dd37d7763def initial checkin
tz
parents:
diff changeset
   772
!
dd37d7763def initial checkin
tz
parents:
diff changeset
   773
dd37d7763def initial checkin
tz
parents:
diff changeset
   774
doDefineApplicationLinkDefines
dd37d7763def initial checkin
tz
parents:
diff changeset
   775
    "opens a dialog for defining the application defines"
dd37d7763def initial checkin
tz
parents:
diff changeset
   776
dd37d7763def initial checkin
tz
parents:
diff changeset
   777
    |box|
dd37d7763def initial checkin
tz
parents:
diff changeset
   778
    box := EnterBox new.
dd37d7763def initial checkin
tz
parents:
diff changeset
   779
    box label: 'Application Link Defines'.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   780
    box initialText: (aspects at: #applicationLinkDefines) value.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   781
    box showAtPointer.
dd37d7763def initial checkin
tz
parents:
diff changeset
   782
    box accepted
dd37d7763def initial checkin
tz
parents:
diff changeset
   783
    ifTrue:
dd37d7763def initial checkin
tz
parents:
diff changeset
   784
    [
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   785
        (aspects at: #applicationLinkDefines) value: box contents
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   786
    ].
dd37d7763def initial checkin
tz
parents:
diff changeset
   787
    box destroy
dd37d7763def initial checkin
tz
parents:
diff changeset
   788
!
dd37d7763def initial checkin
tz
parents:
diff changeset
   789
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   790
doLink
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   791
    "links the application"
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   792
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   793
    |dir block priority|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   794
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   795
    task notNil ifTrue: [self warn: 'There is already a build running!!'].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   796
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   797
    self inform: 'Starting building of application...' asBoldText.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   798
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   799
    (dir := self getTargetDirectory) isNil 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   800
        ifTrue: [^self warn: 'Could not create application directory!!'].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   801
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   802
    shellView directory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   803
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   804
    block := self getBlockForLinkingLibrariesToTheApplicationIn: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   805
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   806
    priority := Processor userBackgroundPriority.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   807
    task := block forkAt: priority.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   808
    task addExitAction: 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   809
    [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   810
        task isNil 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   811
            ifTrue: [self inform: 'Application build.' asBoldText]
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   812
            ifFalse:[self informTargetBuildingFailed].
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   813
        Display beep.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   814
    ]
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   815
!
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   816
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   817
doSelectCFile: whichFile
dd37d7763def initial checkin
tz
parents:
diff changeset
   818
    "opens a FileSelectionBrowser in order to select C-file"
dd37d7763def initial checkin
tz
parents:
diff changeset
   819
dd37d7763def initial checkin
tz
parents:
diff changeset
   820
    |currentFile selectedFile|
dd37d7763def initial checkin
tz
parents:
diff changeset
   821
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   822
    currentFile := aspects at: whichFile asLowercaseFirst asSymbol.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   823
dd37d7763def initial checkin
tz
parents:
diff changeset
   824
    ((selectedFile := FileSelectionBrowser
dd37d7763def initial checkin
tz
parents:
diff changeset
   825
        request: 'Select Your ', whichFile, ' File' 
dd37d7763def initial checkin
tz
parents:
diff changeset
   826
        fileName: currentFile value
dd37d7763def initial checkin
tz
parents:
diff changeset
   827
        withFileFilters: #('*.c')) notNil and:
dd37d7763def initial checkin
tz
parents:
diff changeset
   828
    [selectedFile asFilename exists and: [selectedFile asFilename isDirectory not]]) 
dd37d7763def initial checkin
tz
parents:
diff changeset
   829
        ifTrue: [currentFile value: selectedFile]
dd37d7763def initial checkin
tz
parents:
diff changeset
   830
dd37d7763def initial checkin
tz
parents:
diff changeset
   831
dd37d7763def initial checkin
tz
parents:
diff changeset
   832
!
dd37d7763def initial checkin
tz
parents:
diff changeset
   833
dd37d7763def initial checkin
tz
parents:
diff changeset
   834
doSelectDirectory: whichDir
dd37d7763def initial checkin
tz
parents:
diff changeset
   835
    "opens a FileSelectionBrowser in order to select directory"
dd37d7763def initial checkin
tz
parents:
diff changeset
   836
dd37d7763def initial checkin
tz
parents:
diff changeset
   837
    |currentDir selectedDir|
dd37d7763def initial checkin
tz
parents:
diff changeset
   838
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   839
    currentDir := aspects at: (whichDir asLowercaseFirst, 'Directory') asSymbol.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   840
dd37d7763def initial checkin
tz
parents:
diff changeset
   841
    ((selectedDir := FileSelectionBrowser
dd37d7763def initial checkin
tz
parents:
diff changeset
   842
        request: 'Select Your ', whichDir, ' Directory' 
dd37d7763def initial checkin
tz
parents:
diff changeset
   843
        fileName: nil 
dd37d7763def initial checkin
tz
parents:
diff changeset
   844
        inDirectory: currentDir value
dd37d7763def initial checkin
tz
parents:
diff changeset
   845
        withFileFilters: #('*.*o')) notNil and:
dd37d7763def initial checkin
tz
parents:
diff changeset
   846
    [selectedDir asFilename exists and: [selectedDir asFilename isDirectory]]) 
dd37d7763def initial checkin
tz
parents:
diff changeset
   847
        ifTrue: [currentDir value: selectedDir. shellView executeCommand: 'cd ', selectedDir]
dd37d7763def initial checkin
tz
parents:
diff changeset
   848
dd37d7763def initial checkin
tz
parents:
diff changeset
   849
dd37d7763def initial checkin
tz
parents:
diff changeset
   850
!
dd37d7763def initial checkin
tz
parents:
diff changeset
   851
dd37d7763def initial checkin
tz
parents:
diff changeset
   852
doSelectLibrary: whichFile
dd37d7763def initial checkin
tz
parents:
diff changeset
   853
    "opens a FileSelectionBrowser in order to select library"
dd37d7763def initial checkin
tz
parents:
diff changeset
   854
dd37d7763def initial checkin
tz
parents:
diff changeset
   855
    |currentFile selectedFile|
dd37d7763def initial checkin
tz
parents:
diff changeset
   856
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   857
    currentFile := aspects at: whichFile asLowercaseFirst asSymbol.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   858
dd37d7763def initial checkin
tz
parents:
diff changeset
   859
    ((selectedFile := FileSelectionBrowser
dd37d7763def initial checkin
tz
parents:
diff changeset
   860
        request: 'Select Your ', whichFile, ' File' 
dd37d7763def initial checkin
tz
parents:
diff changeset
   861
        fileName: currentFile value
dd37d7763def initial checkin
tz
parents:
diff changeset
   862
        withFileFilters: #('*.*o' '*.a')) notNil and:
dd37d7763def initial checkin
tz
parents:
diff changeset
   863
    [selectedFile asFilename exists and: [selectedFile asFilename isDirectory not]]) 
dd37d7763def initial checkin
tz
parents:
diff changeset
   864
        ifTrue: [currentFile value: selectedFile]
dd37d7763def initial checkin
tz
parents:
diff changeset
   865
dd37d7763def initial checkin
tz
parents:
diff changeset
   866
dd37d7763def initial checkin
tz
parents:
diff changeset
   867
!
dd37d7763def initial checkin
tz
parents:
diff changeset
   868
dd37d7763def initial checkin
tz
parents:
diff changeset
   869
doStart
dd37d7763def initial checkin
tz
parents:
diff changeset
   870
    "starts the build application"
dd37d7763def initial checkin
tz
parents:
diff changeset
   871
dd37d7763def initial checkin
tz
parents:
diff changeset
   872
    |dir|
dd37d7763def initial checkin
tz
parents:
diff changeset
   873
    self doStop.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   874
    (dir := self getTargetDirectory) isNil 
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   875
        ifTrue: [^self warn: 'Application directory does not exists!!'].
dd37d7763def initial checkin
tz
parents:
diff changeset
   876
dd37d7763def initial checkin
tz
parents:
diff changeset
   877
    shellView directory: dir.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   878
    shellView executeCommand: (aspects at: #applicationName) value.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   879
dd37d7763def initial checkin
tz
parents:
diff changeset
   880
!
dd37d7763def initial checkin
tz
parents:
diff changeset
   881
dd37d7763def initial checkin
tz
parents:
diff changeset
   882
doStop
dd37d7763def initial checkin
tz
parents:
diff changeset
   883
    "terminates the task of the current build"
dd37d7763def initial checkin
tz
parents:
diff changeset
   884
dd37d7763def initial checkin
tz
parents:
diff changeset
   885
    task notNil ifTrue: [task removeAllExitActions. task terminate].
dd37d7763def initial checkin
tz
parents:
diff changeset
   886
    task := nil.
dd37d7763def initial checkin
tz
parents:
diff changeset
   887
    shellView executeCommand: 'clear'.
dd37d7763def initial checkin
tz
parents:
diff changeset
   888
    self inform: ''
dd37d7763def initial checkin
tz
parents:
diff changeset
   889
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   890
!
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   891
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   892
executeCommand: aCommand inDirectory: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   893
    "executes aCommand in directory dir; put aCommand and the result into the shell view"
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   894
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   895
    |outStream|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   896
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   897
    shellView directory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   898
    shellView append: shellView getDirectoryTextString, ' ', aCommand.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   899
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   900
    outStream:= PipeStream readingFrom: aCommand errorDisposition:#inline inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   901
    [      
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   902
        outStream canReadWithoutBlocking
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   903
        ifTrue:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   904
        [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   905
            outStream readWait.
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
   906
            shellView append: (Text string: (outStream upTo: Character cr) color: Color red).
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   907
        ].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   908
    ] doWhile:[outStream atEnd not].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   909
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   910
    outStream close
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   911
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   912
!
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   913
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   914
inform: aString
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   915
    "outputs aString via shell view as information"
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   916
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   917
    shellView commandInputField contents: aString
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   918
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   919
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   920
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   921
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   922
!
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   923
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   924
informTargetBuildingFailed
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   925
    "informs that something went wrong"
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   926
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
   927
    self inform: 'Application building failed.' asBoldText.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   928
    task := nil
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   929
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
   930
dd37d7763def initial checkin
tz
parents:
diff changeset
   931
!ApplicationBuilder methodsFor:'aspects'!
dd37d7763def initial checkin
tz
parents:
diff changeset
   932
dd37d7763def initial checkin
tz
parents:
diff changeset
   933
aspectFor:aKey
dd37d7763def initial checkin
tz
parents:
diff changeset
   934
    "returns an aspect at aKey"
dd37d7763def initial checkin
tz
parents:
diff changeset
   935
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   936
    ^aspects at: aKey ifAbsent: [super aspectFor:aKey]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   937
!
dd37d7763def initial checkin
tz
parents:
diff changeset
   938
dd37d7763def initial checkin
tz
parents:
diff changeset
   939
aspectsAt: aKey putFirst: anObject
dd37d7763def initial checkin
tz
parents:
diff changeset
   940
    "puts firstly anObject as ValueHolder at aKey and returns it"
dd37d7763def initial checkin
tz
parents:
diff changeset
   941
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   942
    ^aspects at: aKey ifAbsent: [aspects at: aKey put: anObject asValue]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   943
dd37d7763def initial checkin
tz
parents:
diff changeset
   944
dd37d7763def initial checkin
tz
parents:
diff changeset
   945
dd37d7763def initial checkin
tz
parents:
diff changeset
   946
dd37d7763def initial checkin
tz
parents:
diff changeset
   947
dd37d7763def initial checkin
tz
parents:
diff changeset
   948
dd37d7763def initial checkin
tz
parents:
diff changeset
   949
dd37d7763def initial checkin
tz
parents:
diff changeset
   950
dd37d7763def initial checkin
tz
parents:
diff changeset
   951
dd37d7763def initial checkin
tz
parents:
diff changeset
   952
dd37d7763def initial checkin
tz
parents:
diff changeset
   953
dd37d7763def initial checkin
tz
parents:
diff changeset
   954
dd37d7763def initial checkin
tz
parents:
diff changeset
   955
dd37d7763def initial checkin
tz
parents:
diff changeset
   956
dd37d7763def initial checkin
tz
parents:
diff changeset
   957
dd37d7763def initial checkin
tz
parents:
diff changeset
   958
dd37d7763def initial checkin
tz
parents:
diff changeset
   959
dd37d7763def initial checkin
tz
parents:
diff changeset
   960
dd37d7763def initial checkin
tz
parents:
diff changeset
   961
dd37d7763def initial checkin
tz
parents:
diff changeset
   962
dd37d7763def initial checkin
tz
parents:
diff changeset
   963
dd37d7763def initial checkin
tz
parents:
diff changeset
   964
dd37d7763def initial checkin
tz
parents:
diff changeset
   965
dd37d7763def initial checkin
tz
parents:
diff changeset
   966
dd37d7763def initial checkin
tz
parents:
diff changeset
   967
dd37d7763def initial checkin
tz
parents:
diff changeset
   968
dd37d7763def initial checkin
tz
parents:
diff changeset
   969
dd37d7763def initial checkin
tz
parents:
diff changeset
   970
dd37d7763def initial checkin
tz
parents:
diff changeset
   971
!
dd37d7763def initial checkin
tz
parents:
diff changeset
   972
dd37d7763def initial checkin
tz
parents:
diff changeset
   973
shellView
dd37d7763def initial checkin
tz
parents:
diff changeset
   974
    "returns a shell view"
dd37d7763def initial checkin
tz
parents:
diff changeset
   975
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   976
    shellView isNil ifTrue: [shellView := ShellView new. shellView directory: (aspects at: #topDirectory) value]. 
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   977
    ^shellView 
dd37d7763def initial checkin
tz
parents:
diff changeset
   978
dd37d7763def initial checkin
tz
parents:
diff changeset
   979
dd37d7763def initial checkin
tz
parents:
diff changeset
   980
dd37d7763def initial checkin
tz
parents:
diff changeset
   981
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
   982
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   983
!ApplicationBuilder methodsFor:'building blocks'!
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   984
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   985
getBlockForClobberingTargetDirectory: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   986
    "returns the block for clobbering the target directory of the application"
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   987
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   988
    ^
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   989
    [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   990
        self inform: 'Clobbering the target directory...'.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   991
        self executeCommand: 'rm -r *' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   992
        task := nil
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   993
    ]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   994
dd37d7763def initial checkin
tz
parents:
diff changeset
   995
!
dd37d7763def initial checkin
tz
parents:
diff changeset
   996
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   997
getBlockForCompilingModulListFileWith: compilerPathAndFlags inDirectory: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
   998
    "returns the block for compiling the C-file with the list of the module names"
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
   999
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1000
    ^
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1001
    [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1002
        |command|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1003
        self inform: 'Starting compilation of the modules init file...'.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1004
        command := compilerPathAndFlags , ' -c -fPIC -O6 -fomit-frame-pointer -m486 -DDEBUG -Di386 modulList.c'.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1005
        self executeCommand: command inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1006
        (dir asFilename construct: 'modulList.o') exists
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1007
            ifTrue:  [task := nil]
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1008
            ifFalse: [self warn:'Could not compile the modules file!!']
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1009
    ]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1010
!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1011
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1012
getBlockForCompilingStartupCFileWith: compilerPathAndFlags inDirectory: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1013
    "returns the block for compiling the startup file with passing startup class, startup selector, configuration string, and build date"
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1014
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1015
    ^
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1016
    [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1017
        |startUpClass cls startUpSelector startupFile command|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1018
        ((aspects at: #startupCFile) value asFilename) exists  
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1019
        ifFalse: 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1020
        [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1021
            self warn: 'Defined startup C-file not found!!'
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1022
        ]
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1023
        ifTrue:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1024
        [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1025
            self inform: 'Starting compilation of the startup C-file...'.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1026
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1027
            startUpClass    := ((aspects at: #startupMessage) value upTo: $ ) asSymbol.
1559
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1028
            (cls := Smalltalk at: startUpClass) isNil 
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1029
            ifTrue: 
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1030
            [
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1031
                self warn: 'Defined class not found in system!!'
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1032
            ]
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1033
            ifFalse:
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1034
            [
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1035
                startUpSelector := ((aspects at: #startupMessage) value copy reverse upTo: $ ) reverse asSymbol.
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1036
                (cls respondsTo: startUpSelector) 
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1037
                ifFalse: 
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1038
                [
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1039
                    self warn: 'Defined class does not respond to the defined selector!!'
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1040
                ]
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1041
                ifTrue:
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1042
                [
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1043
                    startupFile     := (aspects at: #startupCFile) value asFilename.
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1044
                    startupFile copyTo: (startupFile := dir asFilename construct: (aspects at: #startupCFile) value asFilename baseName).
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1045
                    command := compilerPathAndFlags , ' -o main.o -c -O -O6 -fomit-frame-pointer -m486 -DDEBUG -Di386 ',
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1046
                        '-DSTARTUP_CLASS="\"',        startUpClass, '\"" ',
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1047
                        '-DSTARTUP_SELECTOR="\"',     startUpSelector, '\"" ',
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1048
                        '-DCONFIGURATION_STRING="\"', (aspects at: #configuration)   value, '\"" ',
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1049
                        '-DBUILD_DATE="\"',           (aspects at: #buildDate)       value, '\"" ',
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1050
                        startupFile name.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1051
1559
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1052
                    self executeCommand: command inDirectory: dir
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1053
                ]
088d6bc754c9 consider failures
tz
parents: 1558
diff changeset
  1054
            ]
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1055
        ].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1056
        (dir asFilename construct: 'main.o') exists
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1057
            ifTrue:  [task := nil]
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1058
            ifFalse: [self warn:'Could not compile the startup C-file!!']
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1059
    ]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1060
!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1061
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1062
getBlockForCreatingSymbolicLinksToTheLibrariesIn: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1063
    "returns the block for creating the symbolic links to the libraries"
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1064
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1065
    ^
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1066
    [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1067
        self inform: 'Starting defining of the symbolic links to the libraries...'.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1068
        self getLibraryFileNames value do:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1069
        [:libPath|       
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1070
            self executeCommand: 'ln -s ', libPath , ' ', libPath asFilename head inDirectory: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1071
        ].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1072
        task := nil. 
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1073
    ]
dd37d7763def initial checkin
tz
parents:
diff changeset
  1074
dd37d7763def initial checkin
tz
parents:
diff changeset
  1075
!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1076
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1077
getBlockForCreatingSymbolicLinksToTheResourcesIn: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1078
    "returns the block for creating the symbolic links to the resources"
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1079
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1080
    ^
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1081
    [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1082
        self inform: 'Starting linking of the resources...'.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1083
        (aspects at: #linkRCFiles) value
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1084
        ifTrue:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1085
        [                
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1086
            self executeCommand: 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1087
                'ln -s ', 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1088
                ((aspects at: #libraryDirectory) value asFilename construct: '*.rc') name, ' ', 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1089
                (aspects at: #targetDirectory) value inDirectory: dir.
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1090
            self executeCommand: 
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1091
                'ln -s ', 
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1092
                ((aspects at: #libraryDirectory) value asFilename construct: 'patches') name, ' ', 
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1093
                (aspects at: #targetDirectory) value inDirectory: dir.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1094
        ].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1095
        (aspects at: #linkResources) value
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1096
        ifTrue:
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1097
        [ 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1098
            self executeCommand: 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1099
                'cp -r -d ', 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1100
                ((aspects at: #libraryDirectory) value asFilename construct: 'resources') name, ' ', 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1101
                (aspects at: #targetDirectory) value inDirectory: dir.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1102
        ].
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1103
        (aspects at: #linkSources) value
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1104
        ifTrue:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1105
        [ 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1106
            self executeCommand: 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1107
                'cp -r -d ', 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1108
                ((aspects at: #libraryDirectory) value asFilename construct: 'source') name, ' ', 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1109
                (aspects at: #targetDirectory) value inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1110
        ].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1111
        (aspects at: #linkBitmaps) value
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1112
        ifTrue:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1113
        [ 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1114
            self executeCommand: 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1115
                'cp -r -d ', 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1116
                ((aspects at: #libraryDirectory) value asFilename construct: 'bitmaps') name, ' ', 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1117
                (aspects at: #targetDirectory) value inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1118
        ].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1119
        task := nil.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1120
    ]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1121
dd37d7763def initial checkin
tz
parents:
diff changeset
  1122
!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1123
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1124
getBlockForGeneratingCFileWithModulesIn: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1125
    "returns the block for generating a C-file with the modules in directory dir"
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1126
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1127
    ^
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1128
    [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1129
        |selectionOfLibraries|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1130
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1131
        self inform: 'Starting generation of the C-file with modules...'.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1132
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1133
        selectionOfLibraries := self getModuleNames.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1134
        self executeCommand: 'echo "#include <stcIntern.h>" > modulList.c' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1135
        self executeCommand: 'echo "typedef void (*vf)();" >> modulList.c' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1136
        selectionOfLibraries do:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1137
        [:lib|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1138
            self executeCommand: 'echo "extern void _', lib, '_Init();" >> modulList.c' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1139
        ].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1140
        self executeCommand: 'echo "static vf modules[] = {" >> modulList.c' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1141
        selectionOfLibraries do:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1142
        [:lib|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1143
            self executeCommand: 'echo "_', lib, '_Init," >> modulList.c' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1144
        ].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1145
        self executeCommand: 'echo "(vf)0};" >> modulList.c' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1146
        self executeCommand: 'echo "vf *__modules__ = modules;" >> modulList.c' inDirectory: dir.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1147
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1148
        (dir asFilename construct: 'modulList.c') exists
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1149
            ifTrue:  [task := nil]
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1150
            ifFalse: [self warn:'Could not generate the C-file with libraries!!']
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1151
    ]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1152
dd37d7763def initial checkin
tz
parents:
diff changeset
  1153
!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1154
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1155
getBlockForGeneratingHFileWithSymbolsIn: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1156
    "returns the block for generating a H-file with the symbols in directory dir"
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1157
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1158
    ^
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1159
    [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1160
        |symbolsFile realInc|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1161
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1162
        self inform: 'Starting generation of the h-file with symbols...'.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1163
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1164
        ByteCodeCompiler stcCompilationIncludes asArrayOfSubstrings do:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1165
        [:inc|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1166
            realInc := inc readStream.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1167
            realInc upTo: $/. 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1168
            realInc := '/', realInc upToEnd.      
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1169
            (symbolsFile := realInc asFilename construct: 'symbols.stc') exists
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1170
            ifTrue:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1171
            [   
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1172
                self executeCommand: 'echo "char *__symbols[] = {" > symbols.h' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1173
                self executeCommand: 'sed ''s/^/"/'' < ', symbolsFile name,' | sed ''s/$/",/'' | sed ''s/\\/\\\\/g'' >> symbols.h' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1174
                self executeCommand: 'echo "0 };" >> symbols.h' inDirectory: dir.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1175
            ]
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1176
        ].
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1177
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1178
        (dir asFilename construct: 'symbols.h') exists
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1179
            ifTrue:  [task := nil]
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1180
            ifFalse: [self warn:'Could not generate the h-file with symbols!!']
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1181
    ]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1182
dd37d7763def initial checkin
tz
parents:
diff changeset
  1183
!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1184
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1185
getBlockForLinkingLibrariesToTheApplicationIn: dir
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1186
    "returns the block for linking the libraries to the application"
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1187
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1188
    ^
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1189
    [
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1190
        |appName command|
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1191
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1192
        self inform: 'Starting linking of the libraries to the application...'.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1193
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1194
        appName := (aspects at: #applicationName) value.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1195
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1196
        command := ByteCodeCompiler ccPath,
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1197
            ' ', (aspects at: #applicationLinkDefines) value, ' ',
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1198
            ' -o ' , appName,
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1199
            ' modulList.o main.o ', 
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1200
            ((aspects at: #libraryDirectory) value asFilename construct: 'librun', ObjectFileLoader sharedLibraryExtension) name, ' ',
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1201
            ((self getLibraryFileNames, (aspects at: #systemLibraries) value) asStringCollection asStringWith: $ ).
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1202
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1203
        self executeCommand: command inDirectory: dir.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1204
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1205
        (dir asFilename construct: (aspects at: #applicationName) value) exists
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1206
            ifTrue:  [task := nil]
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1207
            ifFalse: [self warn:'Could not build the application!!']
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1208
    ]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1209
dd37d7763def initial checkin
tz
parents:
diff changeset
  1210
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
  1211
dd37d7763def initial checkin
tz
parents:
diff changeset
  1212
!ApplicationBuilder methodsFor:'change & update'!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1213
dd37d7763def initial checkin
tz
parents:
diff changeset
  1214
update:something with:aParameter from:changedObject
dd37d7763def initial checkin
tz
parents:
diff changeset
  1215
    "updates the combo boxes with the library names and the module names"
dd37d7763def initial checkin
tz
parents:
diff changeset
  1216
dd37d7763def initial checkin
tz
parents:
diff changeset
  1217
    |library libraries|
dd37d7763def initial checkin
tz
parents:
diff changeset
  1218
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1219
    changedObject == (aspects at: #stxLibrary ifAbsent: nil) 
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1220
    ifTrue: 
dd37d7763def initial checkin
tz
parents:
diff changeset
  1221
    [                
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1222
        libraries := (aspects at: #stxLibraries) value.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1223
        (aspects at: #stxLibrary) value size = 0 ifTrue: [libraries remove: (aspects at: #oldSTXLibrary) value ifAbsent: nil].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1224
        (aspects at: #oldSTXLibrary) value: (library := (aspects at: #stxLibrary) value).
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1225
    ].
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1226
    changedObject == (aspects at: #systemLibrary) 
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1227
    ifTrue: 
dd37d7763def initial checkin
tz
parents:
diff changeset
  1228
    [                
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1229
        libraries := (aspects at: #systemLibraries) value.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1230
        (aspects at: #systemLibrary) value size = 0 ifTrue: [libraries remove: (aspects at: #oldSystemLibrary) value ifAbsent: nil].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1231
        (aspects at: #oldSystemLibrary) value: (library := (aspects at: #systemLibrary) value).
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1232
    ].
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1233
    changedObject == (aspects at: #userLibrary ifAbsent: nil) 
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1234
    ifTrue: 
dd37d7763def initial checkin
tz
parents:
diff changeset
  1235
    [                
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1236
        libraries := (aspects at: #userLibraries) value.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1237
        (aspects at: #userLibrary) value size = 0 ifTrue: [libraries remove: (aspects at: #oldUserLibrary) value ifAbsent: nil].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1238
        (aspects at: #oldUserLibrary) value: (library := (aspects at: #userLibrary) value).
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1239
    ].
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1240
    (libraries includes: library) not & library notEmpty
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1241
    ifTrue:
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1242
    [   
1630
0303b4b6a5ce grammar
tz
parents: 1564
diff changeset
  1243
        libraries add: library
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1244
    ]
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1245
dd37d7763def initial checkin
tz
parents:
diff changeset
  1246
dd37d7763def initial checkin
tz
parents:
diff changeset
  1247
dd37d7763def initial checkin
tz
parents:
diff changeset
  1248
dd37d7763def initial checkin
tz
parents:
diff changeset
  1249
dd37d7763def initial checkin
tz
parents:
diff changeset
  1250
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
  1251
dd37d7763def initial checkin
tz
parents:
diff changeset
  1252
!ApplicationBuilder methodsFor:'initialization'!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1253
dd37d7763def initial checkin
tz
parents:
diff changeset
  1254
initialize
dd37d7763def initial checkin
tz
parents:
diff changeset
  1255
    "initialize all aspects"
dd37d7763def initial checkin
tz
parents:
diff changeset
  1256
1564
9a5fedae64f2 path fixes
Claus Gittinger <cg@exept.de>
parents: 1559
diff changeset
  1257
    |topDir|
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1258
dd37d7763def initial checkin
tz
parents:
diff changeset
  1259
    super initialize.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1260
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1261
    aspects := self class aspects.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1262
1564
9a5fedae64f2 path fixes
Claus Gittinger <cg@exept.de>
parents: 1559
diff changeset
  1263
    topDir := (Filename currentDirectory asFilename construct:'..') construct:'..'.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1264
1564
9a5fedae64f2 path fixes
Claus Gittinger <cg@exept.de>
parents: 1559
diff changeset
  1265
    self aspectsAt: #topDirectory      putFirst: topDir pathName.
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1266
    aspects     at: #systemLibraries   put: ObjectFileLoader searchedLibraries asValue.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1267
    (aspects at: #systemLibrary        put: ((aspects at: #systemLibraries) value at: 1 ifAbsent: '') asValue) addDependent: self.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1268
    self aspectsAt: #oldSystemLibrary putFirst: (aspects at: #systemLibrary) value.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1269
    self aspectsAt: #configuration     putFirst: Smalltalk configuration.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1270
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1271
    self class ~~ ApplicationBuilder ifTrue: [^self].
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1272
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1273
    self aspectsAt: #applicationName   putFirst: 'application'.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1274
    self aspectsAt: #startupMessage    putFirst: 'Smalltalk start'.
1564
9a5fedae64f2 path fixes
Claus Gittinger <cg@exept.de>
parents: 1559
diff changeset
  1275
    self aspectsAt: #startupCFile      putFirst: (topDir construct: 'librun/main.c') pathName.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1276
1564
9a5fedae64f2 path fixes
Claus Gittinger <cg@exept.de>
parents: 1559
diff changeset
  1277
    self aspectsAt: #targetDirectory   putFirst: ((topDir construct: 'projects') construct:'application') pathName.
9a5fedae64f2 path fixes
Claus Gittinger <cg@exept.de>
parents: 1559
diff changeset
  1278
    self aspectsAt: #libraryDirectory  putFirst: ((topDir construct: 'projects') construct:'smalltalk') pathName.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1279
dd37d7763def initial checkin
tz
parents:
diff changeset
  1280
    self aspectsAt: #stxLibraries      putFirst: 
dd37d7763def initial checkin
tz
parents:
diff changeset
  1281
        (ObjectMemory binaryModuleInfo collect: [:binMoInfo| (binMoInfo name copy reverse upTo: $ ) reverse]) asSortedCollection.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1282
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1283
    self aspectsAt: #userLibraries     putFirst: OrderedCollection new.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1284
1564
9a5fedae64f2 path fixes
Claus Gittinger <cg@exept.de>
parents: 1559
diff changeset
  1285
    aspects at:     #buildDate         put:      (Date today printString, ' ', Time now printString) asValue.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1286
dd37d7763def initial checkin
tz
parents:
diff changeset
  1287
    self aspectsAt: #linkRCFiles       putFirst: true.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1288
    self aspectsAt: #linkResources     putFirst: true.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1289
    self aspectsAt: #linkSources       putFirst: true.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1290
    self aspectsAt: #linkBitmaps       putFirst: true.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1291
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1292
    (aspects at: #stxLibrary           put: ((aspects at: #stxLibraries)    value at: 1 ifAbsent: '') asValue) addDependent: self.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1293
    (aspects at: #userLibrary          put: ((aspects at: #userLibraries)   value at: 1 ifAbsent: '') asValue) addDependent: self.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1294
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1295
    self aspectsAt: #oldSTXLibrary    putFirst: (aspects at: #stxLibrary) value.
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1296
    self aspectsAt: #oldUserLibrary   putFirst: (aspects at: #userLibrary) value.
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1297
dd37d7763def initial checkin
tz
parents:
diff changeset
  1298
    self aspectsAt: #applicationLinkDefines putFirst: '-L/usr/X11/lib -Llib -Lbinary -L. -L/usr/local/lib -L/usr/lib -L/lib -lm -ldl -lXext -lX11'.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1299
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
  1300
dd37d7763def initial checkin
tz
parents:
diff changeset
  1301
!ApplicationBuilder methodsFor:'queries'!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1302
dd37d7763def initial checkin
tz
parents:
diff changeset
  1303
getCompilerFlags
dd37d7763def initial checkin
tz
parents:
diff changeset
  1304
    "returns the defines of the OS and the compiler flags of the ByteCodeCompiler"
dd37d7763def initial checkin
tz
parents:
diff changeset
  1305
dd37d7763def initial checkin
tz
parents:
diff changeset
  1306
    |compilerFlags|
dd37d7763def initial checkin
tz
parents:
diff changeset
  1307
dd37d7763def initial checkin
tz
parents:
diff changeset
  1308
    compilerFlags := OperatingSystem getOSDefine ? ''.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1309
dd37d7763def initial checkin
tz
parents:
diff changeset
  1310
    ByteCodeCompiler stcCompilationDefines notNil 
dd37d7763def initial checkin
tz
parents:
diff changeset
  1311
        ifTrue:[compilerFlags := compilerFlags , ' ' , ByteCodeCompiler stcCompilationDefines].
dd37d7763def initial checkin
tz
parents:
diff changeset
  1312
    ByteCodeCompiler stcCompilationIncludes notNil 
dd37d7763def initial checkin
tz
parents:
diff changeset
  1313
        ifTrue:[compilerFlags := compilerFlags , ' ' , ByteCodeCompiler stcCompilationIncludes].
dd37d7763def initial checkin
tz
parents:
diff changeset
  1314
    ByteCodeCompiler ccCompilationOptions notNil 
dd37d7763def initial checkin
tz
parents:
diff changeset
  1315
        ifTrue:[compilerFlags := compilerFlags , ' ' , ByteCodeCompiler ccCompilationOptions].
dd37d7763def initial checkin
tz
parents:
diff changeset
  1316
dd37d7763def initial checkin
tz
parents:
diff changeset
  1317
    ^compilerFlags
dd37d7763def initial checkin
tz
parents:
diff changeset
  1318
dd37d7763def initial checkin
tz
parents:
diff changeset
  1319
!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1320
dd37d7763def initial checkin
tz
parents:
diff changeset
  1321
getLibraryFileNames
dd37d7763def initial checkin
tz
parents:
diff changeset
  1322
    "returns the complete file names of the system and the user libraries"
dd37d7763def initial checkin
tz
parents:
diff changeset
  1323
dd37d7763def initial checkin
tz
parents:
diff changeset
  1324
    |libraryFileNames|
dd37d7763def initial checkin
tz
parents:
diff changeset
  1325
dd37d7763def initial checkin
tz
parents:
diff changeset
  1326
    libraryFileNames := OrderedCollection new.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1327
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1328
    (aspects at: #stxLibraries) value do:
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1329
    [:lib|
dd37d7763def initial checkin
tz
parents:
diff changeset
  1330
        |abbrevLib libPath|
dd37d7763def initial checkin
tz
parents:
diff changeset
  1331
        abbrevLib  := lib.
dd37d7763def initial checkin
tz
parents:
diff changeset
  1332
        lib = 'GLXWorkstation'   ifTrue: [abbrevLib := 'GLXWorkstat'].
dd37d7763def initial checkin
tz
parents:
diff changeset
  1333
        lib = 'XWorkstation'     ifTrue: [abbrevLib := 'XWorkstat'  ].
dd37d7763def initial checkin
tz
parents:
diff changeset
  1334
        lib = 'ObjectFileLoader' ifTrue: [abbrevLib := 'ObjFLoader' ].
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1335
        (libPath := (aspects at: #libraryDirectory) value asFilename construct: abbrevLib, ObjectFileLoader sharedLibraryExtension) exists
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1336
            ifTrue: [libraryFileNames add: libPath name]
dd37d7763def initial checkin
tz
parents:
diff changeset
  1337
    ].
dd37d7763def initial checkin
tz
parents:
diff changeset
  1338
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1339
    ^libraryFileNames, (aspects at: #userLibraries) value
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1340
dd37d7763def initial checkin
tz
parents:
diff changeset
  1341
!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1342
dd37d7763def initial checkin
tz
parents:
diff changeset
  1343
getModuleNames
dd37d7763def initial checkin
tz
parents:
diff changeset
  1344
    "returns the module names of the system and the user libraries"
dd37d7763def initial checkin
tz
parents:
diff changeset
  1345
dd37d7763def initial checkin
tz
parents:
diff changeset
  1346
    |moduleNames|
dd37d7763def initial checkin
tz
parents:
diff changeset
  1347
dd37d7763def initial checkin
tz
parents:
diff changeset
  1348
    moduleNames := OrderedCollection new.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1349
    (aspects at: #userLibraries) value do:
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1350
    [:lib|
dd37d7763def initial checkin
tz
parents:
diff changeset
  1351
        lib asFilename exists ifTrue: [moduleNames add: (lib asFilename baseName upTo: $.)]
dd37d7763def initial checkin
tz
parents:
diff changeset
  1352
    ].
dd37d7763def initial checkin
tz
parents:
diff changeset
  1353
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1354
    ^(aspects at: #stxLibraries) value, moduleNames
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1355
!
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1356
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1357
getTargetDirectory
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1358
    "returns the directory of the application; if not present, create it"
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1359
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1360
    |targetDirectory|
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1361
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1362
    (targetDirectory := (aspects at: #targetDirectory) value asFilename) exists ifFalse:[targetDirectory makeDirectory].   
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1363
    (targetDirectory isReadable and:[targetDirectory isWritable]) ifFalse: [^nil].
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1364
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1365
    ^targetDirectory name
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1366
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1367
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1368
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
  1369
13256
d1d0f1f71f47 class: ApplicationBuilder
Claus Gittinger <cg@exept.de>
parents: 7087
diff changeset
  1370
!ApplicationBuilder methodsFor:'startup & release'!
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1371
dd37d7763def initial checkin
tz
parents:
diff changeset
  1372
closeRequest
dd37d7763def initial checkin
tz
parents:
diff changeset
  1373
    "close request; before closing stop the running build, then release the dependents of all aspects"
dd37d7763def initial checkin
tz
parents:
diff changeset
  1374
dd37d7763def initial checkin
tz
parents:
diff changeset
  1375
    self doStop.
1525
ba7044e40ba0 revised
tz
parents: 1518
diff changeset
  1376
    aspects do: [:aspect| aspect release].
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1377
dd37d7763def initial checkin
tz
parents:
diff changeset
  1378
    super closeRequest
dd37d7763def initial checkin
tz
parents:
diff changeset
  1379
1558
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1380
!
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1381
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1382
postBuildWith:aBuilder
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1383
    "sets target directory for the shell view"
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1384
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1385
    shellView directory: self getTargetDirectory.
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1386
c4ed1badfc13 revised
tz
parents: 1551
diff changeset
  1387
    ^super postBuildWith:aBuilder
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1388
! !
dd37d7763def initial checkin
tz
parents:
diff changeset
  1389
dd37d7763def initial checkin
tz
parents:
diff changeset
  1390
!ApplicationBuilder class methodsFor:'documentation'!
dd37d7763def initial checkin
tz
parents:
diff changeset
  1391
dd37d7763def initial checkin
tz
parents:
diff changeset
  1392
version
13256
d1d0f1f71f47 class: ApplicationBuilder
Claus Gittinger <cg@exept.de>
parents: 7087
diff changeset
  1393
    ^ '$Header: /cvs/stx/stx/libtool/ApplicationBuilder.st,v 1.10 2013-07-30 05:57:02 cg Exp $'
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
  1394
!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
  1395
12431
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  1396
version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  1397
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  1398
    ^ '$Changeset: <not expanded> $'
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  1399
!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12128
diff changeset
  1400
12128
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
  1401
version_SVN
a7ff7d66ee85 Improvements in LintHighlighter, few fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12125
diff changeset
  1402
    ^ '$Id: ApplicationBuilder.st 7854 2012-01-30 17:49:41Z vranyj1 $'
1518
dd37d7763def initial checkin
tz
parents:
diff changeset
  1403
! !
13256
d1d0f1f71f47 class: ApplicationBuilder
Claus Gittinger <cg@exept.de>
parents: 7087
diff changeset
  1404