Tools__ProjectBuilderAssistantApplication.st
author Claus Gittinger <cg@exept.de>
Mon, 16 Nov 2009 14:20:20 +0100
changeset 2724 4bd4ad9083fb
parent 2721 5097b97d4c24
child 2725 168192759cae
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libtool2' }"
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ NameSpace: Tools }"
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
AssistantApplication subclass:#ProjectBuilderAssistantApplication
2687
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
     6
	instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
     7
		selectedProjectIndexHolder selectedProjectDefinition
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
     8
		listOfMatchingProjects listOfMatchingPackageIds
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
     9
		selectedProjectsComment hasProjectSelectedHolder newProjectsName
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    10
		hideSTXProjects hideOtherApplicationClasses
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    11
		hideOtherStartupClasses startMakeButtonEnabled
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    12
		stopMakeButtonVisible makeOutputHolder newApplicationsName
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    13
		listOfApplicationsInProject selectedApplicationIndexHolder
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    14
		selectedApplication hasApplicationSelectedHolder
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    15
		listOfStartupClassesInProject selectedStartupClassIndexHolder
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    16
		selectedStartupClass hasStartupClassSelectedHolder
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    17
		selectedApplicationsComment buildDirectoryHolder makeProcess
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    18
		listOfClassesInProject makeOutputWindow projectBuilder
2705
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
    19
		newStartupClassName usedCompilerHolder listOfNewProjectsName
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
    20
		newProjectsNameListExtendedComboBox productNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
    21
		companyNameHolder compilerWarnMessageHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
    22
		compilerWarnMessageVisibleHolder'
2687
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    23
	classVariableNames:''
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    24
	poolDictionaries:''
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    25
	category:'System-Support-Projects'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    28
