Tools__ProjectBuilderAssistantApplication.st
author Claus Gittinger <cg@exept.de>
Tue, 07 May 2013 19:39:57 +0200
changeset 3005 9c5e0717155e
parent 3004 014368fad35b
child 3007 88de1ef7c805
permissions -rw-r--r--
class: Tools::ProjectBuilderAssistantApplication changed: #checkCompilerAvailability
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
2832
c1e7c5d29577 CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents: 2825
diff changeset
  2132
        SmalltalkCodeGeneratorTool
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2133
            compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name))
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2134
            forClass:selectedProjectDefinition theMetaclass
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2135
            inCategory:'description - startup'.
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2136
    ].
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2137
    self updateButtonEnableState.
2832
c1e7c5d29577 CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents: 2825
diff changeset
  2138
c1e7c5d29577 CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents: 2825
diff changeset
  2139
    "Modified: / 31-01-2011 / 18:29:42 / cg"
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2140
! !
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2141
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2142
!ProjectBuilderAssistantApplication methodsFor:'aspects'!
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2143
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2144
buildDirectoryHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2145
    <resource: #uiAspect>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2146
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2147
    |buildDirectory|
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2148
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2149
    buildDirectoryHolder isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2150
        buildDirectoryHolder := nil asValue.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2151
        buildDirectoryHolder onChangeSend:#buildDirectoryChanged to:self.
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 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
  2154
        buildDirectory := ProjectBuilder previousBuildDirectory.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2155
        buildDirectory isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2156
            buildDirectory := UserPreferences current buildDirectory.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2157
            buildDirectory isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2158
                buildDirectory := Filename tempDirectory construct:'stx_build'.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2159
            ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2160
        ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2161
        buildDirectoryHolder value: buildDirectory.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2162
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2163
    ^ buildDirectoryHolder.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2164
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2165
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2166
companyNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2167
    <resource: #uiAspect>
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2168
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2169
    companyNameHolder isNil ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2170
        companyNameHolder := 'MyCompany' asValue.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2171
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2172
    ^ companyNameHolder.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2173
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2174
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2175
compilerWarnMessageHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2176
    <resource: #uiAspect>
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
    compilerWarnMessageHolder isNil ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2179
        compilerWarnMessageHolder := '' asValue.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2180
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2181
    ^ compilerWarnMessageHolder.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2182
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2183
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2184
compilerWarnMessageVisibleHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2185
    <resource: #uiAspect>
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
    compilerWarnMessageVisibleHolder isNil ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2188
        compilerWarnMessageVisibleHolder := false asValue.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2189
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2190
    ^ compilerWarnMessageVisibleHolder.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2191
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2192
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2193
hasApplicationSelectedHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2194
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2195
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2196
    hasApplicationSelectedHolder isNil ifTrue:[
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2197
        hasApplicationSelectedHolder := nil asValue.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2198
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2199
    ^ hasApplicationSelectedHolder.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2200
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2201
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2202
hasProjectSelectedHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2203
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2204
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2205
    hasProjectSelectedHolder isNil ifTrue:[
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2206
        hasProjectSelectedHolder := nil asValue.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2207
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2208
    ^ hasProjectSelectedHolder.
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  2209
!
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  2210
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2211
hasStartupClassSelectedHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2212
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2213
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2214
    hasStartupClassSelectedHolder isNil ifTrue:[
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2215
        hasStartupClassSelectedHolder := nil asValue.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2216
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2217
    ^ hasStartupClassSelectedHolder.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2218
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2219
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2220
hideOtherApplicationClasses
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2221
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2222
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2223
    hideOtherApplicationClasses isNil ifTrue:[
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2224
        hideOtherApplicationClasses := true asValue.
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2225
        hideOtherApplicationClasses onChangeSend:#updateListOfApplicationsInProject to:self.
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2226
    ].
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2227
    ^ hideOtherApplicationClasses.
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2228
!
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2229
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2230
hideOtherStartupClasses
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2231
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2232
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2233
    hideOtherStartupClasses isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2234
        hideOtherStartupClasses := true asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2235
        hideOtherStartupClasses onChangeSend:#updateListOfStartupClassesInProject to:self.
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2236
    ].
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2237
    ^ hideOtherStartupClasses.
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2238
!
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  2239
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2240
hideSTXProjects
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2241
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2242
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2243
    hideSTXProjects isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2244
        hideSTXProjects := true asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2245
        hideSTXProjects onChangeSend:#updateListOfMatchingProjects to:self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2246
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2247
    ^ hideSTXProjects.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2248
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2249
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2250
listOfApplicationsInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2251
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2252
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2253
    listOfApplicationsInProject isNil ifTrue:[
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2254
        listOfApplicationsInProject := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2255
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2256
    ^ listOfApplicationsInProject.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2257
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2258
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2259
listOfClassesInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2260
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2261
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2262
    listOfClassesInProject isNil ifTrue:[
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2263
        listOfClassesInProject := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2264
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2265
    ^ listOfClassesInProject.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2266
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2267
2686
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2268
listOfMatchingPackageIds
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2269
    <resource: #uiAspect>
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2270
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2271
    listOfMatchingPackageIds isNil ifTrue:[
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2272
        listOfMatchingPackageIds := ValueHolder new.
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2273
    ].
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2274
    ^ listOfMatchingPackageIds.
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2275
!
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2276
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2277
listOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2278
    <resource: #uiAspect>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2279
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2280
    listOfMatchingProjects isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2281
        listOfMatchingProjects := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2282
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2283
    ^ listOfMatchingProjects.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2284
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2285
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2286
listOfNewProjectsName
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2287
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2288
    <resource: #uiAspect>
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2289
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2290
    listOfNewProjectsName isNil ifTrue:[
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2291
        listOfNewProjectsName := ValueHolder new.
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2292
    ].
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2293
    ^ listOfNewProjectsName.
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2294
!
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2295
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2296
listOfPossibleCompilers
2874
cd62528801d5 changed:
Claus Gittinger <cg@exept.de>
parents: 2872
diff changeset
  2297
    ^ Tools::ProjectBuilder listOfPossibleCompilers
cd62528801d5 changed:
Claus Gittinger <cg@exept.de>
parents: 2872
diff changeset
  2298
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2299
    "Modified: / 05-09-2012 / 19:10:24 / cg"
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2300
!
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2301
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2302
listOfPrerequisitesInProject
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2303
    <resource: #uiAspect>
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2304
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2305
    listOfPrerequisitesInProject isNil ifTrue:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2306
        listOfPrerequisitesInProject := ValueHolder new.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2307
    ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2308
    ^ listOfPrerequisitesInProject.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2309
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2310
    "Created: / 19-01-2012 / 15:39:34 / cg"
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2311
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2312
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2313
listOfStartupClassesInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2314
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2315
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2316
    listOfStartupClassesInProject isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2317
        listOfStartupClassesInProject := ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2318
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2319
    ^ listOfStartupClassesInProject.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2320
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2321
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2322
makeOutputHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2323
    <resource: #uiAspect>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2324
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2325
    makeOutputHolder isNil ifTrue:[
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  2326
        makeOutputHolder := ValueHolder new.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2327
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2328
    ^ makeOutputHolder.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2329
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2330
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2331
nameOfUsedCompilerSuiteHolder
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2332
    <resource: #uiAspect>
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2333
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2334
    nameOfUsedCompilerSuiteHolder isNil ifTrue:[
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2335
        nameOfUsedCompilerSuiteHolder := nil asValue.
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2336
    ].
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2337
    ^ nameOfUsedCompilerSuiteHolder.
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2338
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2339
    "Created: / 03-09-2012 / 19:32:27 / cg"
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
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2342
newApplicationsName
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2343
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2344
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2345
    "automatically generated by UIPainter ..."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2346
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2347
    "*** the code below creates a default model when invoked."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2348
    "*** (which may not be the one you wanted)"
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2349
    "*** Please change as required and accept it in the browser."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2350
    "*** (and replace this comment by something more useful ;-)"
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2351
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2352
    newApplicationsName isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2353
        newApplicationsName := ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2354
"/ 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
  2355
"/       newApplicationsName addDependent:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2356
"/       newApplicationsName onChangeSend:#newApplicationsNameChanged to:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2357
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2358
    ^ newApplicationsName.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2359
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2360
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2361
newProjectsName
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2362
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2363
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2364
    newProjectsName isNil ifTrue:[
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2365
        newProjectsName := nil asValue.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2366
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2367
    ^ newProjectsName.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2368
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2369
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2370
newProjectsNameListDoubleClickChannel
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2371
    "automatically generated by UIPainter ..."
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2372
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2373
    "*** the code below creates a default model when invoked."
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2374
    "*** (which may not be the one you wanted)"
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2375
    "*** Please change as required and accept it in the browser."
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
    |holder|
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2378
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2379
    (holder := builder bindingAt:#newProjectsNameListDoubleClickChannel) isNil ifTrue:[
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2380
        holder := TriggerValue new.
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2381
        builder aspectAt:#newProjectsNameListDoubleClickChannel put:holder.
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2382
        holder onChangeEvaluate:[       
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2383
            newProjectsNameListExtendedComboBox notNil ifTrue: [
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2384
                newProjectsNameListExtendedComboBox closeMenu.
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2385
            ]
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2386
        ]
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2387
    ].
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2388
    ^ holder.
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
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2391
newStartupClassName
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2392
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2393
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2394
    newStartupClassName isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2395
        newStartupClassName := ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2396
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2397
    ^ newStartupClassName.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2398
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2399
2959
ab140a3e5eb6 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2930
diff changeset
  2400
osIsOSX
2968
ceb6bb9078db fixes and more flyby helps
Claus Gittinger <cg@exept.de>
parents: 2965
diff changeset
  2401
   ^ OperatingSystem isOSXlike
2959
ab140a3e5eb6 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2930
diff changeset
  2402
!
ab140a3e5eb6 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2930
diff changeset
  2403
ab140a3e5eb6 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2930
diff changeset
  2404
osIsWindows
ab140a3e5eb6 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2930
diff changeset
  2405
   ^ OperatingSystem isMSWINDOWSlike
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
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2408
productNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2409
    <resource: #uiAspect>
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2410
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2411
    productNameHolder isNil ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2412
        productNameHolder := 'MyProduct' asValue.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2413
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2414
    ^ productNameHolder.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2415
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2416
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2417
projectType
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2418
    ^ self projectTypeHolder value
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2419
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2420
    "Modified: / 20-07-2012 / 13:28:46 / cg"
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2421
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2422
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2423
projectType:aProjectTypeSymbol
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2424
    self assert:(ProjectDefinition projectTypes includes:aProjectTypeSymbol).
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2425
    self projectTypeHolder value:aProjectTypeSymbol
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2426
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2427
    "Modified: / 20-07-2012 / 13:28:25 / cg"
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2428
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2429
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2430
projectTypeHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2431
    <resource: #uiAspect>
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2432
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2433
    projectTypeHolder isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2434
        projectTypeHolder := RadioButtonGroup new.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2435
        projectTypeHolder value:ProjectDefinition guiApplicationType.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2436
    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2437
    ^ projectTypeHolder.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2438
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2439
    "Modified: / 20-07-2012 / 13:30:16 / cg"
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2440
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2441
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2442
selectedApplicationIndexHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2443
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2444
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2445
    selectedApplicationIndexHolder isNil ifTrue:[
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2446
        selectedApplicationIndexHolder := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2447
        selectedApplicationIndexHolder onChangeSend:#selectedApplicationChanged to:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2448
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2449
    ^ selectedApplicationIndexHolder.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2450
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2451
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2452
selectedApplicationsComment
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2453
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2454
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2455
    "automatically generated by UIPainter ..."
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2456
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2457
    "*** the code below creates a default model when invoked."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2458
    "*** (which may not be the one you wanted)"
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2459
    "*** Please change as required and accept it in the browser."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2460
    "*** (and replace this comment by something more useful ;-)"
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2461
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2462
    selectedApplicationsComment isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2463
        selectedApplicationsComment := '' asValue.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2464
"/ 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
  2465
"/       selectedApplicationsComment addDependent:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2466
"/       selectedApplicationsComment onChangeSend:#selectedApplicationsCommentChanged to:self.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2467
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2468
    ^ selectedApplicationsComment.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2469
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2470
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2471
selectedProjectDefinition
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2472
    <resource: #uiAspect>
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2473
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2474
    ^ selectedProjectDefinition.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2475
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2476
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2477
selectedProjectIndexHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2478
    <resource: #uiAspect>
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
    selectedProjectIndexHolder isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2481
        selectedProjectIndexHolder := ValueHolder new.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2482
        selectedProjectIndexHolder onChangeSend:#selectedProjectChanged to:self.
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.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2485
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2486
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2487
selectedProjectsComment
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2488
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2489
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2490
    selectedProjectsComment isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2491
        selectedProjectsComment := '' asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2492
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2493
    ^ selectedProjectsComment.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2494
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2495
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2496
selectedStartupClassIndexHolder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2497
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2498
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2499
    selectedStartupClassIndexHolder isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2500
        selectedStartupClassIndexHolder := ValueHolder new.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2501
        selectedStartupClassIndexHolder onChangeSend:#selectedStartupClassChanged to:self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2502
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2503
    ^ selectedStartupClassIndexHolder.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2504
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2505
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2506
startMakeButtonEnabled
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2507
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2508
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2509
    startMakeButtonEnabled isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2510
        startMakeButtonEnabled := true asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2511
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2512
    ^ startMakeButtonEnabled.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2513
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2514
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2515
stopMakeButtonVisible
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2516
    <resource: #uiAspect>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2517
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2518
    stopMakeButtonVisible isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2519
        stopMakeButtonVisible := false asValue.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2520
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2521
    ^ stopMakeButtonVisible.
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2522
!
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2523
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2524
usedCompilerHolder
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2525
    <resource: #uiAspect>
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
    usedCompilerHolder isNil ifTrue:[
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2528
        usedCompilerHolder := ValueHolder new.
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2529
        usedCompilerHolder value:(LastUsedCompiler ? ProjectBuilder defaultUsedCompiler).
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2530
        usedCompilerHolder onChangeSend:#checkCompilerAvailability to:self.
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2531
    ].
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  2532
    ^ usedCompilerHolder.
2874
cd62528801d5 changed:
Claus Gittinger <cg@exept.de>
parents: 2872
diff changeset
  2533
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2534
    "Modified: / 04-09-2012 / 09:43:20 / cg"
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2535
! !
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2536
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2537
!ProjectBuilderAssistantApplication methodsFor:'initialization & release'!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2538
2687
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2539
fileBrowserInstance
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2540
    "setup the embedded fileBrowser (in the last page)"
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2541
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2542
    |targetDirectory browser|
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2543
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2544
    targetDirectory := projectBuilder packageBuildDirectory.
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
    browser := FileBrowserV2 new.
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2547
    browser onDirectory:targetDirectory.
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2548
    OperatingSystem isMSWINDOWSlike ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2549
        browser filter:'*.exe;*.com'.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2550
    ] ifFalse:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2551
        browser filter:'*'.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2552
    ].
2687
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2553
    ^ browser.
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2554
!
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
  2555
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2556
openOn:aProjectDefinitionClass
2899
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2557
    |type apps startupClass pageToGo|
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2558
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2559
    self allButOpen.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2560
    aProjectDefinitionClass isLibraryDefinition ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2561
        type := ProjectDefinition libraryType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2562
    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2563
        aProjectDefinitionClass isGUIApplication ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2564
            type := ProjectDefinition guiApplicationType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2565
        ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2566
            type := ProjectDefinition nonGuiApplicationType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2567
        ]
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2568
    ].
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2569
    self projectTypeHolder value:type.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2570
    self hideSTXProjects value:false.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2571
    selectedProjectDefinition := aProjectDefinitionClass.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2572
    self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package).
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2573
    self hasProjectSelectedHolder value:true.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2574
2988
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2575
    pageToGo := 2.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2576
    type == ProjectDefinition guiApplicationType ifTrue:[
2988
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2577
        pageToGo := 3.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2578
        (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[
2899
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2579
            self updateListOfStartupClassesInProject.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2580
            selectedStartupClass := startupClass.
2899
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2581
            self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass).
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2582
            pageToGo := 5.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2583
        ]. 
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2584
"/    apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel])
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2585
    ].
2988
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2586
    type == ProjectDefinition nonGuiApplicationType ifTrue:[
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2587
        pageToGo := 4.
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2588
        (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2589
            self updateListOfStartupClassesInProject.
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2590
            selectedStartupClass := startupClass.
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2591
            self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass).
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2592
            pageToGo := 5.
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2593
        ]. 
9e8fd363e247 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2983
diff changeset
  2594
    ].
2899
da83d0544556 changed:
Claus Gittinger <cg@exept.de>
parents: 2897
diff changeset
  2595
    self gotoPage:pageToGo.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2596
    self openWindow.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2597
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2598
    "Created: / 20-07-2012 / 12:34:02 / cg"
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2599
!
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2600
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2601
openOnPackage:aPackageId
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2602
    self allButOpen.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2603
    self projectTypeHolder value:(ProjectDefinition guiApplicationType).
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2604
    self hideSTXProjects value:false.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2605
    self selectedProjectIndexHolder value:(self listOfMatchingPackageIds indexOf:aPackageId).
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2606
    self hasProjectSelectedHolder value:true.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2607
    self gotoPage:2.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2608
    self openWindow.
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2609
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2610
    "Created: / 20-07-2012 / 13:24:38 / cg"
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2611
!
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2612
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2613
postBuildMakeOutputWindow:aView
2917
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2614
    makeOutputWindow := aView.
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2615
    makeOutputWindow lineLimit:10000.
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2616
086fcfdbd182 lcc support
Claus Gittinger <cg@exept.de>
parents: 2915
diff changeset
  2617
    "Modified: / 05-09-2012 / 11:11:45 / cg"
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2618
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2619
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2620
postBuildNewProjectsNameListExtendedComboBox:anExtendedComboBox
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2621
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2622
    |menu|
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2623
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2624
    menu := SubCanvas new.
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2625
    menu client:self spec:#newProjectsNameListSpec builder:nil.
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2626
    anExtendedComboBox closeOnSelect: false.
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2627
    anExtendedComboBox menuWidget:menu.
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2628
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2629
    anExtendedComboBox editor 
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2630
            immediateAccept:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2631
            acceptOnLeave:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2632
            acceptOnLostFocus:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2633
            acceptOnPointerLeave:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2634
            acceptOnReturn:true;
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2635
            acceptOnTab:true.
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2636
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
  2637
    newProjectsNameListExtendedComboBox := anExtendedComboBox.
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2638
!
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2639
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2640
postBuildWarnMessageView:aView
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2641
    aView font:(Label defaultFont).
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2642
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2643
    "Created: / 05-09-2012 / 19:34:29 / cg"
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2644
!
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2645
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2646
postBuildWith:aBuilder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2647
    super postBuildWith:aBuilder.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2648
    self updateListOfMatchingProjects.
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  2649
    self updateListOfNewProjectsName.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2650
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2651
    Smalltalk addDependent:self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2652
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2653
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2654
release
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2655
    Smalltalk removeDependent:self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2656
    super release
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2657
! !
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2658
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2659
!ProjectBuilderAssistantApplication methodsFor:'menu actions'!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2660
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2661
openDocumentation
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2662
   self openHTMLDocument:'tools/misc/TOP.html#PACKAGER'.
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2663
! !
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2664
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2665
!ProjectBuilderAssistantApplication methodsFor:'private'!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2666
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2667
commentFromClass:aClass
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2668
    |docMethod comment indents minIndent maxLineLength|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2669
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2670
    docMethod := aClass class compiledMethodAt:#documentation.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2671
    docMethod notNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2672
        comment := docMethod comment.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2673
        comment := comment asStringCollection 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2674
                        collect:[:line | line withoutTrailingSeparators].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2675
        [comment notEmpty and:[comment first isBlank]] whileTrue:[ comment removeFirst ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2676
        maxLineLength := (comment collect:[:line | line size]) max.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2677
        indents := comment collect:[:line | 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2678
                                        line isEmptyOrNil
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2679
                                            ifTrue:[maxLineLength]
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2680
                                            ifFalse:[ line findFirst:[:ch | ch isSeparator not]]].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2681
        (minIndent := indents min) > 1 ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2682
            comment := comment collect:[:line | line copyFrom:minIndent].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2683
        ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2684
        comment := comment asString.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2685
    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2686
    ^ comment
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2687
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2688
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2689
generatePackageContentsMethods
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2690
    <resource: #uiCallback>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2691
2993
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2692
    selectedProjectDefinition
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2693
        updateContentsMethodsCodeUsingCompiler:SmalltalkCodeGeneratorTool 
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2694
        ignoreOldDefinition:true.
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2695
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2696
"/    Class packageQuerySignal answer:(selectedProjectDefinition package)
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2697
"/    do:[
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2698
"/        selectedProjectDefinition 
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2699
"/            forEachContentsMethodsCodeToCompileDo:[:code :category |
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2700
"/                    SmalltalkCodeGeneratorTool
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2701
"/                        compile:code
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2702
"/                        forClass:selectedProjectDefinition theMetaclass
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2703
"/                        inCategory:category.
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2704
"/                ]
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2705
"/            ignoreOldDefinition:true
23f43abca7d0 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2990
diff changeset
  2706
"/    ].
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2707
    self updateListOfClassesInProject
2832
c1e7c5d29577 CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents: 2825
diff changeset
  2708
c1e7c5d29577 CodeGeneratorTool->SmalltalkCodeGeneratorTool
Claus Gittinger <cg@exept.de>
parents: 2825
diff changeset
  2709
    "Modified: / 31-01-2011 / 18:29:44 / cg"
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2710
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2711
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2712
hasApplicationSelected
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2713
    ^ self selectedApplicationIndexHolder value notNil
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2714
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2715
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2716
hasBuildDirectorySpecified
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2717
    ^ self buildDirectoryHolder value notEmptyOrNil
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2718
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2719
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2720
hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2721
    ^ projectBuilder notNil
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2722
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2723
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2724
hasProjectSelected
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2725
    ^ self selectedProjectIndexHolder value 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
hasStartupClassSelected
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2729
    ^ self selectedStartupClassIndexHolder value notNil
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2730
! !
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2731
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2732
!ProjectBuilderAssistantApplication methodsFor:'queries'!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2733
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2734
canEnterApplicationSelection
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2735
    self hasProjectSelected ifFalse:[
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2736
        self infoHolder value:'no project selected'. 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2737
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2738
    ].
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2739
    ^ true
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2740
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2741
    "Modified: / 23-08-2011 / 12:12:35 / cg"
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2742
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2743
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2744
canEnterBuild
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2745
    self hasBuildDirectorySpecified ifFalse:[
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2746
        self infoHolder value:'no build directory specified'. 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2747
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2748
    ].
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2749
    ^ true
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2750
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2751
    "Modified: / 23-08-2011 / 12:13:29 / cg"
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2752
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2753
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2754
canEnterContentsSelection
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2755
    |prj cls impl mthd|
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2756
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2757
    self hasProjectSelected ifFalse:[
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2758
        self infoHolder value:'no project selected'. 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2759
        ^ false
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 hasApplicationSelected ifFalse:[^ false]." 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2762
    (self projectTypeIsLibrary or:[self hasStartupClassSelected]) ifFalse:[
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  2763
        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
  2764
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2765
    ].
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2766
    prj := self selectedProjectDefinition.
2975
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2767
    prj isLibraryDefinition ifFalse:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2768
        ([prj startupClassName] on:Error do:nil) notNil ifFalse:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2769
            self infoHolder value:'Must have a startup class'. 
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2770
            ^ false
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2771
        ].
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2772
        ([prj startupSelector] 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 selector'. 
2864
fcdea80a431e changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents: 2863
diff changeset
  2774
            ^ false
fcdea80a431e changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents: 2863
diff changeset
  2775
        ].
2975
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2776
        (prj class compiledMethodAt:#startupSelector) isNil ifTrue:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2777
            self infoHolder value:('Inherited startup selector is "%1"' bindWith:prj startupSelector). 
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2778
            impl := prj class whichClassImplements:#startupSelector.
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2779
            impl isNil ifTrue:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2780
                self infoHolder value:('Inherited startup selector (%1) not implemented in %2' 
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2781
                                        bindWith:prj startupSelector
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2782
                                        with:prj class name). 
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2783
                ^ false
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2784
            ].
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2785
        ].
2975
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2786
        (mthd := prj class compiledMethodAt:#startupClassName) package == prj package ifFalse:[
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2787
            mthd package == PackageId noProjectID ifFalse:[
2975
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2788
                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
  2789
                    bindWith:prj package
2975
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2790
                    with:(prj class compiledMethodAt:#startupClassName) package
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2791
                    with:prj class name). 
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2792
                ^ false
2975
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2793
            ].
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2794
        ].
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2795
        (mthd := prj class compiledMethodAt:#startupSelector) notNil ifTrue:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2796
            mthd package == prj package ifFalse:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2797
                mthd package == PackageId noProjectID ifFalse:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2798
                    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
  2799
                        bindWith:prj package
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2800
                        with:mthd package 
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2801
                        with:prj class name). 
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2802
                    ^ false
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2803
                ]
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2804
            ].
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2805
        ].
