Tools__ProjectBuilderAssistantApplication.st
author Claus Gittinger <cg@exept.de>
Sat, 22 Nov 2014 02:15:41 +0100
changeset 3158 3fff6fd382c2
parent 3156 3107c90eabf2
child 3232 f37d0ca8148d
permissions -rw-r--r--
warnings
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2742
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
     1
"
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
     2
 COPYRIGHT (c) 2009 by eXept Software AG
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
     3
              All Rights Reserved
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
     4
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
     5
 This software is furnished under a license and may be used
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
     6
 only in accordance with the terms of that license and with the
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
     8
 be provided or otherwise made available to, or used by, any
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
     9
 other person.  No title to or ownership of the software is
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    10
 hereby transferred.
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    11
"
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool2' }"
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Tools }"
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    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
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
    30
		newStartupClassName usedCompilerHolder listOfNewProjectsName
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
    31
		newProjectsNameListExtendedComboBox productNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
    32
		companyNameHolder compilerWarnMessageHolder
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
    33
		compilerWarnMessageVisibleHolder listOfPrerequisitesInProject
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
    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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    40
!ProjectBuilderAssistantApplication class methodsFor:'documentation'!
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    41
2742
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    42
copyright
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    43
"
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    44
 COPYRIGHT (c) 2009 by eXept Software AG
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    45
              All Rights Reserved
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    46
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    47
 This software is furnished under a license and may be used
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    48
 only in accordance with the terms of that license and with the
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    49
 inclusion of the above copyright notice.   This software may not
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    50
 be provided or otherwise made available to, or used by, any
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    51
 other person.  No title to or ownership of the software is
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    52
 hereby transferred.
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    53
"
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    54
!
63f7bd978ef8 added: #copyright
Claus Gittinger <cg@exept.de>
parents: 2726
diff changeset
    55
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    56
documentation
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    57
"
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    58
    a user friendly interface to the build process.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    59
    Simply wraps up existing tools like the CodeGeneratorTool, the browsers
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    60
    and the ProjetBuilder
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    61
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    62
    [see also:]
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    63
        CodeGeneratorTool
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    64
        ProjectBuilder
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    65
        ProjectDefinition
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    66
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    67
    [author:]
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    68
        Claus Gittinger
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    69
"
2721
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    70
!
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    71
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    72
help
2825
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    73
"
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    74
  Packager - A Standalone-Executable Builder and Packager