!ProjectBuilderAssistantApplication class methodsFor:'documentation'!
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    29
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    30
documentation
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    31
"
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    32
    a user friendly interface to the build process.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    33
    Simply wraps up existing tools like the CodeGeneratorTool, the browsers
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    34
    and the ProjetBuilder
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    35
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    36
    [see also:]
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    37
        CodeGeneratorTool
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    38
        ProjectBuilder
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    39
        ProjectDefinition
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    40
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    41
    [author:]
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    42
        Claus Gittinger
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    43
"
2721
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    44
!
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    45
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    46
help
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    47
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    48
"/    Packager - A Standalone-Executable Builder and Packager
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    49
"/    This assistant-application allows for standalone applications to be built very easily. It will generate all required classes, files, start the compilation process, generate a self-installable executable with a few mouse clicks. A simple demo application like the famous "Hello World" can be generated in a few minutes.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    50
"/    Prerequisites
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    51
"/    Windows Users:
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    52
"/    Please install either the "Borland Free Commandline Compiler Tools (bcc32)" or the "Microsoft Visual-C++" package (also free). In addition, the "NullSoft NSIS-Installer Package" is required.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    53
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    54
"/    Due to limitations and bugs in the Visual-C++ compiler (limit on the size of string-constants), some Smalltalk code is still not compilable (classes which contain image-resource methods for big images). Although microsoft is doing their best (a relative measure) to make things better (they increase the string-limit with every new release), they still seem to be undable to figure out how ti use malloc for string-data). We are patiently waiting for a real fix and still using bcc in the meanwhile. Therefore, we still recommend using the borland compiler suite. Please install it at its standard location ("C:\Borland") as our makefiles might still contain hard-coded pathes (yes, we are ashamed about this).
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    55
"/    Unix Users:
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    56
"/    You should already have the gcc compile suite (including all required header files) installed and ready to use. For a lack of time on our side, there is currently no self-installer support for Unix. The packager will generate a zipped tar file, which must be deployed and unpacked for use. This may change in the near future.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    57
"/    Packages, Projects, PackageIDs and ProjectDefinitions
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    58
"/    Smalltalk basically uses two objects for packaging:
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    59
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    60
"/        * PackageIDs (also called ProjectID's occasionally)
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    61
"/        * ProjectDefinitions 
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    62
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    63
"/    Older ST/X versions used instances of a Project class - this is now obsolete and removed from the system (although there are still some minor uses of it, which might remain there for backward compatibility for some time, as some customers have built their own packaging scheme around it).
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    64
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    65
"/    PackageIDs
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    66
"/    These are simple symbols and are attached to classes and methods. If a method has a packageID different from its class, it is called an extension method.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    67
"/    PackageIDs must have a certain fixed format: they always contain exactly two parts, which are separated by a colon character: the module and the directory part. The module is used as main-selector on where and how the source code repository is accessed. The directory is a path below that repository. If checked out into the local filesystem, the module defines the top-level directory. Thus, if a packageID is "stx:libbasic", the corresponding sources will be found in the repository associated to the "stx" module, under the directory "libbasic". In the local file system, it will be found under "stx/libbasic". As another example, if the packageID is "exept:expecco/plugins/foo", the repository is whichever is associated with the "exept" module, and the subdirectory is "expecco/plugins/foo". The local path to the sourcefiles would be "exept/expecco/plugins/foo".
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    68
"/    Please notice that it does make sense to associate different repositories to different modules: for example, you could setup the sourceCodeManager to use CVS access to the exept repository for everything under the "stx" module, and at the same time, use a local SVN repository for everything under the "myCompany" module.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    69
"/    ProjectDefinitions
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    70
"/    These describe the contents of a project, such as the classes to include, the set of extension methods, any additional compilation information. ProjectDefinitions come in 3 flavours:
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    71
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    72
"/        * GUI Application Definition
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    73
"/        * non-GUI Application Definition
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    74
"/        * ClassLibrary Definition 
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    75
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    76
"/    ProjectDefinitions are stored and managed as class-instances, located as subclasses of one of ApplicationDefinition or LibraryDefinition. As classes, they are themself managed, compiled and packaged as part of the project (and also have the same PackageID as their components). They are also treated like any other class w.r.t. source code management.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    77
"/    Packaging
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    78
"/    All classes and extension methods belonging to a single package are supposed to be loaded (and possibly unloaded) together. They are also usually deployed inside a single dynamic link library ("dll", for short). In the Unix world, these are called "shared object" or "so". Finally, they are stored in a common directory both on the local file system and in a source code repository (CVS, SVN, etc.).
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    79
"/    Structure of a Project
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    80
"/    The artefacts as manipulated by the packager are:
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    81
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    82
"/        * the ProjectDefinition class
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    83
"/          This defines the type of application (GUI / non-GUI), its contents (i.e. the set of classes to be included in the binary itself and the set of library-dll's to be included in the deployed package), and some other metadata, such as icon, title etc.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    84
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    85
"/        * the ApplicationModel class
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    86
"/          This defines the GUI, and is typically created using the UI-Painter.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    87
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    88
"/        * the Startup class
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    89
"/          This is the first class which gets control when the executable is started; it can analyze the command line arguments, read patches or updates, start background ptocesses, and will eventually open the applications GUI. 
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    90
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    91
"/    Build Procedure
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    92
"/    All of the three components above can be generated by the packager to provide an initial framework for further work.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    93
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    94
"/    After the definition of those classes, all required files are stored in a temporary build directory. This means that the above classes are filed out, and make- and other support files are generated.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    95
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    96
"/    Finally, the actual build process is started. This requires an external C-compiler. Under windows, both Borland-C (free download available via the internet) and Microsoft's Visual-C++ (also available for free) can be used.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    97
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    98
"/    A self-installing executable is built using the NullSoft NSIS package. This is also required to be installed before the packager is started.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    99
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
   100
"/    After the build, all required files are packaged in a single install-file. This is called "MyApplicationSetup.exe" and found in the project-specific subdirectory of the build directory. For deployment, this single file has to be delivered to a customer and executed there.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
   101
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
   102
"/    Summary: It has NEVER been easier to create a GUI application. 
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
   103