2975
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2806
        cls := Smalltalk classNamed:prj startupClassName.
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2807
        cls isNil ifTrue:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2808
            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
  2809
            ^ false.
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2810
        ].
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2811
        (cls implements:(prj startupSelector)) ifFalse:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2812
            (cls respondsTo:(prj startupSelector)) ifFalse:[
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2813
                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
  2814
                        bindWith:cls name
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2815
                        with:prj startupSelector). 
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2816
                ^ false
023690659ed7 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2973
diff changeset
  2817
            ].
2865
2600408a8005 changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2818
        ].
2864
fcdea80a431e changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents: 2863
diff changeset
  2819
    ].
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  2820
    self infoHolder value:nil.
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2821
    ^ true.
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2822
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  2823
    "Modified: / 04-09-2012 / 10:29:43 / cg"
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2824
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  2825
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2826
canEnterDeploy
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2827
    self hasProjectBuilder ifFalse:[
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  2828
        self infoHolder value:'Nothing to deploy (please build first)'. 
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2829
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2830
    ].
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  2831
    self infoHolder value:nil. 
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2832
    ^ true
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2833
2915
e0da59b7e3c9 changed:
Claus Gittinger <cg@exept.de>
parents: 2913
diff changeset
  2834
    "Modified: / 04-09-2012 / 10:30:18 / cg"
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2835
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2836
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2837
canEnterPrerequisitesSelection
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2838
    |prj cls impl|
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2839
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2840
    self hasProjectSelected ifFalse:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2841
        self infoHolder value:'no project selected'. 
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2842
        ^ false
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2843
    ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2844
    ^ true.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2845
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2846
    "Created: / 19-01-2012 / 15:37:30 / cg"
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2847
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2848
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2849
canEnterStartupClassSelection
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2850
    self hasProjectSelected ifFalse:[
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2851
        self infoHolder value:'no project selected'. 
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2852
        ^ false
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2853
    ].
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2854
    ^ self hasProjectSelected "and:[ self hasApplicationSelected ]"
