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