! !
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   105
!ProjectBuilderAssistantApplication class methodsFor:'assistant pages spec'!
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   106
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   107
assistantSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   108
    ^ #(Array
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   109
        ( AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   110
            pageTitle: 'Project Type Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   111
            windowSpecSelector: page1_projectTypeSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   112
            enterCallbackSelector: updateListOfMatchingProjects
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   113
            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
   114
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   115
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   116
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   117
            pageTitle: 'ProjectDefinition Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   118
            windowSpecSelector: page2_projectSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   119
            enterCallbackSelector: updateListOfMatchingProjects
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   120
            infoText: 'Choose an existing project definition or create a new one.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   121
                       These are subclasses of <I>ProjectDefinition</I> and define the
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   122
                       type and contents of a project.'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   123
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   124
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   125
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   126
            pageTitle: 'Startup Application Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   127
            windowSpecSelector: page3_applicationSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   128
            isEnabledQuerySelector: #projectTypeIsGuiApplication
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   129
            canEnterQuerySelector: #canEnterApplicationSelection
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   130
            enterCallbackSelector: updateListOfApplicationsInProject
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   131
            infoText: 'Choose an existing application or create a new one.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   132
                       These are subclasses of <I>ApplicationModel</I> and define
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   133
                       the GUI and control flow inside the application.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   134
                       Can also be left blank if the startup class does it all (stx build).'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   135
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   136
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   137
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   138
            pageTitle: 'Startup Class Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   139
            windowSpecSelector: page4_startupClassSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   140
            isEnabledQuerySelector: #projectTypeIsNotLibrary
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   141
            canEnterQuerySelector: #canEnterStartupClassSelection
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   142
            enterCallbackSelector: updateListOfStartupClassesInProject
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   143
            infoText: 'Choose an existing startup-class or create a new one.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   144
                       These are subclasses of <I>StandaloneStartup</I> and 
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   145
                       start the application. Command line arguments can be
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   146
                       interpreted there.'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   147
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   148
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   149
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   150
            pageTitle: 'Specify Contents'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   151
            windowSpecSelector: page5_specifyIncludedClasses
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   152
            enterCallbackSelector: enterContentsSpecification
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   153
            canEnterQuerySelector: #canEnterContentsSelection
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   154
            infoText: 'Define which (other) classes are to be included.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   155
                       Press "<I>Scan</I>" to include all classes of the package;
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   156
                       browse to edit the contents manually.'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   157
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   158
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   159
        (AssistantPageSpec
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   160
            pageTitle: 'Specify Project Attributes'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   161
            windowSpecSelector: page6a_specifyProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   162
            infoText: 'Define additional attributes.'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   163
            enterCallbackSelector: updateProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   164
            leaveCallbackSelector: #rememberProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   165
        )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   166
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   167
        (AssistantPageSpec
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   168
            pageTitle: 'Specify Build Directory'
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   169
            windowSpecSelector: page6b_specifyBuildDirectorySpec
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   170
            infoText: 'Define where the build-process is to be performed.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   171
                       All generated files are created below that directory.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   172
                       After deployment, the build directory is no longer needed
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   173
                       (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
   174
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   175
            enterCallbackSelector: #checkCompilerAvailability
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   176
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   177
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   178
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   179
            pageTitle: 'Build'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   180
            windowSpecSelector: page7_buildSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   181
            canEnterQuerySelector: #canEnterBuild
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   182
            enterCallbackSelector: #restoreMakeOutputsContents
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   183
            leaveCallbackSelector: #rememberMakeOutputsContents
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   184
            infoText: 'Start the build-process. This will run make/bcc to compile
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   185
                       all required classes and nsis to generate a self-installable
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   186
                       executable. You must have the borland-cc and NullSoft NSIS
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   187
                       packages installed for this to work.'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   188
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   189
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   190
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   191
            pageTitle: 'Deploy'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   192
            windowSpecSelector: page8_deploySpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   193
            canEnterQuerySelector: #canEnterDeploy
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   194
            infoText: 'Find the installer to be deployed (or test-run the binary).
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   195
                       You can open a WindowsExplorer there to copy the files for
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   196
                       deployment. After that, the build directory is no longer needed
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   197
                       (but you can keep it for a faster compile the next time).'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   198
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   199
    ) decodeAsLiteralArray.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   200
! !
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   201
2670
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   202
!ProjectBuilderAssistantApplication class methodsFor:'defaults'!
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   203
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   204
defaultIcon
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   205
    ^ ToolbarIconLibrary projectBuilderIcon
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   206
!
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   207
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   208
windowLabelTemplate
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   209
    ^ 'ST/X Packager: %1'
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   210
! !
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   211
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   212
!ProjectBuilderAssistantApplication class methodsFor:'help'!
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   213
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   214
flyByHelpSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   215
    <resource: #help>
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   216
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   217
    ^ super flyByHelpSpec addPairsFrom:#(
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   218
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   219
#'projectType'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   220
'Choose the type of Project you are about to deploy.'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   221
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   222
#existingProjects
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   223
'Projects with an existing ProjectDefinition of the chosen type (above).'
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   224
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   225
#browseSelectedProject
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   226
'Open a SystemBrowser on the selected Project.'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   227
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   228
#hideSTXBasePackages
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   229
'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
   230
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   231
#'listOfNewProjectsName'
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   232
'PackageID (module:directory).
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   233
The pull-down list contains packageIDs for which no ProjectDefinition exists (yet).'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   234
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   235
#'createNewProject'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   236
'PackageID (module:directory).
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   237
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
   238
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   239
)
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   240
! !
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   241
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
!ProjectBuilderAssistantApplication class methodsFor:'interface specs'!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   244
page1_projectTypeSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
    "
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   252
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page1_projectTypeSelectionSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   253
     Tools::ProjectBuilderAssistantApplication new openInterface:#page1_projectTypeSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
     #(FullSpec
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   260
        name: #'page1_projectTypeSelectionSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   262
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
          bounds: (Rectangle 0 0 626 394)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   272
              label: 'Project Type'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
              name: 'FramedBox1'
2698
64d179f1eae7 changed: #page1_projectTypeSelectionSpec
Claus Gittinger <cg@exept.de>
parents: 2697
diff changeset
   274
              layout: (LayoutFrame 0 0.0 0 0 4 1.0 120 0)
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   275
              activeHelpKey: projectType
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
                 (VerticalPanelViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
                    name: 'VerticalPanel1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
                    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
   284
                    horizontalLayout: leftSpace
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
                    verticalLayout: topSpace
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
                    horizontalSpace: 3
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   287
                    verticalSpace: 3
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
                       (ViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
                          name: 'Box1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
                          extent: (Point 10 10)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
                       (RadioButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
                          label: 'GUI Application'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   297
                          name: 'RadioButton1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
                          translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   299
                          model: projectTypeHolder
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
                          isTriggerOnDown: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
                          onCallBackSelector: projectTypeChanged
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
                          select: guiApplicationType
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
                          extent: (Point 136 22)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
                       (RadioButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
                          label: 'Non-GUI Application'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
                          name: 'RadioButton2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
                          translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   309
                          model: projectTypeHolder
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
                          isTriggerOnDown: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
                          onCallBackSelector: projectTypeChanged
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
                          select: nonGuiApplicationType
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
                          extent: (Point 136 22)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
                       (RadioButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
                          label: 'Class Library'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
                          name: 'RadioButton3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
                          translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   319
                          model: projectTypeHolder
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
                          isTriggerOnDown: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
                          onCallBackSelector: projectTypeChanged
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   322
                          select: libraryType
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
                          extent: (Point 136 22)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   324
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   325
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   334
              label: 'Existing Projects of this Type (PackageID''s)'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
              name: 'FramedBox2'
2698
64d179f1eae7 changed: #page1_projectTypeSelectionSpec
Claus Gittinger <cg@exept.de>
parents: 2697
diff changeset
   336
              layout: (LayoutFrame 0 0.0 123 0 4 1.0 0 1)
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   337
              activeHelpKey: existingProjects
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   343
                 (VariableHorizontalPanelSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
                    name: 'VariableHorizontalPanel1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
                       (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
                          name: 'List1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
                          model: selectedProjectIndexHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
                          useIndex: true
2686
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   355
                          sequenceList: listOfMatchingPackageIds
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
                       (TextEditorSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
                          name: 'TextEditor1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
                          model: selectedProjectsComment
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   361
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   362
                          isReadOnly: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
                          hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   365
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
                    handles: (Any 0.34560327198364 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
                 (CheckBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
                    label: 'Hide ST/X Base Packages'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
                    name: 'CheckBox1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   373
                    layout: (LayoutFrame -1 0 -18 1 0 1 4 1)
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   374
                    activeHelpKey: hideSTXBasePackages
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
                    model: hideSTXProjects
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
                    translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   388
page2_projectSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
    "
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   396
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page2_projectSelectionSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   397
     Tools::ProjectBuilderAssistantApplication new openInterface:#page2_projectSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
     #(FullSpec
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   404
        name: #'page2_projectSelectionSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
          bounds: (Rectangle 0 0 521 453)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   414
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   415
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   416
              label: 'New Project''s PackageID'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   417
              name: 'FramedBox3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   418
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 72 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   419
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   420
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
                collection: (
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   424
                 (ExtendedComboBoxSpec
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   425
                    name: 'NewProjectsNameListExtendedComboBox'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   426
                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   427
                    model: newProjectsName
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   428
                    readOnly: false
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   429
                    miniScrollerHorizontal: true
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   430
                    postBuildCallback: postBuildNewProjectsNameListExtendedComboBox:
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   431
              activeHelpKey: listOfNewProjectsName
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   432
                  )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
                 (ActionButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
                    label: 'Create'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
                    name: 'Button1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   436
                    layout: (LayoutFrame -100 1 6 0 2 1 28 0)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
                    translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
                    model: createNewProject
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   439
              activeHelpKey: createNewProject
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   440
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
                  )
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   442
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   448
              label: 'Existing Projects with ProjectDefinition'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
              name: 'FramedBox4'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   450
              layout: (LayoutFrame 0 0.0 70 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   456
                 (VariableHorizontalPanelSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
                    name: 'VariableHorizontalPanel2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
                       (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
                          name: 'List2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
                          model: selectedProjectIndexHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
                          useIndex: true
2686
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   468
                          sequenceList: listOfMatchingPackageIds
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
                       (TextEditorSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
                          name: 'TextEditor2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
                          model: selectedProjectsComment
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
                          isReadOnly: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
                          hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
                          viewClassName: 'TextView'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   478
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   479
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   480
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
                    handles: (Any 0.34560327198364 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   484
                 (CheckBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   485
                    label: 'Hide ST/X Base Packages'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
                    name: 'CheckBox1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   487
                    layout: (LayoutFrame -1 0 -17 1 0 1 5 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   488
                    model: hideSTXProjects
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   489
                    translateLabel: true
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   490
                    activeHelpKey: hideSTXBasePackages
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   491
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   492
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   493
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   495
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   496
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   497
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   498
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   499
              horizontalLayout: leftSpace
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   500
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   501
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   502
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   503
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   504
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   505
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   506
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   507
                    label: 'Browse Selected Project'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   508
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   509
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   510
                    model: doBrowseProject
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   511
                    enableChannel: hasProjectSelectedHolder
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   512
                    extent: (Point 180 22)
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   513
                    activeHelpKey: browseSelectedProject
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   514
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   515
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   516
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   517
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   521
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   522
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   525
page3_applicationSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
    "
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   533
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page3_applicationSelectionSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   534
     Tools::ProjectBuilderAssistantApplication new openInterface:#page3_applicationSelectionSpec
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
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
     #(FullSpec
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   541
        name: #'page3_applicationSelectionSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
          label: 'Application Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
          name: 'Application Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
          min: (Point 0 0)
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   547
          bounds: (Rectangle 0 0 519 406)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   551
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
              label: 'New Application'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
              name: 'FramedBox3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   555
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 105 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
                 (InputFieldSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   562
                    name: 'EntryField1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   563
                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
                    model: newApplicationsName
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
                    acceptOnReturn: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
                    acceptOnTab: true
2693
2bf7608ed25a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2687
diff changeset
   567
                    acceptOnLostFocus: true
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
                    acceptOnPointerLeave: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
                    emptyFieldReplacementText: 'MyApplication'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
                 (ActionButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
                    label: 'Create'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   573
                    name: 'Button1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   574
                    layout: (LayoutFrame -100 1 6 0 1 1 28 0)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   575
                    translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   576
                    model: createNewApplication
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   581
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
              label: 'Existing Applications'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
              name: 'FramedBox4'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   585
              layout: (LayoutFrame 0 0.0 105 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
                 (VariableHorizontalPanelSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
                    name: 'VariableHorizontalPanel2'
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   593
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
                       (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
                          name: 'List2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
                          model: selectedApplicationIndexHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
                          useIndex: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
                          sequenceList: listOfApplicationsInProject
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   604
                          ignoreReselect: false
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
                       (TextEditorSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
                          name: 'TextEditor2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
                          model: selectedApplicationsComment
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   610
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   611
                          isReadOnly: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   612
                          hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
                          viewClassName: 'TextView'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
                    handles: (Any 0.34560327198364 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   619
                  )
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   620
                 (CheckBoxSpec
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   621
                    label: 'Hide other Application Classes'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   622
                    name: 'CheckBox1'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   623
                    layout: (LayoutFrame -1 0 -18 1 0 1 4 1)
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   624
                    model: hideOtherApplicationClasses
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   625
                    translateLabel: true
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   626
                  )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   627
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   631
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   632
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   633
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   634
              horizontalLayout: leftSpace
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   635
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   636
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   637
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   638
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   639
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   640
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   641
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   642
                    label: 'Browse Selected Application'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   643
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   644
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   645
                    model: doBrowseApplication
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   646
                    enableChannel: hasApplicationSelectedHolder
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   647
                    extent: (Point 180 22)
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   648
                  )
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   649
                 (ActionButtonSpec
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   650
                    label: 'Launch Selected Application'
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   651
                    name: 'Button4'
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   652
                    translateLabel: true
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   653
                    model: doLaunchApplication
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   654
                    enableChannel: hasApplicationSelectedHolder
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   655
                    extent: (Point 180 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   656
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   657
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   658
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   659
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   663
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   667
page4_startupClassSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   671
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   672
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   674
    "
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   675
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page4_startupClassSelectionSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   676
     Tools::ProjectBuilderAssistantApplication new openInterface:#page4_startupClassSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   677
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   678
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   679
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   680
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   682
     #(FullSpec
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   683
        name: #'page4_startupClassSelectionSpec'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   684
        window: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   685
       (WindowSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   686
          label: 'Startup Class Selection'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   687
          name: 'Startup Class Selection'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   688
          min: (Point 0 0)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   689
          bounds: (Rectangle 0 0 521 408)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   690
        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   691
        component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   692
       (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   693
          collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   694
           (FramedBoxSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   695
              label: 'New Application'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   696
              name: 'FramedBox3'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   697
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 105 0)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   698
              labelPosition: topLeft
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   699
              translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   700
              component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   701
             (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   702
                collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   703
                 (InputFieldSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   704
                    name: 'EntryField1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   705
                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   706
                    model: newStartupClassName
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   707
                    acceptOnReturn: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   708
                    acceptOnTab: true
2693
2bf7608ed25a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2687
diff changeset
   709
                    acceptOnLostFocus: true
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   710
                    acceptOnPointerLeave: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   711
                    emptyFieldReplacementText: 'MyStandAloneStartup'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   712
                  )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   713
                 (ActionButtonSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   714
                    label: 'Create'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   715
                    name: 'Button1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   716
                    layout: (LayoutFrame -100 1 6 0 1 1 28 0)
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   717
                    translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   718
                    model: createNewStartupClass
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   719
                  )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   720
                 )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   721
               
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   722
              )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   723
            )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   724
           (FramedBoxSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   725
              label: 'Existing StartupClasses'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   726
              name: 'FramedBox4'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   727
              layout: (LayoutFrame 0 0.0 105 0 4 1.0 -30 1)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   728
              labelPosition: topLeft
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   729
              translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   730
              component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   731
             (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   732
                collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   733
                 (VariableHorizontalPanelSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   734
                    name: 'VariableHorizontalPanel2'
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   735
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   736
                    component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   737
                   (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   738
                      collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   739
                       (SequenceViewSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   740
                          name: 'List2'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   741
                          model: selectedStartupClassIndexHolder
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   742
                          hasHorizontalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   743
                          hasVerticalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   744
                          useIndex: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   745
                          sequenceList: listOfStartupClassesInProject
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   746
                        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   747
                       (TextEditorSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   748
                          name: 'TextEditor2'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   749
                          model: selectedStartupClassesComment
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   750
                          hasHorizontalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   751
                          hasVerticalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   752
                          isReadOnly: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   753
                          hasKeyboardFocusInitially: false
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   754
                          viewClassName: 'TextView'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   755
                        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   756
                       )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   757
                     
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   758
                    )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   759
                    handles: (Any 0.34560327198364 1.0)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   760
                  )
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   761
                 (CheckBoxSpec
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   762
                    label: 'Hide other Startup Classes'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   763
                    name: 'CheckBox1'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   764
                    layout: (LayoutFrame -1 0 -20 1 0 1 2 1)
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   765
                    model: hideOtherStartupClasses
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   766
                    translateLabel: true
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   767
                  )
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   768
                 )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   769
               
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   770
              )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   771
            )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   772
           (HorizontalPanelViewSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   773
              name: 'HorizontalPanel1'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   774
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   775
              horizontalLayout: leftSpace
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   776
              verticalLayout: center
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   777
              horizontalSpace: 3
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   778
              verticalSpace: 3
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   779
              component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   780
             (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   781
                collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   782
                 (ActionButtonSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   783
                    label: 'Browse Selected StartupClass'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   784
                    name: 'Button3'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   785
                    translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   786
                    model: doBrowseStartupClass
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   787
                    enableChannel: hasStartupClassSelectedHolder
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   788
                    extent: (Point 180 22)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   789
                  )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   790
                 )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   791
               
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   792
              )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   793
            )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   794
           )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   795
         
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   796
        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   797
      )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   798
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   799
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   800
page5_specifyIncludedClasses
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   801
    "This resource specification was automatically generated
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   802
     by the UIPainter of ST/X."
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   803
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   804
    "Do not manually edit this!! If it is corrupted,
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   805
     the UIPainter may not be able to read the specification."
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   806
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   807
    "
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   808
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page5_specifyIncludedClasses
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   809
     Tools::ProjectBuilderAssistantApplication new openInterface:#page5_specifyIncludedClasses
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   810
    "
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   811
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   812
    <resource: #canvas>
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   813
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   814
    ^ 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   815
     #(FullSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   816
        name: #'page5_specifyIncludedClasses'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
          bounds: (Rectangle 0 0 521 400)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
              label: 'Project Contents'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
              name: 'FramedBox3'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   830
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
                 (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
                    name: 'List1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
                    initiallyDisabled: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
                    hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
                    hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
                    useIndex: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
                    sequenceList: listOfClassesInProject
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   849
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   850
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   851
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   852
              horizontalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   853
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   854
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   855
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   856
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   857
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   858
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   859
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   860
                    label: 'Browse Project Definition'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   861
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   862
                    translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   863
                    model: doBrowseProjectDefinitionClass
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   864
                    extent: (Point 180 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   865
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   866
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   867
                    label: 'Update Contents (Scan)'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   868
                    name: 'Button4'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   869
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   870
                    model: doGenerateProjectContentsDefinition
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   871
                    extent: (Point 180 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   872
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   873
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   874
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   875
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   883
page6a_specifyProjectAttributes
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
    "
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   891
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page6a_specifyProjectAttributes
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   892
     Tools::ProjectBuilderAssistantApplication new openInterface:#page6a_specifyProjectAttributes
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   893
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
     #(FullSpec
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   899
        name: #'page6a_specifyProjectAttributes'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   900
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
          min: (Point 0 0)
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   905
          bounds: (Rectangle 0 0 521 239)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   910
           (FramedBoxSpec
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   911
              label: 'Product Information'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   912
              name: 'FramedBox3'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   913
              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
   914
              labelPosition: topLeft
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   915
              translateLabel: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   916
              component: 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   917
             (SpecCollection
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   918
                collection: (
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   919
                 (LabelSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   920
                    label: 'Product Name:'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   921
                    name: 'Label1'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   922
                    layout: (LayoutFrame 0 0 10 0 148 0 32 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   923
                    translateLabel: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   924
                    adjust: right
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   925
                  )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   926
                 (InputFieldSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   927
                    name: 'EntryField4'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   928
                    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
   929
                    model: productNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   930
                    acceptOnLostFocus: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   931
                    acceptOnPointerLeave: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   932
                    viewClassName: ''
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   933
                  )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   934
                 (LabelSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   935
                    label: 'Company Name:'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   936
                    name: 'Label2'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   937
                    layout: (LayoutFrame 0 0 39 0 148 0 61 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   938
                    translateLabel: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   939
                    adjust: right
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   940
                  )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   941
                 (InputFieldSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   942
                    name: 'EntryField3'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   943
                    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
   944
                    model: companyNameHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   945
                    acceptOnLostFocus: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   946
                    acceptOnPointerLeave: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   947
                    viewClassName: ''
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   948
                  )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   949
                 )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   950
               
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   951
              )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   952
            )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   953
           )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   954
         
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   955
        )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   956
      )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   957
!
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   958
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   959
page6b_specifyBuildDirectorySpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   960
    "This resource specification was automatically generated
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   961
     by the UIPainter of ST/X."
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   962
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   963
    "Do not manually edit this!! If it is corrupted,
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   964
     the UIPainter may not be able to read the specification."
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   965
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   966
    "
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   967
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page6b_specifyBuildDirectorySpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   968
     Tools::ProjectBuilderAssistantApplication new openInterface:#page6b_specifyBuildDirectorySpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   969
    "
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   970
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   971
    <resource: #canvas>
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   972
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   973
    ^ 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   974
     #(FullSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   975
        name: #'page6b_specifyBuildDirectorySpec'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   976
        window: 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   977
       (WindowSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   978
          label: 'Project Selection'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   979
          name: 'Project Selection'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   980
          min: (Point 0 0)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   981
          bounds: (Rectangle 0 0 521 361)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   982
        )
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   983
        component: 
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   984
       (SpecCollection
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   985
          collection: (
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   986
           (FramedBoxSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
              label: 'Build Directory'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   988
              name: 'FramedBox3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 79 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   990
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   991
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   992
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   993
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   995
                 (FilenameInputFieldSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   996
                    name: 'FilenameEntryField1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   997
                    layout: (LayoutFrame 0 0.0 10 0 0 1.0 32 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
                    model: buildDirectoryHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
                    acceptOnPointerLeave: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
                    viewClassName: FilenameWidgetWithHistory
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1001
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1002
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1003
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1004
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1005
            )
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1006
           (FramedBoxSpec
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1007
              label: 'Compiler / Toolchain'
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1008
              name: 'FramedBox4'
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1009
              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
  1010
              labelPosition: topLeft
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1011
              translateLabel: true
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1012
              component: 
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1013
             (SpecCollection
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1014
                collection: (
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1015
                 (ComboListSpec
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1016
                    name: 'ComboList1'
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1017
                    layout: (LayoutFrame 0 0 10 0 137 0 32 0)
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1018
                    model: usedCompilerHolder
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1019
                    comboList: listOfPossibleCompilers
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1020
                    useIndex: false
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1021
                  )
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1022
                 )
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1023
               
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1024
              )
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
  1025
            )
2724
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1026
           (LabelSpec
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1027
              label: 'Compiler Warn-Label'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1028
              name: 'Label1'
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1029
              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
  1030
              level: -1
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1031
              visibilityChannel: compilerWarnMessageVisibleHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1032
              backgroundColor: (Color 100.0 49.999237048905 49.999237048905)
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1033
              translateLabel: true
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1034
              labelChannel: compilerWarnMessageHolder
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1035
              adjust: left
4bd4ad9083fb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  1036
            )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1037
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1038
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1039
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1040
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1042
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1043
page7_buildSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1044
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1050
    "
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1051
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7_buildSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1052
     Tools::ProjectBuilderAssistantApplication new openInterface:#page7_buildSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
     #(FullSpec
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
  1059
        name: #'page7_buildSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
          bounds: (Rectangle 0 0 521 472)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1068
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1069
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1071
              label: 'Make Output'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
              name: 'FramedBox3'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1073
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
                 (TextEditorSpec
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  1080
                    name: 'MakeOutputWindow'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1082
                    model: makeOutputHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1083
                    hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1084
                    hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1085
                    hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1086
                    viewClassName: 'TextCollector'
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
  1087
                    postBuildCallback: postBuildMakeOutputWindow:
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1089
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1091
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1092
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1093
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1094
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1095
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1096
              horizontalLayout: leftSpace
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1097
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1098
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1099
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1100
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1101
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1102
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1103
                 (ActionButtonSpec
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1104
                    label: 'Make All'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1105
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1106
                    translateLabel: true
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1107
                    model: doStartMakeAll
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1108
                    enableChannel: startMakeButtonEnabled
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1109
                    extent: (Point 107 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1110
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1111
                 (ActionButtonSpec
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1112
                    label: 'Make EXE only'
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1113
                    name: 'Button5'
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1114
                    translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1115
                    model: doStartMakeExe
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1116
                    enableChannel: startMakeButtonEnabled
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1117
                    extent: (Point 107 22)
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1118
                  )
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1119
                 (ViewSpec
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1120
                    name: 'Box1'
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1121
                    extent: (Point 20 10)
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1122
                  )
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1123
                 (ActionButtonSpec
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1124
                    label: 'Stop Make'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1125
                    name: 'Button4'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1126
                    visibilityChannel: stopMakeButtonVisible
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1127
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1128
                    model: doStopMake
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1129
                    extent: (Point 107 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1130
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1131
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1132
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1133
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1141
page8_deploySpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1142
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1143
     by the UIPainter of ST/X."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1144
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1145
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1146
     the UIPainter may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1147
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1148
    "
Claus Gittin