2857
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2855
6fcc59a87afb changed:5 methods
Claus Gittinger <cg@exept.de>
parents: 2851
diff changeset
  2856
    "Modified: / 23-08-2011 / 12:16:35 / cg"
2696
fm
parents: 2695
diff changeset
  2857
!
fm
parents: 2695
diff changeset
  2858
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2859
isUnixOS
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2860
    ^ OperatingSystem isUNIXlike
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2861
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2862
2720
99b643eb4ba9 added: #isWindowsOS
Claus Gittinger <cg@exept.de>
parents: 2719
diff changeset
  2863
isWindowsOS
99b643eb4ba9 added: #isWindowsOS
Claus Gittinger <cg@exept.de>
parents: 2719
diff changeset
  2864
    ^ OperatingSystem isMSWINDOWSlike
99b643eb4ba9 added: #isWindowsOS
Claus Gittinger <cg@exept.de>
parents: 2719
diff changeset
  2865
!
99b643eb4ba9 added: #isWindowsOS
Claus Gittinger <cg@exept.de>
parents: 2719
diff changeset
  2866
2696
fm
parents: 2695
diff changeset
  2867
projectTypeIsGuiApplication
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2868
    ^ self projectTypeHolder value == ProjectDefinition guiApplicationType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2869
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2870
    "Modified: / 20-07-2012 / 13:29:59 / cg"
