author | Stefan Vogel <sv@exept.de> |
Fri, 01 Aug 2014 16:51:03 +0200 | |
changeset 3152 | 508443bf4cdb |
parent 3139 | 209cc60527a4 |
child 3156 | 3107c90eabf2 |
permissions | -rw-r--r-- |
2742 | 1 |
" |
2 |
COPYRIGHT (c) 2009 by eXept Software AG |
|
3 |
All Rights Reserved |
|
4 |
||
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
2636 | 12 |
"{ Package: 'stx:libtool2' }" |
13 |
||
14 |
"{ NameSpace: Tools }" |
|
15 |
||
16 |
AssistantApplication subclass:#ProjectBuilderAssistantApplication |
|
2687
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
17 |
instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
18 |
selectedProjectIndexHolder selectedProjectDefinition |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
19 |
listOfMatchingProjects listOfMatchingPackageIds |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
20 |
selectedProjectsComment hasProjectSelectedHolder newProjectsName |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
21 |
hideSTXProjects hideOtherApplicationClasses |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
22 |
hideOtherStartupClasses startMakeButtonEnabled |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
23 |
stopMakeButtonVisible makeOutputHolder newApplicationsName |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
24 |
listOfApplicationsInProject selectedApplicationIndexHolder |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
25 |
selectedApplication hasApplicationSelectedHolder |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
26 |
listOfStartupClassesInProject selectedStartupClassIndexHolder |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
27 |
selectedStartupClass hasStartupClassSelectedHolder |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
28 |
selectedApplicationsComment buildDirectoryHolder makeProcess |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
29 |
listOfClassesInProject makeOutputWindow projectBuilder |
2705 | 30 |
newStartupClassName usedCompilerHolder listOfNewProjectsName |
2724 | 31 |
newProjectsNameListExtendedComboBox productNameHolder |
32 |
companyNameHolder compilerWarnMessageHolder |
|
2910 | 33 |
compilerWarnMessageVisibleHolder listOfPrerequisitesInProject |
2919 | 34 |
nameOfUsedCompilerSuiteHolder usedCompilerIndexHolder' |
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
35 |
classVariableNames:'LastUsedCompiler Debugging' |
2687
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
36 |
poolDictionaries:'' |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
37 |
category:'System-Support-Projects' |
2636 | 38 |
! |
39 |
||
2668 | 40 |
!ProjectBuilderAssistantApplication class methodsFor:'documentation'! |
41 |
||
2742 | 42 |
copyright |
43 |
" |
|
44 |
COPYRIGHT (c) 2009 by eXept Software AG |
|
45 |
All Rights Reserved |
|
46 |
||
47 |
This software is furnished under a license and may be used |
|
48 |
only in accordance with the terms of that license and with the |
|
49 |
inclusion of the above copyright notice. This software may not |
|
50 |
be provided or otherwise made available to, or used by, any |
|
51 |
other person. No title to or ownership of the software is |
|
52 |
hereby transferred. |
|
53 |
" |
|
54 |
! |
|
55 |
||
2668 | 56 |
documentation |
57 |
" |
|
58 |
a user friendly interface to the build process. |
|
59 |
Simply wraps up existing tools like the CodeGeneratorTool, the browsers |
|
60 |
and the ProjetBuilder |
|
61 |
||
62 |
[see also:] |
|
63 |
CodeGeneratorTool |
|
64 |
ProjectBuilder |
|
65 |
ProjectDefinition |
|
66 |
||
67 |
[author:] |
|
68 |
Claus Gittinger |
|
69 |
" |
|
2721 | 70 |
! |
71 |
||
72 |
help |
|
2825 | 73 |
" |
74 |
Packager - A Standalone-Executable Builder and Packager |
|
2721 | 75 |
|
2825 | 76 |
This assistant-application allows for standalone applications to be built very easily. |
77 |
It will generate all required classes, files, start the compilation process, |
|
78 |
generate a self-installable executable with a few mouse clicks. |
|
79 |
||
80 |
A simple demo application like the famous 'Hello World' can be generated in a few minutes. |
|
81 |
||
82 |
Prerequisites |
|
83 |
||
84 |
* Windows Users: |
|
85 |
Please install either the 'Borland Free Commandline Compiler Tools (bcc32)' |
|
86 |
or the 'Microsoft Visual-C++' package (also free). |
|
87 |
In addition, the 'NullSoft NSIS-Installer Package' is required. |
|
88 |
||
89 |
Due to limitations and bugs in the Visual-C++ compiler (limit on the size of |
|
90 |
string-constants), some Smalltalk code is still not compilable |
|
91 |
(currently, this affects classes which contain image-resource methods for big images). |
|
92 |
Although microsoft is doing their best (a relative measure) to make things better |
|
93 |
(they increase the string-limit with every new release), they still seem to be unable |
|
94 |
to figure out how ti use malloc for string-data). |
|
95 |
We are patiently waiting for a real fix and still using bcc in the meanwhile. |
|
96 |
Therefore, we recommend using the borland compiler suite. |
|
97 |
Please install it at its standard location ('C:\Borland') as our makefiles might |
|
98 |
still contain hard-coded pathes (yes, we are ashamed about this). |
|
99 |
||
100 |
* Unix Users: |
|
101 |
You should already have the gcc compile suite (including all required header files) |
|
102 |
installed and ready to use. For a lack of time on our side, there is currently no |
|
103 |
self-installer support for Unix. The packager will generate a zipped tar file, |
|
104 |
which must be deployed and unpacked for use. This may change in the near future. |
|
105 |
||
106 |
Packages, Projects, PackageIDs and ProjectDefinitions |
|
107 |
||
108 |
Smalltalk basically uses two objects for packaging: |
|
109 |
||
110 |
* PackageIDs (also called ProjectID's occasionally) |
|
111 |
* ProjectDefinitions |
|
112 |
||
113 |
Older ST/X versions used instances of a Project class - this is now obsolete and |
|
114 |
removed from the system (although there are still some minor uses of it, |
|
115 |
which might remain there for backward compatibility for some time, as some customers |
|
116 |
have built their own packaging scheme around it). |
|
117 |
||
118 |
PackageIDs |
|
119 |
||
120 |
These are simple symbols and are attached to classes and methods. If a method has |
|
121 |
a packageID different from its class, it is called an extension method. |
|
122 |
PackageIDs must have a certain fixed format: they always contain exactly two parts, |
|
123 |
which are separated by a colon character: the module and the directory part. |
|
124 |
The module is used as main-selector on where and how the source code repository is |
|
125 |
accessed. The directory is a path below that repository. If checked out into the local |
|
126 |
filesystem, the module defines the top-level directory. Thus, if a packageID is |
|
127 |
'stx:libbasic', the corresponding sources will be found in the repository associated |
|
128 |
to the 'stx' module, under the directory 'libbasic'. |
|
129 |
In the local file system, it will be found under 'stx/libbasic'. |
|
130 |
As another example, if the packageID is 'exept:expecco/plugins/foo', |
|
131 |
the repository is whichever is associated with the 'exept' module, and the subdirectory |
|
132 |
is 'expecco/plugins/foo'. The local path to the sourcefiles would be |
|
133 |
'exept/expecco/plugins/foo'. |
|
134 |
||
135 |
Please notice that it does make sense to associate different repositories to different |
|
136 |
modules: for example, you could setup the sourceCodeManager to use CVS access to the |
|
137 |
exept repository for everything under the 'stx' module, |
|
138 |
and at the same time, use a local SVN repository for everything under the 'myCompany' |
|
139 |
module. |
|
140 |
||
141 |
ProjectDefinitions |
|
142 |
||
143 |
These describe the contents of a project, such as the classes to include, |
|
144 |
the set of extension methods, any additional compilation information. |
|
145 |
ProjectDefinitions come in 3 flavours: |
|
146 |
||
147 |
* GUI Application Definition |
|
148 |
* non-GUI Application Definition |
|
149 |
* ClassLibrary Definition |
|
150 |
||
151 |
ProjectDefinitions are stored and managed as class-instances, located as subclasses |
|
152 |
of one of ApplicationDefinition or LibraryDefinition. |
|
153 |
As classes, they are themself managed, compiled and packaged as part of the project |
|
154 |
(and also have the same PackageID as their components). |
|
155 |
They are also treated like any other class w.r.t. source code management. |
|
156 |
||
157 |
Packaging |
|
158 |
||
159 |
All classes and extension methods belonging to a single package are supposed to be |
|
160 |
loaded (and possibly unloaded) together. They are also usually deployed inside a single |
|
161 |
dynamic link library ('dll', for short). In the Unix world, these are called |
|
162 |
'shared object' or 'so'. |
|
163 |
Finally, they are stored in a common directory both on the local file system and in a |
|
164 |
source code repository (CVS, SVN, etc.). |
|
165 |
||
166 |
Structure of a Project |
|
167 |
||
168 |
The artefacts as manipulated by the packager are: |
|
169 |
||
170 |
* the ProjectDefinition class |
|
171 |
This defines the type of application (GUI / non-GUI), |
|
172 |
its contents (i.e. the set of classes to be included in the binary itself and |
|
173 |
the set of library-dll's to be included in the deployed package), |
|
174 |
and some other metadata, such as icon, title etc. |
|
175 |
||
176 |
* the ApplicationModel class |
|
177 |
This defines the GUI, and is typically created using the UI-Painter. |
|
178 |
||
179 |
* the Startup class |
|
180 |
This is the first class which gets control when the executable is started; |
|
181 |
it can analyze the command line arguments, read patches or updates, |
|
182 |
start background ptocesses, and will eventually open the applications GUI. |
|
183 |
||
184 |
Build Procedure |
|
185 |
||
186 |
All of the three components above can be generated by the packager to provide an |
|
187 |
initial framework for further work. |
|
188 |
||
189 |
After the definition of those classes, all required files are stored in a temporary |
|
190 |
build directory. This means that the above classes are filed out, |
|
191 |
and make- and other support files are generated. |
|
192 |
||
193 |
Finally, the actual build process is started. This requires an external C-compiler. |
|
194 |
Under windows, both Borland-C (free download available via the internet) and Microsoft's |
|
195 |
Visual-C++ (also available for free) can be used (the later with some limitations as explained above). |
|
196 |
||
197 |
A self-installing executable is built using the NullSoft NSIS package. |
|
198 |
This is also required to be installed before the packager is started. |
|
199 |
||
200 |
After the build, all required files are packaged in a single install-file. |
|
201 |
This is called 'MyApplicationSetup.exe' and found in the project-specific subdirectory |
|
202 |
of the build directory. For deployment, this single file has to be delivered to a customer |
|
203 |
and executed there. |
|
204 |
||
205 |
Summary: It has NEVER been easier to create a GUI application with Smalltalk. |
|
206 |
" |
|
2668 | 207 |
! ! |
2636 | 208 |
|
2703 | 209 |
!ProjectBuilderAssistantApplication class methodsFor:'assistant pages spec'! |
210 |
||
211 |
assistantSpec |
|
212 |
^ #(Array |
|
213 |
( AssistantPageSpec |
|
214 |
pageTitle: 'Project Type Selection' |
|
215 |
windowSpecSelector: page1_projectTypeSelectionSpec |
|
216 |
enterCallbackSelector: updateListOfMatchingProjects |
|
217 |
infoText: 'Choose the <B>type</B> of project you are about to build.' |
|
218 |
) |
|
219 |
||
220 |
(AssistantPageSpec |
|
221 |
pageTitle: 'ProjectDefinition Selection' |
|
222 |
windowSpecSelector: page2_projectSelectionSpec |
|
2907
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
223 |
enterCallbackSelector: updateListOfMatchingProjectsAndProjectIDs |
2913 | 224 |
leaveCallbackSelector: fetchAttributesFromProjectDefinition |
2907
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
225 |
infoText: 'Choose an existing project definition or create a new one. These are subclasses of <I>ProjectDefinition</I> and define the type and contents of a project. Notice that the ID directly reflects the project''s location within the source code repository (module:directory/subdirectory...). If in doubt, use "<yourname>:demos/xxx_n".' |
2703 | 226 |
) |
227 |
||
228 |
(AssistantPageSpec |
|
229 |
pageTitle: 'Startup Application Selection' |
|
230 |
windowSpecSelector: page3_applicationSelectionSpec |
|
231 |
isEnabledQuerySelector: #projectTypeIsGuiApplication |
|
232 |
canEnterQuerySelector: #canEnterApplicationSelection |
|
233 |
enterCallbackSelector: updateListOfApplicationsInProject |
|
2825 | 234 |
infoText: 'Choose an existing application or create a new one. These are subclasses of <I>ApplicationModel</I> and define the GUI and control flow inside the application. Can also be left blank if the startup class does it all (stx build).' |
2703 | 235 |
) |
236 |
||
237 |
(AssistantPageSpec |
|
238 |
pageTitle: 'Startup Class Selection' |
|
239 |
windowSpecSelector: page4_startupClassSelectionSpec |
|
240 |
isEnabledQuerySelector: #projectTypeIsNotLibrary |
|
241 |
canEnterQuerySelector: #canEnterStartupClassSelection |
|
242 |
enterCallbackSelector: updateListOfStartupClassesInProject |
|
2825 | 243 |
infoText: 'Choose an existing startup-class or create a new one. These are subclasses of <I>StandaloneStartup</I> and start the application. Command line arguments can be interpreted there.' |
2703 | 244 |
) |
245 |
||
246 |
(AssistantPageSpec |
|
247 |
pageTitle: 'Specify Contents' |
|
248 |
windowSpecSelector: page5_specifyIncludedClasses |
|
249 |
enterCallbackSelector: enterContentsSpecification |
|
250 |
canEnterQuerySelector: #canEnterContentsSelection |
|
2968 | 251 |
infoText: 'Define which (other) classes are to be included. Do not include classes from other packages here. Press "<I>Scan</I>" to include all classes of the package; "<I>Browse</I>" to edit the contents manually.' |
2703 | 252 |
) |
253 |
||
254 |
(AssistantPageSpec |
|
2872 | 255 |
pageTitle: 'Specify Prerequisites' |
256 |
windowSpecSelector: page5b_specifyPrerequisitePackages |
|
257 |
enterCallbackSelector: enterPrerequisitesSpecification |
|
258 |
canEnterQuerySelector: #canEnterPrerequisitesSelection |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
259 |
infoText: 'Define which packages are needed as prerequisites. These are required class libraries which should be packaged together with the application. Press "<I>Scan</I>" to search for prerequisites; "<I>Browse</I>" to edit the list manually.' |
2872 | 260 |
) |
261 |
||
262 |
(AssistantPageSpec |
|
2724 | 263 |
pageTitle: 'Specify Project Attributes' |
264 |
windowSpecSelector: page6a_specifyProjectAttributes |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
265 |
infoText: 'Define additional attributes. These will be shown during the installation of the deployed package and affect the name of the deployed self installable file.' |
2724 | 266 |
enterCallbackSelector: updateProjectAttributes |
267 |
leaveCallbackSelector: #rememberProjectAttributes |
|
268 |
) |
|
269 |
||
270 |
(AssistantPageSpec |
|
2703 | 271 |
pageTitle: 'Specify Build Directory' |
2724 | 272 |
windowSpecSelector: page6b_specifyBuildDirectorySpec |
2913 | 273 |
infoText: 'Define where the build-process is to be performed and which compiler to use. All generated files are created below that directory. After deployment, the build directory is no longer needed (but you can keep it for a faster compile the next time).' |
2724 | 274 |
enterCallbackSelector: #checkCompilerAvailability |
2913 | 275 |
leaveCallbackSelector: #rememberUsedCompiler |
2703 | 276 |
) |
277 |
||
278 |
(AssistantPageSpec |
|
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
279 |
pageTitle: 'Check Into Source Repository' |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
280 |
windowSpecSelector: page7a_checkinSpec |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
281 |
enterCallbackSelector: #checkSourceCodeManagerType |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
282 |
infoText: 'Check the package''s source and build-support files into the source code repository.' |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
283 |
) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
284 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
285 |
(AssistantPageSpec |
2703 | 286 |
pageTitle: 'Build' |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
287 |
windowSpecSelector: page7b_buildSpec |
2703 | 288 |
canEnterQuerySelector: #canEnterBuild |
289 |
enterCallbackSelector: #restoreMakeOutputsContents |
|
290 |
leaveCallbackSelector: #rememberMakeOutputsContents |
|
2970
6d37e90dab00
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2968
diff
changeset
|
291 |
infoText: 'Start the build-process. This will run "make"+"bcc/vc/gcc" to compile all required classes and "nsis" to generate a self-installable executable (on windows). |
6d37e90dab00
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2968
diff
changeset
|
292 |
You must have the compiler (borland-bcc or visual-c) and NullSoft NSIS packages installed for this to work. |
6d37e90dab00
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2968
diff
changeset
|
293 |
Without NSIS, zip the folder where the exe is generated and unzip on a target machine. |
6d37e90dab00
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2968
diff
changeset
|
294 |
<P> |
6d37e90dab00
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2968
diff
changeset
|
295 |
To try the application, open an explorer/finder on the directory and double click on the executable. |
6d37e90dab00
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2968
diff
changeset
|
296 |
Alternatively, open a command window and type the name of the executable there. Sorry, but double-click in the ST/X file browser does not work.' |
2703 | 297 |
) |
298 |
||
299 |
(AssistantPageSpec |
|
300 |
pageTitle: 'Deploy' |
|
301 |
windowSpecSelector: page8_deploySpec |
|
302 |
canEnterQuerySelector: #canEnterDeploy |
|
2970
6d37e90dab00
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2968
diff
changeset
|
303 |
infoText: 'Find the installer-file to be deployed (or test-run the executable). |
6d37e90dab00
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2968
diff
changeset
|
304 |
You can open a Windows-explorer/finder there to copy the files for deployment. After that, the build directory is no longer needed. However, you can keep it for a faster compile the next time.' |
2703 | 305 |
) |
306 |
) decodeAsLiteralArray. |
|
2825 | 307 |
|
2913 | 308 |
"Modified: / 04-09-2012 / 09:49:50 / cg" |
2703 | 309 |
! ! |
310 |
||
2670 | 311 |
!ProjectBuilderAssistantApplication class methodsFor:'defaults'! |
312 |
||
313 |
defaultIcon |
|
2838 | 314 |
<resource: #programImage> |
315 |
||
2670 | 316 |
^ ToolbarIconLibrary projectBuilderIcon |
317 |
! |
|
318 |
||
319 |
windowLabelTemplate |
|
320 |
^ 'ST/X Packager: %1' |
|
321 |
! ! |
|
322 |
||
2703 | 323 |
!ProjectBuilderAssistantApplication class methodsFor:'help'! |
324 |
||
325 |
flyByHelpSpec |
|
326 |
<resource: #help> |
|
327 |
||
328 |
^ super flyByHelpSpec addPairsFrom:#( |
|
329 |
||
2706 | 330 |
#'projectType' |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
331 |
'Choose the type of Project you are about to deploy' |
2706 | 332 |
|
333 |
#existingProjects |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
334 |
'Projects with an existing ProjectDefinition of the chosen type (above)' |
2703 | 335 |
|
2968 | 336 |
#nameOfApplicationClass |
337 |
'For GUI applications: the name of your application class (subclass of ApplicationModel). |
|
3004
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
338 |
This will be opened by the startup sequence and defines the UI. |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
339 |
(Usually, these are named "XXXApplication" or "XXXApp") |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
340 |
Click on the "Create"-button to create a simple helloWorld app to start with' |
2968 | 341 |
|
342 |
#createNewApplication |
|
343 |
'Create a new simple dummy application (HelloWorld-like). |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
344 |
Press this button to get some template code to play with - but enter a name first' |
2968 | 345 |
|
346 |
#nameOfStartupClass |
|
347 |
'This class contains the main method, in which the show starts when the executable runs. |
|
348 |
Its main task is to parse command line arguments (if any) and fire up the real application. |
|
3004
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
349 |
It should inherit from StandaloneStartup. |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
350 |
(Usually, these are named "XXXStart" or "XXXStartup") |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
351 |
Click on the "Create"-button to create something to start with (will launch your application)' |
2968 | 352 |
|
353 |
#createNewStartupClass |
|
354 |
'Create a new simple startup class which fires up the defined application. |
|
355 |
Press this button to get a standard startup class which does not care for command line args. |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
356 |
But enter a name first' |
2968 | 357 |
|
2706 | 358 |
#browseSelectedProject |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
359 |
'Open a SystemBrowser on the selected Project' |
2706 | 360 |
|
361 |
#hideSTXBasePackages |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
362 |
'Only show packages which are not already included in the basic ST/X delivery' |
2703 | 363 |
|
364 |
#'listOfNewProjectsName' |
|
2706 | 365 |
'PackageID (module:directory). |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
366 |
The pull-down list contains packageIDs for which no ProjectDefinition exists (yet)' |
2706 | 367 |
|
368 |
#'createNewProject' |
|
369 |
'PackageID (module:directory). |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
370 |
Click to create a new (empty) ProjectDefinition for the given PackageID' |
2703 | 371 |
|
2922 | 372 |
#clearBuildDirectory |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
373 |
'Clear the build directory' |
2922 | 374 |
|
375 |
#makeAll |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
376 |
'Build a self-installing deployable package' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
377 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
378 |
#makeApp |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
379 |
'Build the app only (for test-running)' |
2922 | 380 |
|
381 |
#makeExe |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
382 |
'Build the executable only (for test-running)' |
2922 | 383 |
|
2973 | 384 |
#makeExeQuick |
385 |
'Quick build the executable only (for test-running). |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
386 |
Does not regenerate the header files. Only the target package files are recreated' |
2973 | 387 |
|
2922 | 388 |
#makeOutput |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
389 |
'Displays the output of the build process (make command)' |
2922 | 390 |
|
391 |
#openExplorer |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
392 |
'Open a Windows Explorer on the build directory. You can double-click on the built executable there' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
393 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
394 |
#openFinder |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
395 |
'Open a Finder on the build directory. You can double-click on the built executable there' |
2922 | 396 |
|
397 |
#openFileBrowser |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
398 |
'Open a Filebrowser on the build directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
399 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
400 |
#openTerminal |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
401 |
'Open a terminal (console) in the build directory' |
2922 | 402 |
|
403 |
#stopMake |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
404 |
'Abort the ongoing build process. Please clear the build directory afterwards to remove any leftover garbage' |
2922 | 405 |
|
2994
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
406 |
#hideOtherStartupClasses |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
407 |
'Hide startup classes from other packages. Uncheck to see them.\(Notice: the startup class really should be in the same package)' |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
408 |
|
2703 | 409 |
) |
2922 | 410 |
|
411 |
"Modified: / 06-09-2012 / 16:09:10 / cg" |
|
2703 | 412 |
! ! |
413 |
||
2994
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
414 |
!ProjectBuilderAssistantApplication class methodsFor:'help specs'! |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
415 |
|
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
416 |
helpSpec |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
417 |
"This resource specification was automatically generated |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
418 |
by the UIHelpTool of ST/X." |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
419 |
|
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
420 |
"Do not manually edit this!! If it is corrupted, |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
421 |
the UIHelpTool may not be able to read the specification." |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
422 |
|
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
423 |
" |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
424 |
UIHelpTool openOnClass:Tools::ProjectBuilderAssistantApplication |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
425 |
" |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
426 |
|
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
427 |
<resource: #help> |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
428 |
|
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
429 |
^ super helpSpec addPairsFrom:#( |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
430 |
|
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
431 |
#hideOtherStartupClasses |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
432 |
'' |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
433 |
|
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
434 |
) |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
435 |
! ! |
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
436 |
|
2636 | 437 |
!ProjectBuilderAssistantApplication class methodsFor:'interface specs'! |
438 |
||
2645 | 439 |
page1_projectTypeSelectionSpec |
2636 | 440 |
"This resource specification was automatically generated |
441 |
by the UIPainter of ST/X." |
|
442 |
||
443 |
"Do not manually edit this!! If it is corrupted, |
|
444 |
the UIPainter may not be able to read the specification." |
|
445 |
||
446 |
" |
|
2648 | 447 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page1_projectTypeSelectionSpec |
448 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page1_projectTypeSelectionSpec |
|
2636 | 449 |
" |
450 |
||
451 |
<resource: #canvas> |
|
452 |
||
453 |
^ |
|
454 |
#(FullSpec |
|
2645 | 455 |
name: #'page1_projectTypeSelectionSpec' |
2636 | 456 |
window: |
457 |
(WindowSpec |
|
458 |
label: 'Project Selection' |
|
459 |
name: 'Project Selection' |
|
460 |
min: (Point 0 0) |
|
461 |
bounds: (Rectangle 0 0 626 394) |
|
462 |
) |
|
463 |
component: |
|
464 |
(SpecCollection |
|
465 |
collection: ( |
|
466 |
(FramedBoxSpec |
|
2706 | 467 |
label: 'Project Type' |
2636 | 468 |
name: 'FramedBox1' |
2698
64d179f1eae7
changed: #page1_projectTypeSelectionSpec
Claus Gittinger <cg@exept.de>
parents:
2697
diff
changeset
|
469 |
layout: (LayoutFrame 0 0.0 0 0 4 1.0 120 0) |
2706 | 470 |
activeHelpKey: projectType |
2636 | 471 |
labelPosition: topLeft |
472 |
translateLabel: true |
|
473 |
component: |
|
474 |
(SpecCollection |
|
475 |
collection: ( |
|
476 |
(VerticalPanelViewSpec |
|
477 |
name: 'VerticalPanel1' |
|
478 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
479 |
horizontalLayout: leftSpace |
|
480 |
verticalLayout: topSpace |
|
481 |
horizontalSpace: 3 |
|
482 |
verticalSpace: 3 |
|
483 |
component: |
|
484 |
(SpecCollection |
|
485 |
collection: ( |
|
486 |
(ViewSpec |
|
487 |
name: 'Box1' |
|
488 |
extent: (Point 10 10) |
|
489 |
) |
|
490 |
(RadioButtonSpec |
|
491 |
label: 'GUI Application' |
|
492 |
name: 'RadioButton1' |
|
493 |
translateLabel: true |
|
2659 | 494 |
model: projectTypeHolder |
2636 | 495 |
isTriggerOnDown: true |
496 |
onCallBackSelector: projectTypeChanged |
|
2897 | 497 |
select: #'GUI-Application' |
2990
66833743333c
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2988
diff
changeset
|
498 |
extent: (Point 294 22) |
2636 | 499 |
) |
500 |
(RadioButtonSpec |
|
501 |
label: 'Non-GUI Application' |
|
502 |
name: 'RadioButton2' |
|
503 |
translateLabel: true |
|
2659 | 504 |
model: projectTypeHolder |
2636 | 505 |
isTriggerOnDown: true |
506 |
onCallBackSelector: projectTypeChanged |
|
2897 | 507 |
select: #'NonGUI-Application' |
2990
66833743333c
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2988
diff
changeset
|
508 |
extent: (Point 294 22) |
2636 | 509 |
) |
510 |
(RadioButtonSpec |
|
511 |
label: 'Class Library' |
|
512 |
name: 'RadioButton3' |
|
513 |
translateLabel: true |
|
2659 | 514 |
model: projectTypeHolder |
2636 | 515 |
isTriggerOnDown: true |
516 |
onCallBackSelector: projectTypeChanged |
|
2990
66833743333c
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2988
diff
changeset
|
517 |
select: Library |
66833743333c
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2988
diff
changeset
|
518 |
extent: (Point 294 22) |
2636 | 519 |
) |
520 |
) |
|
521 |
||
522 |
) |
|
523 |
) |
|
524 |
) |
|
525 |
||
526 |
) |
|
527 |
) |
|
528 |
(FramedBoxSpec |
|
2726
7263301b5216
changed: #page1_projectTypeSelectionSpec
Claus Gittinger <cg@exept.de>
parents:
2725
diff
changeset
|
529 |
label: 'Existing Projects of this Type (PackageIDs)' |
2636 | 530 |
name: 'FramedBox2' |
2698
64d179f1eae7
changed: #page1_projectTypeSelectionSpec
Claus Gittinger <cg@exept.de>
parents:
2697
diff
changeset
|
531 |
layout: (LayoutFrame 0 0.0 123 0 4 1.0 0 1) |
2706 | 532 |
activeHelpKey: existingProjects |
2636 | 533 |
labelPosition: topLeft |
534 |
translateLabel: true |
|
535 |
component: |
|
536 |
(SpecCollection |
|
537 |
collection: ( |
|
538 |
(VariableHorizontalPanelSpec |
|
539 |
name: 'VariableHorizontalPanel1' |
|
540 |
layout: (LayoutFrame 0 0 4 0 0 1 -26 1) |
|
541 |
component: |
|
542 |
(SpecCollection |
|
543 |
collection: ( |
|
544 |
(SequenceViewSpec |
|
545 |
name: 'List1' |
|
546 |
model: selectedProjectIndexHolder |
|
547 |
hasHorizontalScrollBar: true |
|
548 |
hasVerticalScrollBar: true |
|
549 |
useIndex: true |
|
2686
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
550 |
sequenceList: listOfMatchingPackageIds |
2636 | 551 |
) |
552 |
(TextEditorSpec |
|
553 |
name: 'TextEditor1' |
|
554 |
model: selectedProjectsComment |
|
555 |
hasHorizontalScrollBar: true |
|
556 |
hasVerticalScrollBar: true |
|
557 |
isReadOnly: true |
|
558 |
hasKeyboardFocusInitially: false |
|
559 |
) |
|
560 |
) |
|
561 |
||
562 |
) |
|
563 |
handles: (Any 0.34560327198364 1.0) |
|
564 |
) |
|
565 |
(CheckBoxSpec |
|
566 |
label: 'Hide ST/X Base Packages' |
|
567 |
name: 'CheckBox1' |
|
2659 | 568 |
layout: (LayoutFrame -1 0 -18 1 0 1 4 1) |
2706 | 569 |
activeHelpKey: hideSTXBasePackages |
2636 | 570 |
model: hideSTXProjects |
571 |
translateLabel: true |
|
572 |
) |
|
573 |
) |
|
574 |
||
575 |
) |
|
576 |
) |
|
577 |
) |
|
578 |
||
579 |
) |
|
580 |
) |
|
581 |
! |
|
582 |
||
2645 | 583 |
page2_projectSelectionSpec |
2636 | 584 |
"This resource specification was automatically generated |
585 |
by the UIPainter of ST/X." |
|
586 |
||
587 |
"Do not manually edit this!! If it is corrupted, |
|
588 |
the UIPainter may not be able to read the specification." |
|
589 |
||
590 |
" |
|
2648 | 591 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page2_projectSelectionSpec |
592 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page2_projectSelectionSpec |
|
2636 | 593 |
" |
594 |
||
595 |
<resource: #canvas> |
|
596 |
||
597 |
^ |
|
598 |
#(FullSpec |
|
2645 | 599 |
name: #'page2_projectSelectionSpec' |
2636 | 600 |
window: |
601 |
(WindowSpec |
|
602 |
label: 'Project Selection' |
|
603 |
name: 'Project Selection' |
|
604 |
min: (Point 0 0) |
|
605 |
bounds: (Rectangle 0 0 521 453) |
|
606 |
) |
|
607 |
component: |
|
608 |
(SpecCollection |
|
609 |
collection: ( |
|
610 |
(FramedBoxSpec |
|
2706 | 611 |
label: 'New Project''s PackageID' |
2636 | 612 |
name: 'FramedBox3' |
613 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 72 0) |
|
614 |
labelPosition: topLeft |
|
615 |
translateLabel: true |
|
616 |
component: |
|
617 |
(SpecCollection |
|
618 |
collection: ( |
|
2706 | 619 |
(ExtendedComboBoxSpec |
620 |
name: 'NewProjectsNameListExtendedComboBox' |
|
621 |
layout: (LayoutFrame 1 0 6 0 -113 1 28 0) |
|
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
622 |
activeHelpKey: listOfNewProjectsName |
2706 | 623 |
model: newProjectsName |
624 |
readOnly: false |
|
625 |
miniScrollerHorizontal: true |
|
626 |
postBuildCallback: postBuildNewProjectsNameListExtendedComboBox: |
|
627 |
) |
|
2636 | 628 |
(ActionButtonSpec |
629 |
label: 'Create' |
|
630 |
name: 'Button1' |
|
2659 | 631 |
layout: (LayoutFrame -100 1 6 0 2 1 28 0) |
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
632 |
activeHelpKey: createNewProject |
2636 | 633 |
translateLabel: true |
634 |
model: createNewProject |
|
635 |
) |
|
636 |
) |
|
637 |
||
638 |
) |
|
639 |
) |
|
640 |
(FramedBoxSpec |
|
2706 | 641 |
label: 'Existing Projects with ProjectDefinition' |
2636 | 642 |
name: 'FramedBox4' |
2648 | 643 |
layout: (LayoutFrame 0 0.0 70 0 4 1.0 -30 1) |
2636 | 644 |
labelPosition: topLeft |
645 |
translateLabel: true |
|
646 |
component: |
|
647 |
(SpecCollection |
|
648 |
collection: ( |
|
649 |
(VariableHorizontalPanelSpec |
|
650 |
name: 'VariableHorizontalPanel2' |
|
651 |
layout: (LayoutFrame 0 0 4 0 0 1 -26 1) |
|
652 |
component: |
|
653 |
(SpecCollection |
|
654 |
collection: ( |
|
655 |
(SequenceViewSpec |
|
656 |
name: 'List2' |
|
657 |
model: selectedProjectIndexHolder |
|
658 |
hasHorizontalScrollBar: true |
|
659 |
hasVerticalScrollBar: true |
|
660 |
useIndex: true |
|
2686
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
661 |
sequenceList: listOfMatchingPackageIds |
2636 | 662 |
) |
663 |
(TextEditorSpec |
|
664 |
name: 'TextEditor2' |
|
665 |
model: selectedProjectsComment |
|
666 |
hasHorizontalScrollBar: true |
|
667 |
hasVerticalScrollBar: true |
|
668 |
isReadOnly: true |
|
669 |
hasKeyboardFocusInitially: false |
|
670 |
viewClassName: 'TextView' |
|
671 |
) |
|
672 |
) |
|
673 |
||
674 |
) |
|
675 |
handles: (Any 0.34560327198364 1.0) |
|
676 |
) |
|
677 |
(CheckBoxSpec |
|
678 |
label: 'Hide ST/X Base Packages' |
|
679 |
name: 'CheckBox1' |
|
2659 | 680 |
layout: (LayoutFrame -1 0 -17 1 0 1 5 1) |
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
681 |
activeHelpKey: hideSTXBasePackages |
2636 | 682 |
model: hideSTXProjects |
683 |
translateLabel: true |
|
684 |
) |
|
685 |
) |
|
686 |
||
687 |
) |
|
688 |
) |
|
2648 | 689 |
(HorizontalPanelViewSpec |
690 |
name: 'HorizontalPanel1' |
|
691 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
692 |
horizontalLayout: leftSpace |
|
693 |
verticalLayout: center |
|
694 |
horizontalSpace: 3 |
|
695 |
verticalSpace: 3 |
|
696 |
component: |
|
697 |
(SpecCollection |
|
698 |
collection: ( |
|
699 |
(ActionButtonSpec |
|
700 |
label: 'Browse Selected Project' |
|
701 |
name: 'Button3' |
|
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
702 |
activeHelpKey: browseSelectedProject |
2648 | 703 |
translateLabel: true |
704 |
model: doBrowseProject |
|
2659 | 705 |
enableChannel: hasProjectSelectedHolder |
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
706 |
useDefaultExtent: true |
2648 | 707 |
) |
708 |
) |
|
709 |
||
710 |
) |
|
2636 | 711 |
) |
712 |
) |
|
713 |
||
714 |
) |
|
715 |
) |
|
716 |
! |
|
717 |
||
2645 | 718 |
page3_applicationSelectionSpec |
2636 | 719 |
"This resource specification was automatically generated |
720 |
by the UIPainter of ST/X." |
|
721 |
||
722 |
"Do not manually edit this!! If it is corrupted, |
|
723 |
the UIPainter may not be able to read the specification." |
|
724 |
||
725 |
" |
|
2648 | 726 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page3_applicationSelectionSpec |
727 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page3_applicationSelectionSpec |
|
2636 | 728 |
" |
729 |
||
730 |
<resource: #canvas> |
|
731 |
||
732 |
^ |
|
733 |
#(FullSpec |
|
2645 | 734 |
name: #'page3_applicationSelectionSpec' |
2636 | 735 |
window: |
736 |
(WindowSpec |
|
737 |
label: 'Application Selection' |
|
738 |
name: 'Application Selection' |
|
739 |
min: (Point 0 0) |
|
2671 | 740 |
bounds: (Rectangle 0 0 519 406) |
2636 | 741 |
) |
742 |
component: |
|
743 |
(SpecCollection |
|
744 |
collection: ( |
|
745 |
(FramedBoxSpec |
|
2725 | 746 |
label: 'New Application Class' |
2636 | 747 |
name: 'FramedBox3' |
2725 | 748 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 70 0) |
2636 | 749 |
labelPosition: topLeft |
750 |
translateLabel: true |
|
751 |
component: |
|
752 |
(SpecCollection |
|
753 |
collection: ( |
|
754 |
(InputFieldSpec |
|
755 |
name: 'EntryField1' |
|
2659 | 756 |
layout: (LayoutFrame 1 0 6 0 -113 1 28 0) |
2636 | 757 |
model: newApplicationsName |
758 |
acceptOnReturn: true |
|
759 |
acceptOnTab: true |
|
2693 | 760 |
acceptOnLostFocus: true |
2636 | 761 |
acceptOnPointerLeave: true |
762 |
emptyFieldReplacementText: 'MyApplication' |
|
2968 | 763 |
activeHelpKey: nameOfApplicationClass |
2636 | 764 |
) |
765 |
(ActionButtonSpec |
|
766 |
label: 'Create' |
|
767 |
name: 'Button1' |
|
2659 | 768 |
layout: (LayoutFrame -100 1 6 0 1 1 28 0) |
2636 | 769 |
translateLabel: true |
770 |
model: createNewApplication |
|
2968 | 771 |
activeHelpKey: createNewApplication |
2636 | 772 |
) |
773 |
) |
|
774 |
||
775 |
) |
|
776 |
) |
|
777 |
(FramedBoxSpec |
|
778 |
label: 'Existing Applications' |
|
779 |
name: 'FramedBox4' |
|
2725 | 780 |
layout: (LayoutFrame 0 0.0 72 0 4 1.0 -30 1) |
2636 | 781 |
labelPosition: topLeft |
782 |
translateLabel: true |
|
783 |
component: |
|
784 |
(SpecCollection |
|
785 |
collection: ( |
|
786 |
(VariableHorizontalPanelSpec |
|
787 |
name: 'VariableHorizontalPanel2' |
|
2671 | 788 |
layout: (LayoutFrame 0 0 4 0 0 1 -26 1) |
2636 | 789 |
component: |
790 |
(SpecCollection |
|
791 |
collection: ( |
|
792 |
(SequenceViewSpec |
|
793 |
name: 'List2' |
|
794 |
model: selectedApplicationIndexHolder |
|
795 |
hasHorizontalScrollBar: true |
|
796 |
hasVerticalScrollBar: true |
|
797 |
useIndex: true |
|
798 |
sequenceList: listOfApplicationsInProject |
|
2671 | 799 |
ignoreReselect: false |
2636 | 800 |
) |
801 |
(TextEditorSpec |
|
802 |
name: 'TextEditor2' |
|
803 |
model: selectedApplicationsComment |
|
804 |
hasHorizontalScrollBar: true |
|
805 |
hasVerticalScrollBar: true |
|
806 |
isReadOnly: true |
|
807 |
hasKeyboardFocusInitially: false |
|
808 |
viewClassName: 'TextView' |
|
809 |
) |
|
810 |
) |
|
811 |
||
812 |
) |
|
813 |
handles: (Any 0.34560327198364 1.0) |
|
814 |
) |
|
2671 | 815 |
(CheckBoxSpec |
816 |
label: 'Hide other Application Classes' |
|
817 |
name: 'CheckBox1' |
|
818 |
layout: (LayoutFrame -1 0 -18 1 0 1 4 1) |
|
819 |
model: hideOtherApplicationClasses |
|
820 |
translateLabel: true |
|
821 |
) |
|
2636 | 822 |
) |
823 |
||
824 |
) |
|
825 |
) |
|
2648 | 826 |
(HorizontalPanelViewSpec |
827 |
name: 'HorizontalPanel1' |
|
828 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
829 |
horizontalLayout: leftSpace |
|
830 |
verticalLayout: center |
|
831 |
horizontalSpace: 3 |
|
832 |
verticalSpace: 3 |
|
833 |
component: |
|
834 |
(SpecCollection |
|
835 |
collection: ( |
|
836 |
(ActionButtonSpec |
|
837 |
label: 'Browse Selected Application' |
|
838 |
name: 'Button3' |
|
839 |
translateLabel: true |
|
840 |
model: doBrowseApplication |
|
2659 | 841 |
enableChannel: hasApplicationSelectedHolder |
842 |
extent: (Point 180 22) |
|
843 |
) |
|
844 |
(ActionButtonSpec |
|
845 |
label: 'Launch Selected Application' |
|
846 |
name: 'Button4' |
|
847 |
translateLabel: true |
|
848 |
model: doLaunchApplication |
|
849 |
enableChannel: hasApplicationSelectedHolder |
|
2648 | 850 |
extent: (Point 180 22) |
851 |
) |
|
852 |
) |
|
853 |
||
854 |
) |
|
2636 | 855 |
) |
856 |
) |
|
857 |
||
858 |
) |
|
859 |
) |
|
860 |
! |
|
861 |
||
2656 | 862 |
page4_startupClassSelectionSpec |
2636 | 863 |
"This resource specification was automatically generated |
864 |
by the UIPainter of ST/X." |
|
865 |
||
866 |
"Do not manually edit this!! If it is corrupted, |
|
867 |
the UIPainter may not be able to read the specification." |
|
868 |
||
869 |
" |
|
2656 | 870 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page4_startupClassSelectionSpec |
871 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page4_startupClassSelectionSpec |
|
2636 | 872 |
" |
873 |
||
874 |
<resource: #canvas> |
|
875 |
||
876 |
^ |
|
877 |
#(FullSpec |
|
2656 | 878 |
name: #'page4_startupClassSelectionSpec' |
879 |
window: |
|
880 |
(WindowSpec |
|
881 |
label: 'Startup Class Selection' |
|
882 |
name: 'Startup Class Selection' |
|
883 |
min: (Point 0 0) |
|
884 |
bounds: (Rectangle 0 0 521 408) |
|
885 |
) |
|
886 |
component: |
|
887 |
(SpecCollection |
|
888 |
collection: ( |
|
889 |
(FramedBoxSpec |
|
2725 | 890 |
label: 'New Startup Class' |
2656 | 891 |
name: 'FramedBox3' |
2725 | 892 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 70 0) |
2656 | 893 |
labelPosition: topLeft |
894 |
translateLabel: true |
|
895 |
component: |
|
896 |
(SpecCollection |
|
897 |
collection: ( |
|
898 |
(InputFieldSpec |
|
899 |
name: 'EntryField1' |
|
2659 | 900 |
layout: (LayoutFrame 1 0 6 0 -113 1 28 0) |
2994
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
901 |
activeHelpKey: nameOfStartupClass |
2656 | 902 |
model: newStartupClassName |
903 |
acceptOnReturn: true |
|
904 |
acceptOnTab: true |
|
2693 | 905 |
acceptOnLostFocus: true |
2656 | 906 |
acceptOnPointerLeave: true |
907 |
emptyFieldReplacementText: 'MyStandAloneStartup' |
|
908 |
) |
|
909 |
(ActionButtonSpec |
|
910 |
label: 'Create' |
|
911 |
name: 'Button1' |
|
2659 | 912 |
layout: (LayoutFrame -100 1 6 0 1 1 28 0) |
2994
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
913 |
activeHelpKey: createNewStartupClass |
2656 | 914 |
translateLabel: true |
915 |
model: createNewStartupClass |
|
916 |
) |
|
917 |
) |
|
918 |
||
919 |
) |
|
920 |
) |
|
921 |
(FramedBoxSpec |
|
2725 | 922 |
label: 'Existing Startup Classes' |
2656 | 923 |
name: 'FramedBox4' |
2725 | 924 |
layout: (LayoutFrame 0 0.0 72 0 4 1.0 -30 1) |
2656 | 925 |
labelPosition: topLeft |
926 |
translateLabel: true |
|
927 |
component: |
|
928 |
(SpecCollection |
|
929 |
collection: ( |
|
930 |
(VariableHorizontalPanelSpec |
|
931 |
name: 'VariableHorizontalPanel2' |
|
2671 | 932 |
layout: (LayoutFrame 0 0 4 0 0 1 -26 1) |
2656 | 933 |
component: |
934 |
(SpecCollection |
|
935 |
collection: ( |
|
936 |
(SequenceViewSpec |
|
937 |
name: 'List2' |
|
938 |
model: selectedStartupClassIndexHolder |
|
939 |
hasHorizontalScrollBar: true |
|
940 |
hasVerticalScrollBar: true |
|
941 |
useIndex: true |
|
942 |
sequenceList: listOfStartupClassesInProject |
|
943 |
) |
|
944 |
(TextEditorSpec |
|
945 |
name: 'TextEditor2' |
|
946 |
model: selectedStartupClassesComment |
|
947 |
hasHorizontalScrollBar: true |
|
948 |
hasVerticalScrollBar: true |
|
949 |
isReadOnly: true |
|
950 |
hasKeyboardFocusInitially: false |
|
951 |
viewClassName: 'TextView' |
|
952 |
) |
|
953 |
) |
|
954 |
||
955 |
) |
|
956 |
handles: (Any 0.34560327198364 1.0) |
|
957 |
) |
|
2671 | 958 |
(CheckBoxSpec |
959 |
label: 'Hide other Startup Classes' |
|
960 |
name: 'CheckBox1' |
|
961 |
layout: (LayoutFrame -1 0 -20 1 0 1 2 1) |
|
2994
1606aca78699
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2993
diff
changeset
|
962 |
activeHelpKey: hideOtherStartupClasses |
2671 | 963 |
model: hideOtherStartupClasses |
964 |
translateLabel: true |
|
965 |
) |
|
2656 | 966 |
) |
967 |
||
968 |
) |
|
969 |
) |
|
970 |
(HorizontalPanelViewSpec |
|
971 |
name: 'HorizontalPanel1' |
|
972 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
973 |
horizontalLayout: leftSpace |
|
974 |
verticalLayout: center |
|
975 |
horizontalSpace: 3 |
|
976 |
verticalSpace: 3 |
|
977 |
component: |
|
978 |
(SpecCollection |
|
979 |
collection: ( |
|
980 |
(ActionButtonSpec |
|
981 |
label: 'Browse Selected StartupClass' |
|
982 |
name: 'Button3' |
|
983 |
translateLabel: true |
|
984 |
model: doBrowseStartupClass |
|
2659 | 985 |
enableChannel: hasStartupClassSelectedHolder |
2656 | 986 |
extent: (Point 180 22) |
987 |
) |
|
988 |
) |
|
989 |
||
990 |
) |
|
991 |
) |
|
992 |
) |
|
993 |
||
994 |
) |
|
995 |
) |
|
996 |
! |
|
997 |
||
998 |
page5_specifyIncludedClasses |
|
999 |
"This resource specification was automatically generated |
|
1000 |
by the UIPainter of ST/X." |
|
1001 |
||
1002 |
"Do not manually edit this!! If it is corrupted, |
|
1003 |
the UIPainter may not be able to read the specification." |
|
1004 |
||
1005 |
" |
|
1006 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page5_specifyIncludedClasses |
|
1007 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page5_specifyIncludedClasses |
|
1008 |
" |
|
1009 |
||
1010 |
<resource: #canvas> |
|
1011 |
||
1012 |
^ |
|
1013 |
#(FullSpec |
|
1014 |
name: #'page5_specifyIncludedClasses' |
|
2636 | 1015 |
window: |
1016 |
(WindowSpec |
|
1017 |
label: 'Project Selection' |
|
1018 |
name: 'Project Selection' |
|
1019 |
min: (Point 0 0) |
|
1020 |
bounds: (Rectangle 0 0 521 400) |
|
1021 |
) |
|
1022 |
component: |
|
1023 |
(SpecCollection |
|
1024 |
collection: ( |
|
1025 |
(FramedBoxSpec |
|
1026 |
label: 'Project Contents' |
|
1027 |
name: 'FramedBox3' |
|
2648 | 1028 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1) |
2636 | 1029 |
labelPosition: topLeft |
1030 |
translateLabel: true |
|
1031 |
component: |
|
1032 |
(SpecCollection |
|
1033 |
collection: ( |
|
1034 |
(SequenceViewSpec |
|
1035 |
name: 'List1' |
|
1036 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
1037 |
initiallyDisabled: true |
|
1038 |
hasHorizontalScrollBar: true |
|
1039 |
hasVerticalScrollBar: true |
|
1040 |
useIndex: false |
|
1041 |
sequenceList: listOfClassesInProject |
|
1042 |
) |
|
1043 |
) |
|
1044 |
||
1045 |
) |
|
1046 |
) |
|
2648 | 1047 |
(HorizontalPanelViewSpec |
1048 |
name: 'HorizontalPanel1' |
|
1049 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
1050 |
horizontalLayout: center |
|
1051 |
verticalLayout: center |
|
1052 |
horizontalSpace: 3 |
|
1053 |
verticalSpace: 3 |
|
1054 |
component: |
|
1055 |
(SpecCollection |
|
1056 |
collection: ( |
|
1057 |
(ActionButtonSpec |
|
1058 |
label: 'Browse Project Definition' |
|
1059 |
name: 'Button3' |
|
1060 |
translateLabel: true |
|
2659 | 1061 |
model: doBrowseProjectDefinitionClass |
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
1062 |
useDefaultExtent: true |
2648 | 1063 |
) |
1064 |
(ActionButtonSpec |
|
1065 |
label: 'Update Contents (Scan)' |
|
1066 |
name: 'Button4' |
|
1067 |
translateLabel: true |
|
1068 |
model: doGenerateProjectContentsDefinition |
|
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
1069 |
useDefaultExtent: true |
2648 | 1070 |
) |
1071 |
) |
|
1072 |
||
1073 |
) |
|
2636 | 1074 |
) |
1075 |
) |
|
1076 |
||
1077 |
) |
|
1078 |
) |
|
1079 |
! |
|
1080 |
||
2872 | 1081 |
page5b_specifyPrerequisitePackages |
1082 |
"This resource specification was automatically generated |
|
1083 |
by the UIPainter of ST/X." |
|
1084 |
||
1085 |
"Do not manually edit this!! If it is corrupted, |
|
1086 |
the UIPainter may not be able to read the specification." |
|
1087 |
||
1088 |
" |
|
1089 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page5b_specifyPrerequisitePackages |
|
1090 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page5b_specifyPrerequisitePackages |
|
1091 |
" |
|
1092 |
||
1093 |
<resource: #canvas> |
|
1094 |
||
1095 |
^ |
|
1096 |
#(FullSpec |
|
1097 |
name: #'page5b_specifyPrerequisitePackages' |
|
1098 |
window: |
|
1099 |
(WindowSpec |
|
1100 |
label: 'Project Selection' |
|
1101 |
name: 'Project Selection' |
|
1102 |
min: (Point 0 0) |
|
1103 |
bounds: (Rectangle 0 0 521 400) |
|
1104 |
) |
|
1105 |
component: |
|
1106 |
(SpecCollection |
|
1107 |
collection: ( |
|
1108 |
(FramedBoxSpec |
|
1109 |
label: 'Prerequisite Packages' |
|
1110 |
name: 'FramedBox3' |
|
1111 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1) |
|
1112 |
labelPosition: topLeft |
|
1113 |
translateLabel: true |
|
1114 |
component: |
|
1115 |
(SpecCollection |
|
1116 |
collection: ( |
|
1117 |
(SequenceViewSpec |
|
1118 |
name: 'List1' |
|
1119 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
1120 |
initiallyDisabled: true |
|
1121 |
hasHorizontalScrollBar: true |
|
1122 |
hasVerticalScrollBar: true |
|
1123 |
useIndex: false |
|
1124 |
sequenceList: listOfPrerequisitesInProject |
|
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
1125 |
) |
2872 | 1126 |
) |
1127 |
||
1128 |
) |
|
1129 |
) |
|
1130 |
(HorizontalPanelViewSpec |
|
1131 |
name: 'HorizontalPanel1' |
|
1132 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
1133 |
horizontalLayout: center |
|
1134 |
verticalLayout: center |
|
1135 |
horizontalSpace: 3 |
|
1136 |
verticalSpace: 3 |
|
1137 |
component: |
|
1138 |
(SpecCollection |
|
1139 |
collection: ( |
|
1140 |
(ActionButtonSpec |
|
1141 |
label: 'Browse Project Definition' |
|
1142 |
name: 'Button3' |
|
1143 |
translateLabel: true |
|
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
1144 |
model: doBrowseProjectDefinitionClassForPrereqs |
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
1145 |
useDefaultExtent: true |
2872 | 1146 |
) |
1147 |
(ActionButtonSpec |
|
1148 |
label: 'Update Prerequisites (Scan)' |
|
1149 |
name: 'Button4' |
|
1150 |
translateLabel: true |
|
1151 |
model: doGenerateProjectPrerequisitesDefinition |
|
2983
068c43183acf
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2975
diff
changeset
|
1152 |
useDefaultExtent: true |
2872 | 1153 |
) |
1154 |
) |
|
1155 |
||
1156 |
) |
|
1157 |
) |
|
1158 |
) |
|
1159 |
||
1160 |
) |
|
1161 |
) |
|
1162 |
! |
|
1163 |
||
2724 | 1164 |
page6a_specifyProjectAttributes |
2636 | 1165 |
"This resource specification was automatically generated |
1166 |
by the UIPainter of ST/X." |
|
1167 |
||
1168 |
"Do not manually edit this!! If it is corrupted, |
|
1169 |
the UIPainter may not be able to read the specification." |
|
1170 |
||
1171 |
" |
|
2724 | 1172 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page6a_specifyProjectAttributes |
1173 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page6a_specifyProjectAttributes |
|
2636 | 1174 |
" |
1175 |
||
1176 |
<resource: #canvas> |
|
1177 |
||
1178 |
^ |
|
1179 |
#(FullSpec |
|
2724 | 1180 |
name: #'page6a_specifyProjectAttributes' |
2636 | 1181 |
window: |
1182 |
(WindowSpec |
|
1183 |
label: 'Project Selection' |
|
1184 |
name: 'Project Selection' |
|
1185 |
min: (Point 0 0) |
|
2681 | 1186 |
bounds: (Rectangle 0 0 521 239) |
2636 | 1187 |
) |
1188 |
component: |
|
1189 |
(SpecCollection |
|
1190 |
collection: ( |
|
1191 |
(FramedBoxSpec |
|
2724 | 1192 |
label: 'Product Information' |
1193 |
name: 'FramedBox3' |
|
1194 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 101 0) |
|
1195 |
labelPosition: topLeft |
|
1196 |
translateLabel: true |
|
1197 |
component: |
|
1198 |
(SpecCollection |
|
1199 |
collection: ( |
|
1200 |
(LabelSpec |
|
1201 |
label: 'Product Name:' |
|
1202 |
name: 'Label1' |
|
1203 |
layout: (LayoutFrame 0 0 10 0 148 0 32 0) |
|
1204 |
translateLabel: true |
|
1205 |
adjust: right |
|
1206 |
) |
|
1207 |
(InputFieldSpec |
|
1208 |
name: 'EntryField4' |
|
1209 |
layout: (LayoutFrame 150 0.0 10 0 0 1.0 32 0) |
|
1210 |
model: productNameHolder |
|
1211 |
acceptOnLostFocus: true |
|
1212 |
acceptOnPointerLeave: true |
|
1213 |
viewClassName: '' |
|
1214 |
) |
|
1215 |
(LabelSpec |
|
1216 |
label: 'Company Name:' |
|
1217 |
name: 'Label2' |
|
1218 |
layout: (LayoutFrame 0 0 39 0 148 0 61 0) |
|
1219 |
translateLabel: true |
|
1220 |
adjust: right |
|
1221 |
) |
|
1222 |
(InputFieldSpec |
|
1223 |
name: 'EntryField3' |
|
1224 |
layout: (LayoutFrame 150 0.0 39 0 0 1.0 61 0) |
|
1225 |
model: companyNameHolder |
|
1226 |
acceptOnLostFocus: true |
|
1227 |
acceptOnPointerLeave: true |
|
1228 |
viewClassName: '' |
|
1229 |
) |
|
1230 |
) |
|
1231 |
||
1232 |
) |
|
1233 |
) |
|
1234 |
) |
|
1235 |
||
1236 |
) |
|
1237 |
) |
|
1238 |
! |
|
1239 |
||
1240 |
page6b_specifyBuildDirectorySpec |
|
1241 |
"This resource specification was automatically generated |
|
1242 |
by the UIPainter of ST/X." |
|
1243 |
||
1244 |
"Do not manually edit this!! If it is corrupted, |
|
1245 |
the UIPainter may not be able to read the specification." |
|
1246 |
||
1247 |
" |
|
1248 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page6b_specifyBuildDirectorySpec |
|
1249 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page6b_specifyBuildDirectorySpec |
|
1250 |
" |
|
1251 |
||
1252 |
<resource: #canvas> |
|
1253 |
||
1254 |
^ |
|
1255 |
#(FullSpec |
|
1256 |
name: #'page6b_specifyBuildDirectorySpec' |
|
1257 |
window: |
|
1258 |
(WindowSpec |
|
1259 |
label: 'Project Selection' |
|
1260 |
name: 'Project Selection' |
|
1261 |
min: (Point 0 0) |
|
1262 |
bounds: (Rectangle 0 0 521 361) |
|
1263 |
) |
|
1264 |
component: |
|
1265 |
(SpecCollection |
|
1266 |
collection: ( |
|
1267 |
(FramedBoxSpec |
|
2636 | 1268 |
label: 'Build Directory' |
1269 |
name: 'FramedBox3' |
|
1270 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 79 0) |
|
1271 |
labelPosition: topLeft |
|
1272 |
translateLabel: true |
|
1273 |
component: |
|
1274 |
(SpecCollection |
|
1275 |
collection: ( |
|
1276 |
(FilenameInputFieldSpec |
|
1277 |
name: 'FilenameEntryField1' |
|
1278 |
layout: (LayoutFrame 0 0.0 10 0 0 1.0 32 0) |
|
1279 |
model: buildDirectoryHolder |
|
1280 |
acceptOnPointerLeave: true |
|
1281 |
viewClassName: FilenameWidgetWithHistory |
|
1282 |
) |
|
1283 |
) |
|
1284 |
||
1285 |
) |
|
1286 |
) |
|
2681 | 1287 |
(FramedBoxSpec |
1288 |
label: 'Compiler / Toolchain' |
|
1289 |
name: 'FramedBox4' |
|
1290 |
layout: (LayoutFrame 0 0.0 81 0 4 1.0 155 0) |
|
1291 |
labelPosition: topLeft |
|
1292 |
translateLabel: true |
|
1293 |
component: |
|
1294 |
(SpecCollection |
|
1295 |
collection: ( |
|
1296 |
(ComboListSpec |
|
1297 |
name: 'ComboList1' |
|
1298 |
layout: (LayoutFrame 0 0 10 0 137 0 32 0) |
|
1299 |
model: usedCompilerHolder |
|
1300 |
comboList: listOfPossibleCompilers |
|
1301 |
useIndex: false |
|
1302 |
) |
|
2910 | 1303 |
(LabelSpec |
1304 |
label: 'Compiler Suite' |
|
1305 |
name: 'Label2' |
|
1306 |
layout: (LayoutFrame 163 0 10 0 0 1 32 0) |
|
1307 |
translateLabel: true |
|
1308 |
labelChannel: nameOfUsedCompilerSuiteHolder |
|
1309 |
adjust: left |
|
1310 |
) |
|
2681 | 1311 |
) |
1312 |
||
1313 |
) |
|
1314 |
) |
|
2919 | 1315 |
(TextEditorSpec |
1316 |
name: 'TextEditor1' |
|
2724 | 1317 |
layout: (LayoutFrame 2 0.0 158 0 -2 1.0 303 0) |
1318 |
level: -1 |
|
1319 |
visibilityChannel: compilerWarnMessageVisibleHolder |
|
2919 | 1320 |
model: compilerWarnMessageHolder |
1321 |
hasHorizontalScrollBar: true |
|
1322 |
hasVerticalScrollBar: true |
|
1323 |
miniScrollerHorizontal: true |
|
2910 | 1324 |
backgroundColor: (Color 100.0 49.9992370489052 49.9992370489052) |
2919 | 1325 |
hasKeyboardFocusInitially: false |
1326 |
postBuildCallback: postBuildWarnMessageView: |
|
2724 | 1327 |
) |
2636 | 1328 |
) |
1329 |
||
1330 |
) |
|
1331 |
) |
|
1332 |
! |
|
1333 |
||
2656 | 1334 |
page7_buildSpec |
2636 | 1335 |
"This resource specification was automatically generated |
1336 |
by the UIPainter of ST/X." |
|
1337 |
||
1338 |
"Do not manually edit this!! If it is corrupted, |
|
1339 |
the UIPainter may not be able to read the specification." |
|
1340 |
||
1341 |
" |
|
2656 | 1342 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7_buildSpec |
1343 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page7_buildSpec |
|
2636 | 1344 |
" |
1345 |
||
1346 |
<resource: #canvas> |
|
1347 |
||
1348 |
^ |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1349 |
#(FullSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1350 |
name: #'page7_buildSpec' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1351 |
window: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1352 |
(WindowSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1353 |
label: 'Project Selection' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1354 |
name: 'Project Selection' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1355 |
min: (Point 0 0) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1356 |
bounds: (Rectangle 0 0 679 492) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1357 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1358 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1359 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1360 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1361 |
(FramedBoxSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1362 |
label: 'Make Output' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1363 |
name: 'FramedBox3' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1364 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 -91 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1365 |
labelPosition: topLeft |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1366 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1367 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1368 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1369 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1370 |
(TextEditorSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1371 |
name: 'MakeOutputWindow' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1372 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1373 |
activeHelpKey: makeOutput |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1374 |
model: makeOutputHolder |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1375 |
hasHorizontalScrollBar: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1376 |
hasVerticalScrollBar: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1377 |
hasKeyboardFocusInitially: false |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1378 |
viewClassName: 'TextCollector' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1379 |
postBuildCallback: postBuildMakeOutputWindow: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1380 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1381 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1382 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1383 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1384 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1385 |
(HorizontalPanelViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1386 |
name: 'HorizontalPanel1' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1387 |
layout: (LayoutFrame 0 0 -90 1 0 1 -60 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1388 |
horizontalLayout: leftSpace |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1389 |
verticalLayout: center |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1390 |
horizontalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1391 |
verticalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1392 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1393 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1394 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1395 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1396 |
label: 'Make All' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1397 |
name: 'Button3' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1398 |
activeHelpKey: makeAll |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1399 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1400 |
model: doStartMakeAll |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1401 |
enableChannel: startMakeButtonEnabled |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1402 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1403 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1404 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1405 |
label: 'Make App' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1406 |
name: 'Button17' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1407 |
activeHelpKey: makeAll |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1408 |
visibilityChannel: osIsOSX |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1409 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1410 |
model: doStartMakeApp |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1411 |
enableChannel: startMakeButtonEnabled |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1412 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1413 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1414 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1415 |
label: 'Make EXE only' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1416 |
name: 'Button5' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1417 |
activeHelpKey: makeExe |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1418 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1419 |
model: doStartMakeExe |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1420 |
enableChannel: startMakeButtonEnabled |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1421 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1422 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1423 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1424 |
label: 'Quick Make EXE' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1425 |
name: 'Button16' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1426 |
activeHelpKey: makeExeQuick |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1427 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1428 |
model: doStartMakeExeQuick |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1429 |
enableChannel: startMakeButtonEnabled |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1430 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1431 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1432 |
(ViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1433 |
name: 'Box1' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1434 |
extent: (Point 20 10) |
2636 | 1435 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1436 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1437 |
label: 'Stop Make' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1438 |
name: 'Button4' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1439 |
activeHelpKey: stopMake |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1440 |
visibilityChannel: stopMakeButtonVisible |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1441 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1442 |
model: doStopMake |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1443 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1444 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1445 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1446 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1447 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1448 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1449 |
(HorizontalPanelViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1450 |
name: 'HorizontalPanel2' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1451 |
layout: (LayoutFrame 0 0 -60 1 0 1 -30 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1452 |
horizontalLayout: leftSpace |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1453 |
verticalLayout: center |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1454 |
horizontalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1455 |
verticalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1456 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1457 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1458 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1459 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1460 |
label: 'Finder on Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1461 |
name: 'Button13' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1462 |
activeHelpKey: openFinder |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1463 |
visibilityChannel: osIsOSX |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1464 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1465 |
model: doOpenFinder |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1466 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1467 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1468 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1469 |
label: 'Explorer on Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1470 |
name: 'Button14' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1471 |
activeHelpKey: openExplorer |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1472 |
visibilityChannel: osIsWindows |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1473 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1474 |
model: doOpenExplorer |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1475 |
useDefaultExtent: true |
2917 | 1476 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1477 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1478 |
label: 'Browser on Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1479 |
name: 'Button11' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1480 |
activeHelpKey: openFileBrowser |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1481 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1482 |
model: doBrowseBuildDirectory |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1483 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1484 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1485 |
(ViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1486 |
name: 'Box2' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1487 |
extent: (Point 20 10) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1488 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1489 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1490 |
label: 'Clear Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1491 |
name: 'Button12' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1492 |
activeHelpKey: clearBuildDirectory |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1493 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1494 |
model: doClearBuildDirectory |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1495 |
useDefaultExtent: true |
2648 | 1496 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1497 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1498 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1499 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1500 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1501 |
(HorizontalPanelViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1502 |
name: 'HorizontalPanel3' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1503 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1504 |
horizontalLayout: leftSpace |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1505 |
verticalLayout: center |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1506 |
horizontalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1507 |
verticalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1508 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1509 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1510 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1511 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1512 |
label: 'Terminal in Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1513 |
name: 'Button15' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1514 |
activeHelpKey: openTerminal |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1515 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1516 |
model: doOpenTerminal |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1517 |
useDefaultExtent: true |
2960
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
1518 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1519 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1520 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1521 |
) |
2636 | 1522 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1523 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1524 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1525 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1526 |
) |
2636 | 1527 |
! |
1528 |
||
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1529 |
page7a_checkinSpec |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1530 |
"This resource specification was automatically generated |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1531 |
by the UIPainter of ST/X." |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1532 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1533 |
"Do not manually edit this!! If it is corrupted, |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1534 |
the UIPainter may not be able to read the specification." |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1535 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1536 |
" |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1537 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7a_checkinSpec |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1538 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page7a_checkinSpec |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1539 |
" |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1540 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1541 |
<resource: #canvas> |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1542 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1543 |
^ |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1544 |
#(FullSpec |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1545 |
name: #'page7a_checkinSpec' |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1546 |
window: |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1547 |
(WindowSpec |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1548 |
label: 'Check Into Repository' |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1549 |
name: 'Check Into Repository' |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1550 |
min: (Point 0 0) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1551 |
bounds: (Rectangle 0 0 679 492) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1552 |
) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1553 |
component: |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1554 |
(SpecCollection |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1555 |
collection: ( |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1556 |
(HorizontalPanelViewSpec |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1557 |
name: 'HorizontalPanel2' |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1558 |
layout: (LayoutFrame 10 0 10 0 0 1 40 0) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1559 |
horizontalLayout: leftSpace |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1560 |
verticalLayout: center |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1561 |
horizontalSpace: 3 |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1562 |
verticalSpace: 3 |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1563 |
component: |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1564 |
(SpecCollection |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1565 |
collection: ( |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1566 |
(ActionButtonSpec |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1567 |
label: 'Checkin...' |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1568 |
name: 'CheckinButton' |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1569 |
activeHelpKey: openFinder |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1570 |
visibilityChannel: osIsOSX |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1571 |
translateLabel: true |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1572 |
resizeForLabel: true |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1573 |
model: doCheckin |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1574 |
useDefaultExtent: true |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1575 |
) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1576 |
) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1577 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1578 |
) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1579 |
) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1580 |
) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1581 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1582 |
) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1583 |
) |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1584 |
! |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1585 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1586 |
page7b_buildSpec |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1587 |
"This resource specification was automatically generated |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1588 |
by the UIPainter of ST/X." |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1589 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1590 |
"Do not manually edit this!! If it is corrupted, |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1591 |
the UIPainter may not be able to read the specification." |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1592 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1593 |
" |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1594 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7b_buildSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1595 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page7b_buildSpec |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1596 |
" |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1597 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1598 |
<resource: #canvas> |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1599 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1600 |
^ |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1601 |
#(FullSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1602 |
name: #'page7b_buildSpec' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1603 |
window: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1604 |
(WindowSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1605 |
label: 'Project Selection' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1606 |
name: 'Project Selection' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1607 |
min: (Point 0 0) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1608 |
bounds: (Rectangle 0 0 679 492) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1609 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1610 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1611 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1612 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1613 |
(FramedBoxSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1614 |
label: 'Make Output' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1615 |
name: 'FramedBox3' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1616 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 -91 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1617 |
labelPosition: topLeft |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1618 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1619 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1620 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1621 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1622 |
(TextEditorSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1623 |
name: 'MakeOutputWindow' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1624 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1625 |
activeHelpKey: makeOutput |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1626 |
model: makeOutputHolder |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1627 |
hasHorizontalScrollBar: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1628 |
hasVerticalScrollBar: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1629 |
hasKeyboardFocusInitially: false |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1630 |
viewClassName: 'TextCollector' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1631 |
postBuildCallback: postBuildMakeOutputWindow: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1632 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1633 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1634 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1635 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1636 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1637 |
(HorizontalPanelViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1638 |
name: 'HorizontalPanel1' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1639 |
layout: (LayoutFrame 0 0 -90 1 0 1 -60 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1640 |
horizontalLayout: leftSpace |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1641 |
verticalLayout: center |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1642 |
horizontalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1643 |
verticalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1644 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1645 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1646 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1647 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1648 |
label: 'Make All' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1649 |
name: 'Button3' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1650 |
activeHelpKey: makeAll |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1651 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1652 |
model: doStartMakeAll |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1653 |
enableChannel: startMakeButtonEnabled |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1654 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1655 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1656 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1657 |
label: 'Make APP only' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1658 |
name: 'Button17' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1659 |
activeHelpKey: makeApp |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1660 |
visibilityChannel: osIsOSX |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1661 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1662 |
model: doStartMakeApp |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1663 |
enableChannel: startMakeButtonEnabled |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1664 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1665 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1666 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1667 |
label: 'Make EXE only' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1668 |
name: 'Button5' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1669 |
activeHelpKey: makeExe |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1670 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1671 |
model: doStartMakeExe |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1672 |
enableChannel: startMakeButtonEnabled |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1673 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1674 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1675 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1676 |
label: 'Quick Make EXE' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1677 |
name: 'Button16' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1678 |
activeHelpKey: makeExeQuick |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1679 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1680 |
model: doStartMakeExeQuick |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1681 |
enableChannel: startMakeButtonEnabled |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1682 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1683 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1684 |
(ViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1685 |
name: 'Box1' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1686 |
extent: (Point 20 10) |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1687 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1688 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1689 |
label: 'Stop Make' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1690 |
name: 'Button4' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1691 |
activeHelpKey: stopMake |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1692 |
visibilityChannel: stopMakeButtonVisible |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1693 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1694 |
model: doStopMake |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1695 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1696 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1697 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1698 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1699 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1700 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1701 |
(HorizontalPanelViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1702 |
name: 'HorizontalPanel2' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1703 |
layout: (LayoutFrame 0 0 -60 1 0 1 -30 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1704 |
horizontalLayout: leftSpace |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1705 |
verticalLayout: center |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1706 |
horizontalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1707 |
verticalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1708 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1709 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1710 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1711 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1712 |
label: 'Finder on Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1713 |
name: 'Button13' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1714 |
activeHelpKey: openFinder |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1715 |
visibilityChannel: osIsOSX |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1716 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1717 |
model: doOpenFinder |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1718 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1719 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1720 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1721 |
label: 'Explorer on Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1722 |
name: 'Button14' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1723 |
activeHelpKey: openExplorer |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1724 |
visibilityChannel: osIsWindows |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1725 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1726 |
model: doOpenExplorer |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1727 |
useDefaultExtent: true |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1728 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1729 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1730 |
label: 'Browser on Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1731 |
name: 'Button11' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1732 |
activeHelpKey: openFileBrowser |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1733 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1734 |
model: doBrowseBuildDirectory |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1735 |
useDefaultExtent: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1736 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1737 |
(ViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1738 |
name: 'Box2' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1739 |
extent: (Point 20 10) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1740 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1741 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1742 |
label: 'Clear Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1743 |
name: 'Button12' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1744 |
activeHelpKey: clearBuildDirectory |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1745 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1746 |
model: doClearBuildDirectory |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1747 |
useDefaultExtent: true |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1748 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1749 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1750 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1751 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1752 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1753 |
(HorizontalPanelViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1754 |
name: 'HorizontalPanel3' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1755 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1756 |
horizontalLayout: leftSpace |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1757 |
verticalLayout: center |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1758 |
horizontalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1759 |
verticalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1760 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1761 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1762 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1763 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1764 |
label: 'Terminal in Build Directory' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1765 |
name: 'Button15' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1766 |
activeHelpKey: openTerminal |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1767 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1768 |
model: doOpenTerminal |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1769 |
useDefaultExtent: true |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1770 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1771 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1772 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1773 |
) |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1774 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1775 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1776 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1777 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1778 |
) |
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1779 |
! |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
1780 |
|
2676 | 1781 |
page8_deploySpec |
1782 |
"This resource specification was automatically generated |
|
1783 |
by the UIPainter of ST/X." |
|
1784 |
||
1785 |
"Do not manually edit this!! If it is corrupted, |
|
1786 |
the UIPainter may not be able to read the specification." |
|
1787 |
||
1788 |
" |
|
1789 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page8_deploySpec |
|
1790 |
Tools::ProjectBuilderAssistantApplication new openInterface:#page8_deploySpec |
|
1791 |
" |
|
1792 |
||
1793 |
<resource: #canvas> |
|
1794 |
||
1795 |
^ |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1796 |
#(FullSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1797 |
name: #'page8_deploySpec' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1798 |
window: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1799 |
(WindowSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1800 |
label: 'Project Selection' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1801 |
name: 'Project Selection' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1802 |
min: (Point 0 0) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1803 |
bounds: (Rectangle 0 0 521 472) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1804 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1805 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1806 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1807 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1808 |
(FramedBoxSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1809 |
label: 'Files for Deployment' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1810 |
name: 'FramedBox3' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1811 |
layout: (LayoutFrame 0 0.0 5 0 4 1.0 0 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1812 |
labelPosition: topLeft |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1813 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1814 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1815 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1816 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1817 |
(SubCanvasSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1818 |
name: 'SubCanvas1' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1819 |
layout: (LayoutFrame 0 0 0 0 0 1 -30 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1820 |
hasHorizontalScrollBar: false |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1821 |
hasVerticalScrollBar: false |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1822 |
clientHolder: fileBrowserInstance |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1823 |
createNewApplication: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1824 |
createNewBuilder: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1825 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1826 |
(HorizontalPanelViewSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1827 |
name: 'HorizontalPanel1' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1828 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1829 |
horizontalLayout: centerMax |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1830 |
verticalLayout: center |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1831 |
horizontalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1832 |
verticalSpace: 3 |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1833 |
component: |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1834 |
(SpecCollection |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1835 |
collection: ( |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1836 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1837 |
label: 'Open Windows Explorer' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1838 |
name: 'Button1' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1839 |
visibilityChannel: osIsWindows |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1840 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1841 |
resizeForLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1842 |
model: doOpenExplorer |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1843 |
extent: (Point 172 22) |
2649 | 1844 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1845 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1846 |
label: 'Open Finder' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1847 |
name: 'Button3' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1848 |
visibilityChannel: osIsOSX |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1849 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1850 |
resizeForLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1851 |
model: doOpenFinder |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1852 |
extent: (Point 172 22) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1853 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1854 |
(ActionButtonSpec |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1855 |
label: 'Open Terminal' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1856 |
name: 'Button2' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1857 |
translateLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1858 |
resizeForLabel: true |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1859 |
model: doOpenTerminal |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1860 |
extent: (Point 172 22) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1861 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1862 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1863 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1864 |
) |
2636 | 1865 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1866 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1867 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1868 |
) |
2636 | 1869 |
) |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1870 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1871 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1872 |
) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
1873 |
) |
2676 | 1874 |
! ! |
1875 |
||
2697 | 1876 |
!ProjectBuilderAssistantApplication class methodsFor:'misc specs'! |
1877 |
||
1878 |
newProjectsNameListSpec |
|
1879 |
"This resource specification was automatically generated |
|
1880 |
by the UIPainter of ST/X." |
|
1881 |
||
1882 |
"Do not manually edit this!! If it is corrupted, |
|
1883 |
the UIPainter may not be able to read the specification." |
|
1884 |
||
1885 |
" |
|
1886 |
UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#newProjectsNameListSpec |
|
1887 |
Tools::ProjectBuilderAssistantApplication new openInterface:#newProjectsNameListSpec |
|
1888 |
" |
|
1889 |
||
1890 |
<resource: #canvas> |
|
1891 |
||
1892 |
^ |
|
1893 |
#(FullSpec |
|
1894 |
name: newProjectsNameListSpec |
|
1895 |
window: |
|
1896 |
(WindowSpec |
|
1897 |
label: 'NewApplication' |
|
1898 |
name: 'NewApplication' |
|
1899 |
min: (Point 0 0) |
|
1900 |
bounds: (Rectangle 0 0 131 207) |
|
2990
66833743333c
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2988
diff
changeset
|
1901 |
usePreferredExtent: true |
2697 | 1902 |
) |
1903 |
component: |
|
1904 |
(SpecCollection |
|
1905 |
collection: ( |
|
1906 |
(SequenceViewSpec |
|
1907 |
name: 'ReferencePoint2' |
|
1908 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
2705 | 1909 |
activeHelpKey: listOfNewProjectsName |
2697 | 1910 |
model: newProjectsName |
1911 |
hasHorizontalScrollBar: true |
|
1912 |
hasVerticalScrollBar: true |
|
1913 |
miniScrollerHorizontal: true |
|
1914 |
miniScrollerVertical: false |
|
1915 |
useIndex: false |
|
1916 |
sequenceList: listOfNewProjectsName |
|
2705 | 1917 |
doubleClickChannel: newProjectsNameListDoubleClickChannel |
2990
66833743333c
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2988
diff
changeset
|
1918 |
usePreferredHeight: true |
66833743333c
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2988
diff
changeset
|
1919 |
useDynamicPreferredHeight: true |
2697 | 1920 |
) |
1921 |
) |
|
1922 |
||
1923 |
) |
|
1924 |
) |
|
1925 |
! ! |
|
1926 |
||
2897 | 1927 |
!ProjectBuilderAssistantApplication class methodsFor:'startup'! |
1928 |
||
1929 |
openOn:aProjectDefinitionClass |
|
1930 |
^ self new openOn:aProjectDefinitionClass |
|
1931 |
||
1932 |
"Created: / 20-07-2012 / 12:33:25 / cg" |
|
1933 |
! |
|
1934 |
||
1935 |
openOnPackage:aPackageId |
|
1936 |
^ self new openOnPackage:aPackageId |
|
1937 |
||
1938 |
"Created: / 20-07-2012 / 13:22:50 / cg" |
|
1939 |
! ! |
|
1940 |
||
2676 | 1941 |
!ProjectBuilderAssistantApplication methodsFor:'actions'! |
1942 |
||
1943 |
buildDirectoryChanged |
|
1944 |
self updateButtonEnableState. |
|
2636 | 1945 |
! |
1946 |
||
2676 | 1947 |
createNewApplication |
1948 |
<resource: #uiCallback> |
|
1949 |
||
1950 |
|newAppName newAppClass| |
|
2636 | 1951 |
|
2676 | 1952 |
newAppName := self newApplicationsName value. |
1953 |
newAppName isEmptyOrNil ifTrue:[ |
|
1954 |
Dialog warn:'Please enter the name of the Application-Class first.'. |
|
1955 |
^ self |
|
1956 |
]. |
|
3004
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1957 |
newAppName isUppercaseFirst ifFalse:[ |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1958 |
(Dialog confirm:(resources |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1959 |
stringWithCRs:'Class names must start with an uppercase character.\\Change to "%1"?' |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1960 |
with:newAppName asUppercaseFirst)) |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1961 |
ifFalse:[ |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1962 |
^ self |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1963 |
]. |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1964 |
newAppName := newAppName asUppercaseFirst. |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1965 |
self newApplicationsName value:newAppName. |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
1966 |
]. |
2676 | 1967 |
|
1968 |
self withWaitCursorDo:[ |
|
1969 |
Class packageQuerySignal answer:(selectedProjectDefinition package) |
|
1970 |
do:[ |
|
2659 | 1971 |
newAppClass := ApplicationModel |
1972 |
subclass:newAppName asSymbol |
|
1973 |
instanceVariableNames:'' |
|
1974 |
classVariableNames:'' |
|
1975 |
poolDictionaries:'' |
|
1976 |
category:'Applications'. |
|
2832
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
1977 |
SmalltalkCodeGeneratorTool createApplicationCodeFor:newAppClass. |
2659 | 1978 |
]. |
2724 | 1979 |
self updateListOfApplicationsInProject. |
1980 |
self selectedApplicationIndexHolder value:(listOfApplicationsInProject value indexOf:newAppClass). |
|
2636 | 1981 |
]. |
2832
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
1982 |
|
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
1983 |
"Modified: / 31-01-2011 / 18:29:50 / cg" |
2636 | 1984 |
! |
1985 |
||
2676 | 1986 |
createNewProject |
1987 |
<resource: #uiCallback> |
|
1988 |
||
1989 |
|newProjectID projectDefinitionType projectDefinitionClass projectClasses| |
|
1990 |
||
1991 |
newProjectID := self newProjectsName value. |
|
1992 |
newProjectID isEmptyOrNil ifTrue:[ |
|
2686
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
1993 |
Dialog warn:(resources string:'Please enter a packageID first.'). |
2676 | 1994 |
^ self |
1995 |
]. |
|
1996 |
newProjectID asPackageId isModuleId ifTrue:[ |
|
2686
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
1997 |
Dialog warn:(resources stringWithCRs: |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
1998 |
'Please enter a corrent packageID. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
1999 |
|
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2000 |
All packages must be named like "%1:%2" |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2001 |
(%2 can be a path like "dir/dir/...").' with:(resources string:'module')allItalic |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2002 |
with:(resources string:'directory')allItalic). |
2676 | 2003 |
^ self |
2004 |
]. |
|
2005 |
||
2709 | 2006 |
self withWaitCursorDo:[ |
2900 | 2007 |
projectDefinitionType := self projectType. "/ ProjectDefinition perform:(self projectTypeHolder value). |
2676 | 2008 |
|
2709 | 2009 |
projectDefinitionClass := ProjectDefinition |
2010 |
definitionClassForPackage:newProjectID |
|
2011 |
projectType: projectDefinitionType |
|
2012 |
createIfAbsent:true. |
|
2676 | 2013 |
|
2709 | 2014 |
projectDefinitionClass compileDescriptionMethods. |
2015 |
self updateListOfMatchingProjects. |
|
2016 |
self updateListOfNewProjectsName. |
|
2676 | 2017 |
|
2709 | 2018 |
self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass). |
2676 | 2019 |
|
2851 | 2020 |
projectClasses := projectDefinitionClass allClasses. |
2676 | 2021 |
|
2022 |
"/ projectDefinitionClass isGUIApplication ifTrue:[ |
|
2023 |
"/ "/ see if it has an AppModel class |
|
2659 | 2024 |
"/ (projectClasses contains:[:cls | cls isVisualStartable]) ifFalse:[ |
2025 |
"/ (Dialog confirm:'Create an Application Class ?') ifTrue:[ |
|
2026 |
"/ self halt. |
|
2027 |
"/ ]. |
|
2028 |
"/ ]. |
|
2029 |
"/ ]. |
|
2636 | 2030 |
|
2031 |
"/ projectDefinitionClass isLibrary ifFalse:[ |
|
2032 |
"/ "/ see if it has a Startup class |
|
2033 |
"/ (projectClasses contains:[:cls | cls isStartable]) ifFalse:[ |
|
2034 |
"/ ]. |
|
2035 |
"/ ]. |
|
2709 | 2036 |
|
2037 |
]. |
|
2851 | 2038 |
|
2900 | 2039 |
"Modified: / 06-08-2012 / 16:55:54 / cg" |
2636 | 2040 |
! |
2041 |
||
2676 | 2042 |
createNewStartupClass |
2043 |
<resource: #uiCallback> |
|
2044 |
||
2696 | 2045 |
|newClassName newStartupClass startupApplication| |
2676 | 2046 |
|
2047 |
newClassName := self newStartupClassName value. |
|
2048 |
newClassName isEmptyOrNil ifTrue:[ |
|
2049 |
Dialog warn:'Please enter the name of the Startup-Class first.'. |
|
2050 |
^ self |
|
2051 |
]. |
|
3004
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2052 |
newClassName isUppercaseFirst ifFalse:[ |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2053 |
(Dialog confirm:(resources |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2054 |
stringWithCRs:'Class names must start with an uppercase character.\\Change to "%1"?' |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2055 |
with:newClassName asUppercaseFirst)) |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2056 |
ifFalse:[ |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2057 |
^ self |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2058 |
]. |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2059 |
newClassName := newClassName asUppercaseFirst. |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2060 |
self newStartupClassName value:newClassName. |
014368fad35b
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3002
diff
changeset
|
2061 |
]. |
2676 | 2062 |
|
2719 | 2063 |
self withWaitCursorDo:[ |
2064 |
|pkg| |
|
2065 |
||
2066 |
pkg := selectedProjectDefinition notNil |
|
2067 |
ifTrue:[selectedProjectDefinition package] |
|
2068 |
ifFalse:[newProjectsName value]. |
|
2069 |
Class packageQuerySignal answer:pkg |
|
2676 | 2070 |
do:[ |
2071 |
newStartupClass := StandaloneStartup |
|
2659 | 2072 |
subclass:newClassName asSymbol |
2073 |
instanceVariableNames:'' |
|
2074 |
classVariableNames:'' |
|
2075 |
poolDictionaries:'' |
|
2696 | 2076 |
category:'Applications'. |
2077 |
||
2078 |
self projectTypeIsGuiApplication ifTrue: [startupApplication := selectedApplication]. |
|
2832
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
2079 |
SmalltalkCodeGeneratorTool createStartupCodeFor:newStartupClass forStartOf:startupApplication. |
2659 | 2080 |
]. |
2724 | 2081 |
self updateListOfStartupClassesInProject. |
2082 |
self selectedStartupClassIndexHolder value:(listOfStartupClassesInProject value indexOf:newStartupClass). |
|
2659 | 2083 |
]. |
2832
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
2084 |
|
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
2085 |
"Modified: / 31-01-2011 / 18:29:47 / cg" |
2659 | 2086 |
! |
2087 |
||
2676 | 2088 |
doAddClassToProject |
2089 |
<resource: #uiCallback> |
|
2636 | 2090 |
|
2091 |
Transcript showCR:self class name, ': action for doAddClassToProject ...'. |
|
2962 | 2092 |
self halt:'unimplemented'. |
2636 | 2093 |
! |
2094 |
||
2676 | 2095 |
doBrowseApplication |
2096 |
<resource: #uiCallback> |
|
2636 | 2097 |
|
2098 |
|appClass| |
|
2099 |
||
2659 | 2100 |
self hasApplicationSelected ifTrue:[ |
2101 |
appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value). |
|
2102 |
UserPreferences systemBrowserClass |
|
2668 | 2103 |
openInClass:appClass class selector:#windowSpec. |
2659 | 2104 |
]. |
2636 | 2105 |
! |
2106 |
||
2906
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2107 |
doBrowseBuildDirectory |
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2108 |
<resource: #uiCallback> |
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2109 |
|
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2110 |
projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2111 |
projectBuilder buildDirectory isNil ifTrue:[ |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2112 |
Dialog information:'No build directory yet'. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2113 |
^ self |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2114 |
]. |
2906
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2115 |
UserPreferences current fileBrowserClass |
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2116 |
openIn:projectBuilder packageBuildDirectory asFilename |
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2117 |
"/ projectBuilder packageBuildDirectory asFilename openExplorer |
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2118 |
|
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2119 |
"Created: / 20-08-2012 / 17:05:54 / cg" |
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2120 |
! |
8057ed7bccd2
added: #doBrowseBuildDirectory
Claus Gittinger <cg@exept.de>
parents:
2900
diff
changeset
|
2121 |
|
2676 | 2122 |
doBrowseProject |
2123 |
<resource: #uiCallback> |
|
2124 |
||
2125 |
UserPreferences systemBrowserClass openOnPackage:selectedProjectDefinition package. |
|
2636 | 2126 |
! |
2127 |
||
2676 | 2128 |
doBrowseProjectDefinitionClass |
2129 |
<resource: #uiCallback> |
|
2130 |
||
2131 |
|defClass| |
|
2132 |
||
2133 |
self hasProjectSelected ifTrue:[ |
|
2134 |
defClass := self selectedProjectDefinition. |
|
2135 |
UserPreferences systemBrowserClass |
|
2659 | 2136 |
openInClass:defClass class selector:#classNamesAndAttributes. |
2137 |
]. |
|
2138 |
! |
|
2139 |
||
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2140 |
doBrowseProjectDefinitionClassForPrereqs |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2141 |
<resource: #uiCallback> |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2142 |
|
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2143 |
|defClass| |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2144 |
|
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2145 |
self hasProjectSelected ifTrue:[ |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2146 |
defClass := self selectedProjectDefinition. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2147 |
UserPreferences systemBrowserClass |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2148 |
openInClass:defClass class selector:#preRequisites. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2149 |
]. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2150 |
! |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2151 |
|
2676 | 2152 |
doBrowseStartupClass |
2153 |
<resource: #uiCallback> |
|
2154 |
||
2155 |
|startupClass| |
|
2156 |
||
2157 |
self hasStartupClassSelected ifTrue:[ |
|
2158 |
startupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value). |
|
2159 |
UserPreferences systemBrowserClass |
|
2160 |
openInClass:startupClass class selector:#main:. |
|
2659 | 2161 |
]. |
2162 |
! |
|
2163 |
||
3068
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2164 |
doCheckin |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2165 |
<resource: #uiCallback> |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2166 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2167 |
|package utilities| |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2168 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2169 |
package := selectedProjectDefinition package. |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2170 |
utilities := (AbstractSourceCodeManager managerForPackage:package) utilities. |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2171 |
|
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2172 |
AbortAllOperationRequest catch:[ |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2173 |
self withWaitCursorDo:[ |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2174 |
utilities |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2175 |
checkinPackage:package |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2176 |
classes:true |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2177 |
extensions:true |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2178 |
buildSupport:true |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2179 |
askForMethodsInOtherPackages:true |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2180 |
] |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2181 |
] |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2182 |
! |
1b840afa3fd7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3008
diff
changeset
|
2183 |
|
2917 | 2184 |
doClearBuildDirectory |
2185 |
<resource: #uiCallback> |
|
2186 |
||
2928 | 2187 |
projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
2188 |
projectBuilder buildDirectory notNil ifTrue:[ |
|
2929 | 2189 |
self withWaitCursorDo:[ |
2190 |
projectBuilder packageBuildDirectory asFilename recursiveRemove |
|
2191 |
] |
|
2928 | 2192 |
]. |
2917 | 2193 |
|
2194 |
"Created: / 05-09-2012 / 10:35:54 / cg" |
|
2195 |
! |
|
2196 |
||
2676 | 2197 |
doGenerateProjectContentsDefinition |
2198 |
self generatePackageContentsMethods |
|
2199 |
! |
|
2200 |
||
2872 | 2201 |
doGenerateProjectPrerequisitesDefinition |
2202 |
self generatePackageContentsMethods |
|
2203 |
||
2204 |
"Created: / 19-01-2012 / 15:44:23 / cg" |
|
2205 |
! |
|
2206 |
||
2676 | 2207 |
doLaunchApplication |
2208 |
<resource: #uiCallback> |
|
2209 |
||
2210 |
|appClass| |
|
2211 |
||
2212 |
self hasApplicationSelected ifTrue:[ |
|
2213 |
appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value). |
|
2214 |
appClass open. |
|
2659 | 2215 |
]. |
2216 |
! |
|
2217 |
||
2676 | 2218 |
doOpenExplorer |
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2219 |
projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2220 |
projectBuilder buildDirectory isNil ifTrue:[ |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2221 |
Dialog information:'No build directory yet'. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2222 |
^ self |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2223 |
]. |
2899 | 2224 |
projectBuilder packageBuildDirectory asFilename openExplorer |
2225 |
||
2226 |
"Modified: / 21-07-2012 / 12:29:21 / cg" |
|
2676 | 2227 |
! |
2228 |
||
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2229 |
doOpenFinder |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2230 |
projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2231 |
projectBuilder buildDirectory isNil ifTrue:[ |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2232 |
Dialog information:'No build directory yet'. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2233 |
^ self |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2234 |
]. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2235 |
projectBuilder packageBuildDirectory asFilename openFinder |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2236 |
|
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2237 |
"Modified: / 21-07-2012 / 12:29:21 / cg" |
2674 | 2238 |
! |
2239 |
||
2960
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
2240 |
doOpenTerminal |
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
2241 |
projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
2242 |
projectBuilder buildDirectory isNil ifTrue:[ |
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
2243 |
Dialog information:'No build directory yet'. |
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
2244 |
^ self |
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
2245 |
]. |
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
2246 |
projectBuilder packageBuildDirectory asFilename openTerminal |
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
2247 |
! |
9b1e724cb318
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2959
diff
changeset
|
2248 |
|
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2249 |
doStartMake:whichTarget |
2674 | 2250 |
<resource: #uiCallback> |
2251 |
||
2252 |
self stopMakeButtonVisible value:true. |
|
2253 |
self startMakeButtonEnabled value:false. |
|
2254 |
||
2724 | 2255 |
self infoHolder value:'Building (make) - please wait...'. |
2674 | 2256 |
makeOutputWindow clear. |
2257 |
||
2258 |
makeProcess := |
|
2259 |
[ |
|
2260 |
[ |
|
2968 | 2261 |
self runBuildProcess:whichTarget |
2636 | 2262 |
] ensure:[ |
2263 |
self stopMakeButtonVisible value:false. |
|
2264 |
self startMakeButtonEnabled value:true. |
|
2646 | 2265 |
makeProcess := nil. |
2648 | 2266 |
self updateButtonEnableState. |
2724 | 2267 |
self infoHolder value:''. |
2636 | 2268 |
]. |
2269 |
] newProcess. |
|
2270 |
||
2271 |
makeProcess priority:4. |
|
2272 |
makeProcess priorityRange:(4 to:8). |
|
2273 |
makeProcess resume. |
|
2274 |
! |
|
2275 |
||
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2276 |
doStartMakeAll |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2277 |
<resource: #uiCallback> |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2278 |
|
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2279 |
self doStartMake:'all' |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2280 |
! |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2281 |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2282 |
doStartMakeApp |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2283 |
<resource: #uiCallback> |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2284 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2285 |
self doStartMake:'app' |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2286 |
! |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2287 |
|
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2288 |
doStartMakeExe |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2289 |
<resource: #uiCallback> |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2290 |
|
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2291 |
self doStartMake:'exe' |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2292 |
! |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2293 |
|
2973 | 2294 |
doStartMakeExeQuick |
2295 |
<resource: #uiCallback> |
|
2296 |
||
2297 |
self doStartMake:'exeQuick' |
|
2298 |
! |
|
2299 |
||
2676 | 2300 |
doStopMake |
2301 |
<resource: #uiCallback> |
|
2302 |
||
2303 |
|p| |
|
2646 | 2304 |
|
2676 | 2305 |
(p := makeProcess) notNil ifTrue:[ |
2306 |
makeProcess := nil. |
|
2929 | 2307 |
self withWaitCursorDo:[ |
2308 |
p terminate. |
|
2309 |
p waitUntilTerminated. |
|
2310 |
]. |
|
2676 | 2311 |
makeOutputWindow endEntry. |
2312 |
makeOutputWindow cr. |
|
2313 |
makeOutputWindow nextPutLine:('Make Cancelled' colorizeAllWith:Color white on:Color red). |
|
2314 |
makeOutputWindow endEntry. |
|
2315 |
]. |
|
2929 | 2316 |
|
2317 |
"Modified: / 26-09-2012 / 21:01:37 / cg" |
|
2646 | 2318 |
! |
2319 |
||
2913 | 2320 |
fetchSelectedProject |
2321 |
|selectedProjectIndex| |
|
2322 |
||
2323 |
selectedProjectIndex := self selectedProjectIndexHolder value. |
|
2324 |
(selectedProjectIndex ? 0) == 0 ifTrue:[ |
|
2325 |
selectedProjectDefinition := nil. |
|
2326 |
] ifFalse:[ |
|
2327 |
selectedProjectDefinition := self listOfMatchingProjects value at:(selectedProjectIndex). |
|
2328 |
]. |
|
2329 |
self hasProjectSelectedHolder value:(selectedProjectDefinition notNil). |
|
2330 |
||
2331 |
"Created: / 04-09-2012 / 09:52:32 / cg" |
|
2332 |
! |
|
2333 |
||
2928 | 2334 |
getProjectBuilder |
2335 |
projectBuilder := ProjectBuilder new. |
|
2336 |
projectBuilder package:(selectedProjectDefinition package). |
|
2337 |
projectBuilder usedCompilerForBuild:(usedCompilerHolder value). |
|
2338 |
^ projectBuilder |
|
2339 |
||
2340 |
"Created: / 26-09-2012 / 20:57:32 / cg" |
|
2341 |
! |
|
2342 |
||
2676 | 2343 |
projectTypeChanged |
2344 |
<resource: #uiCallback> |
|
2345 |
||
2346 |
self updateListOfMatchingProjects |
|
2636 | 2347 |
! |
2348 |
||
2674 | 2349 |
runBuildProcess:what |
2636 | 2350 |
<resource: #uiCallback> |
2351 |
||
2646 | 2352 |
self assert:makeOutputWindow notNil. |
2353 |
self assert:makeOutputWindow model == self makeOutputHolder. |
|
2354 |
||
2355 |
ActivityNotification handle:[:ex | |
|
2356 |
ex messageText notNil ifTrue:[ |
|
2357 |
makeOutputWindow endEntry. |
|
2358 |
makeOutputWindow cr. |
|
2659 | 2359 |
makeOutputWindow nextPutLine:(ex messageText colorizeAllWith:Color white on:Color blue). |
2646 | 2360 |
makeOutputWindow endEntry. |
2687
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2361 |
]. |
2646 | 2362 |
ex proceed. |
2363 |
] do:[ |
|
2928 | 2364 |
self getProjectBuilder. |
2973 | 2365 |
projectBuilder makeExeOnly:((what = 'exe') or:[what = 'exeQuick']). |
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2366 |
projectBuilder makeAppOnly:(what = 'app'). |
2973 | 2367 |
projectBuilder makeQuick:(what = 'exeQuick'). |
2674 | 2368 |
|
2369 |
Error handle:[:ex | |
|
2370 |
makeOutputWindow endEntry. |
|
2371 |
makeOutputWindow cr. |
|
2682 | 2372 |
makeOutputWindow nextPutLine:(ex description colorizeAllWith:Color white on:Color red). |
2674 | 2373 |
makeOutputWindow endEntry. |
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2374 |
Debugging == true ifTrue:[ ex reject ]. |
2682 | 2375 |
ex proceed. |
2674 | 2376 |
] do:[ |
2377 |
projectBuilder buildWithColorizedOutputTo:makeOutputWindow. |
|
2378 |
]. |
|
2646 | 2379 |
]. |
2874 | 2380 |
|
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2381 |
" |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2382 |
Debugging := true. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2383 |
Debugging := false. |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2384 |
" |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2385 |
|
2930 | 2386 |
"Modified: / 27-09-2012 / 14:56:38 / cg" |
2636 | 2387 |
! |
2388 |
||
2676 | 2389 |
selectedApplicationChanged |
2390 |
|idx| |
|
2671 | 2391 |
|
2676 | 2392 |
((idx := self selectedApplicationIndexHolder value) isNil |
2393 |
or:[idx == 0]) ifTrue:[ |
|
2394 |
selectedApplication := nil. |
|
2395 |
] ifFalse:[ |
|
2396 |
selectedApplication := self listOfApplicationsInProject value at:idx. |
|
2636 | 2397 |
]. |
2676 | 2398 |
self hasApplicationSelectedHolder value:(selectedApplication notNil). |
2659 | 2399 |
|
2676 | 2400 |
"/ selectedApplication notNil ifTrue:[ |
2401 |
"/ "/ generate startupClass code |
|
2402 |
"/ CodeGeneratorTool |
|
2656 | 2403 |
"/ compile:(selectedProjectDefinition startupClassName_codeFor:(selectedApplication name)) |
2404 |
"/ forClass:selectedProjectDefinition theMetaclass |
|
2405 |
"/ inCategory:'description - startup'. |
|
2406 |
"/ ]. |
|
2636 | 2407 |
self updateApplicationComment. |
2408 |
self updateButtonEnableState. |
|
2409 |
! |
|
2410 |
||
2676 | 2411 |
selectedProjectChanged |
2913 | 2412 |
self fetchSelectedProject. |
2676 | 2413 |
|
2414 |
self updateComment. |
|
2415 |
self updateListOfApplicationsInProject. |
|
2636 | 2416 |
self updateButtonEnableState. |
2913 | 2417 |
|
2418 |
"Modified: / 04-09-2012 / 09:52:43 / cg" |
|
2656 | 2419 |
! |
2420 |
||
2676 | 2421 |
selectedStartupClassChanged |
2422 |
self selectedStartupClassIndexHolder value isNil ifTrue:[ |
|
2423 |
selectedStartupClass := nil. |
|
2424 |
] ifFalse:[ |
|
2425 |
selectedStartupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value). |
|
2656 | 2426 |
]. |
2659 | 2427 |
self hasStartupClassSelectedHolder value:(selectedStartupClass notNil). |
2428 |
||
2656 | 2429 |
selectedStartupClass notNil ifTrue:[ |
2430 |
"/ generate startupClass code |
|
3008
68256b19f036
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3007
diff
changeset
|
2431 |
Class packageQuerySignal |
68256b19f036
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3007
diff
changeset
|
2432 |
answer:selectedProjectDefinition package |
68256b19f036
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3007
diff
changeset
|
2433 |
do:[ |
68256b19f036
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3007
diff
changeset
|
2434 |
SmalltalkCodeGeneratorTool |
68256b19f036
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3007
diff
changeset
|
2435 |
compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name)) |
68256b19f036
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3007
diff
changeset
|
2436 |
forClass:selectedProjectDefinition theMetaclass |
68256b19f036
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3007
diff
changeset
|
2437 |
inCategory:'description - startup'. |
68256b19f036
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3007
diff
changeset
|
2438 |
] |
2656 | 2439 |
]. |
2440 |
self updateButtonEnableState. |
|
2832
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
2441 |
|
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
2442 |
"Modified: / 31-01-2011 / 18:29:42 / cg" |
2676 | 2443 |
! ! |
2636 | 2444 |
|
2676 | 2445 |
!ProjectBuilderAssistantApplication methodsFor:'aspects'! |
2636 | 2446 |
|
2676 | 2447 |
buildDirectoryHolder |
2448 |
<resource: #uiAspect> |
|
2636 | 2449 |
|
2450 |
|buildDirectory| |
|
2451 |
||
2452 |
buildDirectoryHolder isNil ifTrue:[ |
|
2453 |
buildDirectoryHolder := nil asValue. |
|
2454 |
buildDirectoryHolder onChangeSend:#buildDirectoryChanged to:self. |
|
2455 |
]. |
|
2456 |
buildDirectoryHolder value isEmptyOrNil ifTrue:[ |
|
2686
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2457 |
buildDirectory := ProjectBuilder previousBuildDirectory. |
2636 | 2458 |
buildDirectory isNil ifTrue:[ |
2459 |
buildDirectory := UserPreferences current buildDirectory. |
|
2460 |
buildDirectory isNil ifTrue:[ |
|
2461 |
buildDirectory := Filename tempDirectory construct:'stx_build'. |
|
2462 |
]. |
|
2463 |
]. |
|
2464 |
buildDirectoryHolder value: buildDirectory. |
|
2465 |
]. |
|
2466 |
^ buildDirectoryHolder. |
|
2467 |
! |
|
2468 |
||
2724 | 2469 |
companyNameHolder |
2470 |
<resource: #uiAspect> |
|
2471 |
||
2472 |
companyNameHolder isNil ifTrue:[ |
|
2473 |
companyNameHolder := 'MyCompany' asValue. |
|
2474 |
]. |
|
2475 |
^ companyNameHolder. |
|
2476 |
! |
|
2477 |
||
2478 |
compilerWarnMessageHolder |
|
2479 |
<resource: #uiAspect> |
|
2480 |
||
2481 |
compilerWarnMessageHolder isNil ifTrue:[ |
|
2482 |
compilerWarnMessageHolder := '' asValue. |
|
2483 |
]. |
|
2484 |
^ compilerWarnMessageHolder. |
|
2485 |
! |
|
2486 |
||
2487 |
compilerWarnMessageVisibleHolder |
|
2488 |
<resource: #uiAspect> |
|
2489 |
||
2490 |
compilerWarnMessageVisibleHolder isNil ifTrue:[ |
|
2491 |
compilerWarnMessageVisibleHolder := false asValue. |
|
2492 |
]. |
|
2493 |
^ compilerWarnMessageVisibleHolder. |
|
2494 |
! |
|
2495 |
||
2676 | 2496 |
hasApplicationSelectedHolder |
2497 |
<resource: #uiAspect> |
|
2498 |
||
2499 |
hasApplicationSelectedHolder isNil ifTrue:[ |
|
2659 | 2500 |
hasApplicationSelectedHolder := nil asValue. |
2501 |
]. |
|
2502 |
^ hasApplicationSelectedHolder. |
|
2636 | 2503 |
! |
2504 |
||
2676 | 2505 |
hasProjectSelectedHolder |
2506 |
<resource: #uiAspect> |
|
2507 |
||
2508 |
hasProjectSelectedHolder isNil ifTrue:[ |
|
2659 | 2509 |
hasProjectSelectedHolder := nil asValue. |
2510 |
]. |
|
2511 |
^ hasProjectSelectedHolder. |
|
2648 | 2512 |
! |
2513 |
||
2676 | 2514 |
hasStartupClassSelectedHolder |
2515 |
<resource: #uiAspect> |
|
2516 |
||
2517 |
hasStartupClassSelectedHolder isNil ifTrue:[ |
|
2659 | 2518 |
hasStartupClassSelectedHolder := nil asValue. |
2519 |
]. |
|
2520 |
^ hasStartupClassSelectedHolder. |
|
2636 | 2521 |
! |
2522 |
||
2676 | 2523 |
hideOtherApplicationClasses |
2524 |
<resource: #uiAspect> |
|
2525 |
||
2526 |
hideOtherApplicationClasses isNil ifTrue:[ |
|
2671 | 2527 |
hideOtherApplicationClasses := true asValue. |
2528 |
hideOtherApplicationClasses onChangeSend:#updateListOfApplicationsInProject to:self. |
|
2529 |
]. |
|
2530 |
^ hideOtherApplicationClasses. |
|
2531 |
! |
|
2532 |
||
2676 | 2533 |
hideOtherStartupClasses |
2534 |
<resource: #uiAspect> |
|
2535 |
||
2536 |
hideOtherStartupClasses isNil ifTrue:[ |
|
2537 |
hideOtherStartupClasses := true asValue. |
|
2538 |
hideOtherStartupClasses onChangeSend:#updateListOfStartupClassesInProject to:self. |
|
2671 | 2539 |
]. |
2676 | 2540 |
^ hideOtherStartupClasses. |
2671 | 2541 |
! |
2542 |
||
2676 | 2543 |
hideSTXProjects |
2544 |
<resource: #uiAspect> |
|
2545 |
||
2546 |
hideSTXProjects isNil ifTrue:[ |
|
2547 |
hideSTXProjects := true asValue. |
|
2548 |
hideSTXProjects onChangeSend:#updateListOfMatchingProjects to:self. |
|
2549 |
]. |
|
2550 |
^ hideSTXProjects. |
|
2551 |
! |
|
2552 |
||
2553 |
listOfApplicationsInProject |
|
2554 |
<resource: #uiAspect> |
|
2555 |
||
2556 |
listOfApplicationsInProject isNil ifTrue:[ |
|
2636 | 2557 |
listOfApplicationsInProject := ValueHolder new. |
2558 |
]. |
|
2559 |
^ listOfApplicationsInProject. |
|
2560 |
! |
|
2561 |
||
2676 | 2562 |
listOfClassesInProject |
2563 |
<resource: #uiAspect> |
|
2564 |
||
2565 |
listOfClassesInProject isNil ifTrue:[ |
|
2636 | 2566 |
listOfClassesInProject := ValueHolder new. |
2567 |
]. |
|
2568 |
^ listOfClassesInProject. |
|
2569 |
! |
|
2570 |
||
2686
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2571 |
listOfMatchingPackageIds |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2572 |
<resource: #uiAspect> |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2573 |
|
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2574 |
listOfMatchingPackageIds isNil ifTrue:[ |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2575 |
listOfMatchingPackageIds := ValueHolder new. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2576 |
]. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2577 |
^ listOfMatchingPackageIds. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2578 |
! |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
2579 |
|
2676 | 2580 |
listOfMatchingProjects |
2581 |
<resource: #uiAspect> |
|
2636 | 2582 |
|
2583 |
listOfMatchingProjects isNil ifTrue:[ |
|
2584 |
listOfMatchingProjects := ValueHolder new. |
|
2585 |
]. |
|
2586 |
^ listOfMatchingProjects. |
|
2587 |
! |
|
2588 |
||
2697 | 2589 |
listOfNewProjectsName |
2590 |
||
2591 |
<resource: #uiAspect> |
|
2592 |
||
2593 |
listOfNewProjectsName isNil ifTrue:[ |
|
2594 |
listOfNewProjectsName := ValueHolder new. |
|
2595 |
]. |
|
2596 |
^ listOfNewProjectsName. |
|
2597 |
! |
|
2598 |
||
2681 | 2599 |
listOfPossibleCompilers |
2874 | 2600 |
^ Tools::ProjectBuilder listOfPossibleCompilers |
2601 |
||
2919 | 2602 |
"Modified: / 05-09-2012 / 19:10:24 / cg" |
2681 | 2603 |
! |
2604 |
||
2872 | 2605 |
listOfPrerequisitesInProject |
2606 |
<resource: #uiAspect> |
|
2607 |
||
2608 |
listOfPrerequisitesInProject isNil ifTrue:[ |
|
2609 |
listOfPrerequisitesInProject := ValueHolder new. |
|
2610 |
]. |
|
2611 |
^ listOfPrerequisitesInProject. |
|
2612 |
||
2613 |
"Created: / 19-01-2012 / 15:39:34 / cg" |
|
2614 |
! |
|
2615 |
||
2676 | 2616 |
listOfStartupClassesInProject |
2617 |
<resource: #uiAspect> |
|
2618 |
||
2619 |
listOfStartupClassesInProject isNil ifTrue:[ |
|
2620 |
listOfStartupClassesInProject := ValueHolder new. |
|
2621 |
]. |
|
2622 |
^ listOfStartupClassesInProject. |
|
2623 |
! |
|
2624 |
||
2625 |
makeOutputHolder |
|
2626 |
<resource: #uiAspect> |
|
2636 | 2627 |
|
2628 |
makeOutputHolder isNil ifTrue:[ |
|
2646 | 2629 |
makeOutputHolder := ValueHolder new. |
2636 | 2630 |
]. |
2631 |
^ makeOutputHolder. |
|
2632 |
! |
|
2633 |
||
2910 | 2634 |
nameOfUsedCompilerSuiteHolder |
2635 |
<resource: #uiAspect> |
|
2636 |
||
2637 |
nameOfUsedCompilerSuiteHolder isNil ifTrue:[ |
|
2638 |
nameOfUsedCompilerSuiteHolder := nil asValue. |
|
2639 |
]. |
|
2640 |
^ nameOfUsedCompilerSuiteHolder. |
|
2641 |
||
2642 |
"Created: / 03-09-2012 / 19:32:27 / cg" |
|
2643 |
! |
|
2644 |
||
2676 | 2645 |
newApplicationsName |
2646 |
<resource: #uiAspect> |
|
2647 |
||
2648 |
"automatically generated by UIPainter ..." |
|
2649 |
||
2650 |
"*** the code below creates a default model when invoked." |
|
2651 |
"*** (which may not be the one you wanted)" |
|
2652 |
"*** Please change as required and accept it in the browser." |
|
2653 |
"*** (and replace this comment by something more useful ;-)" |
|
2654 |
||
2655 |
newApplicationsName isNil ifTrue:[ |
|
2656 |
newApplicationsName := ValueHolder new. |
|
2657 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
2636 | 2658 |
"/ newApplicationsName addDependent:self. |
2659 |
"/ newApplicationsName onChangeSend:#newApplicationsNameChanged to:self. |
|
2660 |
]. |
|
2661 |
^ newApplicationsName. |
|
2662 |
! |
|
2663 |
||
2676 | 2664 |
newProjectsName |
2665 |
<resource: #uiAspect> |
|
2666 |
||
2667 |
newProjectsName isNil ifTrue:[ |
|
2636 | 2668 |
newProjectsName := nil asValue. |
2669 |
]. |
|
2670 |
^ newProjectsName. |
|
2671 |
! |
|
2672 |
||
2705 | 2673 |
newProjectsNameListDoubleClickChannel |
2674 |
"automatically generated by UIPainter ..." |
|
2675 |
||
2676 |
"*** the code below creates a default model when invoked." |
|
2677 |
"*** (which may not be the one you wanted)" |
|
2678 |
"*** Please change as required and accept it in the browser." |
|
2679 |
||
2680 |
|holder| |
|
2681 |
||
2682 |
(holder := builder bindingAt:#newProjectsNameListDoubleClickChannel) isNil ifTrue:[ |
|
2683 |
holder := TriggerValue new. |
|
2684 |
builder aspectAt:#newProjectsNameListDoubleClickChannel put:holder. |
|
2685 |
holder onChangeEvaluate:[ |
|
2686 |
newProjectsNameListExtendedComboBox notNil ifTrue: [ |
|
2687 |
newProjectsNameListExtendedComboBox closeMenu. |
|
2688 |
] |
|
2689 |
] |
|
2690 |
]. |
|
2691 |
^ holder. |
|
2692 |
! |
|
2693 |
||
2676 | 2694 |
newStartupClassName |
2695 |
<resource: #uiAspect> |
|
2696 |
||
2697 |
newStartupClassName isNil ifTrue:[ |
|
2698 |
newStartupClassName := ValueHolder new. |
|
2699 |
]. |
|
2700 |
^ newStartupClassName. |
|
2659 | 2701 |
! |
2702 |
||
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2703 |
osIsOSX |
2968 | 2704 |
^ OperatingSystem isOSXlike |
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2705 |
! |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2706 |
|
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2707 |
osIsUnix |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2708 |
^ OperatingSystem isUNIXlike |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2709 |
! |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
2710 |
|
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2711 |
osIsWindows |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2712 |
^ OperatingSystem isMSWINDOWSlike |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2713 |
! |
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
2714 |
|
2724 | 2715 |
productNameHolder |
2716 |
<resource: #uiAspect> |
|
2717 |
||
2718 |
productNameHolder isNil ifTrue:[ |
|
2719 |
productNameHolder := 'MyProduct' asValue. |
|
2720 |
]. |
|
2721 |
^ productNameHolder. |
|
2722 |
! |
|
2723 |
||
2676 | 2724 |
projectType |
2897 | 2725 |
^ self projectTypeHolder value |
2726 |
||
2727 |
"Modified: / 20-07-2012 / 13:28:46 / cg" |
|
2659 | 2728 |
! |
2729 |
||
2676 | 2730 |
projectType:aProjectTypeSymbol |
2731 |
self assert:(ProjectDefinition projectTypes includes:aProjectTypeSymbol). |
|
2659 | 2732 |
self projectTypeHolder value:aProjectTypeSymbol |
2897 | 2733 |
|
2734 |
"Modified: / 20-07-2012 / 13:28:25 / cg" |
|
2659 | 2735 |
! |
2736 |
||
2676 | 2737 |
projectTypeHolder |
2738 |
<resource: #uiAspect> |
|
2659 | 2739 |
|
2676 | 2740 |
projectTypeHolder isNil ifTrue:[ |
2741 |
projectTypeHolder := RadioButtonGroup new. |
|
2897 | 2742 |
projectTypeHolder value:ProjectDefinition guiApplicationType. |
2659 | 2743 |
]. |
2744 |
^ projectTypeHolder. |
|
2897 | 2745 |
|
2746 |
"Modified: / 20-07-2012 / 13:30:16 / cg" |
|
2636 | 2747 |
! |
2748 |
||
2676 | 2749 |
selectedApplicationIndexHolder |
2750 |
<resource: #uiAspect> |
|
2751 |
||
2752 |
selectedApplicationIndexHolder isNil ifTrue:[ |
|
2636 | 2753 |
selectedApplicationIndexHolder := ValueHolder new. |
2754 |
selectedApplicationIndexHolder onChangeSend:#selectedApplicationChanged to:self. |
|
2755 |
]. |
|
2756 |
^ selectedApplicationIndexHolder. |
|
2757 |
! |
|
2758 |
||
2676 | 2759 |
selectedApplicationsComment |
2760 |
<resource: #uiAspect> |
|
2761 |
||
2762 |
"automatically generated by UIPainter ..." |
|
2636 | 2763 |
|
2764 |
"*** the code below creates a default model when invoked." |
|
2765 |
"*** (which may not be the one you wanted)" |
|
2766 |
"*** Please change as required and accept it in the browser." |
|
2767 |
"*** (and replace this comment by something more useful ;-)" |
|
2768 |
||
2769 |
selectedApplicationsComment isNil ifTrue:[ |
|
2770 |
selectedApplicationsComment := '' asValue. |
|
2771 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
2772 |
"/ selectedApplicationsComment addDependent:self. |
|
2773 |
"/ selectedApplicationsComment onChangeSend:#selectedApplicationsCommentChanged to:self. |
|
2774 |
]. |
|
2775 |
^ selectedApplicationsComment. |
|
2776 |
! |
|
2777 |
||
2676 | 2778 |
selectedProjectDefinition |
2779 |
<resource: #uiAspect> |
|
2636 | 2780 |
|
2676 | 2781 |
^ selectedProjectDefinition. |
2636 | 2782 |
! |
2783 |
||
2676 | 2784 |
selectedProjectIndexHolder |
2785 |
<resource: #uiAspect> |
|
2636 | 2786 |
|
2787 |
selectedProjectIndexHolder isNil ifTrue:[ |
|
2788 |
selectedProjectIndexHolder := ValueHolder new. |
|
2789 |
selectedProjectIndexHolder onChangeSend:#selectedProjectChanged to:self. |
|
2790 |
]. |
|
2791 |
^ selectedProjectIndexHolder. |
|
2676 | 2792 |
! |
2793 |
||
2794 |
selectedProjectsComment |
|
2795 |
<resource: #uiAspect> |
|
2796 |
||
2797 |
selectedProjectsComment isNil ifTrue:[ |
|
2798 |
selectedProjectsComment := '' asValue. |
|
2799 |
]. |
|
2800 |
^ selectedProjectsComment. |
|
2801 |
! |
|
2802 |
||
2803 |
selectedStartupClassIndexHolder |
|
2804 |
<resource: #uiAspect> |
|
2805 |
||
2806 |
selectedStartupClassIndexHolder isNil ifTrue:[ |
|
2807 |
selectedStartupClassIndexHolder := ValueHolder new. |
|
2808 |
selectedStartupClassIndexHolder onChangeSend:#selectedStartupClassChanged to:self. |
|
2809 |
]. |
|
2810 |
^ selectedStartupClassIndexHolder. |
|
2811 |
! |
|
2812 |
||
2813 |
startMakeButtonEnabled |
|
2814 |
<resource: #uiAspect> |
|
2815 |
||
2816 |
startMakeButtonEnabled isNil ifTrue:[ |
|
2817 |
startMakeButtonEnabled := true asValue. |
|
2818 |
]. |
|
2819 |
^ startMakeButtonEnabled. |
|
2820 |
! |
|
2821 |
||
2822 |
stopMakeButtonVisible |
|
2823 |
<resource: #uiAspect> |
|
2824 |
||
2825 |
stopMakeButtonVisible isNil ifTrue:[ |
|
2826 |
stopMakeButtonVisible := false asValue. |
|
2827 |
]. |
|
2828 |
^ stopMakeButtonVisible. |
|
2681 | 2829 |
! |
2830 |
||
2831 |
usedCompilerHolder |
|
2832 |
<resource: #uiAspect> |
|
2833 |
||
2834 |
usedCompilerHolder isNil ifTrue:[ |
|
2835 |
usedCompilerHolder := ValueHolder new. |
|
2913 | 2836 |
usedCompilerHolder value:(LastUsedCompiler ? ProjectBuilder defaultUsedCompiler). |
2724 | 2837 |
usedCompilerHolder onChangeSend:#checkCompilerAvailability to:self. |
2681 | 2838 |
]. |
2839 |
^ usedCompilerHolder. |
|
2874 | 2840 |
|
2913 | 2841 |
"Modified: / 04-09-2012 / 09:43:20 / cg" |
2676 | 2842 |
! ! |
2843 |
||
2844 |
!ProjectBuilderAssistantApplication methodsFor:'initialization & release'! |
|
2845 |
||
2687
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2846 |
fileBrowserInstance |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2847 |
"setup the embedded fileBrowser (in the last page)" |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2848 |
|
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2849 |
|targetDirectory browser| |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2850 |
|
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2851 |
targetDirectory := projectBuilder packageBuildDirectory. |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2852 |
|
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2853 |
browser := FileBrowserV2 new. |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2854 |
browser onDirectory:targetDirectory. |
2724 | 2855 |
OperatingSystem isMSWINDOWSlike ifTrue:[ |
2856 |
browser filter:'*.exe;*.com'. |
|
2857 |
] ifFalse:[ |
|
2858 |
browser filter:'*'. |
|
2859 |
]. |
|
2687
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2860 |
^ browser. |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2861 |
! |
66343568f2b2
changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents:
2686
diff
changeset
|
2862 |
|
2897 | 2863 |
openOn:aProjectDefinitionClass |
2899 | 2864 |
|type apps startupClass pageToGo| |
2897 | 2865 |
|
2866 |
self allButOpen. |
|
2867 |
aProjectDefinitionClass isLibraryDefinition ifTrue:[ |
|
2868 |
type := ProjectDefinition libraryType |
|
2869 |
] ifFalse:[ |
|
2870 |
aProjectDefinitionClass isGUIApplication ifTrue:[ |
|
2871 |
type := ProjectDefinition guiApplicationType |
|
2872 |
] ifFalse:[ |
|
2873 |
type := ProjectDefinition nonGuiApplicationType |
|
2874 |
] |
|
2875 |
]. |
|
2876 |
self projectTypeHolder value:type. |
|
2877 |
self hideSTXProjects value:false. |
|
2878 |
selectedProjectDefinition := aProjectDefinitionClass. |
|
2879 |
self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package). |
|
2880 |
self hasProjectSelectedHolder value:true. |
|
2881 |
||
2988
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2882 |
pageToGo := 2. |
2897 | 2883 |
type == ProjectDefinition guiApplicationType ifTrue:[ |
2988
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2884 |
pageToGo := 3. |
2897 | 2885 |
(startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[ |
2899 | 2886 |
self updateListOfStartupClassesInProject. |
2897 | 2887 |
selectedStartupClass := startupClass. |
2899 | 2888 |
self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass). |
2889 |
pageToGo := 5. |
|
2897 | 2890 |
]. |
2891 |
"/ apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel]) |
|
2892 |
]. |
|
2988
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2893 |
type == ProjectDefinition nonGuiApplicationType ifTrue:[ |
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2894 |
pageToGo := 4. |
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2895 |
(startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[ |
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2896 |
self updateListOfStartupClassesInProject. |
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2897 |
selectedStartupClass := startupClass. |
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2898 |
self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass). |
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2899 |
pageToGo := 5. |
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2900 |
]. |
9e8fd363e247
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2983
diff
changeset
|
2901 |
]. |
2899 | 2902 |
self gotoPage:pageToGo. |
2897 | 2903 |
self openWindow. |
2904 |
||
2905 |
"Created: / 20-07-2012 / 12:34:02 / cg" |
|
2906 |
! |
|
2907 |
||
2908 |
openOnPackage:aPackageId |
|
2909 |
self allButOpen. |
|
2910 |
self projectTypeHolder value:(ProjectDefinition guiApplicationType). |
|
2911 |
self hideSTXProjects value:false. |
|
2912 |
self selectedProjectIndexHolder value:(self listOfMatchingPackageIds indexOf:aPackageId). |
|
2913 |
self hasProjectSelectedHolder value:true. |
|
2914 |
self gotoPage:2. |
|
2915 |
self openWindow. |
|
2916 |
||
2917 |
"Created: / 20-07-2012 / 13:24:38 / cg" |
|
2918 |
! |
|
2919 |
||
2676 | 2920 |
postBuildMakeOutputWindow:aView |
2917 | 2921 |
makeOutputWindow := aView. |
2922 |
makeOutputWindow lineLimit:10000. |
|
2923 |
||
2924 |
"Modified: / 05-09-2012 / 11:11:45 / cg" |
|
2676 | 2925 |
! |
2926 |
||
2705 | 2927 |
postBuildNewProjectsNameListExtendedComboBox:anExtendedComboBox |
2697 | 2928 |
|
2929 |
|menu| |
|
2930 |
||
2931 |
menu := SubCanvas new. |
|
2932 |
menu client:self spec:#newProjectsNameListSpec builder:nil. |
|
2705 | 2933 |
anExtendedComboBox closeOnSelect: false. |
2934 |
anExtendedComboBox menuWidget:menu. |
|
2697 | 2935 |
|
2705 | 2936 |
anExtendedComboBox editor |
2697 | 2937 |
immediateAccept:true; |
2938 |
acceptOnLeave:true; |
|
2939 |
acceptOnLostFocus:true; |
|
2940 |
acceptOnPointerLeave:true; |
|
2941 |
acceptOnReturn:true; |
|
2942 |
acceptOnTab:true. |
|
2705 | 2943 |
|
2944 |
newProjectsNameListExtendedComboBox := anExtendedComboBox. |
|
2697 | 2945 |
! |
2946 |
||
2919 | 2947 |
postBuildWarnMessageView:aView |
2948 |
aView font:(Label defaultFont). |
|
2949 |
||
2950 |
"Created: / 05-09-2012 / 19:34:29 / cg" |
|
2951 |
! |
|
2952 |
||
2676 | 2953 |
postBuildWith:aBuilder |
2954 |
super postBuildWith:aBuilder. |
|
2955 |
self updateListOfMatchingProjects. |
|
2697 | 2956 |
self updateListOfNewProjectsName. |
2676 | 2957 |
|
2958 |
Smalltalk addDependent:self. |
|
2959 |
! |
|
2960 |
||
2961 |
release |
|
2962 |
Smalltalk removeDependent:self. |
|
2963 |
super release |
|
2964 |
! ! |
|
2965 |
||
2966 |
!ProjectBuilderAssistantApplication methodsFor:'menu actions'! |
|
2967 |
||
2968 |
openDocumentation |
|
2969 |
self openHTMLDocument:'tools/misc/TOP.html#PACKAGER'. |
|
2659 | 2970 |
! ! |
2971 |
||
2636 | 2972 |
!ProjectBuilderAssistantApplication methodsFor:'private'! |
2973 |
||
2676 | 2974 |
commentFromClass:aClass |
2975 |
|docMethod comment indents minIndent maxLineLength| |
|
2636 | 2976 |
|
2977 |
docMethod := aClass class compiledMethodAt:#documentation. |
|
2978 |
docMethod notNil ifTrue:[ |
|
2979 |
comment := docMethod comment. |
|
2980 |
comment := comment asStringCollection |
|
2981 |
collect:[:line | line withoutTrailingSeparators]. |
|
2982 |
[comment notEmpty and:[comment first isBlank]] whileTrue:[ comment removeFirst ]. |
|
2983 |
maxLineLength := (comment collect:[:line | line size]) max. |
|
2984 |
indents := comment collect:[:line | |
|
2985 |
line isEmptyOrNil |
|
2986 |
ifTrue:[maxLineLength] |
|
2987 |
ifFalse:[ line findFirst:[:ch | ch isSeparator not]]]. |
|
2988 |
(minIndent := indents min) > 1 ifTrue:[ |
|
2989 |
comment := comment collect:[:line | line copyFrom:minIndent]. |
|
2990 |
]. |
|
2991 |
comment := comment asString. |
|
2992 |
]. |
|
2993 |
^ comment |
|
2659 | 2994 |
! |
2995 |
||
2676 | 2996 |
generatePackageContentsMethods |
2997 |
<resource: #uiCallback> |
|
2998 |
||
2993
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
2999 |
selectedProjectDefinition |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3000 |
updateContentsMethodsCodeUsingCompiler:SmalltalkCodeGeneratorTool |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3001 |
ignoreOldDefinition:true. |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3002 |
|
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3003 |
"/ Class packageQuerySignal answer:(selectedProjectDefinition package) |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3004 |
"/ do:[ |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3005 |
"/ selectedProjectDefinition |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3006 |
"/ forEachContentsMethodsCodeToCompileDo:[:code :category | |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3007 |
"/ SmalltalkCodeGeneratorTool |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3008 |
"/ compile:code |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3009 |
"/ forClass:selectedProjectDefinition theMetaclass |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3010 |
"/ inCategory:category. |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3011 |
"/ ] |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3012 |
"/ ignoreOldDefinition:true |
23f43abca7d0
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2990
diff
changeset
|
3013 |
"/ ]. |
2676 | 3014 |
self updateListOfClassesInProject |
2832
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
3015 |
|
c1e7c5d29577
CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents:
2825
diff
changeset
|
3016 |
"Modified: / 31-01-2011 / 18:29:44 / cg" |
2659 | 3017 |
! |
3018 |
||
2676 | 3019 |
hasApplicationSelected |
3020 |
^ self selectedApplicationIndexHolder value notNil |
|
3021 |
! |
|
3022 |
||
3023 |
hasBuildDirectorySpecified |
|
3024 |
^ self buildDirectoryHolder value notEmptyOrNil |
|
2659 | 3025 |
! |
3026 |
||
2676 | 3027 |
hasProjectBuilder |
3028 |
^ projectBuilder notNil |
|
3029 |
! |
|
3030 |
||
3031 |
hasProjectSelected |
|
3032 |
^ self selectedProjectIndexHolder value notNil |
|
3033 |
! |
|
3034 |
||
3035 |
hasStartupClassSelected |
|
3036 |
^ self selectedStartupClassIndexHolder value notNil |
|
2636 | 3037 |
! ! |
3038 |
||
2656 | 3039 |
!ProjectBuilderAssistantApplication methodsFor:'queries'! |
3040 |
||
2676 | 3041 |
canEnterApplicationSelection |
2857 | 3042 |
self hasProjectSelected ifFalse:[ |
3043 |
self infoHolder value:'no project selected'. |
|
3044 |
^ false |
|
3045 |
]. |
|
3046 |
^ true |
|
3047 |
||
3048 |
"Modified: / 23-08-2011 / 12:12:35 / cg" |
|
2656 | 3049 |
! |
3050 |
||
2676 | 3051 |
canEnterBuild |
2857 | 3052 |
self hasBuildDirectorySpecified ifFalse:[ |
3053 |
self infoHolder value:'no build directory specified'. |
|
3054 |
^ false |
|
3055 |
]. |
|
3056 |
^ true |
|
3057 |
||
3058 |
"Modified: / 23-08-2011 / 12:13:29 / cg" |
|
2656 | 3059 |
! |
3060 |
||
2659 | 3061 |
canEnterContentsSelection |
2897 | 3062 |
|prj cls impl mthd| |
2857 | 3063 |
|
3064 |
self hasProjectSelected ifFalse:[ |
|
3065 |
self infoHolder value:'no project selected'. |
|
3066 |
^ false |
|
3067 |
]. |
|
3068 |
"self hasApplicationSelected ifFalse:[^ false]." |
|
3069 |
(self projectTypeIsLibrary or:[self hasStartupClassSelected]) ifFalse:[ |
|
2915 | 3070 |
self infoHolder value:'Must be either library or have a startup class'. |
2857 | 3071 |
^ false |
3072 |
]. |
|
3073 |
prj := self selectedProjectDefinition. |
|
2975
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3074 |
prj isLibraryDefinition ifFalse:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3075 |
([prj startupClassName] on:Error do:nil) notNil ifFalse:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3076 |
self infoHolder value:'Must have a startup class'. |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3077 |
^ false |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3078 |
]. |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3079 |
([prj startupSelector] on:Error do:nil) notNil ifFalse:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3080 |
self infoHolder value:'Must have a startup selector'. |
2864
fcdea80a431e
changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents:
2863
diff
changeset
|
3081 |
^ false |
fcdea80a431e
changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents:
2863
diff
changeset
|
3082 |
]. |
2975
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3083 |
(prj class compiledMethodAt:#startupSelector) isNil ifTrue:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3084 |
self infoHolder value:('Inherited startup selector is "%1"' bindWith:prj startupSelector). |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3085 |
impl := prj class whichClassImplements:#startupSelector. |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3086 |
impl isNil ifTrue:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3087 |
self infoHolder value:('Inherited startup selector (%1) not implemented in %2' |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3088 |
bindWith:prj startupSelector |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3089 |
with:prj class name). |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3090 |
^ false |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3091 |
]. |
2872 | 3092 |
]. |
2975
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3093 |
(mthd := prj class compiledMethodAt:#startupClassName) package == prj package ifFalse:[ |
2897 | 3094 |
mthd package == PackageId noProjectID ifFalse:[ |
2975
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3095 |
self infoHolder value:('Startup class method (#startupClassName) of %3 must be in package "%1" (is in "%2")' |
2872 | 3096 |
bindWith:prj package |
2975
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3097 |
with:(prj class compiledMethodAt:#startupClassName) package |
2872 | 3098 |
with:prj class name). |
3099 |
^ false |
|
2975
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3100 |
]. |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3101 |
]. |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3102 |
(mthd := prj class compiledMethodAt:#startupSelector) notNil ifTrue:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3103 |
mthd package == prj package ifFalse:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3104 |
mthd package == PackageId noProjectID ifFalse:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3105 |
self infoHolder value:('Startup class method (#startupSelector) of %3 must be in package "%1" (is in "%2")' |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3106 |
bindWith:prj package |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3107 |
with:mthd package |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3108 |
with:prj class name). |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3109 |
^ false |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3110 |
] |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3111 |
]. |
2857 | 3112 |
]. |
2975
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3113 |
cls := Smalltalk classNamed:prj startupClassName. |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3114 |
cls isNil ifTrue:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3115 |
self infoHolder value:('Startup class "%1" does not exist' bindWith:prj startupClassName). |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3116 |
^ false. |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3117 |
]. |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3118 |
(cls implements:(prj startupSelector)) ifFalse:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3119 |
(cls respondsTo:(prj startupSelector)) ifFalse:[ |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3120 |
self infoHolder value:('Startup class "%1" does not implement startup selector "%2"' |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3121 |
bindWith:cls name |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3122 |
with:prj startupSelector). |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3123 |
^ false |
023690659ed7
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2973
diff
changeset
|
3124 |
]. |
2865
2600408a8005
changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents:
2864
diff
changeset
|
3125 |
]. |
2864
fcdea80a431e
changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents:
2863
diff
changeset
|
3126 |
]. |
2915 | 3127 |
self infoHolder value:nil. |
2857 | 3128 |
^ true. |
3129 |
||
2915 | 3130 |
"Modified: / 04-09-2012 / 10:29:43 / cg" |
2659 | 3131 |
! |
3132 |
||
2676 | 3133 |
canEnterDeploy |
2857 | 3134 |
self hasProjectBuilder ifFalse:[ |
2915 | 3135 |
self infoHolder value:'Nothing to deploy (please build first)'. |
2857 | 3136 |
^ false |
3137 |
]. |
|
2915 | 3138 |
self infoHolder value:nil. |
2857 | 3139 |
^ true |
3140 |
||
2915 | 3141 |
"Modified: / 04-09-2012 / 10:30:18 / cg" |
2656 | 3142 |
! |
3143 |
||
2872 | 3144 |
canEnterPrerequisitesSelection |
3145 |
|prj cls impl| |
|
3146 |
||
3147 |
self hasProjectSelected ifFalse:[ |
|
3148 |
self infoHolder value:'no project selected'. |
|
3149 |
^ false |
|
3150 |
]. |
|
3151 |
^ true. |
|
3152 |
||
3153 |
"Created: / 19-01-2012 / 15:37:30 / cg" |
|
3154 |
! |
|
3155 |
||
2676 | 3156 |
canEnterStartupClassSelection |
2857 | 3157 |
self hasProjectSelected ifFalse:[ |
3158 |
self infoHolder value:'no project selected'. |
|
3159 |
^ false |
|
3160 |
]. |
|
2676 | 3161 |
^ self hasProjectSelected "and:[ self hasApplicationSelected ]" |
2857 | 3162 |
|
3163 |
"Modified: / 23-08-2011 / 12:16:35 / cg" |
|
2696 | 3164 |
! |
3165 |
||
3166 |
projectTypeIsGuiApplication |
|
2897 | 3167 |
^ self projectTypeHolder value == ProjectDefinition guiApplicationType |
3168 |
||
3169 |
"Modified: / 20-07-2012 / 13:29:59 / cg" |
|
2696 | 3170 |
! |
3171 |
||
3172 |
projectTypeIsLibrary |
|
2897 | 3173 |
^ self projectTypeHolder value == ProjectDefinition libraryType |
3174 |
||
3175 |
"Modified: / 20-07-2012 / 13:29:24 / cg" |
|
2696 | 3176 |
! |
3177 |
||
3178 |
projectTypeIsNotLibrary |
|
3179 |
^ self projectTypeIsLibrary not |
|
2656 | 3180 |
! ! |
3181 |
||
2636 | 3182 |
!ProjectBuilderAssistantApplication methodsFor:'specs'! |
3183 |
||
2676 | 3184 |
assistantSpec |
2703 | 3185 |
^ self class assistantSpec |
2676 | 3186 |
! ! |
3187 |
||
3188 |
!ProjectBuilderAssistantApplication methodsFor:'update'! |
|
3189 |
||
2724 | 3190 |
checkCompilerAvailability |
2919 | 3191 |
|cmd suite warnMsg1 warnMsg2 sep usedCompiler| |
2724 | 3192 |
|
3193 |
cmd := 'cc'. |
|
3194 |
warnMsg1 := warnMsg2 := ''. |
|
3195 |
||
2919 | 3196 |
usedCompiler := self usedCompilerHolder value. |
3197 |
usedCompiler = 'bcc' ifTrue:[ |
|
2724 | 3198 |
cmd := 'bcc32'. |
3005
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3199 |
] ifFalse:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3200 |
usedCompiler = 'vc' ifTrue:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3201 |
cmd := 'cl'. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3202 |
warnMsg1 := 'Due to bugs in this C-compiler, some classes may not be compilable.'. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3203 |
] ifFalse:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3204 |
usedCompiler = 'lcc' ifTrue:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3205 |
cmd := 'lcc'. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3206 |
warnMsg1 := 'The LCC C-compiler suite is not officially supported.'. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3207 |
] ifFalse:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3208 |
usedCompiler = 'tcc' ifTrue:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3209 |
cmd := 'tcc'. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3210 |
OperatingSystem isMSWINDOWSlike ifTrue:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3211 |
warnMsg1 := 'The Tiny C-compiler suite is not yet supported (linkage).'. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3212 |
]. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3213 |
] ifFalse:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3214 |
usedCompiler = 'gcc' ifTrue:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3215 |
cmd := 'gcc'. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3216 |
] ifFalse:[ |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3217 |
cmd := usedCompiler. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3218 |
]. |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3219 |
] |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3220 |
] |
9c5e0717155e
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3004
diff
changeset
|
3221 |
] |
2724 | 3222 |
]. |
2919 | 3223 |
|
2922 | 3224 |
suite := ProjectBuilder suiteNameOfCompiler:(self usedCompilerHolder value). |
2910 | 3225 |
self nameOfUsedCompilerSuiteHolder value:suite. |
2724 | 3226 |
|
3227 |
(OperatingSystem canExecuteCommand:cmd) ifFalse:[ |
|
2913 | 3228 |
warnMsg2 := |
2724 | 3229 |
'The "%1"-command seems to be not in your path. |
3230 |
Please ensure that you installed the |
|
2910 | 3231 |
"%2" compiler suite correctly. |
3007
88de1ef7c805
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3005
diff
changeset
|
3232 |
(However, the makefiles might know where to find the compiler) |
88de1ef7c805
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3005
diff
changeset
|
3233 |
' bindWith:cmd with:suite. |
2724 | 3234 |
]. |
3235 |
||
3236 |
(warnMsg1 notEmpty or:[warnMsg2 notEmpty]) ifTrue:[ |
|
3237 |
sep := ''. |
|
3238 |
(warnMsg2 notEmpty) ifTrue:[ sep := '\\' withCRs ]. |
|
3239 |
||
3240 |
self compilerWarnMessageHolder value:('Warning: |
|
3241 |
||
3242 |
',warnMsg1,sep,warnMsg2). |
|
3243 |
self compilerWarnMessageVisibleHolder value:true. |
|
3244 |
] ifFalse:[ |
|
3245 |
self compilerWarnMessageVisibleHolder value:false |
|
3246 |
]. |
|
2910 | 3247 |
|
2922 | 3248 |
"Modified: / 06-09-2012 / 15:58:58 / cg" |
2724 | 3249 |
! |
3250 |
||
3126
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3251 |
checkSourceCodeManagerType |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3252 |
|button scm package| |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3253 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3254 |
button := self builder componentAt:'CheckinButton'. |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3255 |
|
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3256 |
package := selectedProjectDefinition package. |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3257 |
scm := AbstractSourceCodeManager managerForPackage:package. |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3258 |
scm isNil ifTrue:[ |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3259 |
scm := selectedApplication sourceCodeManager. |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3260 |
scm isNil ifTrue:[ |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3261 |
scm := SourceCodeManager |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3262 |
]. |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3263 |
]. |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3264 |
scm isNil ifTrue:[ |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3265 |
button disable |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3266 |
] ifFalse:[ |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3267 |
button label:(resources string:'Checkin (%1)...' with:scm managerTypeName) |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3268 |
]. |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3269 |
! |
9002c0912b90
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3068
diff
changeset
|
3270 |
|
2926 | 3271 |
delayedUpdate:something with:anArgument from:changedObject |
3272 |
changedObject == Smalltalk ifTrue:[ |
|
3273 |
(something == #newClass |
|
3274 |
or:[something == #classRemove |
|
3275 |
or:[something == #projectOrganization]]) ifTrue:[ |
|
3276 |
self updateListOfMatchingProjects. |
|
3277 |
self updateListOfNewProjectsName. |
|
3278 |
^ self. |
|
3279 |
]. |
|
3280 |
^ self. |
|
3281 |
]. |
|
3282 |
||
3283 |
"Created: / 10-09-2012 / 14:07:47 / cg" |
|
3284 |
! |
|
3285 |
||
2686
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3286 |
enterContentsSpecification |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3287 |
|toAdd| |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3288 |
|
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3289 |
self updateListOfClassesInProject. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3290 |
|
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3291 |
toAdd := OrderedCollection new. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3292 |
|
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3293 |
"/ ensure that startup & app-class are in the list |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3294 |
selectedApplication notNil ifTrue:[ |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3295 |
(selectedProjectDefinition classNames includes:selectedApplication name) ifFalse:[ |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3296 |
toAdd add:selectedApplication. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3297 |
]. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3298 |
]. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3299 |
selectedStartupClass notNil ifTrue:[ |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3300 |
(selectedProjectDefinition classNames includes:selectedStartupClass name) ifFalse:[ |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3301 |
toAdd add:selectedStartupClass. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3302 |
]. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3303 |
]. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3304 |
|
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3305 |
selectedProjectDefinition includeClasses:toAdd usingCompiler:nil. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3306 |
|
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3307 |
self updateListOfClassesInProject. |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3308 |
! |
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3309 |
|
2872 | 3310 |
enterPrerequisitesSpecification |
3311 |
|toAdd| |
|
3312 |
||
3313 |
self updateListOfPrerequisitesInProject. |
|
3314 |
||
3315 |
"/ toAdd := OrderedCollection new. |
|
3316 |
"/ |
|
3317 |
"/ "/ ensure that startup & app-class are in the list |
|
3318 |
"/ selectedApplication notNil ifTrue:[ |
|
3319 |
"/ (selectedProjectDefinition classNames includes:selectedApplication name) ifFalse:[ |
|
3320 |
"/ toAdd add:selectedApplication. |
|
3321 |
"/ ]. |
|
3322 |
"/ ]. |
|
3323 |
"/ selectedStartupClass notNil ifTrue:[ |
|
3324 |
"/ (selectedProjectDefinition classNames includes:selectedStartupClass name) ifFalse:[ |
|
3325 |
"/ toAdd add:selectedStartupClass. |
|
3326 |
"/ ]. |
|
3327 |
"/ ]. |
|
3328 |
"/ |
|
3329 |
"/ selectedProjectDefinition includeClasses:toAdd usingCompiler:nil. |
|
3330 |
"/ |
|
3331 |
"/ self updateListOfClassesInProject. |
|
3332 |
||
3333 |
"Created: / 19-01-2012 / 15:36:47 / cg" |
|
3334 |
! |
|
3335 |
||
2913 | 3336 |
fetchAttributesFromProjectDefinition |
3337 |
self fetchSelectedProject. |
|
3338 |
selectedProjectDefinition notNil ifTrue:[ |
|
3339 |
self productNameHolder value: selectedProjectDefinition productName. |
|
3340 |
self companyNameHolder value: selectedProjectDefinition companyName. |
|
3341 |
]. |
|
3342 |
||
3343 |
"Created: / 04-09-2012 / 09:50:46 / cg" |
|
3344 |
! |
|
3345 |
||
2676 | 3346 |
rememberMakeOutputsContents |
3347 |
makeOutputHolder value:(makeOutputWindow contents) |
|
3348 |
! |
|
3349 |
||
2724 | 3350 |
rememberProjectAttributes |
3351 |
self assert:selectedProjectDefinition notNil. |
|
3352 |
Class withoutUpdatingChangesDo:[ |
|
3353 |
self productNameHolder value ~= selectedProjectDefinition productName ifTrue:[ |
|
3354 |
selectedProjectDefinition class compile:(selectedProjectDefinition |
|
3355 |
productName_codeFor:(self productNameHolder value)). |
|
3356 |
]. |
|
3357 |
self companyNameHolder value ~= selectedProjectDefinition companyName ifTrue:[ |
|
3358 |
selectedProjectDefinition class compile:(selectedProjectDefinition |
|
3359 |
companyName_codeFor:(self companyNameHolder value)). |
|
3360 |
] |
|
3361 |
]. |
|
3362 |
! |
|
3363 |
||
2913 | 3364 |
rememberUsedCompiler |
3365 |
LastUsedCompiler := self usedCompilerHolder value. |
|
3366 |
||
3367 |
"Created: / 04-09-2012 / 09:45:42 / cg" |
|
3368 |
! |
|
3369 |
||
2676 | 3370 |
restoreMakeOutputsContents |
3371 |
makeOutputWindow contents:makeOutputHolder value |
|
2646 | 3372 |
! |
3373 |
||
2676 | 3374 |
update:something with:anArgument from:changedObject |
3375 |
changedObject == Smalltalk ifTrue:[ |
|
3376 |
(something == #newClass |
|
3377 |
or:[something == #classRemove |
|
3378 |
or:[something == #projectOrganization]]) ifTrue:[ |
|
2926 | 3379 |
self enqueueDelayedUpdate:something with:anArgument from:changedObject. |
2676 | 3380 |
^ self. |
3381 |
]. |
|
3382 |
^ self. |
|
3383 |
]. |
|
3384 |
super update:something with:anArgument from:changedObject |
|
2926 | 3385 |
|
3386 |
"Modified: / 10-09-2012 / 14:08:17 / cg" |
|
2636 | 3387 |
! |
3388 |
||
2676 | 3389 |
updateApplicationComment |
3390 |
|comment| |
|
2636 | 3391 |
|
2676 | 3392 |
self selectedApplicationIndexHolder value notNil ifTrue:[ |
3393 |
comment := self commentFromClass:selectedApplication. |
|
3394 |
comment isNil ifTrue:[ |
|
3139
209cc60527a4
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3126
diff
changeset
|
3395 |
comment := 'Application has no comment' allItalic colorizeAllWith:Color lightGray. |
2676 | 3396 |
]. |
3397 |
] ifFalse:[ |
|
3139
209cc60527a4
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3126
diff
changeset
|
3398 |
comment := 'Please select an Application' allItalic colorizeAllWith:Color lightGray. |
2676 | 3399 |
]. |
3400 |
self selectedApplicationsComment value:comment. |
|
2636 | 3401 |
! |
3402 |
||
2676 | 3403 |
updateComment |
3404 |
|comment| |
|
2636 | 3405 |
|
2676 | 3406 |
self selectedProjectIndexHolder value notNil ifTrue:[ |
3407 |
comment := self commentFromClass:selectedProjectDefinition. |
|
3408 |
comment isNil ifTrue:[ |
|
3139
209cc60527a4
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3126
diff
changeset
|
3409 |
comment := 'Project has no comment' allItalic colorizeAllWith:Color lightGray. |
2676 | 3410 |
]. |
3411 |
] ifFalse:[ |
|
3139
209cc60527a4
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
3126
diff
changeset
|
3412 |
comment := 'Please select a Project' allItalic colorizeAllWith:Color lightGray. |
2676 | 3413 |
]. |
3414 |
self selectedProjectsComment value:comment. |
|
2636 | 3415 |
! |
3416 |
||
2676 | 3417 |
updateListOfApplicationsInProject |
3418 |
|oldList applicationClasses package appClass appClassIndex| |
|
2636 | 3419 |
|
2649 | 3420 |
appClassIndex := nil. |
3421 |
||
2636 | 3422 |
selectedProjectDefinition isNil ifTrue:[ |
3423 |
applicationClasses := #() |
|
3424 |
] ifFalse:[ |
|
3425 |
package := selectedProjectDefinition package. |
|
3426 |
||
3427 |
applicationClasses := Smalltalk allClasses |
|
3428 |
select:[:cls | |
|
2671 | 3429 |
((cls isSubclassOf:ApplicationModel) |
3430 |
and:[ self hideOtherApplicationClasses value not |
|
3431 |
or:[ cls package = package ]]) |
|
2636 | 3432 |
]. |
3433 |
applicationClasses := applicationClasses asOrderedCollection. |
|
3434 |
applicationClasses sort:[:a :b | a name < b name]. |
|
2649 | 3435 |
|
2668 | 3436 |
"/ startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ]. |
3437 |
"/ startUpClassName notNil ifTrue:[ |
|
3438 |
"/ startUpClass := Smalltalk classNamed:startUpClassName. |
|
3439 |
"/ startUpClass notNil ifTrue:[ |
|
3440 |
"/ appClassIndex := applicationClasses indexOf:startUpClass. |
|
3441 |
"/ appClassIndex == 0 ifTrue:[ appClassIndex := nil ]. |
|
3442 |
"/ ]. |
|
3443 |
"/ ]. |
|
2636 | 3444 |
]. |
2649 | 3445 |
|
2668 | 3446 |
oldList := self listOfApplicationsInProject value. |
3447 |
oldList = applicationClasses ifFalse:[ |
|
3448 |
appClass := selectedApplication. |
|
3449 |
appClassIndex := applicationClasses indexOf:appClass. |
|
3450 |
appClassIndex == 0 ifTrue:[ appClassIndex := nil ]. |
|
3451 |
||
3452 |
self listOfApplicationsInProject value:applicationClasses. |
|
3453 |
self selectedApplicationIndexHolder value:appClassIndex. |
|
3454 |
]. |
|
3002
3c8db6ae6f30
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2994
diff
changeset
|
3455 |
|
3c8db6ae6f30
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2994
diff
changeset
|
3456 |
"/ auto select first application |
3c8db6ae6f30
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2994
diff
changeset
|
3457 |
applicationClasses size == 1 ifTrue:[ |
3c8db6ae6f30
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2994
diff
changeset
|
3458 |
self selectedApplicationIndexHolder value:1. |
3c8db6ae6f30
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2994
diff
changeset
|
3459 |
]. |
2636 | 3460 |
! |
3461 |
||
2676 | 3462 |
updateListOfClassesInProject |
3463 |
self listOfClassesInProject value:(selectedProjectDefinition classNames). |
|
3464 |
! |
|
2636 | 3465 |
|
2676 | 3466 |
updateListOfMatchingProjects |
2719 | 3467 |
|query matching projectType idx| |
2676 | 3468 |
|
3469 |
projectType := self projectType. |
|
2863
eb998d836550
changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents:
2857
diff
changeset
|
3470 |
projectType = ProjectDefinition libraryType ifTrue:[ |
2719 | 3471 |
query := #isLibraryDefinition |
3472 |
] ifFalse:[ |
|
2863
eb998d836550
changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents:
2857
diff
changeset
|
3473 |
projectType = ProjectDefinition guiApplicationType ifTrue:[ |
2719 | 3474 |
query := #isGUIApplication |
3475 |
] ifFalse:[ |
|
2863
eb998d836550
changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents:
2857
diff
changeset
|
3476 |
projectType = ProjectDefinition nonGuiApplicationType ifTrue:[ |
2719 | 3477 |
query := #isConsoleApplication |
3478 |
] ifFalse:[ |
|
2962 | 3479 |
self halt:'oops - unknown projectType'. |
2897 | 3480 |
projectType := ProjectDefinition guiApplicationType. |
2719 | 3481 |
]. |
3482 |
]. |
|
3483 |
]. |
|
3484 |
||
3485 |
Class flushSubclassInfo. |
|
3486 |
||
2676 | 3487 |
matching := ProjectDefinition allSubclasses |
3488 |
select:[:defClass | |
|
3489 |
|match| |
|
2636 | 3490 |
|
2676 | 3491 |
match := false. |
2863
eb998d836550
changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents:
2857
diff
changeset
|
3492 |
|
2676 | 3493 |
defClass isAbstract ifFalse:[ |
3494 |
(self hideSTXProjects value not |
|
3495 |
or:[ defClass package asPackageId module ~= 'stx' ]) |
|
3496 |
ifTrue:[ |
|
2719 | 3497 |
match := defClass perform:query |
2676 | 3498 |
]. |
3499 |
]. |
|
2863
eb998d836550
changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents:
2857
diff
changeset
|
3500 |
match |
eb998d836550
changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents:
2857
diff
changeset
|
3501 |
]. |
2719 | 3502 |
|
2676 | 3503 |
matching sort:[:a :b | a name < b name]. |
3504 |
self listOfMatchingProjects value:matching. |
|
2686
5a19c21dada0
ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents:
2685
diff
changeset
|
3505 |
self listOfMatchingPackageIds value:(matching collect:[:def | def package]). |
2636 | 3506 |
|
2676 | 3507 |
idx := matching indexOf:selectedProjectDefinition. |
3508 |
idx == 0 ifTrue:[ |
|
3509 |
self selectedProjectIndexHolder value:nil. |
|
3510 |
] ifFalse:[ |
|
3511 |
self selectedProjectIndexHolder value:idx. |
|
2636 | 3512 |
]. |
2863
eb998d836550
changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents:
2857
diff
changeset
|
3513 |
|
2897 | 3514 |
"Modified: / 20-07-2012 / 15:04:15 / cg" |
2659 | 3515 |
! |
3516 |
||
2907
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3517 |
updateListOfMatchingProjectsAndProjectIDs |
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3518 |
self updateListOfMatchingProjects. |
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3519 |
self updateListOfNewProjectsName. |
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3520 |
|
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3521 |
"Created: / 20-08-2012 / 19:33:12 / cg" |
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3522 |
! |
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3523 |
|
2697 | 3524 |
updateListOfNewProjectsName |
3525 |
|loadedProjectIDsWithoutProjectDefinition| |
|
3526 |
||
3527 |
loadedProjectIDsWithoutProjectDefinition := Smalltalk allLoadedProjectIDs |
|
3528 |
select:[:eachProjectID | |
|
3529 |
eachProjectID ~= PackageId noProjectID |
|
3530 |
and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ]. |
|
3531 |
]. |
|
2907
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3532 |
loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection. |
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3533 |
loadedProjectIDsWithoutProjectDefinition addFirst:(OperatingSystem getLoginName,':','demos','/','demo1'). |
2697 | 3534 |
self listOfNewProjectsName value:loadedProjectIDsWithoutProjectDefinition. |
2907
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3535 |
|
c842e3e6f526
added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents:
2906
diff
changeset
|
3536 |
"Modified: / 20-08-2012 / 19:31:35 / cg" |
2697 | 3537 |
! |
3538 |
||
2872 | 3539 |
updateListOfPrerequisitesInProject |
2965
9725f13947de
class: Tools::ProjectBuilderAssistantApplication
Stefan Vogel <sv@exept.de>
parents:
2962
diff
changeset
|
3540 |
self listOfPrerequisitesInProject value:(selectedProjectDefinition effectivePreRequisites). |
2872 | 3541 |
|
3542 |
"Created: / 19-01-2012 / 15:39:15 / cg" |
|
3543 |
! |
|
3544 |
||
2659 | 3545 |
updateListOfStartupClassesInProject |
3546 |
|startupClasses package startUpClassName startUpClass startupClassIndex| |
|
3547 |
||
3548 |
startupClassIndex := nil. |
|
3549 |
self selectedStartupClassIndexHolder value:nil. |
|
3550 |
||
3551 |
selectedProjectDefinition isNil ifTrue:[ |
|
3552 |
startupClasses := #() |
|
3553 |
] ifFalse:[ |
|
3554 |
package := selectedProjectDefinition package. |
|
3555 |
||
3556 |
startupClasses := Smalltalk allClasses |
|
3557 |
select:[:cls | |
|
2671 | 3558 |
((cls includesBehavior:StandaloneStartup) |
3559 |
and:[ self hideOtherStartupClasses value not |
|
3560 |
or:[ cls package = package ]]) |
|
2674 | 3561 |
or:[ cls == Smalltalk |
3562 |
and:[ self hideOtherStartupClasses value not ] ] |
|
2659 | 3563 |
]. |
3564 |
startupClasses := startupClasses asOrderedCollection. |
|
3565 |
startupClasses sort:[:a :b | a name < b name]. |
|
3566 |
||
3567 |
startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ]. |
|
3568 |
startUpClassName notNil ifTrue:[ |
|
3569 |
startUpClass := Smalltalk classNamed:startUpClassName. |
|
3570 |
startUpClass notNil ifTrue:[ |
|
3571 |
startupClassIndex := startupClasses indexOf:startUpClass. |
|
3572 |
startupClassIndex == 0 ifTrue:[ startupClassIndex := nil ]. |
|
3573 |
]. |
|
3574 |
]. |
|
3575 |
]. |
|
2674 | 3576 |
|
2659 | 3577 |
self listOfStartupClassesInProject value:startupClasses. |
3578 |
self selectedStartupClassIndexHolder value:startupClassIndex. |
|
2724 | 3579 |
! |
3580 |
||
3581 |
updateProjectAttributes |
|
3582 |
self assert:selectedProjectDefinition notNil. |
|
3583 |
self productNameHolder value:(selectedProjectDefinition productName). |
|
3584 |
self companyNameHolder value:(selectedProjectDefinition companyName). |
|
2636 | 3585 |
! ! |
3586 |
||
3587 |
!ProjectBuilderAssistantApplication class methodsFor:'documentation'! |
|
3588 |
||
2864
fcdea80a431e
changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents:
2863
diff
changeset
|
3589 |
version |
fcdea80a431e
changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents:
2863
diff
changeset
|
3590 |
^ '$Header$' |
fcdea80a431e
changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents:
2863
diff
changeset
|
3591 |
! |
fcdea80a431e
changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents:
2863
diff
changeset
|
3592 |
|
2636 | 3593 |
version_CVS |
3594 |
^ '$Header$' |
|
3595 |
! ! |
|
2959
ab140a3e5eb6
class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents:
2930
diff
changeset
|
3596 |