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