2696
fm
parents: 2695
diff changeset
  2871
!
fm
parents: 2695
diff changeset
  2872
fm
parents: 2695
diff changeset
  2873
projectTypeIsLibrary
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2874
    ^ self projectTypeHolder value == ProjectDefinition libraryType
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2875
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  2876
    "Modified: / 20-07-2012 / 13:29:24 / cg"
2696
fm
parents: 2695
diff changeset
  2877
!
fm
parents: 2695
diff changeset
  2878
fm
parents: 2695
diff changeset
  2879
projectTypeIsNotLibrary
fm
parents: 2695
diff changeset
  2880
    ^ self projectTypeIsLibrary not
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2881
! !
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  2882
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2883
!ProjectBuilderAssistantApplication methodsFor:'specs'!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2884
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2885
assistantSpec
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
  2886
    ^ self class assistantSpec
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2887
! !
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2888
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2889
!ProjectBuilderAssistantApplication methodsFor:'update'!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  2890
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2891
checkCompilerAvailability
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2892
    |cmd suite warnMsg1 warnMsg2 sep usedCompiler|
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2893
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2894
    cmd := 'cc'.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2895
    warnMsg1 := warnMsg2 := ''.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2896
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2897
    usedCompiler := self usedCompilerHolder value.
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2898
    usedCompiler = 'bcc' ifTrue:[
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2899
        cmd := 'bcc32'.
3005
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2900
    ] ifFalse:[
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2901
        usedCompiler = 'vc' ifTrue:[
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2902
            cmd := 'cl'.
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2903
            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
  2904
        ] ifFalse:[
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2905
            usedCompiler = 'lcc' ifTrue:[
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2906
                cmd := 'lcc'.
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2907
                warnMsg1 := 'The LCC C-compiler suite is not officially supported.'.
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 = 'tcc' ifTrue:[
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2910
                    cmd := 'tcc'.
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2911
                    OperatingSystem isMSWINDOWSlike ifTrue:[
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2912
                        warnMsg1 := 'The Tiny C-compiler suite is not yet supported (linkage).'.
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2913
                    ].
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2914
                ] ifFalse:[
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2915
                    usedCompiler = 'gcc' ifTrue:[
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2916
                        cmd := 'gcc'.
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2917
                    ] ifFalse:[
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2918
                        cmd := usedCompiler.
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2919
                    ].
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2920
                ]
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2921
            ]
9c5e0717155e class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 3004
diff changeset
  2922
        ]
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2923
    ].