2721
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    75
2825
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    76
    This assistant-application allows for standalone applications to be built very easily. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    77
    It will generate all required classes, files, start the compilation process, 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    78
    generate a self-installable executable with a few mouse clicks. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    79
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    80
    A simple demo application like the famous 'Hello World' can be generated in a few minutes.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    81
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    82
  Prerequisites
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    83
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    84
    * Windows Users:
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    85
    Please install either the 'Borland Free Commandline Compiler Tools (bcc32)' 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    86
    or the 'Microsoft Visual-C++' package (also free). 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    87
     In addition, the 'NullSoft NSIS-Installer Package' is required.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    88
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    89
    Due to limitations and bugs in the Visual-C++ compiler (limit on the size of 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    90
    string-constants), some Smalltalk code is still not compilable 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    91
    (currently, this affects classes which contain image-resource methods for big images). 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    92
    Although microsoft is doing their best (a relative measure) to make things better 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    93
    (they increase the string-limit with every new release), they still seem to be unable 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    94
    to figure out how ti use malloc for string-data). 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    95
    We are patiently waiting for a real fix and still using bcc in the meanwhile. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    96
    Therefore, we recommend using the borland compiler suite. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    97
    Please install it at its standard location ('C:\Borland') as our makefiles might 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    98
    still contain hard-coded pathes (yes, we are ashamed about this).
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
    99
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   100
    * Unix Users:
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   101
    You should already have the gcc compile suite (including all required header files) 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   102
    installed and ready to use. For a lack of time on our side, there is currently no 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   103
    self-installer support for Unix. The packager will generate a zipped tar file, 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   104
    which must be deployed and unpacked for use. This may change in the near future.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   105
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   106
  Packages, Projects, PackageIDs and ProjectDefinitions
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   107
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   108
    Smalltalk basically uses two objects for packaging:
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   109
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   110
        * PackageIDs (also called ProjectID's occasionally)
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   111
        * ProjectDefinitions 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   112
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   113
    Older ST/X versions used instances of a Project class - this is now obsolete and 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   114
    removed from the system (although there are still some minor uses of it, 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   115
    which might remain there for backward compatibility for some time, as some customers 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   116
    have built their own packaging scheme around it).
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   117
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   118
  PackageIDs
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   119
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   120
    These are simple symbols and are attached to classes and methods. If a method has 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   121
    a packageID different from its class, it is called an extension method.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   122
    PackageIDs must have a certain fixed format: they always contain exactly two parts, 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   123
    which are separated by a colon character: the module and the directory part. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   124
    The module is used as main-selector on where and how the source code repository is 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   125
    accessed. The directory is a path below that repository. If checked out into the local 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   126
    filesystem, the module defines the top-level directory. Thus, if a packageID is 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   127
    'stx:libbasic', the corresponding sources will be found in the repository associated 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   128
    to the 'stx' module, under the directory 'libbasic'. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   129
    In the local file system, it will be found under 'stx/libbasic'. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   130
    As another example, if the packageID is 'exept:expecco/plugins/foo', 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   131
    the repository is whichever is associated with the 'exept' module, and the subdirectory 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   132
    is 'expecco/plugins/foo'. The local path to the sourcefiles would be 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   133
    'exept/expecco/plugins/foo'.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   134
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   135
    Please notice that it does make sense to associate different repositories to different 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   136
    modules: for example, you could setup the sourceCodeManager to use CVS access to the 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   137
    exept repository for everything under the 'stx' module, 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   138
    and at the same time, use a local SVN repository for everything under the 'myCompany' 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   139
    module.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   140
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   141
  ProjectDefinitions
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   142
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   143
    These describe the contents of a project, such as the classes to include, 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   144
    the set of extension methods, any additional compilation information. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   145
    ProjectDefinitions come in 3 flavours:
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   146
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   147
        * GUI Application Definition
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   148
        * non-GUI Application Definition
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   149
        * ClassLibrary Definition 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   150
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   151
    ProjectDefinitions are stored and managed as class-instances, located as subclasses 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   152
    of one of ApplicationDefinition or LibraryDefinition. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   153
    As classes, they are themself managed, compiled and packaged as part of the project 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   154
    (and also have the same PackageID as their components). 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   155
    They are also treated like any other class w.r.t. source code management.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   156
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   157
  Packaging
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   158
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   159
    All classes and extension methods belonging to a single package are supposed to be 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   160
    loaded (and possibly unloaded) together. They are also usually deployed inside a single 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   161
    dynamic link library ('dll', for short). In the Unix world, these are called 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   162
    'shared object' or 'so'. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   163
    Finally, they are stored in a common directory both on the local file system and in a 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   164
    source code repository (CVS, SVN, etc.).
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   165
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   166
  Structure of a Project
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   167
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   168
    The artefacts as manipulated by the packager are:
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   169
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   170
        * the ProjectDefinition class
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   171
          This defines the type of application (GUI / non-GUI), 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   172
          its contents (i.e. the set of classes to be included in the binary itself and 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   173
          the set of library-dll's to be included in the deployed package), 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   174
          and some other metadata, such as icon, title etc.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   175
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   176
        * the ApplicationModel class
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   177
          This defines the GUI, and is typically created using the UI-Painter.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   178
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   179
        * the Startup class
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   180
          This is the first class which gets control when the executable is started; 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   181
          it can analyze the command line arguments, read patches or updates, 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   182
          start background ptocesses, and will eventually open the applications GUI. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   183
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   184
  Build Procedure
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   185
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   186
    All of the three components above can be generated by the packager to provide an 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   187
    initial framework for further work.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   188
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   189
    After the definition of those classes, all required files are stored in a temporary 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   190
    build directory. This means that the above classes are filed out, 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   191
    and make- and other support files are generated.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   192
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   193
    Finally, the actual build process is started. This requires an external C-compiler. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   194
    Under windows, both Borland-C (free download available via the internet) and Microsoft's 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   195
    Visual-C++ (also available for free) can be used (the later with some limitations as explained above).
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   196
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   197
    A self-installing executable is built using the NullSoft NSIS package. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   198
    This is also required to be installed before the packager is started.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   199
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   200
    After the build, all required files are packaged in a single install-file. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   201
    This is called 'MyApplicationSetup.exe' and found in the project-specific subdirectory 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   202
    of the build directory. For deployment, this single file has to be delivered to a customer 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   203
    and executed there.
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   204
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   205
    Summary: It has NEVER been easier to create a GUI application with Smalltalk. 
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   206
"
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
   207
! !
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   208
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   209
!ProjectBuilderAssistantApplication class methodsFor:'assistant pages spec'!
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   210
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   211
assistantSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   212
    ^ #(Array
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   213
        ( AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   214
            pageTitle: 'Project Type Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   215
            windowSpecSelector: page1_projectTypeSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   216
            enterCallbackSelector: updateListOfMatchingProjects
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   217
            infoText: 'Choose the <B>type</B> of project you are about to build.'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   218
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   219
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   220
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   221
            pageTitle: 'ProjectDefinition Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   222
            windowSpecSelector: page2_projectSelectionSpec
2907
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
   223
            enterCallbackSelector: updateListOfMatchingProjectsAndProjectIDs
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
   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 "&lt;yourname&gt;:demos/xxx_n".'
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   226
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   227
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   228
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   229
            pageTitle: 'Startup Application Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   230
            windowSpecSelector: page3_applicationSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   231
            isEnabledQuerySelector: #projectTypeIsGuiApplication
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   232
            canEnterQuerySelector: #canEnterApplicationSelection
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   233
            enterCallbackSelector: updateListOfApplicationsInProject
2825
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   235
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   236
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   237
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   238
            pageTitle: 'Startup Class Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   239
            windowSpecSelector: page4_startupClassSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   240
            isEnabledQuerySelector: #projectTypeIsNotLibrary
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   241
            canEnterQuerySelector: #canEnterStartupClassSelection
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   242
            enterCallbackSelector: updateListOfStartupClassesInProject
2825
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   244
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   245
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   246
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   247
            pageTitle: 'Specify Contents'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   248
            windowSpecSelector: page5_specifyIncludedClasses
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   249
            enterCallbackSelector: enterContentsSpecification
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   250
            canEnterQuerySelector: #canEnterContentsSelection
2968
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   252
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   253
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   254
        (AssistantPageSpec
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
   255
            pageTitle: 'Specify Prerequisites'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
   256
            windowSpecSelector: page5b_specifyPrerequisitePackages
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
   257
            enterCallbackSelector: enterPrerequisitesSpecification
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
   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
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
   260
        )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
   261
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
   262
        (AssistantPageSpec
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   263
            pageTitle: 'Specify Project Attributes'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   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
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   266
            enterCallbackSelector: updateProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   267
            leaveCallbackSelector: #rememberProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   268
        )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   269
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   270
        (AssistantPageSpec
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   271
            pageTitle: 'Specify Build Directory'
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   272
            windowSpecSelector: page6b_specifyBuildDirectorySpec
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
   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
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   274
            enterCallbackSelector: #checkCompilerAvailability
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
   275
            leaveCallbackSelector: #rememberUsedCompiler
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   276
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   277
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   286
            pageTitle: 'Build'
3068
1b840afa3fd7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3008
diff changeset
   287
            windowSpecSelector: page7b_buildSpec
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   288
            canEnterQuerySelector: #canEnterBuild
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   289
            enterCallbackSelector: #restoreMakeOutputsContents
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   297
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   298
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   299
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   300
            pageTitle: 'Deploy'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   301
            windowSpecSelector: page8_deploySpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   305
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   306
    ) decodeAsLiteralArray.
2825
49853e842335 changed:
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   307
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
   308
    "Modified: / 04-09-2012 / 09:49:50 / cg"
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   309
! !
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   310
2670
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   311
!ProjectBuilderAssistantApplication class methodsFor:'defaults'!
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   312
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   313
defaultIcon
2838
66257924fbf6 set icon resource
Stefan Vogel <sv@exept.de>
parents: 2832
diff changeset
   314
    <resource: #programImage>
66257924fbf6 set icon resource
Stefan Vogel <sv@exept.de>
parents: 2832
diff changeset
   315
2670
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   316
    ^ ToolbarIconLibrary projectBuilderIcon
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   317
!
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   318
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   319
windowLabelTemplate
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   320
    ^ 'ST/X Packager: %1'
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   321
! !
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   322
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   323
!ProjectBuilderAssistantApplication class methodsFor:'help'!
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   324
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   325
flyByHelpSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   326
    <resource: #help>
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   327
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   328
    ^ super flyByHelpSpec addPairsFrom:#(
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   329
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   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
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   332
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   335
2968
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   336
#nameOfApplicationClass
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   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
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   341
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   342
#createNewApplication
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   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
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   345
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   346
#nameOfStartupClass
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   347
'This class contains the main method, in which the show starts when the executable runs.
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   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
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   352
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   353
#createNewStartupClass
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   354
'Create a new simple startup class which fires up the defined application.
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   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
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   357
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   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
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   360
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   363
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   364
#'listOfNewProjectsName'
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   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
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   367
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   368
#'createNewProject'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   371
2922
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   372
#clearBuildDirectory
3126
9002c0912b90 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3068
diff changeset
   373
'Clear the build directory'
2922
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   374
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   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
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   380
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   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
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   383
2973
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
   384
#makeExeQuick
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
   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
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
   387
2922
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   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
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   390
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   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
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   396
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   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
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   402
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   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
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   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
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   409
)
2922
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   410
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
   411
    "Modified: / 06-09-2012 / 16:09:10 / cg"
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   412
! !
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
!ProjectBuilderAssistantApplication class methodsFor:'interface specs'!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   439
page1_projectTypeSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
    "
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   447
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page1_projectTypeSelectionSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   448
     Tools::ProjectBuilderAssistantApplication new openInterface:#page1_projectTypeSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
     #(FullSpec
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   455
        name: #'page1_projectTypeSelectionSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
          bounds: (Rectangle 0 0 626 394)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   467
              label: 'Project Type'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   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
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   470
              activeHelpKey: projectType
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
                 (VerticalPanelViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
                    name: 'VerticalPanel1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
                    layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
                    horizontalLayout: leftSpace
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
                    verticalLayout: topSpace
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
                    horizontalSpace: 3
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
                    verticalSpace: 3
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
                       (ViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   487
                          name: 'Box1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
                          extent: (Point 10 10)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   490
                       (RadioButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
                          label: 'GUI Application'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
                          name: 'RadioButton1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   493
                          translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   494
                          model: projectTypeHolder
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
                          isTriggerOnDown: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   496
                          onCallBackSelector: projectTypeChanged
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
   497
                          select: #'GUI-Application'
2990
66833743333c class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2988
diff changeset
   498
                          extent: (Point 294 22)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   499
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   500
                       (RadioButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
                          label: 'Non-GUI Application'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
                          name: 'RadioButton2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
                          translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   504
                          model: projectTypeHolder
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
                          isTriggerOnDown: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
                          onCallBackSelector: projectTypeChanged
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
   507
                          select: #'NonGUI-Application'
2990
66833743333c class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2988
diff changeset
   508
                          extent: (Point 294 22)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
                       (RadioButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
                          label: 'Class Library'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
                          name: 'RadioButton3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   513
                          translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   514
                          model: projectTypeHolder
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
                          isTriggerOnDown: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   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
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   532
              activeHelpKey: existingProjects
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   535
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
                 (VariableHorizontalPanelSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
                    name: 'VariableHorizontalPanel1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
                       (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
                          name: 'List1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
                          model: selectedProjectIndexHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
                       (TextEditorSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
                          name: 'TextEditor1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
                          model: selectedProjectsComment
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
                          isReadOnly: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
                          hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
                    handles: (Any 0.34560327198364 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
                 (CheckBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
                    label: 'Hide ST/X Base Packages'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
                    name: 'CheckBox1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   568
                    layout: (LayoutFrame -1 0 -18 1 0 1 4 1)
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   569
                    activeHelpKey: hideSTXBasePackages
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
                    model: hideSTXProjects
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
                    translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   583
page2_projectSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
    "
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   591
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page2_projectSelectionSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   592
     Tools::ProjectBuilderAssistantApplication new openInterface:#page2_projectSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
     #(FullSpec
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   599
        name: #'page2_projectSelectionSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
          bounds: (Rectangle 0 0 521 453)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   611
              label: 'New Project''s PackageID'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
              name: 'FramedBox3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 72 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
                collection: (
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   619
                 (ExtendedComboBoxSpec
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   620
                    name: 'NewProjectsNameListExtendedComboBox'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   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
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   623
                    model: newProjectsName
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   624
                    readOnly: false
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   625
                    miniScrollerHorizontal: true
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   626
                    postBuildCallback: postBuildNewProjectsNameListExtendedComboBox:
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   627
                  )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
                 (ActionButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
                    label: 'Create'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
                    name: 'Button1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   633
                    translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   634
                    model: createNewProject
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   636
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   638
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   641
              label: 'Existing Projects with ProjectDefinition'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   642
              name: 'FramedBox4'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   643
              layout: (LayoutFrame 0 0.0 70 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   644
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   645
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   646
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   647
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
                 (VariableHorizontalPanelSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
                    name: 'VariableHorizontalPanel2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   655
                       (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
                          name: 'List2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
                          model: selectedProjectIndexHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
                       (TextEditorSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
                          name: 'TextEditor2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
                          model: selectedProjectsComment
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
                          isReadOnly: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
                          hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
                          viewClassName: 'TextView'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   675
                    handles: (Any 0.34560327198364 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   676
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
                 (CheckBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
                    label: 'Hide ST/X Base Packages'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
                    name: 'CheckBox1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
                    model: hideSTXProjects
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   683
                    translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   684
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   685
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   686
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   687
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   688
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   689
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   690
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   691
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   692
              horizontalLayout: leftSpace
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   693
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   694
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   695
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   696
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   697
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   698
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   699
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   700
                    label: 'Browse Selected Project'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   701
                    name: 'Button3'
2983
068c43183acf class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2975
diff changeset
   702
                    activeHelpKey: browseSelectedProject
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   703
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   704
                    model: doBrowseProject
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   705
                    enableChannel: hasProjectSelectedHolder
2983
068c43183acf class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2975
diff changeset
   706
                    useDefaultExtent: true
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   707
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   708
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   709
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   710
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   711
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   713
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   714
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   715
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   716
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   717
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   718
page3_applicationSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   719
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   720
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   721
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   722
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   723
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   724
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   725
    "
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   726
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page3_applicationSelectionSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   727
     Tools::ProjectBuilderAssistantApplication new openInterface:#page3_applicationSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   728
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   729
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   730
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   732
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   733
     #(FullSpec
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   734
        name: #'page3_applicationSelectionSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   735
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   736
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   737
          label: 'Application Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   738
          name: 'Application Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   739
          min: (Point 0 0)
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   740
          bounds: (Rectangle 0 0 519 406)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   742
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   743
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
           (FramedBoxSpec
2725
168192759cae changed:
Claus Gittinger <cg@exept.de>
parents: 2724
diff changeset
   746
              label: 'New Application Class'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   747
              name: 'FramedBox3'
2725
168192759cae changed:
Claus Gittinger <cg@exept.de>
parents: 2724
diff changeset
   748
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 70 0)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
                 (InputFieldSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
                    name: 'EntryField1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   756
                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
                    model: newApplicationsName
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
                    acceptOnReturn: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
                    acceptOnTab: true
2693
2bf7608ed25a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2687
diff changeset
   760
                    acceptOnLostFocus: true
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   761
                    acceptOnPointerLeave: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   762
                    emptyFieldReplacementText: 'MyApplication'
2968
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   763
              activeHelpKey: nameOfApplicationClass
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   764
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   765
                 (ActionButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   766
                    label: 'Create'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   767
                    name: 'Button1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   768
                    layout: (LayoutFrame -100 1 6 0 1 1 28 0)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   769
                    translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
                    model: createNewApplication
2968
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
   771
              activeHelpKey: createNewApplication
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
              label: 'Existing Applications'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
              name: 'FramedBox4'
2725
168192759cae changed:
Claus Gittinger <cg@exept.de>
parents: 2724
diff changeset
   780
              layout: (LayoutFrame 0 0.0 72 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
                 (VariableHorizontalPanelSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   787
                    name: 'VariableHorizontalPanel2'
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   788
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   791
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   792
                       (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   793
                          name: 'List2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
                          model: selectedApplicationIndexHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   797
                          useIndex: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   798
                          sequenceList: listOfApplicationsInProject
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   799
                          ignoreReselect: false
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   800
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   801
                       (TextEditorSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   802
                          name: 'TextEditor2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   803
                          model: selectedApplicationsComment
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   804
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
                          isReadOnly: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
                          hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
                          viewClassName: 'TextView'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
                    handles: (Any 0.34560327198364 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
                  )
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   815
                 (CheckBoxSpec
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   816
                    label: 'Hide other Application Classes'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   817
                    name: 'CheckBox1'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   818
                    layout: (LayoutFrame -1 0 -18 1 0 1 4 1)
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   819
                    model: hideOtherApplicationClasses
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   820
                    translateLabel: true
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   821
                  )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   826
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   827
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   828
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   829
              horizontalLayout: leftSpace
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   830
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   831
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   832
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   833
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   834
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   835
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   836
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   837
                    label: 'Browse Selected Application'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   838
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   839
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   840
                    model: doBrowseApplication
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   841
                    enableChannel: hasApplicationSelectedHolder
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   842
                    extent: (Point 180 22)
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   843
                  )
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   844
                 (ActionButtonSpec
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   845
                    label: 'Launch Selected Application'
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   846
                    name: 'Button4'
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   847
                    translateLabel: true
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   848
                    model: doLaunchApplication
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   849
                    enableChannel: hasApplicationSelectedHolder
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   850
                    extent: (Point 180 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   851
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   852
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   853
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   854
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   856
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   857
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   858
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   862
page4_startupClassSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
    "
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   870
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page4_startupClassSelectionSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   871
     Tools::ProjectBuilderAssistantApplication new openInterface:#page4_startupClassSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
     #(FullSpec
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   878
        name: #'page4_startupClassSelectionSpec'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   879
        window: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   880
       (WindowSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   881
          label: 'Startup Class Selection'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   882
          name: 'Startup Class Selection'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   883
          min: (Point 0 0)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   884
          bounds: (Rectangle 0 0 521 408)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   885
        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   886
        component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   887
       (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   888
          collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   889
           (FramedBoxSpec
2725
168192759cae changed:
Claus Gittinger <cg@exept.de>
parents: 2724
diff changeset
   890
              label: 'New Startup Class'
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   891
              name: 'FramedBox3'
2725
168192759cae changed:
Claus Gittinger <cg@exept.de>
parents: 2724
diff changeset
   892
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 70 0)
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   893
              labelPosition: topLeft
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   894
              translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   895
              component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   896
             (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   897
                collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   898
                 (InputFieldSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   899
                    name: 'EntryField1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   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
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   902
                    model: newStartupClassName
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   903
                    acceptOnReturn: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   904
                    acceptOnTab: true
2693
2bf7608ed25a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2687
diff changeset
   905
                    acceptOnLostFocus: true
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   906
                    acceptOnPointerLeave: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   907
                    emptyFieldReplacementText: 'MyStandAloneStartup'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   908
                  )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   909
                 (ActionButtonSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   910
                    label: 'Create'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   911
                    name: 'Button1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   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
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   914
                    translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   915
                    model: createNewStartupClass
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   916
                  )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   917
                 )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   918
               
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   919
              )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   920
            )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   921
           (FramedBoxSpec
2725
168192759cae changed:
Claus Gittinger <cg@exept.de>
parents: 2724
diff changeset
   922
              label: 'Existing Startup Classes'
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   923
              name: 'FramedBox4'
2725
168192759cae changed:
Claus Gittinger <cg@exept.de>
parents: 2724
diff changeset
   924
              layout: (LayoutFrame 0 0.0 72 0 4 1.0 -30 1)
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   925
              labelPosition: topLeft
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   926
              translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   927
              component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   928
             (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   929
                collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   930
                 (VariableHorizontalPanelSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   931
                    name: 'VariableHorizontalPanel2'
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   932
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   933
                    component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   934
                   (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   935
                      collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   936
                       (SequenceViewSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   937
                          name: 'List2'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   938
                          model: selectedStartupClassIndexHolder
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   939
                          hasHorizontalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   940
                          hasVerticalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   941
                          useIndex: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   942
                          sequenceList: listOfStartupClassesInProject
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   943
                        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   944
                       (TextEditorSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   945
                          name: 'TextEditor2'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   946
                          model: selectedStartupClassesComment
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   947
                          hasHorizontalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   948
                          hasVerticalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   949
                          isReadOnly: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   950
                          hasKeyboardFocusInitially: false
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   951
                          viewClassName: 'TextView'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   952
                        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   953
                       )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   954
                     
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   955
                    )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   956
                    handles: (Any 0.34560327198364 1.0)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   957
                  )
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   958
                 (CheckBoxSpec
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   959
                    label: 'Hide other Startup Classes'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   960
                    name: 'CheckBox1'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   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
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   963
                    model: hideOtherStartupClasses
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   964
                    translateLabel: true
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   965
                  )
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   966
                 )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   967
               
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   968
              )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   969
            )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   970
           (HorizontalPanelViewSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   971
              name: 'HorizontalPanel1'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   972
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   973
              horizontalLayout: leftSpace
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   974
              verticalLayout: center
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   975
              horizontalSpace: 3
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   976
              verticalSpace: 3
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   977
              component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   978
             (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   979
                collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   980
                 (ActionButtonSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   981
                    label: 'Browse Selected StartupClass'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   982
                    name: 'Button3'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   983
                    translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   984
                    model: doBrowseStartupClass
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   985
                    enableChannel: hasStartupClassSelectedHolder
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   986
                    extent: (Point 180 22)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   987
                  )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   988
                 )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   989
               
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   990
              )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   991
            )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   992
           )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   993
         
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   994
        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   995
      )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   996
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   997
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   998
page5_specifyIncludedClasses
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   999
    "This resource specification was automatically generated
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1000
     by the UIPainter of ST/X."
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1001
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1002
    "Do not manually edit this!! If it is corrupted,
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1003
     the UIPainter may not be able to read the specification."
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1004
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1005
    "
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1006
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page5_specifyIncludedClasses
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1007
     Tools::ProjectBuilderAssistantApplication new openInterface:#page5_specifyIncludedClasses
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1008
    "
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1009
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1010
    <resource: #canvas>
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1011
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1012
    ^ 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1013
     #(FullSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1014
        name: #'page5_specifyIncludedClasses'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1015
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1016
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1017
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1018
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1019
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1020
          bounds: (Rectangle 0 0 521 400)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1021
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1024
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1025
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1026
              label: 'Project Contents'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1027
              name: 'FramedBox3'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1028
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1030
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1031
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1032
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1034
                 (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
                    name: 'List1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1036
                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1037
                    initiallyDisabled: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1038
                    hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1039
                    hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1040
                    useIndex: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
                    sequenceList: listOfClassesInProject
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1042
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1043
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1044
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1047
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1048
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1049
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1050
              horizontalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1051
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1052
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1053
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1054
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1055
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1056
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1057
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1058
                    label: 'Browse Project Definition'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1059
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1060
                    translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  1061
                    model: doBrowseProjectDefinitionClass
2983
068c43183acf class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2975
diff changeset
  1062
                    useDefaultExtent: true
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1063
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1064
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1065
                    label: 'Update Contents (Scan)'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1066
                    name: 'Button4'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1067
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1068
                    model: doGenerateProjectContentsDefinition
2983
068c43183acf class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2975
diff changeset
  1069
                    useDefaultExtent: true
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1070
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1071
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1072
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1073
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1081
page5b_specifyPrerequisitePackages
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1082
    "This resource specification was automatically generated
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1083
     by the UIPainter of ST/X."
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1084
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1085
    "Do not manually edit this!! If it is corrupted,
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1086
     the UIPainter may not be able to read the specification."
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1087
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1088
    "
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1089
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page5b_specifyPrerequisitePackages
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1090
     Tools::ProjectBuilderAssistantApplication new openInterface:#page5b_specifyPrerequisitePackages
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1091
    "
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1092
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1093
    <resource: #canvas>
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1094
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1095
    ^ 
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1096
     #(FullSpec
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1097
        name: #'page5b_specifyPrerequisitePackages'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1098
        window: 
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1099
       (WindowSpec
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1100
          label: 'Project Selection'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1101
          name: 'Project Selection'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1102
          min: (Point 0 0)
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1103
          bounds: (Rectangle 0 0 521 400)
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1104
        )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1105
        component: 
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1106
       (SpecCollection
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1107
          collection: (
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1108
           (FramedBoxSpec
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1109
              label: 'Prerequisite Packages'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1110
              name: 'FramedBox3'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1111
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1112
              labelPosition: topLeft
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1113
              translateLabel: true
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1114
              component: 
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1115
             (SpecCollection
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1116
                collection: (
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1117
                 (SequenceViewSpec
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1118
                    name: 'List1'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1119
                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1120
                    initiallyDisabled: true
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1121
                    hasHorizontalScrollBar: true
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1122
                    hasVerticalScrollBar: true
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1123
                    useIndex: false
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1124
                    sequenceList: listOfPrerequisitesInProject
2983
068c43183acf class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2975
diff changeset
  1125
                  )
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1126
                 )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1127
               
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1128
              )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1129
            )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1130
           (HorizontalPanelViewSpec
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1131
              name: 'HorizontalPanel1'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1132
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1133
              horizontalLayout: center
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1134
              verticalLayout: center
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1135
              horizontalSpace: 3
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1136
              verticalSpace: 3
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1137
              component: 
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1138
             (SpecCollection
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1139
                collection: (
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1140
                 (ActionButtonSpec
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1141
                    label: 'Browse Project Definition'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1142
                    name: 'Button3'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  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
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1146
                  )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1147
                 (ActionButtonSpec
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1148
                    label: 'Update Prerequisites (Scan)'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1149
                    name: 'Button4'
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1150
                    translateLabel: true
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1151
                    model: doGenerateProjectPrerequisitesDefinition
2983
068c43183acf class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2975
diff changeset
  1152
                    useDefaultExtent: true
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1153
                  )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1154
                 )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1155
               
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1156
              )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1157
            )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1158
           )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1159
         
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1160
        )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1161
      )
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1162
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  1163
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1164
page6a_specifyProjectAttributes
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1165
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1171
    "
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1172
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page6a_specifyProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1173
     Tools::ProjectBuilderAssistantApplication new openInterface:#page6a_specifyProjectAttributes
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1176
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1177
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1178
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1179
     #(FullSpec
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1180
        name: #'page6a_specifyProjectAttributes'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1181
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1182
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1183
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1184
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1185
          min: (Point 0 0)
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1186
          bounds: (Rectangle 0 0 521 239)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1189
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1191
           (FramedBoxSpec
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1192
              label: 'Product Information'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1193
              name: 'FramedBox3'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1194
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 101 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1195
              labelPosition: topLeft
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1196
              translateLabel: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1197
              component: 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1198
             (SpecCollection
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1199
                collection: (
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1200
                 (LabelSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1201
                    label: 'Product Name:'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1202
                    name: 'Label1'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1203
                    layout: (LayoutFrame 0 0 10 0 148 0 32 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1204
                    translateLabel: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1205
                    adjust: right
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1206
                  )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1207
                 (InputFieldSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1208
                    name: 'EntryField4'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1209
                    layout: (LayoutFrame 150 0.0 10 0 0 1.0 32 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1210
                    model: productNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1211
                    acceptOnLostFocus: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1212
                    acceptOnPointerLeave: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1213
                    viewClassName: ''
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1214
                  )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1215
                 (LabelSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1216
                    label: 'Company Name:'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1217
                    name: 'Label2'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1218
                    layout: (LayoutFrame 0 0 39 0 148 0 61 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1219
                    translateLabel: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1220
                    adjust: right
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1221
                  )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1222
                 (InputFieldSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1223
                    name: 'EntryField3'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1224
                    layout: (LayoutFrame 150 0.0 39 0 0 1.0 61 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1225
                    model: companyNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1226
                    acceptOnLostFocus: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1227
                    acceptOnPointerLeave: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1228
                    viewClassName: ''
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1229
                  )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1230
                 )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1231
               
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1232
              )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1233
            )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1234
           )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1235
         
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1236
        )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1237
      )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1238
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1239
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1240
page6b_specifyBuildDirectorySpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1241
    "This resource specification was automatically generated
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1242
     by the UIPainter of ST/X."
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1243
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1244
    "Do not manually edit this!! If it is corrupted,
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1245
     the UIPainter may not be able to read the specification."
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1246
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1247
    "
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1248
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page6b_specifyBuildDirectorySpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1249
     Tools::ProjectBuilderAssistantApplication new openInterface:#page6b_specifyBuildDirectorySpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1250
    "
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1251
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1252
    <resource: #canvas>
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1253
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1254
    ^ 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1255
     #(FullSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1256
        name: #'page6b_specifyBuildDirectorySpec'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1257
        window: 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1258
       (WindowSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1259
          label: 'Project Selection'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1260
          name: 'Project Selection'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1261
          min: (Point 0 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1262
          bounds: (Rectangle 0 0 521 361)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1263
        )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1264
        component: 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1265
       (SpecCollection
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1266
          collection: (
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1267
           (FramedBoxSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1268
              label: 'Build Directory'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1269
              name: 'FramedBox3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1270
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 79 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1271
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1272
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1273
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1274
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1275
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1276
                 (FilenameInputFieldSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1277
                    name: 'FilenameEntryField1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1278
                    layout: (LayoutFrame 0 0.0 10 0 0 1.0 32 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1279
                    model: buildDirectoryHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1280
                    acceptOnPointerLeave: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1281
                    viewClassName: FilenameWidgetWithHistory
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1282
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1283
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1284
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1285
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1286
            )
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1287
           (FramedBoxSpec
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1288
              label: 'Compiler / Toolchain'
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1289
              name: 'FramedBox4'
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1290
              layout: (LayoutFrame 0 0.0 81 0 4 1.0 155 0)
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1291
              labelPosition: topLeft
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1292
              translateLabel: true
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1293
              component: 
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1294
             (SpecCollection
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1295
                collection: (
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1296
                 (ComboListSpec
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1297
                    name: 'ComboList1'
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1298
                    layout: (LayoutFrame 0 0 10 0 137 0 32 0)
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1299
                    model: usedCompilerHolder
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1300
                    comboList: listOfPossibleCompilers
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1301
                    useIndex: false
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1302
                  )
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  1303
                 (LabelSpec
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  1304
                    label: 'Compiler Suite'
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  1305
                    name: 'Label2'
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  1306
                    layout: (LayoutFrame 163 0 10 0 0 1 32 0)
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  1307
                    translateLabel: true
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  1308
                    labelChannel: nameOfUsedCompilerSuiteHolder
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  1309
                    adjust: left
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  1310
                  )
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1311
                 )
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1312
               
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1313
              )
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1314
            )
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  1315
           (TextEditorSpec
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  1316
              name: 'TextEditor1'
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1317
              layout: (LayoutFrame 2 0.0 158 0 -2 1.0 303 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1318
              level: -1
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1319
              visibilityChannel: compilerWarnMessageVisibleHolder
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  1320
              model: compilerWarnMessageHolder
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  1321
              hasHorizontalScrollBar: true
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  1322
              hasVerticalScrollBar: true
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  1323
              miniScrollerHorizontal: true
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  1324
              backgroundColor: (Color 100.0 49.9992370489052 49.9992370489052)
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  1325
              hasKeyboardFocusInitially: false
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  1326
              postBuildCallback: postBuildWarnMessageView:
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1327
            )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1328
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1329
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1330
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1331
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1332
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1333
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1334
page7_buildSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1335
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1336
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1337
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1338
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1339
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1340
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1341
    "
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1342
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7_buildSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1343
     Tools::ProjectBuilderAssistantApplication new openInterface:#page7_buildSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1344
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1345
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1346
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1347
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  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
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1527
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1781
page8_deploySpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1782
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1783
     by the UIPainter of ST/X."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1784
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1785
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1786
     the UIPainter may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1787
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1788
    "
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1789
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page8_deploySpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1790
     Tools::ProjectBuilderAssistantApplication new openInterface:#page8_deploySpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1791
    "
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1792
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1793
    <resource: #canvas>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1794
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1874
! !
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1875
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1876
!ProjectBuilderAssistantApplication class methodsFor:'misc specs'!
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1877
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1878
newProjectsNameListSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1879
    "This resource specification was automatically generated
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1880
     by the UIPainter of ST/X."
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1881
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1882
    "Do not manually edit this!! If it is corrupted,
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1883
     the UIPainter may not be able to read the specification."
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1884
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1885
    "
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1886
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#newProjectsNameListSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1887
     Tools::ProjectBuilderAssistantApplication new openInterface:#newProjectsNameListSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1888
    "
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1889
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1890
    <resource: #canvas>
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1891
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1892
    ^ 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1893
     #(FullSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1894
        name: newProjectsNameListSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1895
        window: 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1896
       (WindowSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1897
          label: 'NewApplication'
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1898
          name: 'NewApplication'
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1899
          min: (Point 0 0)
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  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
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1902
        )
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1903
        component: 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1904
       (SpecCollection
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1905
          collection: (
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1906
           (SequenceViewSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1907
              name: 'ReferencePoint2'
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1908
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  1909
              activeHelpKey: listOfNewProjectsName
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1910
              model: newProjectsName
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1911
              hasHorizontalScrollBar: true
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1912
              hasVerticalScrollBar: true
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1913
              miniScrollerHorizontal: true
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1914
              miniScrollerVertical: false
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1915
              useIndex: false
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1916
              sequenceList: listOfNewProjectsName
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  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
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1920
            )
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1921
           )
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1922
         
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1923
        )
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1924
      )
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1925
! !
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1926
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1927
!ProjectBuilderAssistantApplication class methodsFor:'startup'!
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1928
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1929
openOn:aProjectDefinitionClass
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1930
    ^ self new openOn:aProjectDefinitionClass
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1931
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1932
    "Created: / 20-07-2012 / 12:33:25 / cg"
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1933
!
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1934
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1935
openOnPackage:aPackageId
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1936
    ^ self new openOnPackage:aPackageId
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1937
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1938
    "Created: / 20-07-2012 / 13:22:50 / cg"
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1939
! !
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  1940
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1941
!ProjectBuilderAssistantApplication methodsFor:'actions'!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1942
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1943
buildDirectoryChanged
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1944
    self updateButtonEnableState.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1945
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1946
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1947
createNewApplication
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1948
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1949
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1950
    |newAppName newAppClass|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1951
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1952
    newAppName := self newApplicationsName value.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1953
    newAppName isEmptyOrNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1954
        Dialog warn:'Please enter the name of the Application-Class first.'.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1955
        ^ self
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1967
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1968
    self withWaitCursorDo:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1969
        Class packageQuerySignal answer:(selectedProjectDefinition package)
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1970
        do:[
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  1971
            newAppClass := ApplicationModel
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  1972
                            subclass:newAppName asSymbol
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  1973
                            instanceVariableNames:''
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  1974
                            classVariableNames:''
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  1975
                            poolDictionaries:''
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  1976
                            category:'Applications'.
2832
c1e7c5d29577 CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents: 2825
diff changeset
  1977
            SmalltalkCodeGeneratorTool createApplicationCodeFor:newAppClass.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  1978
        ].
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1979
        self updateListOfApplicationsInProject.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1980
        self selectedApplicationIndexHolder value:(listOfApplicationsInProject value indexOf:newAppClass).
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1984
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1985
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1986
createNewProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1987
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1988
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1989
    |newProjectID projectDefinitionType projectDefinitionClass projectClasses|
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1990
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1991
    newProjectID := self newProjectsName value.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1994
        ^ self
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1995
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2003
        ^ self
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2004
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2005
2709
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2006
    self withWaitCursorDo:[
2900
1a7874e7d36a changed: #createNewProject
Claus Gittinger <cg@exept.de>
parents: 2899
diff changeset
  2007
        projectDefinitionType := self projectType. "/ ProjectDefinition perform:(self projectTypeHolder value).
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2008
2709
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2009
        projectDefinitionClass := ProjectDefinition
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2010
                                    definitionClassForPackage:newProjectID
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2011
                                    projectType: projectDefinitionType
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2012
                                    createIfAbsent:true.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2013
2709
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2014
        projectDefinitionClass compileDescriptionMethods.
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2015
        self updateListOfMatchingProjects.
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2016
        self updateListOfNewProjectsName.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2017
2709
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2018
        self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass).
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2019
2851
860e0292c5ce changed: #createNewProject
Claus Gittinger <cg@exept.de>
parents: 2838
diff changeset
  2020
        projectClasses := projectDefinitionClass allClasses.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2021
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2022
"/    projectDefinitionClass isGUIApplication ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2023
"/        "/ see if it has an AppModel class
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2024
"/        (projectClasses contains:[:cls | cls isVisualStartable]) ifFalse:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2025
"/            (Dialog confirm:'Create an Application Class ?') ifTrue:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2026
"/                self halt.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2027
"/            ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2028
"/        ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2029
"/    ].
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2030
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2031
"/    projectDefinitionClass isLibrary ifFalse:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2032
"/        "/ see if it has a Startup class
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2033
"/        (projectClasses contains:[:cls | cls isStartable]) ifFalse:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2034
"/        ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2035
"/    ].
2709
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2036
1ef5151b111e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2706
diff changeset
  2037
    ].
2851
860e0292c5ce changed: #createNewProject
Claus Gittinger <cg@exept.de>
parents: 2838
diff changeset
  2038
2900
1a7874e7d36a changed: #createNewProject
Claus Gittinger <cg@exept.de>
parents: 2899
diff changeset
  2039
    "Modified: / 06-08-2012 / 16:55:54 / cg"
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2040
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2041
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2042
createNewStartupClass
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2043
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2044
2696
fm
parents: 2695
diff changeset
  2045
    |newClassName newStartupClass startupApplication|
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2046
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2047
    newClassName := self newStartupClassName value.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2048
    newClassName isEmptyOrNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2049
        Dialog warn:'Please enter the name of the Startup-Class first.'.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2050
        ^ self
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2062
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  2063
    self withWaitCursorDo:[ 
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  2064
        |pkg|
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  2065
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  2066
        pkg := selectedProjectDefinition notNil 
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  2067
                    ifTrue:[selectedProjectDefinition package]
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  2068
                    ifFalse:[newProjectsName value].
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  2069
        Class packageQuerySignal answer:pkg
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2070
        do:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2071
            newStartupClass := StandaloneStartup
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2072
                            subclass:newClassName asSymbol
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2073
                            instanceVariableNames:''
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2074
                            classVariableNames:''
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2075
                            poolDictionaries:''
2696
fm
parents: 2695
diff changeset
  2076
                            category:'Applications'.   
fm
parents: 2695
diff changeset
  2077
fm
parents: 2695
diff changeset
  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
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2080
        ].
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2081
        self updateListOfStartupClassesInProject.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2082
        self selectedStartupClassIndexHolder value:(listOfStartupClassesInProject value indexOf:newStartupClass).
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  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
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2086
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2087
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2088
doAddClassToProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2089
    <resource: #uiCallback>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2090
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2091
    Transcript showCR:self class name, ': action for doAddClassToProject ...'.
2962
5eee09525324 halts changed to breakpoint
Claus Gittinger <cg@exept.de>
parents: 2960
diff changeset
  2092
    self halt:'unimplemented'.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2093
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2094
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2095
doBrowseApplication
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2096
    <resource: #uiCallback>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2097
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2098
    |appClass|
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2099
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2100
    self hasApplicationSelected ifTrue:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2101
        appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2102
        UserPreferences systemBrowserClass 
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  2103
            openInClass:appClass class selector:#windowSpec.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2104
    ].
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2105
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
    ].
3156
3107c90eabf2 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
  2115
    UserPreferences fileBrowserClass
2906
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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2122
doBrowseProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2123
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2124
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2125
    UserPreferences systemBrowserClass openOnPackage:selectedProjectDefinition package.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2126
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2127
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2128
doBrowseProjectDefinitionClass
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2129
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2130
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2131
    |defClass|
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2132
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2133
    self hasProjectSelected ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2134
        defClass := self selectedProjectDefinition.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2135
        UserPreferences systemBrowserClass 
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2136
            openInClass:defClass class selector:#classNamesAndAttributes.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2137
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2138
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2152
doBrowseStartupClass
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2153
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2154
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2155
    |startupClass|
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2156
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2157
    self hasStartupClassSelected ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2158
        startupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value).
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2159
        UserPreferences systemBrowserClass 
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2160
            openInClass:startupClass class selector:#main:.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2161
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2162
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  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
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2184
doClearBuildDirectory
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2185
    <resource: #uiCallback>
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2186
2928
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2187
    projectBuilder isNil ifTrue:[ self getProjectBuilder ].
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2188
    projectBuilder buildDirectory notNil ifTrue:[   
2929
f24fa4b3758d changed:
Claus Gittinger <cg@exept.de>
parents: 2928
diff changeset
  2189
        self withWaitCursorDo:[
f24fa4b3758d changed:
Claus Gittinger <cg@exept.de>
parents: 2928
diff changeset
  2190
            projectBuilder packageBuildDirectory asFilename recursiveRemove
f24fa4b3758d changed:
Claus Gittinger <cg@exept.de>
parents: 2928
diff changeset
  2191
        ]
2928
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2192
    ].
2917
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2193
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2194
    "Created: / 05-09-2012 / 10:35:54 / cg"
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2195
!
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2196
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2197
doGenerateProjectContentsDefinition
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2198
    self generatePackageContentsMethods
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2199
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2200
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2201
doGenerateProjectPrerequisitesDefinition
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2202
    self generatePackageContentsMethods
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2203
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2204
    "Created: / 19-01-2012 / 15:44:23 / cg"
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2205
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2206
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2207
doLaunchApplication
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2208
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2209
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2210
    |appClass|
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2211
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2212
    self hasApplicationSelected ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2213
        appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2214
        appClass open.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2215
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2216
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2217
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2224
    projectBuilder packageBuildDirectory asFilename openExplorer
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2225
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2226
    "Modified: / 21-07-2012 / 12:29:21 / cg"
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2227
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2238
!
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2250
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2251
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2252
    self stopMakeButtonVisible value:true.
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2253
    self startMakeButtonEnabled value:false.
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2254
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2255
    self infoHolder value:'Building (make) - please wait...'.
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2256
    makeOutputWindow clear.
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2257
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2258
    makeProcess := 
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2259
            [
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2260
                [
2968
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
  2261
                    self runBuildProcess:whichTarget
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2262
                ] ensure:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2263
                    self stopMakeButtonVisible value:false.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2264
                    self startMakeButtonEnabled value:true.
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2265
                    makeProcess := nil.
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  2266
                    self updateButtonEnableState.
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2267
                    self infoHolder value:''.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2268
                ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2269
            ] newProcess.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2270
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2271
    makeProcess priority:4.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2272
    makeProcess priorityRange:(4 to:8).
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2273
    makeProcess resume.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2274
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
  2294
doStartMakeExeQuick
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
  2295
    <resource: #uiCallback>
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
  2296
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
  2297
    self doStartMake:'exeQuick'
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
  2298
!
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
  2299
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2300
doStopMake
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2301
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2302
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2303
    |p|
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2304
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2305
    (p := makeProcess) notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2306
        makeProcess := nil.
2929
f24fa4b3758d changed:
Claus Gittinger <cg@exept.de>
parents: 2928
diff changeset
  2307
        self withWaitCursorDo:[
f24fa4b3758d changed:
Claus Gittinger <cg@exept.de>
parents: 2928
diff changeset
  2308
            p terminate.
f24fa4b3758d changed:
Claus Gittinger <cg@exept.de>
parents: 2928
diff changeset
  2309
            p waitUntilTerminated.
f24fa4b3758d changed:
Claus Gittinger <cg@exept.de>
parents: 2928
diff changeset
  2310
        ].
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2311
        makeOutputWindow endEntry.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2312
        makeOutputWindow cr.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2313
        makeOutputWindow nextPutLine:('Make Cancelled' colorizeAllWith:Color white on:Color red).
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2314
        makeOutputWindow endEntry.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2315
    ].
2929
f24fa4b3758d changed:
Claus Gittinger <cg@exept.de>
parents: 2928
diff changeset
  2316
f24fa4b3758d changed:
Claus Gittinger <cg@exept.de>
parents: 2928
diff changeset
  2317
    "Modified: / 26-09-2012 / 21:01:37 / cg"
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2318
!
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2319
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2320
fetchSelectedProject
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2321
    |selectedProjectIndex|
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2322
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2323
    selectedProjectIndex := self selectedProjectIndexHolder value.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2324
    (selectedProjectIndex ? 0) == 0 ifTrue:[
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2325
        selectedProjectDefinition := nil.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2326
    ] ifFalse:[
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2327
        selectedProjectDefinition := self listOfMatchingProjects value at:(selectedProjectIndex).
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2328
    ].
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2329
    self hasProjectSelectedHolder value:(selectedProjectDefinition notNil).
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2330
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2331
    "Created: / 04-09-2012 / 09:52:32 / cg"
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2332
!
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2333
2928
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2334
getProjectBuilder
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2335
    projectBuilder := ProjectBuilder new.
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2336
    projectBuilder package:(selectedProjectDefinition package).
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2337
    projectBuilder usedCompilerForBuild:(usedCompilerHolder value).
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2338
    ^ projectBuilder
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2339
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2340
    "Created: / 26-09-2012 / 20:57:32 / cg"
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2341
!
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2342
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2343
projectTypeChanged
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2344
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2345
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2346
    self updateListOfMatchingProjects
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2347
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2348
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2349
runBuildProcess:what
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2350
    <resource: #uiCallback>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2351
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2352
    self assert:makeOutputWindow notNil.
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2353
    self assert:makeOutputWindow model == self makeOutputHolder.
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2354
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2355
    ActivityNotification handle:[:ex |
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2356
        ex messageText notNil ifTrue:[
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2357
            makeOutputWindow endEntry.
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2358
            makeOutputWindow cr.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2359
            makeOutputWindow nextPutLine:(ex messageText colorizeAllWith:Color white on:Color blue).
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2360
            makeOutputWindow endEntry.
2687
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2361
        ].
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2362
        ex proceed.
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2363
    ] do:[
2928
74762eba597e added: #getProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2926
diff changeset
  2364
        self getProjectBuilder.
2973
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
  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
39b101cb0e93 mingw build (unfinished)
Claus Gittinger <cg@exept.de>
parents: 2970
diff changeset
  2367
        projectBuilder makeQuick:(what = 'exeQuick').
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2368
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2369
        Error handle:[:ex |
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2370
            makeOutputWindow endEntry.
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2371
            makeOutputWindow cr.
2682
54418b0e52fb some tries for UNIX - unfinished
sr
parents: 2681
diff changeset
  2372
            makeOutputWindow nextPutLine:(ex description colorizeAllWith:Color white on:Color red).
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2373
            makeOutputWindow endEntry.
2959
ab140a3e5eb6 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2930
diff changeset
  2374
            Debugging == true ifTrue:[ ex reject ].
2682
54418b0e52fb some tries for UNIX - unfinished
sr
parents: 2681
diff changeset
  2375
            ex proceed.
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2376
        ] do:[
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2377
            projectBuilder buildWithColorizedOutputTo:makeOutputWindow.
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  2378
        ].
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2379
    ].
2874
cd62528801d5 changed:
Claus Gittinger <cg@exept.de>
parents: 2872
diff changeset
  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
60ac412ce3f8 changed: #runBuildProcess:
Claus Gittinger <cg@exept.de>
parents: 2929
diff changeset
  2386
    "Modified: / 27-09-2012 / 14:56:38 / cg"
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2387
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2388
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2389
selectedApplicationChanged
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2390
    |idx|
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2391
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2392
    ((idx := self selectedApplicationIndexHolder value) isNil
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2393
    or:[idx == 0]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2394
        selectedApplication := nil.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2395
    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2396
        selectedApplication := self listOfApplicationsInProject value at:idx.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2397
    ].
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2398
    self hasApplicationSelectedHolder value:(selectedApplication notNil).
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2399
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2400
"/    selectedApplication notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2401
"/        "/ generate startupClass code
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2402
"/        CodeGeneratorTool
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2403
"/            compile:(selectedProjectDefinition startupClassName_codeFor:(selectedApplication name))
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2404
"/            forClass:selectedProjectDefinition theMetaclass
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2405
"/            inCategory:'description - startup'.
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2406
"/    ].
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2407
    self updateApplicationComment.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2408
    self updateButtonEnableState.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2409
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2410
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2411
selectedProjectChanged
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2412
    self fetchSelectedProject.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2413
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2414
    self updateComment.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2415
    self updateListOfApplicationsInProject.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2416
    self updateButtonEnableState.
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2417
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2418
    "Modified: / 04-09-2012 / 09:52:43 / cg"
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2419
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2420
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2421
selectedStartupClassChanged
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2422
    self selectedStartupClassIndexHolder value isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2423
        selectedStartupClass := nil.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2424
    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2425
        selectedStartupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value).
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2426
    ].
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2427
    self hasStartupClassSelectedHolder value:(selectedStartupClass notNil).
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2428
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2429
    selectedStartupClass notNil ifTrue:[
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  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
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2439
    ].
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2443
! !
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2444
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2445
!ProjectBuilderAssistantApplication methodsFor:'aspects'!
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2446
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2447
buildDirectoryHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2448
    <resource: #uiAspect>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2449
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2450
    |buildDirectory|
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2451
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2452
    buildDirectoryHolder isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2453
        buildDirectoryHolder := nil asValue.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2454
        buildDirectoryHolder onChangeSend:#buildDirectoryChanged to:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2455
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2458
        buildDirectory isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2459
            buildDirectory := UserPreferences current buildDirectory.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2460
            buildDirectory isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2461
                buildDirectory := Filename tempDirectory construct:'stx_build'.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2462
            ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2463
        ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2464
        buildDirectoryHolder value: buildDirectory.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2465
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2466
    ^ buildDirectoryHolder.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2467
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2468
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2469
companyNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2470
    <resource: #uiAspect>
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2471
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2472
    companyNameHolder isNil ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2473
        companyNameHolder := 'MyCompany' asValue.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2474
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2475
    ^ companyNameHolder.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2476
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2477
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2478
compilerWarnMessageHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2479
    <resource: #uiAspect>
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2480
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2481
    compilerWarnMessageHolder isNil ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2482
        compilerWarnMessageHolder := '' asValue.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2483
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2484
    ^ compilerWarnMessageHolder.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2485
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2486
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2487
compilerWarnMessageVisibleHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2488
    <resource: #uiAspect>
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2489
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2490
    compilerWarnMessageVisibleHolder isNil ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2491
        compilerWarnMessageVisibleHolder := false asValue.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2492
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2493
    ^ compilerWarnMessageVisibleHolder.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2494
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2495
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2496
hasApplicationSelectedHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2497
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2498
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2499
    hasApplicationSelectedHolder isNil ifTrue:[
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2500
        hasApplicationSelectedHolder := nil asValue.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2501
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2502
    ^ hasApplicationSelectedHolder.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2503
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2504
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2505
hasProjectSelectedHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2506
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2507
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2508
    hasProjectSelectedHolder isNil ifTrue:[
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2509
        hasProjectSelectedHolder := nil asValue.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2510
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2511
    ^ hasProjectSelectedHolder.
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  2512
!
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  2513
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2514
hasStartupClassSelectedHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2515
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2516
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2517
    hasStartupClassSelectedHolder isNil ifTrue:[
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2518
        hasStartupClassSelectedHolder := nil asValue.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2519
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2520
    ^ hasStartupClassSelectedHolder.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2521
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2522
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2523
hideOtherApplicationClasses
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2524
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2525
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2526
    hideOtherApplicationClasses isNil ifTrue:[
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2527
        hideOtherApplicationClasses := true asValue.
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2528
        hideOtherApplicationClasses onChangeSend:#updateListOfApplicationsInProject to:self.
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2529
    ].
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2530
    ^ hideOtherApplicationClasses.
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2531
!
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2532
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2533
hideOtherStartupClasses
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2534
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2535
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2536
    hideOtherStartupClasses isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2537
        hideOtherStartupClasses := true asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2538
        hideOtherStartupClasses onChangeSend:#updateListOfStartupClassesInProject to:self.
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2539
    ].
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2540
    ^ hideOtherStartupClasses.
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2541
!
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2542
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2543
hideSTXProjects
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2544
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2545
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2546
    hideSTXProjects isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2547
        hideSTXProjects := true asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2548
        hideSTXProjects onChangeSend:#updateListOfMatchingProjects to:self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2549
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2550
    ^ hideSTXProjects.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2551
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2552
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2553
listOfApplicationsInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2554
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2555
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2556
    listOfApplicationsInProject isNil ifTrue:[
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2557
        listOfApplicationsInProject := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2558
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2559
    ^ listOfApplicationsInProject.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2560
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2561
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2562
listOfClassesInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2563
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2564
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2565
    listOfClassesInProject isNil ifTrue:[
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2566
        listOfClassesInProject := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2567
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2568
    ^ listOfClassesInProject.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2569
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2580
listOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2581
    <resource: #uiAspect>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2582
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2583
    listOfMatchingProjects isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2584
        listOfMatchingProjects := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2585
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2586
    ^ listOfMatchingProjects.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2587
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2588
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2589
listOfNewProjectsName
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2590
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2591
    <resource: #uiAspect>
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2592
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2593
    listOfNewProjectsName isNil ifTrue:[
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2594
        listOfNewProjectsName := ValueHolder new.
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2595
    ].
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2596
    ^ listOfNewProjectsName.
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2597
!
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2598
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2599
listOfPossibleCompilers
2874
cd62528801d5 changed:
Claus Gittinger <cg@exept.de>
parents: 2872
diff changeset
  2600
    ^ Tools::ProjectBuilder listOfPossibleCompilers
cd62528801d5 changed:
Claus Gittinger <cg@exept.de>
parents: 2872
diff changeset
  2601
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2602
    "Modified: / 05-09-2012 / 19:10:24 / cg"
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2603
!
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2604
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2605
listOfPrerequisitesInProject
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2606
    <resource: #uiAspect>
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2607
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2608
    listOfPrerequisitesInProject isNil ifTrue:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2609
        listOfPrerequisitesInProject := ValueHolder new.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2610
    ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2611
    ^ listOfPrerequisitesInProject.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2612
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2613
    "Created: / 19-01-2012 / 15:39:34 / cg"
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2614
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2615
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2616
listOfStartupClassesInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2617
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2618
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2619
    listOfStartupClassesInProject isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2620
        listOfStartupClassesInProject := ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2621
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2622
    ^ listOfStartupClassesInProject.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2623
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2624
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2625
makeOutputHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2626
    <resource: #uiAspect>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2627
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2628
    makeOutputHolder isNil ifTrue:[
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2629
        makeOutputHolder := ValueHolder new.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2630
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2631
    ^ makeOutputHolder.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2632
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2633
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2634
nameOfUsedCompilerSuiteHolder
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2635
    <resource: #uiAspect>
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2636
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2637
    nameOfUsedCompilerSuiteHolder isNil ifTrue:[
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2638
        nameOfUsedCompilerSuiteHolder := nil asValue.
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2639
    ].
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2640
    ^ nameOfUsedCompilerSuiteHolder.
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2641
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2642
    "Created: / 03-09-2012 / 19:32:27 / cg"
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2643
!
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2644
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2645
newApplicationsName
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2646
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2647
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2648
    "automatically generated by UIPainter ..."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2649
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2650
    "*** the code below creates a default model when invoked."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2651
    "*** (which may not be the one you wanted)"
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2652
    "*** Please change as required and accept it in the browser."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2653
    "*** (and replace this comment by something more useful ;-)"
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2654
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2655
    newApplicationsName isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2656
        newApplicationsName := ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2657
"/ if your app needs to be notified of changes, uncomment one of the lines below:
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2658
"/       newApplicationsName addDependent:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2659
"/       newApplicationsName onChangeSend:#newApplicationsNameChanged to:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2660
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2661
    ^ newApplicationsName.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2662
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2663
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2664
newProjectsName
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2665
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2666
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2667
    newProjectsName isNil ifTrue:[
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2668
        newProjectsName := nil asValue.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2669
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2670
    ^ newProjectsName.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2671
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2672
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2673
newProjectsNameListDoubleClickChannel
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2674
    "automatically generated by UIPainter ..."
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2675
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2676
    "*** the code below creates a default model when invoked."
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2677
    "*** (which may not be the one you wanted)"
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2678
    "*** Please change as required and accept it in the browser."
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2679
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2680
    |holder|
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2681
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2682
    (holder := builder bindingAt:#newProjectsNameListDoubleClickChannel) isNil ifTrue:[
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2683
        holder := TriggerValue new.
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2684
        builder aspectAt:#newProjectsNameListDoubleClickChannel put:holder.
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2685
        holder onChangeEvaluate:[       
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2686
            newProjectsNameListExtendedComboBox notNil ifTrue: [
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2687
                newProjectsNameListExtendedComboBox closeMenu.
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2688
            ]
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2689
        ]
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2690
    ].
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2691
    ^ holder.
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2692
!
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2693
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2694
newStartupClassName
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2695
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2696
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2697
    newStartupClassName isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2698
        newStartupClassName := ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2699
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2700
    ^ newStartupClassName.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2701
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2702
2959
ab140a3e5eb6 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2930
diff changeset
  2703
osIsOSX
2968
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
  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
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2715
productNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2716
    <resource: #uiAspect>
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2717
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2718
    productNameHolder isNil ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2719
        productNameHolder := 'MyProduct' asValue.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2720
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2721
    ^ productNameHolder.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2722
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2723
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2724
projectType
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2725
    ^ self projectTypeHolder value
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2726
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2727
    "Modified: / 20-07-2012 / 13:28:46 / cg"
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2728
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2729
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2730
projectType:aProjectTypeSymbol
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2731
    self assert:(ProjectDefinition projectTypes includes:aProjectTypeSymbol).
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2732
    self projectTypeHolder value:aProjectTypeSymbol
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2733
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2734
    "Modified: / 20-07-2012 / 13:28:25 / cg"
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2735
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2736
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2737
projectTypeHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2738
    <resource: #uiAspect>
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2739
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2740
    projectTypeHolder isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2741
        projectTypeHolder := RadioButtonGroup new.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2742
        projectTypeHolder value:ProjectDefinition guiApplicationType.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2743
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2744
    ^ projectTypeHolder.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2745
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2746
    "Modified: / 20-07-2012 / 13:30:16 / cg"
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2747
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2748
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2749
selectedApplicationIndexHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2750
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2751
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2752
    selectedApplicationIndexHolder isNil ifTrue:[
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2753
        selectedApplicationIndexHolder := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2754
        selectedApplicationIndexHolder onChangeSend:#selectedApplicationChanged to:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2755
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2756
    ^ selectedApplicationIndexHolder.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2757
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2758
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2759
selectedApplicationsComment
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2760
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2761
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2762
    "automatically generated by UIPainter ..."
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2763
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2764
    "*** the code below creates a default model when invoked."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2765
    "*** (which may not be the one you wanted)"
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2766
    "*** Please change as required and accept it in the browser."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2767
    "*** (and replace this comment by something more useful ;-)"
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2768
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2769
    selectedApplicationsComment isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2770
        selectedApplicationsComment := '' asValue.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2771
"/ if your app needs to be notified of changes, uncomment one of the lines below:
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2772
"/       selectedApplicationsComment addDependent:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2773
"/       selectedApplicationsComment onChangeSend:#selectedApplicationsCommentChanged to:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2774
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2775
    ^ selectedApplicationsComment.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2776
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2777
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2778
selectedProjectDefinition
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2779
    <resource: #uiAspect>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2780
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2781
    ^ selectedProjectDefinition.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2782
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2783
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2784
selectedProjectIndexHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2785
    <resource: #uiAspect>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2786
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2787
    selectedProjectIndexHolder isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2788
        selectedProjectIndexHolder := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2789
        selectedProjectIndexHolder onChangeSend:#selectedProjectChanged to:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2790
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2791
    ^ selectedProjectIndexHolder.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2792
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2793
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2794
selectedProjectsComment
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2795
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2796
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2797
    selectedProjectsComment isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2798
        selectedProjectsComment := '' asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2799
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2800
    ^ selectedProjectsComment.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2801
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2802
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2803
selectedStartupClassIndexHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2804
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2805
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2806
    selectedStartupClassIndexHolder isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2807
        selectedStartupClassIndexHolder := ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2808
        selectedStartupClassIndexHolder onChangeSend:#selectedStartupClassChanged to:self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2809
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2810
    ^ selectedStartupClassIndexHolder.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2811
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2812
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2813
startMakeButtonEnabled
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2814
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2815
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2816
    startMakeButtonEnabled isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2817
        startMakeButtonEnabled := true asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2818
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2819
    ^ startMakeButtonEnabled.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2820
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2821
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2822
stopMakeButtonVisible
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2823
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2824
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2825
    stopMakeButtonVisible isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2826
        stopMakeButtonVisible := false asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2827
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2828
    ^ stopMakeButtonVisible.
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2829
!
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2830
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2831
usedCompilerHolder
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2832
    <resource: #uiAspect>
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2833
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2834
    usedCompilerHolder isNil ifTrue:[
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2835
        usedCompilerHolder := ValueHolder new.
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2836
        usedCompilerHolder value:(LastUsedCompiler ? ProjectBuilder defaultUsedCompiler).
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2837
        usedCompilerHolder onChangeSend:#checkCompilerAvailability to:self.
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2838
    ].
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2839
    ^ usedCompilerHolder.
2874
cd62528801d5 changed:
Claus Gittinger <cg@exept.de>
parents: 2872
diff changeset
  2840
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2841
    "Modified: / 04-09-2012 / 09:43:20 / cg"
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2842
! !
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2843
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2844
!ProjectBuilderAssistantApplication methodsFor:'initialization & release'!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2855
    OperatingSystem isMSWINDOWSlike ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2856
        browser filter:'*.exe;*.com'.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2857
    ] ifFalse:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2858
        browser filter:'*'.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2863
openOn:aProjectDefinitionClass
2899
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2864
    |type apps startupClass pageToGo|
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2865
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2866
    self allButOpen.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2867
    aProjectDefinitionClass isLibraryDefinition ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2868
        type := ProjectDefinition libraryType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2869
    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2870
        aProjectDefinitionClass isGUIApplication ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2871
            type := ProjectDefinition guiApplicationType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2872
        ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2873
            type := ProjectDefinition nonGuiApplicationType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2874
        ]
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2875
    ].
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2876
    self projectTypeHolder value:type.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2877
    self hideSTXProjects value:false.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2878
    selectedProjectDefinition := aProjectDefinitionClass.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2879
    self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package).
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2880
    self hasProjectSelectedHolder value:true.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2881
2988
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2882
    pageToGo := 2.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2883
    type == ProjectDefinition guiApplicationType ifTrue:[
2988
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2884
        pageToGo := 3.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2885
        (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[
2899
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2886
            self updateListOfStartupClassesInProject.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2887
            selectedStartupClass := startupClass.
2899
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2888
            self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass).
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2889
            pageToGo := 5.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2890
        ]. 
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2891
"/    apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel])
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  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
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2902
    self gotoPage:pageToGo.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2903
    self openWindow.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2904
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2905
    "Created: / 20-07-2012 / 12:34:02 / cg"
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2906
!
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2907
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2908
openOnPackage:aPackageId
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2909
    self allButOpen.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2910
    self projectTypeHolder value:(ProjectDefinition guiApplicationType).
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2911
    self hideSTXProjects value:false.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2912
    self selectedProjectIndexHolder value:(self listOfMatchingPackageIds indexOf:aPackageId).
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2913
    self hasProjectSelectedHolder value:true.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2914
    self gotoPage:2.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2915
    self openWindow.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2916
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2917
    "Created: / 20-07-2012 / 13:24:38 / cg"
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2918
!
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2919
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2920
postBuildMakeOutputWindow:aView
2917
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2921
    makeOutputWindow := aView.
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2922
    makeOutputWindow lineLimit:10000.
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2923
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2924
    "Modified: / 05-09-2012 / 11:11:45 / cg"
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2925
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2926
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2927
postBuildNewProjectsNameListExtendedComboBox:anExtendedComboBox
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2928
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2929
    |menu|
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2930
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2931
    menu := SubCanvas new.
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2932
    menu client:self spec:#newProjectsNameListSpec builder:nil.
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2933
    anExtendedComboBox closeOnSelect: false.
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2934
    anExtendedComboBox menuWidget:menu.
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2935
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2936
    anExtendedComboBox editor 
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2937
            immediateAccept:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2938
            acceptOnLeave:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2939
            acceptOnLostFocus:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2940
            acceptOnPointerLeave:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2941
            acceptOnReturn:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2942
            acceptOnTab:true.
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2943
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2944
    newProjectsNameListExtendedComboBox := anExtendedComboBox.
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2945
!
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2946
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2947
postBuildWarnMessageView:aView
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2948
    aView font:(Label defaultFont).
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2949
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2950
    "Created: / 05-09-2012 / 19:34:29 / cg"
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2951
!
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2952
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2953
postBuildWith:aBuilder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2954
    super postBuildWith:aBuilder.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2955
    self updateListOfMatchingProjects.
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2956
    self updateListOfNewProjectsName.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2957
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2958
    Smalltalk addDependent:self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2959
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2960
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2961
release
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2962
    Smalltalk removeDependent:self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2963
    super release
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2964
! !
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2965
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2966
!ProjectBuilderAssistantApplication methodsFor:'menu actions'!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2967
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2968
openDocumentation
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2969
   self openHTMLDocument:'tools/misc/TOP.html#PACKAGER'.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2970
! !
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2971
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2972
!ProjectBuilderAssistantApplication methodsFor:'private'!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2973
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2974
commentFromClass:aClass
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2975
    |docMethod comment indents minIndent maxLineLength|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2976
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2977
    docMethod := aClass class compiledMethodAt:#documentation.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2978
    docMethod notNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2979
        comment := docMethod comment.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2980
        comment := comment asStringCollection 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2981
                        collect:[:line | line withoutTrailingSeparators].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2982
        [comment notEmpty and:[comment first isBlank]] whileTrue:[ comment removeFirst ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2983
        maxLineLength := (comment collect:[:line | line size]) max.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2984
        indents := comment collect:[:line | 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2985
                                        line isEmptyOrNil
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2986
                                            ifTrue:[maxLineLength]
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2987
                                            ifFalse:[ line findFirst:[:ch | ch isSeparator not]]].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2988
        (minIndent := indents min) > 1 ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2989
            comment := comment collect:[:line | line copyFrom:minIndent].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2990
        ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2991
        comment := comment asString.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2992
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2993
    ^ comment
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2994
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2995
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2996
generatePackageContentsMethods
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2997
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3017
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3018
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3019
hasApplicationSelected
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3020
    ^ self selectedApplicationIndexHolder value notNil
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3021
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3022
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3023
hasBuildDirectorySpecified
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3024
    ^ self buildDirectoryHolder value notEmptyOrNil
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3025
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3026
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3027
hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3028
    ^ projectBuilder notNil
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3029
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3030
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3031
hasProjectSelected
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3032
    ^ self selectedProjectIndexHolder value notNil
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3033
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3034
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3035
hasStartupClassSelected
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3036
    ^ self selectedStartupClassIndexHolder value notNil
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3037
! !
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3038
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3039
!ProjectBuilderAssistantApplication methodsFor:'queries'!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3040
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3041
canEnterApplicationSelection
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3042
    self hasProjectSelected ifFalse:[
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3043
        self infoHolder value:'no project selected'. 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3044
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3045
    ].
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3046
    ^ true
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3047
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3048
    "Modified: / 23-08-2011 / 12:12:35 / cg"
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3049
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3050
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3051
canEnterBuild
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3052
    self hasBuildDirectorySpecified ifFalse:[
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3053
        self infoHolder value:'no build directory specified'. 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3054
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3055
    ].
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3056
    ^ true
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3057
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3058
    "Modified: / 23-08-2011 / 12:13:29 / cg"
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3059
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3060
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3061
canEnterContentsSelection
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3062
    |prj cls impl mthd|
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3063
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3064
    self hasProjectSelected ifFalse:[
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3065
        self infoHolder value:'no project selected'. 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3066
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3067
    ].
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3068
    "self hasApplicationSelected ifFalse:[^ false]." 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3069
    (self projectTypeIsLibrary or:[self hasStartupClassSelected]) ifFalse:[
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  3070
        self infoHolder value:'Must be either library or have a startup class'. 
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3071
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3072
    ].
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  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
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  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
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  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
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3098
                    with:prj class name). 
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  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
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  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
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  3127
    self infoHolder value:nil.
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3128
    ^ true.
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3129
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  3130
    "Modified: / 04-09-2012 / 10:29:43 / cg"
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3131
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3132
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3133
canEnterDeploy
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3134
    self hasProjectBuilder ifFalse:[
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  3135
        self infoHolder value:'Nothing to deploy (please build first)'. 
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3136
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3137
    ].
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  3138
    self infoHolder value:nil. 
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3139
    ^ true
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3140
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  3141
    "Modified: / 04-09-2012 / 10:30:18 / cg"
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3142
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3143
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3144
canEnterPrerequisitesSelection
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3145
    |prj cls impl|
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3146
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3147
    self hasProjectSelected ifFalse:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3148
        self infoHolder value:'no project selected'. 
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3149
        ^ false
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3150
    ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3151
    ^ true.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3152
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3153
    "Created: / 19-01-2012 / 15:37:30 / cg"
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3154
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3155
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3156
canEnterStartupClassSelection
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3157
    self hasProjectSelected ifFalse:[
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3158
        self infoHolder value:'no project selected'. 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3159
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3160
    ].
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3161
    ^ self hasProjectSelected "and:[ self hasApplicationSelected ]"
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3162
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  3163
    "Modified: / 23-08-2011 / 12:16:35 / cg"
2696
fm
parents: 2695
diff changeset
  3164
!
fm
parents: 2695
diff changeset
  3165
fm
parents: 2695
diff changeset
  3166
projectTypeIsGuiApplication
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3167
    ^ self projectTypeHolder value == ProjectDefinition guiApplicationType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3168
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3169
    "Modified: / 20-07-2012 / 13:29:59 / cg"
2696
fm
parents: 2695
diff changeset
  3170
!
fm
parents: 2695
diff changeset
  3171
fm
parents: 2695
diff changeset
  3172
projectTypeIsLibrary
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3173
    ^ self projectTypeHolder value == ProjectDefinition libraryType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3174
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3175
    "Modified: / 20-07-2012 / 13:29:24 / cg"
2696
fm
parents: 2695
diff changeset
  3176
!
fm
parents: 2695
diff changeset
  3177
fm
parents: 2695
diff changeset
  3178
projectTypeIsNotLibrary
fm
parents: 2695
diff changeset
  3179
    ^ self projectTypeIsLibrary not
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3180
! !
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  3181
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3182
!ProjectBuilderAssistantApplication methodsFor:'specs'!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3183
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3184
assistantSpec
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
  3185
    ^ self class assistantSpec
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3186
! !
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3187
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3188
!ProjectBuilderAssistantApplication methodsFor:'update'!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3189
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3190
checkCompilerAvailability
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  3191
    |cmd suite warnMsg1 warnMsg2 sep usedCompiler|
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3192
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3193
    cmd := 'cc'.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3194
    warnMsg1 := warnMsg2 := ''.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3195
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  3196
    usedCompiler := self usedCompilerHolder value.
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  3197
    usedCompiler = 'bcc' ifTrue:[
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  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
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3222
    ].
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  3223
2922
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
  3224
    suite := ProjectBuilder suiteNameOfCompiler:(self usedCompilerHolder value).
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  3225
    self nameOfUsedCompilerSuiteHolder value:suite.
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3226
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3227
    (OperatingSystem canExecuteCommand:cmd) ifFalse:[
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3228
        warnMsg2 :=
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3229
'The "%1"-command seems to be not in your path.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3230
Please ensure that you installed the 
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  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
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3234
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3235
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3236
    (warnMsg1 notEmpty or:[warnMsg2 notEmpty]) ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3237
        sep := ''.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3238
        (warnMsg2 notEmpty) ifTrue:[ sep := '\\' withCRs ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3239
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3240
        self compilerWarnMessageHolder value:('Warning:
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3241
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3242
',warnMsg1,sep,warnMsg2).
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3243
        self compilerWarnMessageVisibleHolder value:true.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3244
    ] ifFalse:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3245
        self compilerWarnMessageVisibleHolder value:false
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3246
    ].
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  3247
2922
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
  3248
    "Modified: / 06-09-2012 / 15:58:58 / cg"
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3249
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  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
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3271
delayedUpdate:something with:anArgument from:changedObject
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3272
    changedObject == Smalltalk ifTrue:[
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3273
        (something == #newClass
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3274
        or:[something == #classRemove
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3275
        or:[something == #projectOrganization]]) ifTrue:[
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3276
            self updateListOfMatchingProjects.
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3277
            self updateListOfNewProjectsName.
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3278
            ^ self.
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3279
        ].
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3280
        ^ self.
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3281
    ].
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3282
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3283
    "Created: / 10-09-2012 / 14:07:47 / cg"
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3284
!
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  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
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3310
enterPrerequisitesSpecification
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3311
    |toAdd|
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3312
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3313
    self updateListOfPrerequisitesInProject.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3314
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3315
"/    toAdd := OrderedCollection new.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3316
"/
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3317
"/    "/ ensure that startup & app-class are in the list
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3318
"/    selectedApplication notNil ifTrue:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3319
"/        (selectedProjectDefinition classNames includes:selectedApplication name) ifFalse:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3320
"/            toAdd add:selectedApplication.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3321
"/        ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3322
"/    ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3323
"/    selectedStartupClass notNil ifTrue:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3324
"/        (selectedProjectDefinition classNames includes:selectedStartupClass name) ifFalse:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3325
"/            toAdd add:selectedStartupClass.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3326
"/        ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3327
"/    ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3328
"/
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3329
"/    selectedProjectDefinition includeClasses:toAdd usingCompiler:nil.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3330
"/
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3331
"/    self updateListOfClassesInProject.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3332
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3333
    "Created: / 19-01-2012 / 15:36:47 / cg"
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3334
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3335
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3336
fetchAttributesFromProjectDefinition
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3337
    self fetchSelectedProject.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3338
    selectedProjectDefinition notNil ifTrue:[
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3339
        self productNameHolder value: selectedProjectDefinition productName.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3340
        self companyNameHolder value: selectedProjectDefinition companyName.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3341
    ].
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3342
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3343
    "Created: / 04-09-2012 / 09:50:46 / cg"
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3344
!
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3345
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3346
rememberMakeOutputsContents
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3347
    makeOutputHolder value:(makeOutputWindow contents)
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3348
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3349
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3350
rememberProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3351
    self assert:selectedProjectDefinition notNil.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3352
    Class withoutUpdatingChangesDo:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3353
        self productNameHolder value ~= selectedProjectDefinition productName ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3354
            selectedProjectDefinition class compile:(selectedProjectDefinition 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3355
                        productName_codeFor:(self productNameHolder value)).
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3356
        ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3357
        self companyNameHolder value ~= selectedProjectDefinition companyName ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3358
            selectedProjectDefinition class compile:(selectedProjectDefinition 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3359
                        companyName_codeFor:(self companyNameHolder value)).
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3360
        ]
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3361
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3362
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3363
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3364
rememberUsedCompiler
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3365
    LastUsedCompiler := self usedCompilerHolder value.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3366
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3367
    "Created: / 04-09-2012 / 09:45:42 / cg"
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3368
!
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3369
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3370
restoreMakeOutputsContents
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3371
    makeOutputWindow contents:makeOutputHolder value
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  3372
!
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  3373
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3374
update:something with:anArgument from:changedObject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3375
    changedObject == Smalltalk ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3376
        (something == #newClass
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3377
        or:[something == #classRemove
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3378
        or:[something == #projectOrganization]]) ifTrue:[
2926
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3379
            self enqueueDelayedUpdate:something with:anArgument from:changedObject.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3380
            ^ self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3381
        ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3382
        ^ self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3383
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3384
    super update:something with:anArgument from:changedObject
2926
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3385
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3386
    "Modified: / 10-09-2012 / 14:08:17 / cg"
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3387
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3388
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3389
updateApplicationComment
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3390
    |comment|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3391
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3392
    self selectedApplicationIndexHolder value notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3393
        comment := self commentFromClass:selectedApplication.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3396
        ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3399
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3400
    self selectedApplicationsComment value:comment.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3401
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3402
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3403
updateComment
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3404
    |comment|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3405
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3406
    self selectedProjectIndexHolder value notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3407
        comment := self commentFromClass:selectedProjectDefinition.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3410
        ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3413
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3414
    self selectedProjectsComment value:comment.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3415
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3416
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3417
updateListOfApplicationsInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3418
    |oldList applicationClasses package appClass appClassIndex|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3419
2649
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  3420
    appClassIndex := nil.
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  3421
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3422
    selectedProjectDefinition isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3423
        applicationClasses := #()
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3424
    ] ifFalse:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3425
        package := selectedProjectDefinition package.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3426
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3427
        applicationClasses := Smalltalk allClasses
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3428
                                    select:[:cls |
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3429
                                        ((cls isSubclassOf:ApplicationModel)
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3430
                                        and:[ self hideOtherApplicationClasses value not
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3431
                                              or:[ cls package = package ]])
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3432
                                    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3433
        applicationClasses := applicationClasses asOrderedCollection.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3434
        applicationClasses sort:[:a :b | a name < b name].
2649
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  3435
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3436
"/        startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ].
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3437
"/        startUpClassName notNil ifTrue:[
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3438
"/            startUpClass := Smalltalk classNamed:startUpClassName.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3439
"/            startUpClass notNil ifTrue:[
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3440
"/                appClassIndex := applicationClasses indexOf:startUpClass.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3441
"/                appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3442
"/            ].
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3443
"/        ].
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3444
    ].
2649
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  3445
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3446
    oldList := self listOfApplicationsInProject value.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3447
    oldList = applicationClasses ifFalse:[
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3448
        appClass := selectedApplication.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3449
        appClassIndex := applicationClasses indexOf:appClass.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3450
        appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3451
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3452
        self listOfApplicationsInProject value:applicationClasses.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3453
        self selectedApplicationIndexHolder value:appClassIndex.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3460
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3461
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3462
updateListOfClassesInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3463
    self listOfClassesInProject value:(selectedProjectDefinition classNames).
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3464
!
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3465
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3466
updateListOfMatchingProjects
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3467
    |query matching projectType idx|
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3468
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3469
    projectType := self projectType.
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3470
    projectType = ProjectDefinition libraryType ifTrue:[
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3471
        query := #isLibraryDefinition
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3472
    ] ifFalse:[
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3473
        projectType = ProjectDefinition guiApplicationType ifTrue:[
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3474
            query := #isGUIApplication
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3475
        ] ifFalse:[
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3476
            projectType = ProjectDefinition nonGuiApplicationType ifTrue:[
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3477
                query := #isConsoleApplication
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3478
            ] ifFalse:[
2962
5eee09525324 halts changed to breakpoint
Claus Gittinger <cg@exept.de>
parents: 2960
diff changeset
  3479
                self halt:'oops - unknown projectType'.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3480
                projectType := ProjectDefinition guiApplicationType.
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3481
            ].
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3482
        ].
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3483
    ].
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3484
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3485
    Class flushSubclassInfo.
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3486
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3487
    matching := ProjectDefinition allSubclasses
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3488
                    select:[:defClass |
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3489
                        |match|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3490
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3491
                        match := false.
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3492
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3493
                        defClass isAbstract ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3494
                            (self hideSTXProjects value not
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3495
                            or:[ defClass package asPackageId module ~= 'stx' ])
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3496
                            ifTrue:[
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3497
                                match := defClass perform:query
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3498
                            ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3502
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3503
    matching sort:[:a :b | a name < b name].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3506
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3507
    idx := matching indexOf:selectedProjectDefinition.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3508
    idx == 0 ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3509
        self selectedProjectIndexHolder value:nil.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3510
    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3511
        self selectedProjectIndexHolder value:idx.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3512
    ].
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3513
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3514
    "Modified: / 20-07-2012 / 15:04:15 / cg"
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3515
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  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
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3524
updateListOfNewProjectsName
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3525
    |loadedProjectIDsWithoutProjectDefinition|
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3526
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3527
    loadedProjectIDsWithoutProjectDefinition := Smalltalk allLoadedProjectIDs 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3528
                                                            select:[:eachProjectID | 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3529
                                                                eachProjectID ~= PackageId noProjectID 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3530
                                                                and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ].
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  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
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  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
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3537
!
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3538
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3539
updateListOfPrerequisitesInProject
2965
9725f13947de class: Tools::ProjectBuilderAssistantApplication
Stefan Vogel <sv@exept.de>
parents: 2962
diff changeset
  3540
    self listOfPrerequisitesInProject value:(selectedProjectDefinition effectivePreRequisites).
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3541
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3542
    "Created: / 19-01-2012 / 15:39:15 / cg"
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3543
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3544
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3545
updateListOfStartupClassesInProject
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3546
    |startupClasses package startUpClassName startUpClass startupClassIndex|
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3547
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3548
    startupClassIndex := nil.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3549
    self selectedStartupClassIndexHolder value:nil.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3550
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3551
    selectedProjectDefinition isNil ifTrue:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3552
        startupClasses := #()
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3553
    ] ifFalse:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3554
        package := selectedProjectDefinition package.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3555
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3556
        startupClasses := Smalltalk allClasses
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3557
                                    select:[:cls |
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3558
                                        ((cls includesBehavior:StandaloneStartup)
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3559
                                        and:[ self hideOtherStartupClasses value not
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3560
                                              or:[ cls package = package ]])
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  3561
                                        or:[ cls == Smalltalk
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  3562
                                             and:[ self hideOtherStartupClasses value not ] ]
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3563
                                    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3564
        startupClasses := startupClasses asOrderedCollection.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3565
        startupClasses sort:[:a :b | a name < b name].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3566
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3567
        startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3568
        startUpClassName notNil ifTrue:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3569
            startUpClass := Smalltalk classNamed:startUpClassName.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3570
            startUpClass notNil ifTrue:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3571
                startupClassIndex := startupClasses indexOf:startUpClass.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3572
                startupClassIndex == 0 ifTrue:[ startupClassIndex := nil ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3573
            ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3574
        ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3575
    ].
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  3576
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3577
    self listOfStartupClassesInProject value:startupClasses.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3578
    self selectedStartupClassIndexHolder value:startupClassIndex.
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3579
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3580
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3581
updateProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3582
    self assert:selectedProjectDefinition notNil.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3583
    self productNameHolder value:(selectedProjectDefinition productName).
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3584
    self companyNameHolder value:(selectedProjectDefinition companyName).
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3585
! !
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3586
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3587
!ProjectBuilderAssistantApplication class methodsFor:'documentation'!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3593
version_CVS
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3594
    ^ '$Header$'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3595
! !
2959
ab140a3e5eb6 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2930
diff changeset
  3596