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