2919
Claus Gittinger <cg@exept.de>
parents: 2917
diff changeset
  2924
2922
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
  2925
    suite := ProjectBuilder suiteNameOfCompiler:(self usedCompilerHolder value).
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2926
    self nameOfUsedCompilerSuiteHolder value:suite.
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2927
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2928
    (OperatingSystem canExecuteCommand:cmd) ifFalse:[
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  2929
        warnMsg2 :=
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2930
'The "%1"-command seems to be not in your path.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2931
Please ensure that you installed the 
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2932
"%2" compiler suite correctly.
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2933
(However, the makefiles might know where to find the compiler)' bindWith:cmd with:suite.
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2934
    ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2935
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2936
    (warnMsg1 notEmpty or:[warnMsg2 notEmpty]) ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2937
        sep := ''.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2938
        (warnMsg2 notEmpty) ifTrue:[ sep := '\\' withCRs ].
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
        self compilerWarnMessageHolder value:('Warning:
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2941
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2942
',warnMsg1,sep,warnMsg2).
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2943
        self compilerWarnMessageVisibleHolder value:true.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2944
    ] ifFalse:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2945
        self compilerWarnMessageVisibleHolder value:false
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2946
    ].
2910
8024f7e8f9f4 class definition
Claus Gittinger <cg@exept.de>
parents: 2907
diff changeset
  2947
