Tools__ProjectBuilderAssistantApplication.st
author fm
Fri, 06 Nov 2009 12:29:45 +0100
changeset 2721 5097b97d4c24
parent 2720 99b643eb4ba9
child 2724 4bd4ad9083fb
permissions -rw-r--r--
added: #help
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
64aa9ac2e8a1 do not close newProjectsNameList after selection,
fm
parents: 2703
diff changeset
    20
		newProjectsNameListExtendedComboBox'
2687
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    21
	classVariableNames:''
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    22
	poolDictionaries:''
66343568f2b2 changed: #fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2686
diff changeset
    23
	category:'System-Support-Projects'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    26
!ProjectBuilderAssistantApplication class methodsFor:'documentation'!
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    27
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    28
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
    a user friendly interface to the build process.
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    31
    Simply wraps up existing tools like the CodeGeneratorTool, the browsers
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    32
    and the ProjetBuilder
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    33
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    34
    [see also:]
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    35
        CodeGeneratorTool
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    36
        ProjectBuilder
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    37
        ProjectDefinition
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    38
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    39
    [author:]
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    40
        Claus Gittinger
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
    41
"
2721
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    42
!
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    43
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    44
help
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    45
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    46
"/    Packager - A Standalone-Executable Builder and Packager
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    47
"/    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
    48
"/    Prerequisites
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    49
"/    Windows Users:
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    50
"/    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
    51
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    52
"/    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
    53
"/    Unix Users:
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    54
"/    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
    55
"/    Packages, Projects, PackageIDs and ProjectDefinitions
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    56
"/    Smalltalk basically uses two objects for packaging:
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    57
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    58
"/        * PackageIDs (also called ProjectID's occasionally)
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    59
"/        * ProjectDefinitions 
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    60
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    61
"/    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
    62
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    63
"/    PackageIDs
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    64
"/    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
    65
"/    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
    66
"/    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
    67
"/    ProjectDefinitions
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    68
"/    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
    69
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    70
"/        * GUI Application Definition
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    71
"/        * non-GUI Application Definition
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    72
"/        * ClassLibrary Definition 
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    73
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    74
"/    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
    75
"/    Packaging
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    76
"/    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
    77
"/    Structure of a Project
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    78
"/    The artefacts as manipulated by the packager are:
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    79
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    80
"/        * the ProjectDefinition class
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    81
"/          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
    82
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    83
"/        * the ApplicationModel class
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    84
"/          This defines the GUI, and is typically created using the UI-Painter.
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    85
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    86
"/        * the Startup class
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    87
"/          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
    88
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    89
"/    Build Procedure
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    90
"/    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
    91
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    92
"/    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
    93
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    94
"/    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
    95
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    96
"/    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
    97
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
    98
"/    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
    99
"/
5097b97d4c24 added: #help
fm
parents: 2720
diff changeset
   100
"/    Summary: It has NEVER been easier to create a GUI application. 
2668
a762eafe51eb added: #documentation
Claus Gittinger <cg@exept.de>
parents: 2659
diff changeset
   101