2922
995b64590960 class definition
Claus Gittinger <cg@exept.de>
parents: 2919
diff changeset
  2948
    "Modified: / 06-09-2012 / 15:58:58 / cg"
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2949
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  2950
2926
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2951
delayedUpdate:something with:anArgument from:changedObject
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2952
    changedObject == Smalltalk ifTrue:[
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2953
        (something == #newClass
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2954
        or:[something == #classRemove
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2955
        or:[something == #projectOrganization]]) ifTrue:[
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2956
            self updateListOfMatchingProjects.
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2957
            self updateListOfNewProjectsName.
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2958
            ^ self.
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2959
        ].
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2960
        ^ self.
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2961
    ].
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2962
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2963
    "Created: / 10-09-2012 / 14:07:47 / cg"
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2964
!
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  2965
2686
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2966
enterContentsSpecification
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2967
    |toAdd|
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2968
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2969
    self updateListOfClassesInProject.
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2970
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2971
    toAdd := OrderedCollection new.
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2972
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2973
    "/ 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
  2974
    selectedApplication notNil ifTrue:[
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2975
        (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
  2976
            toAdd add:selectedApplication.
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
    ].
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2979
    selectedStartupClass 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:selectedStartupClass 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:selectedStartupClass.
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
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2985
    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
  2986
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
  2987
    self updateListOfClassesInProject.
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
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2990
enterPrerequisitesSpecification
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2991
    |toAdd|
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2992
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2993
    self updateListOfPrerequisitesInProject.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2994
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2995
"/    toAdd := OrderedCollection new.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2996
"/
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2997
"/    "/ ensure that startup & app-class are in the list
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2998
"/    selectedApplication notNil ifTrue:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  2999
"/        (selectedProjectDefinition classNames includes:selectedApplication name) ifFalse:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3000
"/            toAdd add:selectedApplication.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3001
"/        ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3002
"/    ].
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3003
"/    selectedStartupClass notNil ifTrue:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3004
"/        (selectedProjectDefinition classNames includes:selectedStartupClass name) ifFalse:[
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3005
"/            toAdd add:selectedStartupClass.
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
"/
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3009
"/    selectedProjectDefinition includeClasses:toAdd usingCompiler:nil.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3010
"/
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3011
"/    self updateListOfClassesInProject.
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3012
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3013
    "Created: / 19-01-2012 / 15:36:47 / cg"
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3014
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3015
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3016
fetchAttributesFromProjectDefinition
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3017
    self fetchSelectedProject.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3018
    selectedProjectDefinition notNil ifTrue:[
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3019
        self productNameHolder value: selectedProjectDefinition productName.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3020
        self companyNameHolder value: selectedProjectDefinition companyName.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3021
    ].
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3022
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3023
    "Created: / 04-09-2012 / 09:50:46 / cg"
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3024
!
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3025
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3026
rememberMakeOutputsContents
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3027
    makeOutputHolder value:(makeOutputWindow contents)
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3028
!
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3029
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3030
rememberProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3031
    self assert:selectedProjectDefinition notNil.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3032
    Class withoutUpdatingChangesDo:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3033
        self productNameHolder value ~= selectedProjectDefinition productName ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3034
            selectedProjectDefinition class compile:(selectedProjectDefinition 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3035
                        productName_codeFor:(self productNameHolder value)).
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3036
        ].
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3037
        self companyNameHolder value ~= selectedProjectDefinition companyName ifTrue:[
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3038
            selectedProjectDefinition class compile:(selectedProjectDefinition 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3039
                        companyName_codeFor:(self companyNameHolder value)).
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3040
        ]
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
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3043
2913
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3044
rememberUsedCompiler
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3045
    LastUsedCompiler := self usedCompilerHolder value.
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3046
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3047
    "Created: / 04-09-2012 / 09:45:42 / cg"
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3048
!
94e5ae8e15b2 class definition
Claus Gittinger <cg@exept.de>
parents: 2910
diff changeset
  3049
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3050
restoreMakeOutputsContents
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3051
    makeOutputWindow contents:makeOutputHolder value
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  3052
!
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  3053
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3054
update:something with:anArgument from:changedObject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3055
    changedObject == Smalltalk ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3056
        (something == #newClass
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3057
        or:[something == #classRemove
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3058
        or:[something == #projectOrganization]]) ifTrue:[
2926
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3059
            self enqueueDelayedUpdate:something with:anArgument from:changedObject.
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3060
            ^ self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3061
        ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3062
        ^ self.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3063
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3064
    super update:something with:anArgument from:changedObject
2926
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3065
c18d456bb5b3 delayedUpdate
Claus Gittinger <cg@exept.de>
parents: 2924
diff changeset
  3066
    "Modified: / 10-09-2012 / 14:08:17 / cg"
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3067
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3068
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3069
updateApplicationComment
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3070
    |comment|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3071
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3072
    self selectedApplicationIndexHolder value notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3073
        comment := self commentFromClass:selectedApplication.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3074
        comment isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3075
            comment := 'Application has no comment' allItalic colorizeAllWith:Color lightGrey.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3076
        ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3077
    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3078
        comment := 'Please select an Application' allItalic colorizeAllWith:Color lightGrey.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3079
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3080
    self selectedApplicationsComment value:comment.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3081
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3082
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3083
updateComment
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3084
    |comment|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3085
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3086
    self selectedProjectIndexHolder value notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3087
        comment := self commentFromClass:selectedProjectDefinition.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3088
        comment isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3089
            comment := 'Project has no comment' allItalic colorizeAllWith:Color lightGrey.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3090
        ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3091
    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3092
        comment := 'Please select a Project' allItalic colorizeAllWith:Color lightGrey.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3093
    ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3094
    self selectedProjectsComment value:comment.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3095
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3096
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3097
updateListOfApplicationsInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3098
    |oldList applicationClasses package appClass appClassIndex|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3099
2649
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  3100
    appClassIndex := nil.
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  3101
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3102
    selectedProjectDefinition isNil ifTrue:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3103
        applicationClasses := #()
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3104
    ] ifFalse:[
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3105
        package := selectedProjectDefinition package.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3106
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3107
        applicationClasses := Smalltalk allClasses
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3108
                                    select:[:cls |
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3109
                                        ((cls isSubclassOf:ApplicationModel)
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3110
                                        and:[ self hideOtherApplicationClasses value not
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3111
                                              or:[ cls package = package ]])
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3112
                                    ].
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3113
        applicationClasses := applicationClasses asOrderedCollection.
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3114
        applicationClasses sort:[:a :b | a name < b name].
2649
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  3115
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3116
"/        startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ].
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3117
"/        startUpClassName notNil ifTrue:[
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3118
"/            startUpClass := Smalltalk classNamed:startUpClassName.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3119
"/            startUpClass notNil ifTrue:[
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3120
"/                appClassIndex := applicationClasses indexOf:startUpClass.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3121
"/                appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3122
"/            ].
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3123
"/        ].
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3124
    ].
2649
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  3125
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3126
    oldList := self listOfApplicationsInProject value.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3127
    oldList = applicationClasses ifFalse:[
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3128
        appClass := selectedApplication.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3129
        appClassIndex := applicationClasses indexOf:appClass.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3130
        appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3131
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3132
        self listOfApplicationsInProject value:applicationClasses.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3133
        self selectedApplicationIndexHolder value:appClassIndex.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
  3134
    ].
3002
3c8db6ae6f30 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  3135
3c8db6ae6f30 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  3136
    "/ auto select first application
3c8db6ae6f30 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  3137
    applicationClasses size == 1 ifTrue:[
3c8db6ae6f30 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  3138
        self selectedApplicationIndexHolder value:1.
3c8db6ae6f30 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  3139
    ].
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3140
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3141
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3142
updateListOfClassesInProject
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3143
    self listOfClassesInProject value:(selectedProjectDefinition classNames).
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3144
!
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3145
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3146
updateListOfMatchingProjects
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3147
    |query matching projectType idx|
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3148
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3149
    projectType := self projectType.
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3150
    projectType = ProjectDefinition libraryType ifTrue:[
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3151
        query := #isLibraryDefinition
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3152
    ] ifFalse:[
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3153
        projectType = ProjectDefinition guiApplicationType ifTrue:[
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3154
            query := #isGUIApplication
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3155
        ] ifFalse:[
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3156
            projectType = ProjectDefinition nonGuiApplicationType ifTrue:[
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3157
                query := #isConsoleApplication
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3158
            ] ifFalse:[
2962
5eee09525324 halts changed to breakpoint
Claus Gittinger <cg@exept.de>
parents: 2960
diff changeset
  3159
                self halt:'oops - unknown projectType'.
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3160
                projectType := ProjectDefinition guiApplicationType.
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3161
            ].
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3162
        ].
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3163
    ].
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3164
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3165
    Class flushSubclassInfo.
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3166
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3167
    matching := ProjectDefinition allSubclasses
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3168
                    select:[:defClass |
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3169
                        |match|
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3170
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3171
                        match := false.
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3172
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3173
                        defClass isAbstract ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3174
                            (self hideSTXProjects value not
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3175
                            or:[ defClass package asPackageId module ~= 'stx' ])
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3176
                            ifTrue:[
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3177
                                match := defClass perform:query
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3178
                            ].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3179
                        ].
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3180
                        match
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3181
                   ]. 
2719
f85a3fdfeaac *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2709
diff changeset
  3182
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3183
    matching sort:[:a :b | a name < b name].
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3184
    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
  3185
    self listOfMatchingPackageIds value:(matching collect:[:def | def package]).
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3186
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3187
    idx := matching indexOf:selectedProjectDefinition.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3188
    idx == 0 ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3189
        self selectedProjectIndexHolder value:nil.
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3190
    ] ifFalse:[
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  3191
        self selectedProjectIndexHolder value:idx.
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3192
    ].
2863
eb998d836550 changed: #updateListOfMatchingProjects
Claus Gittinger <cg@exept.de>
parents: 2857
diff changeset
  3193
2897
Claus Gittinger <cg@exept.de>
parents: 2874
diff changeset
  3194
    "Modified: / 20-07-2012 / 15:04:15 / cg"
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3195
!
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3196
2907
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3197
updateListOfMatchingProjectsAndProjectIDs
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3198
    self updateListOfMatchingProjects.
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3199
    self updateListOfNewProjectsName.
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3200
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3201
    "Created: / 20-08-2012 / 19:33:12 / cg"
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3202
!
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3203
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3204
updateListOfNewProjectsName
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3205
    |loadedProjectIDsWithoutProjectDefinition|
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3206
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3207
    loadedProjectIDsWithoutProjectDefinition := Smalltalk allLoadedProjectIDs 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3208
                                                            select:[:eachProjectID | 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3209
                                                                eachProjectID ~= PackageId noProjectID 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3210
                                                                and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ].
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3211
                                                            ].
2907
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3212
    loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection.
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3213
    loadedProjectIDsWithoutProjectDefinition addFirst:(OperatingSystem getLoginName,':','demos','/','demo1').
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3214
    self listOfNewProjectsName value:loadedProjectIDsWithoutProjectDefinition.
2907
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3215
c842e3e6f526 added: #updateListOfMatchingProjectsAndProjectIDs
Claus Gittinger <cg@exept.de>
parents: 2906
diff changeset
  3216
    "Modified: / 20-08-2012 / 19:31:35 / cg"
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3217
!
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  3218
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3219
updateListOfPrerequisitesInProject
2965
9725f13947de class: Tools::ProjectBuilderAssistantApplication
Stefan Vogel <sv@exept.de>
parents: 2962
diff changeset
  3220
    self listOfPrerequisitesInProject value:(selectedProjectDefinition effectivePreRequisites).
2872
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3221
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3222
    "Created: / 19-01-2012 / 15:39:15 / cg"
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3223
!
78e56e7f9638 prerequisites
Claus Gittinger <cg@exept.de>
parents: 2865
diff changeset
  3224
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3225
updateListOfStartupClassesInProject
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3226
    |startupClasses package startUpClassName startUpClass startupClassIndex|
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3227
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3228
    startupClassIndex := nil.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3229
    self selectedStartupClassIndexHolder value:nil.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3230
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3231
    selectedProjectDefinition isNil ifTrue:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3232
        startupClasses := #()
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3233
    ] ifFalse:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3234
        package := selectedProjectDefinition package.
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
        startupClasses := Smalltalk allClasses
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3237
                                    select:[:cls |
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3238
                                        ((cls includesBehavior:StandaloneStartup)
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3239
                                        and:[ self hideOtherStartupClasses value not
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
  3240
                                              or:[ cls package = package ]])
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  3241
                                        or:[ cls == Smalltalk
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  3242
                                             and:[ self hideOtherStartupClasses value not ] ]
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3243
                                    ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3244
        startupClasses := startupClasses asOrderedCollection.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3245
        startupClasses sort:[:a :b | a name < b name].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3246
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3247
        startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3248
        startUpClassName notNil ifTrue:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3249
            startUpClass := Smalltalk classNamed:startUpClassName.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3250
            startUpClass notNil ifTrue:[
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3251
                startupClassIndex := startupClasses indexOf:startUpClass.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3252
                startupClassIndex == 0 ifTrue:[ startupClassIndex := nil ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3253
            ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3254
        ].
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3255
    ].
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  3256
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3257
    self listOfStartupClassesInProject value:startupClasses.
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
  3258
    self selectedStartupClassIndexHolder value:startupClassIndex.
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3259
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3260
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3261
updateProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3262
    self assert:selectedProjectDefinition notNil.
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3263
    self productNameHolder value:(selectedProjectDefinition productName).
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3264
    self companyNameHolder value:(selectedProjectDefinition companyName).
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3265
! !
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3266
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3267
!ProjectBuilderAssistantApplication class methodsFor:'documentation'!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3268
2864
fcdea80a431e changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents: 2863
diff changeset
  3269
version
fcdea80a431e changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents: 2863
diff changeset
  3270
    ^ '$Header$'
fcdea80a431e changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents: 2863
diff changeset
  3271
!
fcdea80a431e changed: #canEnterContentsSelection
Claus Gittinger <cg@exept.de>
parents: 2863
diff changeset
  3272
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3273
version_CVS
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3274
    ^ '$Header$'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3275
! !
2959
ab140a3e5eb6 class: Tools::ProjectBuilderAssistantApplication
Claus Gittinger <cg@exept.de>
parents: 2930
diff changeset
  3276