! !
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   103
!ProjectBuilderAssistantApplication class methodsFor:'assistant pages spec'!
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   104
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   105
assistantSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   106
    ^ #(Array
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   107
        ( AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   108
            pageTitle: 'Project Type Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   109
            windowSpecSelector: page1_projectTypeSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   110
            enterCallbackSelector: updateListOfMatchingProjects
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   111
            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
   112
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   113
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   114
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   115
            pageTitle: 'ProjectDefinition Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   116
            windowSpecSelector: page2_projectSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   117
            enterCallbackSelector: updateListOfMatchingProjects
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   118
            infoText: 'Choose an existing project definition or create a new one.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   119
                       These are subclasses of <I>ProjectDefinition</I> and define the
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   120
                       type and contents of a project.'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   121
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   122
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   123
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   124
            pageTitle: 'Startup Application Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   125
            windowSpecSelector: page3_applicationSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   126
            isEnabledQuerySelector: #projectTypeIsGuiApplication
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   127
            canEnterQuerySelector: #canEnterApplicationSelection
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   128
            enterCallbackSelector: updateListOfApplicationsInProject
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   129
            infoText: 'Choose an existing application or create a new one.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   130
                       These are subclasses of <I>ApplicationModel</I> and define
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   131
                       the GUI and control flow inside the application.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   132
                       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
   133
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   134
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   135
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   136
            pageTitle: 'Startup Class Selection'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   137
            windowSpecSelector: page4_startupClassSelectionSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   138
            isEnabledQuerySelector: #projectTypeIsNotLibrary
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   139
            canEnterQuerySelector: #canEnterStartupClassSelection
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   140
            enterCallbackSelector: updateListOfStartupClassesInProject
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   141
            infoText: 'Choose an existing startup-class or create a new one.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   142
                       These are subclasses of <I>StandaloneStartup</I> and 
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   143
                       start the application. Command line arguments can be
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   144
                       interpreted there.'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   145
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   146
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   147
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   148
            pageTitle: 'Specify Contents'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   149
            windowSpecSelector: page5_specifyIncludedClasses
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   150
            enterCallbackSelector: enterContentsSpecification
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   151
            canEnterQuerySelector: #canEnterContentsSelection
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   152
            infoText: 'Define which (other) classes are to be included.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   153
                       Press "<I>Scan</I>" to include all classes of the package;
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   154
                       browse to edit the contents manually.'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   155
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   156
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   157
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   158
            pageTitle: 'Specify Build Directory'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   159
            windowSpecSelector: page6_specifyBuildDirectorySpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   160
            infoText: 'Define where the build-process is to be performed.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   161
                       All generated files are created below that directory.
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   162
                       After deployment, the build directory is no longer needed
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   163
                       (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
   164
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   165
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   166
        (AssistantPageSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   167
            pageTitle: 'Build'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   168
            windowSpecSelector: page7_buildSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   169
            canEnterQuerySelector: #canEnterBuild
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   170
            enterCallbackSelector: #restoreMakeOutputsContents
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   171
            leaveCallbackSelector: #rememberMakeOutputsContents
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   172
            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
   173
                       all required classes and nsis to generate a self-installable
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   174
                       executable. You must have the borland-cc and NullSoft NSIS
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   175
                       packages installed for this to work.'
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: 'Deploy'
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   180
            windowSpecSelector: page8_deploySpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   181
            canEnterQuerySelector: #canEnterDeploy
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   182
            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
   183
                       You can open a WindowsExplorer there to copy the files for
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   184
                       deployment. After that, the build directory is no longer needed
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   185
                       (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
   186
        )
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   187
    ) decodeAsLiteralArray.
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
2670
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   190
!ProjectBuilderAssistantApplication class methodsFor:'defaults'!
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   191
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   192
defaultIcon
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   193
    ^ ToolbarIconLibrary projectBuilderIcon
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   194
!
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   195
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   196
windowLabelTemplate
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   197
    ^ 'ST/X Packager: %1'
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   198
! !
f2e117783c83 labels and icon
Claus Gittinger <cg@exept.de>
parents: 2669
diff changeset
   199
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   200
!ProjectBuilderAssistantApplication class methodsFor:'help'!
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   201
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   202
flyByHelpSpec
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   203
    <resource: #help>
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   204
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   205
    ^ super flyByHelpSpec addPairsFrom:#(
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   206
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   207
#'projectType'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   208
'Choose the type of Project you are about to deploy.'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   209
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   210
#existingProjects
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   211
'Projects with an existing ProjectDefinition of the chosen type (above).'
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   212
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   213
#browseSelectedProject
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   214
'Open a SystemBrowser on the selected Project.'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   215
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   216
#hideSTXBasePackages
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   217
'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
   218
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   219
#'listOfNewProjectsName'
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   220
'PackageID (module:directory).
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   221
The pull-down list contains packageIDs for which no ProjectDefinition exists (yet).'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   222
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   223
#'createNewProject'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   224
'PackageID (module:directory).
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   225
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
   226
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   227
)
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   228
! !
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   229
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
!ProjectBuilderAssistantApplication class methodsFor:'interface specs'!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   232
page1_projectTypeSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
    "
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   240
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page1_projectTypeSelectionSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   241
     Tools::ProjectBuilderAssistantApplication new openInterface:#page1_projectTypeSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
     #(FullSpec
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   248
        name: #'page1_projectTypeSelectionSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
          bounds: (Rectangle 0 0 626 394)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   260
              label: 'Project Type'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
              name: 'FramedBox1'
2698
64d179f1eae7 changed: #page1_projectTypeSelectionSpec
Claus Gittinger <cg@exept.de>
parents: 2697
diff changeset
   262
              layout: (LayoutFrame 0 0.0 0 0 4 1.0 120 0)
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   263
              activeHelpKey: projectType
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   268
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   269
                 (VerticalPanelViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   270
                    name: 'VerticalPanel1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   271
                    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
   272
                    horizontalLayout: leftSpace
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   273
                    verticalLayout: topSpace
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   274
                    horizontalSpace: 3
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   275
                    verticalSpace: 3
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   276
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   277
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   278
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   279
                       (ViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   280
                          name: 'Box1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   281
                          extent: (Point 10 10)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   282
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   283
                       (RadioButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   284
                          label: 'GUI Application'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   285
                          name: 'RadioButton1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   286
                          translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   287
                          model: projectTypeHolder
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   288
                          isTriggerOnDown: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   289
                          onCallBackSelector: projectTypeChanged
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   290
                          select: guiApplicationType
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   291
                          extent: (Point 136 22)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   293
                       (RadioButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   294
                          label: 'Non-GUI Application'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   295
                          name: 'RadioButton2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   296
                          translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   297
                          model: projectTypeHolder
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   298
                          isTriggerOnDown: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   299
                          onCallBackSelector: projectTypeChanged
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   300
                          select: nonGuiApplicationType
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   301
                          extent: (Point 136 22)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
                       (RadioButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
                          label: 'Class Library'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
                          name: 'RadioButton3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
                          translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   307
                          model: projectTypeHolder
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
                          isTriggerOnDown: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
                          onCallBackSelector: projectTypeChanged
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
                          select: libraryType
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
                          extent: (Point 136 22)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   312
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   313
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   314
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   319
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   320
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   321
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   322
              label: 'Existing Projects of this Type (PackageID''s)'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   323
              name: 'FramedBox2'
2698
64d179f1eae7 changed: #page1_projectTypeSelectionSpec
Claus Gittinger <cg@exept.de>
parents: 2697
diff changeset
   324
              layout: (LayoutFrame 0 0.0 123 0 4 1.0 0 1)
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   325
              activeHelpKey: existingProjects
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   326
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   327
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   328
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   329
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   330
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
                 (VariableHorizontalPanelSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   332
                    name: 'VariableHorizontalPanel1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   333
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   334
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   335
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   336
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   337
                       (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   338
                          name: 'List1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   339
                          model: selectedProjectIndexHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   342
                          useIndex: true
2686
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   343
                          sequenceList: listOfMatchingPackageIds
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   344
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   345
                       (TextEditorSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   346
                          name: 'TextEditor1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   347
                          model: selectedProjectsComment
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   348
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   349
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   350
                          isReadOnly: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   351
                          hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   352
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   353
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   354
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   356
                    handles: (Any 0.34560327198364 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   357
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
                 (CheckBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
                    label: 'Hide ST/X Base Packages'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
                    name: 'CheckBox1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   361
                    layout: (LayoutFrame -1 0 -18 1 0 1 4 1)
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   362
                    activeHelpKey: hideSTXBasePackages
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
                    model: hideSTXProjects
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
                    translateLabel: true
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
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   376
page2_projectSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   377
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
    "
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   384
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page2_projectSelectionSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   385
     Tools::ProjectBuilderAssistantApplication new openInterface:#page2_projectSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   388
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
     #(FullSpec
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   392
        name: #'page2_projectSelectionSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
          bounds: (Rectangle 0 0 521 453)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   404
              label: 'New Project''s PackageID'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
              name: 'FramedBox3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 72 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
                collection: (
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   412
                 (ExtendedComboBoxSpec
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   413
                    name: 'NewProjectsNameListExtendedComboBox'
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   414
                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   415
                    model: newProjectsName
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   416
                    readOnly: false
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   417
                    miniScrollerHorizontal: true
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   418
                    postBuildCallback: postBuildNewProjectsNameListExtendedComboBox:
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   419
              activeHelpKey: listOfNewProjectsName
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   420
                  )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   421
                 (ActionButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   422
                    label: 'Create'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   423
                    name: 'Button1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   424
                    layout: (LayoutFrame -100 1 6 0 2 1 28 0)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   425
                    translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
                    model: createNewProject
2703
3ea780aba713 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2698
diff changeset
   427
              activeHelpKey: createNewProject
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   428
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   429
                  )
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   430
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
           (FramedBoxSpec
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   436
              label: 'Existing Projects with ProjectDefinition'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
              name: 'FramedBox4'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   438
              layout: (LayoutFrame 0 0.0 70 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
                 (VariableHorizontalPanelSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   445
                    name: 'VariableHorizontalPanel2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   446
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   448
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   449
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   450
                       (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   451
                          name: 'List2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   452
                          model: selectedProjectIndexHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   453
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
                          useIndex: true
2686
5a19c21dada0 ensure starup and application are in the classList of the projectDef
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   456
                          sequenceList: listOfMatchingPackageIds
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   457
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
                       (TextEditorSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   459
                          name: 'TextEditor2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
                          model: selectedProjectsComment
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   461
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   462
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
                          isReadOnly: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
                          hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
                          viewClassName: 'TextView'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
                    handles: (Any 0.34560327198364 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
                 (CheckBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
                    label: 'Hide ST/X Base Packages'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
                    name: 'CheckBox1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   475
                    layout: (LayoutFrame -1 0 -17 1 0 1 5 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
                    model: hideSTXProjects
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
                    translateLabel: true
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   478
                    activeHelpKey: hideSTXBasePackages
2636
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
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   484
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   485
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   486
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   487
              horizontalLayout: leftSpace
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   488
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   489
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   490
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   491
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   492
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   493
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   494
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   495
                    label: 'Browse Selected Project'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   496
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   497
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   498
                    model: doBrowseProject
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   499
                    enableChannel: hasProjectSelectedHolder
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   500
                    extent: (Point 180 22)
2706
2ab6062e33ab changed:
Claus Gittinger <cg@exept.de>
parents: 2705
diff changeset
   501
                    activeHelpKey: browseSelectedProject
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   502
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   503
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   504
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   505
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   508
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   509
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   511
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   513
page3_applicationSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   518
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   519
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   520
    "
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   521
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page3_applicationSelectionSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   522
     Tools::ProjectBuilderAssistantApplication new openInterface:#page3_applicationSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   523
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   524
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   525
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   526
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   527
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
     #(FullSpec
2645
8c2aab033e84 added:7 methods
Claus Gittinger <cg@exept.de>
parents: 2636
diff changeset
   529
        name: #'page3_applicationSelectionSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   531
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
          label: 'Application Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
          name: 'Application Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
          min: (Point 0 0)
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   535
          bounds: (Rectangle 0 0 519 406)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   539
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   540
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   541
              label: 'New Application'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   542
              name: 'FramedBox3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   543
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 105 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   544
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   545
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   546
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   547
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   548
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   549
                 (InputFieldSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   550
                    name: 'EntryField1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   551
                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   552
                    model: newApplicationsName
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   553
                    acceptOnReturn: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   554
                    acceptOnTab: true
2693
2bf7608ed25a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2687
diff changeset
   555
                    acceptOnLostFocus: true
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   556
                    acceptOnPointerLeave: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   557
                    emptyFieldReplacementText: 'MyApplication'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   558
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   559
                 (ActionButtonSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   560
                    label: 'Create'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   561
                    name: 'Button1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   562
                    layout: (LayoutFrame -100 1 6 0 1 1 28 0)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   563
                    translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   564
                    model: createNewApplication
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   565
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   566
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   569
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   570
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   571
              label: 'Existing Applications'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   572
              name: 'FramedBox4'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   573
              layout: (LayoutFrame 0 0.0 105 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   574
              labelPosition: topLeft
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
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   577
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   578
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
                 (VariableHorizontalPanelSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   580
                    name: 'VariableHorizontalPanel2'
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   581
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   582
                    component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   583
                   (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   584
                      collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   585
                       (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
                          name: 'List2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   587
                          model: selectedApplicationIndexHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   588
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
                          useIndex: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
                          sequenceList: listOfApplicationsInProject
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   592
                          ignoreReselect: false
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
                       (TextEditorSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
                          name: 'TextEditor2'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
                          model: selectedApplicationsComment
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
                          hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
                          hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
                          isReadOnly: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
                          hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
                          viewClassName: 'TextView'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
                        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
                       )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
                     
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
                    )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
                    handles: (Any 0.34560327198364 1.0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
                  )
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   608
                 (CheckBoxSpec
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   609
                    label: 'Hide other Application Classes'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   610
                    name: 'CheckBox1'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   611
                    layout: (LayoutFrame -1 0 -18 1 0 1 4 1)
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   612
                    model: hideOtherApplicationClasses
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   613
                    translateLabel: true
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   614
                  )
2636
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
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   619
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   620
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   621
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   622
              horizontalLayout: leftSpace
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   623
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   624
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   625
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   626
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   627
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   628
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   629
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   630
                    label: 'Browse Selected Application'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   631
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   632
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   633
                    model: doBrowseApplication
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   634
                    enableChannel: hasApplicationSelectedHolder
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   635
                    extent: (Point 180 22)
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   636
                  )
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   637
                 (ActionButtonSpec
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   638
                    label: 'Launch Selected Application'
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   639
                    name: 'Button4'
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   640
                    translateLabel: true
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   641
                    model: doLaunchApplication
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   642
                    enableChannel: hasApplicationSelectedHolder
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   643
                    extent: (Point 180 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   644
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   645
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   646
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   647
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   655
page4_startupClassSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   657
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   658
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
    "
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   663
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page4_startupClassSelectionSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   664
     Tools::ProjectBuilderAssistantApplication new openInterface:#page4_startupClassSelectionSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   665
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   667
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   668
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   669
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   670
     #(FullSpec
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   671
        name: #'page4_startupClassSelectionSpec'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   672
        window: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   673
       (WindowSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   674
          label: 'Startup Class Selection'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   675
          name: 'Startup Class Selection'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   676
          min: (Point 0 0)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   677
          bounds: (Rectangle 0 0 521 408)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   678
        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   679
        component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   680
       (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   681
          collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   682
           (FramedBoxSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   683
              label: 'New Application'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   684
              name: 'FramedBox3'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   685
              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
   686
              labelPosition: topLeft
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   687
              translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   688
              component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   689
             (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   690
                collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   691
                 (InputFieldSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   692
                    name: 'EntryField1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   693
                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   694
                    model: newStartupClassName
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   695
                    acceptOnReturn: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   696
                    acceptOnTab: true
2693
2bf7608ed25a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2687
diff changeset
   697
                    acceptOnLostFocus: true
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   698
                    acceptOnPointerLeave: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   699
                    emptyFieldReplacementText: 'MyStandAloneStartup'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   700
                  )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   701
                 (ActionButtonSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   702
                    label: 'Create'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   703
                    name: 'Button1'
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   704
                    layout: (LayoutFrame -100 1 6 0 1 1 28 0)
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   705
                    translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   706
                    model: createNewStartupClass
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   707
                  )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   708
                 )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   709
               
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   710
              )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   711
            )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   712
           (FramedBoxSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   713
              label: 'Existing StartupClasses'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   714
              name: 'FramedBox4'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   715
              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
   716
              labelPosition: topLeft
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
              component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   719
             (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   720
                collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   721
                 (VariableHorizontalPanelSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   722
                    name: 'VariableHorizontalPanel2'
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   723
                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   724
                    component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   725
                   (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   726
                      collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   727
                       (SequenceViewSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   728
                          name: 'List2'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   729
                          model: selectedStartupClassIndexHolder
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   730
                          hasHorizontalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   731
                          hasVerticalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   732
                          useIndex: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   733
                          sequenceList: listOfStartupClassesInProject
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   734
                        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   735
                       (TextEditorSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   736
                          name: 'TextEditor2'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   737
                          model: selectedStartupClassesComment
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   738
                          hasHorizontalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   739
                          hasVerticalScrollBar: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   740
                          isReadOnly: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   741
                          hasKeyboardFocusInitially: false
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   742
                          viewClassName: 'TextView'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   743
                        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   744
                       )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   745
                     
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
                    handles: (Any 0.34560327198364 1.0)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   748
                  )
2671
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   749
                 (CheckBoxSpec
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   750
                    label: 'Hide other Startup Classes'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   751
                    name: 'CheckBox1'
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   752
                    layout: (LayoutFrame -1 0 -20 1 0 1 2 1)
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   753
                    model: hideOtherStartupClasses
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   754
                    translateLabel: true
48cb061347ef *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   755
                  )
2656
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
            )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   760
           (HorizontalPanelViewSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   761
              name: 'HorizontalPanel1'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   762
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   763
              horizontalLayout: leftSpace
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   764
              verticalLayout: center
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   765
              horizontalSpace: 3
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   766
              verticalSpace: 3
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   767
              component: 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   768
             (SpecCollection
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   769
                collection: (
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   770
                 (ActionButtonSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   771
                    label: 'Browse Selected StartupClass'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   772
                    name: 'Button3'
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   773
                    translateLabel: true
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   774
                    model: doBrowseStartupClass
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   775
                    enableChannel: hasStartupClassSelectedHolder
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   776
                    extent: (Point 180 22)
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   777
                  )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   778
                 )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   779
               
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   780
              )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   781
            )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   782
           )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   783
         
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   784
        )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   785
      )
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   786
!
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   787
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   788
page5_specifyIncludedClasses
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   789
    "This resource specification was automatically generated
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   790
     by the UIPainter of ST/X."
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
    "Do not manually edit this!! If it is corrupted,
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   793
     the UIPainter may not be able to read the specification."
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
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page5_specifyIncludedClasses
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   797
     Tools::ProjectBuilderAssistantApplication new openInterface:#page5_specifyIncludedClasses
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
    <resource: #canvas>
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   801
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   802
    ^ 
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   803
     #(FullSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   804
        name: #'page5_specifyIncludedClasses'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   805
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   806
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   808
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   809
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
          bounds: (Rectangle 0 0 521 400)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   812
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   813
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   814
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   815
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
              label: 'Project Contents'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
              name: 'FramedBox3'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   818
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
                 (SequenceViewSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
                    name: 'List1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
                    initiallyDisabled: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
                    hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
                    hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
                    useIndex: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
                    sequenceList: listOfClassesInProject
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   837
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   838
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   839
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   840
              horizontalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   841
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   842
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   843
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   844
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   845
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   846
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   847
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   848
                    label: 'Browse Project Definition'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   849
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   850
                    translateLabel: true
2659
bec4c94bc628 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2656
diff changeset
   851
                    model: doBrowseProjectDefinitionClass
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   852
                    extent: (Point 180 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   853
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   854
                 (ActionButtonSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   855
                    label: 'Update Contents (Scan)'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   856
                    name: 'Button4'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   857
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   858
                    model: doGenerateProjectContentsDefinition
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   859
                    extent: (Point 180 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   860
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   861
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   862
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   863
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   871
page6_specifyBuildDirectorySpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   873
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
    "
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   879
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page6_specifyBuildDirectorySpec
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   880
     Tools::ProjectBuilderAssistantApplication new openInterface:#page6_specifyBuildDirectorySpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   884
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
     #(FullSpec
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   887
        name: #'page6_specifyBuildDirectorySpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
          min: (Point 0 0)
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   893
          bounds: (Rectangle 0 0 521 239)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   896
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   897
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   898
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   899
              label: 'Build Directory'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   900
              name: 'FramedBox3'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 79 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
                 (FilenameInputFieldSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   908
                    name: 'FilenameEntryField1'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   909
                    layout: (LayoutFrame 0 0.0 10 0 0 1.0 32 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   910
                    model: buildDirectoryHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
                    acceptOnPointerLeave: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   912
                    viewClassName: FilenameWidgetWithHistory
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   913
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   914
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   915
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   916
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   917
            )
2681
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   918
           (FramedBoxSpec
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   919
              label: 'Compiler / Toolchain'
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   920
              name: 'FramedBox4'
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   921
              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
   922
              labelPosition: topLeft
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   923
              translateLabel: true
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   924
              component: 
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   925
             (SpecCollection
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   926
                collection: (
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   927
                 (ComboListSpec
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   928
                    name: 'ComboList1'
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   929
                    layout: (LayoutFrame 0 0 10 0 137 0 32 0)
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   930
                    model: usedCompilerHolder
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   931
                    comboList: listOfPossibleCompilers
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   932
                    useIndex: false
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   933
                  )
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   934
                 )
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   935
               
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   936
              )
e331628e00f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2679
diff changeset
   937
            )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   938
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   941
      )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   942
!
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   943
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   944
page7_buildSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   945
    "This resource specification was automatically generated
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
     by the UIPainter of ST/X."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   947
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   948
    "Do not manually edit this!! If it is corrupted,
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   949
     the UIPainter may not be able to read the specification."
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   950
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   951
    "
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   952
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7_buildSpec
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   953
     Tools::ProjectBuilderAssistantApplication new openInterface:#page7_buildSpec
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   954
    "
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   955
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   956
    <resource: #canvas>
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   957
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   958
    ^ 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   959
     #(FullSpec
2656
491471c26771 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2649
diff changeset
   960
        name: #'page7_buildSpec'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   961
        window: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   962
       (WindowSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   963
          label: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   964
          name: 'Project Selection'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   965
          min: (Point 0 0)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   966
          bounds: (Rectangle 0 0 521 472)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   967
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   968
        component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   969
       (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   970
          collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   971
           (FramedBoxSpec
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   972
              label: 'Make Output'
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   973
              name: 'FramedBox3'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   974
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   975
              labelPosition: topLeft
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   976
              translateLabel: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   977
              component: 
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   978
             (SpecCollection
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
                collection: (
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
                 (TextEditorSpec
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
   981
                    name: 'MakeOutputWindow'
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   982
                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   983
                    model: makeOutputHolder
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   984
                    hasHorizontalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   985
                    hasVerticalScrollBar: true
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   986
                    hasKeyboardFocusInitially: false
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
                    viewClassName: 'TextCollector'
2646
fd847e43cedd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2645
diff changeset
   988
                    postBuildCallback: postBuildMakeOutputWindow:
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
                  )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   990
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   991
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   992
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   993
            )
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   994
           (HorizontalPanelViewSpec
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   995
              name: 'HorizontalPanel1'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   996
              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   997
              horizontalLayout: leftSpace
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   998
              verticalLayout: center
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
   999
              horizontalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1000
              verticalSpace: 3
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1001
              component: 
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1002
             (SpecCollection
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1003
                collection: (
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1004
                 (ActionButtonSpec
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1005
                    label: 'Make All'
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1006
                    name: 'Button3'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1007
                    translateLabel: true
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1008
                    model: doStartMakeAll
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1009
                    enableChannel: startMakeButtonEnabled
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1010
                    extent: (Point 107 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1011
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1012
                 (ActionButtonSpec
2674
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1013
                    label: 'Make EXE only'
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1014
                    name: 'Button5'
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1015
                    translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1016
                    model: doStartMakeExe
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1017
                    enableChannel: startMakeButtonEnabled
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1018
                    extent: (Point 107 22)
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1019
                  )
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1020
                 (ViewSpec
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1021
                    name: 'Box1'
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1022
                    extent: (Point 20 10)
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1023
                  )
Claus Gittinger <cg@exept.de>
parents: 2671
diff changeset
  1024
                 (ActionButtonSpec
2648
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1025
                    label: 'Stop Make'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1026
                    name: 'Button4'
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1027
                    visibilityChannel: stopMakeButtonVisible
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1028
                    translateLabel: true
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1029
                    model: doStopMake
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1030
                    extent: (Point 107 22)
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1031
                  )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1032
                 )
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1033
               
23b690dfd69a added: #hasProjectBuilder
Claus Gittinger <cg@exept.de>
parents: 2646
diff changeset
  1034
              )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1036
           )
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
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1042
page8_deploySpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1043
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1044
     by the UIPainter of ST/X."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1045
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1046
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1047
     the UIPainter may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1048
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1049
    "
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1050
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page8_deploySpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1051
     Tools::ProjectBuilderAssistantApplication new openInterface:#page8_deploySpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1052
    "
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1053
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1054
    <resource: #canvas>
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1055
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1056
    ^ 
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1057
     #(FullSpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1058
        name: #'page8_deploySpec'
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1059
        window: 
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1060
       (WindowSpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1061
          label: 'Project Selection'
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1062
          name: 'Project Selection'
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1063
          min: (Point 0 0)
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1064
          bounds: (Rectangle 0 0 521 472)
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1065
        )
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1066
        component: 
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1067
       (SpecCollection
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1068
          collection: (
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1069
           (FramedBoxSpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1070
              label: 'Files for Deployment'
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1071
              name: 'FramedBox3'
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1072
              layout: (LayoutFrame 0 0.0 5 0 4 1.0 0 1)
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1073
              labelPosition: topLeft
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1074
              translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1075
              component: 
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1076
             (SpecCollection
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1077
                collection: (
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1078
                 (SubCanvasSpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1079
                    name: 'SubCanvas1'
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1080
                    layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1081
                    hasHorizontalScrollBar: false
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1082
                    hasVerticalScrollBar: false
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1083
                    clientHolder: fileBrowserInstance
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1084
                    createNewApplication: true
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1085
                    createNewBuilder: true
2675
7bd7413e3cb3 added: #doStartMakeExe
Claus Gittinger <cg@exept.de>
parents: 2674
diff changeset
  1086
                  )
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1087
                 (HorizontalPanelViewSpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1088
                    name: 'HorizontalPanel1'
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1089
                    layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
2679
Claus Gittinger <cg@exept.de>
parents: 2676
diff changeset
  1090
                    horizontalLayout: centerMax
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1091
                    verticalLayout: center
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1092
                    horizontalSpace: 3
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1093
                    verticalSpace: 3
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1094
                    component: 
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1095
                   (SpecCollection
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1096
                      collection: (
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1097
                       (ActionButtonSpec
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1098
                          label: 'Open Windows Explorer'
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1099
                          name: 'Button1'
2720
99b643eb4ba9 added: #isWindowsOS
Claus Gittinger <cg@exept.de>
parents: 2719
diff changeset
  1100
                          visibilityChannel: isWindowsOS
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1101
                          translateLabel: true
2649
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  1102
                          resizeForLabel: true
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  1103
                          model: doOpenExplorer
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  1104
                          extent: (Point 172 22)
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  1105
                        )
2679
Claus Gittinger <cg@exept.de>
parents: 2676
diff changeset
  1106
                       (ActionButtonSpec
Claus Gittinger <cg@exept.de>
parents: 2676
diff changeset
  1107
                          label: 'Open Console'
Claus Gittinger <cg@exept.de>
parents: 2676
diff changeset
  1108
                          name: 'Button2'
2720
99b643eb4ba9 added: #isWindowsOS
Claus Gittinger <cg@exept.de>
parents: 2719
diff changeset
  1109
                          visibilityChannel: false
2679
Claus Gittinger <cg@exept.de>
parents: 2676
diff changeset
  1110
                          translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 2676
diff changeset
  1111
                          resizeForLabel: true
Claus Gittinger <cg@exept.de>
parents: 2676
diff changeset
  1112
                          model: doOpenConsoleTerminal
Claus Gittinger <cg@exept.de>
parents: 2676
diff changeset
  1113
                          extent: (Point 172 22)
Claus Gittinger <cg@exept.de>
parents: 2676
diff changeset
  1114
                        )
2649
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  1115
                       )
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  1116
                     
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  1117
                    )
e851fc141ff1 added: #doOpenExplorer
Claus Gittinger <cg@exept.de>
parents: 2648
diff changeset
  1118
                  )
2636
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
                 )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
               
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
              )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
            )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
           )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
         
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
        )
c338c198484d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
      )
2676
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1127
! !
Claus Gittinger <cg@exept.de>
parents: 2675
diff changeset
  1128
2697
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1129
!ProjectBuilderAssistantApplication class methodsFor:'misc specs'!
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1130
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1131
newProjectsNameListSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1132
    "This resource specification was automatically generated
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1133
     by the UIPainter of ST/X."
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1134
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1135
    "Do not manually edit this!! If it is corrupted,
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1136
     the UIPainter may not be able to read the specification."
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1137
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1138
    "
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1139
     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#newProjectsNameListSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1140
     Tools::ProjectBuilderAssistantApplication new openInterface:#newProjectsNameListSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1141
    "
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1142
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1143
    <resource: #canvas>
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1144
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1145
    ^ 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1146
     #(FullSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1147
        name: newProjectsNameListSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1148
        window: 
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1149
       (WindowSpec
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1150
          label: 'NewApplication'
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1151
          name: 'NewApplication'
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1152
          min: (Point 0 0)
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1153
          bounds: (Rectangle 0 0 131 207)
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset
  1154
        )
34585829b151 selection of new projects name to create
fm
parents: 2696
diff changeset