"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

Object subclass:#CodeGeneratorTool

	instanceVariableNames:'compositeChangeCollector compositeChangeNesting userPreferences

		generateComments'

	classVariableNames:'GenerateCommentsForGetters GenerateCommentsForSetters

		CopyrightTemplate'

	poolDictionaries:''

	category:'Interface-Browsers'

!

!CodeGeneratorTool class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This utility class contains various code generation facilites;

    these were extracted from the old and newBrowser.

    There is probably more to come...

    [author:]

        Claus Gittiner

"

! !

!CodeGeneratorTool class methodsFor:'instance creation'!

new

    ^ self basicNew initialize.

! !

!CodeGeneratorTool class methodsFor:'code generation'!

createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly

    "create accessors in aClass"

    ^ self new 

        createAccessMethodsFor:aCollectionOfVarNames 

        in:aClass 

        withChange:withChange 

        asValueHolder:asValueHolder 

        readersOnly:readersOnly 

        writersOnly:writersOnly

!

createApplicationCodeFor:aClass

    "create an empty application framework"

    ^ self new createApplicationCodeFor:aClass

!

createClassResponsibleProtocolFor:aClass

    "create stubs for the required protocol"

    ^ self new createClassResponsibleProtocolFor:aClass

!

createClassTypeTestMethodsIn:aClass forClasses:subClasses

    "create a #isXXX test methods (I'm tired of typing)"

    ^ self new createClassTypeTestMethodsIn:aClass forClasses:subClasses

!

createDocumentationMethodsFor:aClass

    "create empty documentation methods"

    ^ self new createDocumentationMethodsFor:aClass

!

createEnumTypeCodeFor:aClass

    ^ self new createEnumTypeCodeFor:aClass

!

createInitializationMethodIn:aClass

    "create a #initialize methods (I'm tired of typing)"

    ^ self new createInitializationMethodIn:aClass

!

createInitializedInstanceCreationMethodsIn:aClass

    "create a #new and #initialize methods (I'm tired of typing)"

    ^ self new createInitializedInstanceCreationMethodsIn:aClass

!

createParametrizedInstanceCreationMethodsNamed:selector in:aClass

    "create a #selector instance creation method (I'm tired of typing)"

    ^ self new createParametrizedInstanceCreationMethodsNamed:selector in:aClass

!

createRedefinedInstanceCreationMethodsIn:aClass

    "create a redefined #new method"

    ^ self new createRedefinedInstanceCreationMethodsIn:aClass

!

createStartupCodeFor:aClass forStartOf:anApplicationClassOrNil

    "create standAloneStartup code"

    ^ self new createStartupCodeFor:aClass forStartOf:anApplicationClassOrNil

!

createTestCaseSampleCodeFor:aClass

    "create an (almost) empty testCase class"

    ^ self new createTestCaseSampleCodeFor:aClass

!

createVisitorMethodsIn:visitedClass andVisitorClass:visitorClass

    "create acceptVisitor: in visitedClass and acceptXXX in visitorClass. (I'm tired of typing)"

    ^ self new createVisitorMethodsIn:visitedClass andVisitorClass:visitorClass

!

createWebApplicationCodeFor:aClass

    "create an empty webApplication framework"

    ^ self new createWebApplicationCodeFor:aClass

!

createWebServiceCodeFor:aClass

    "create an empty webService framework"

    ^ self new createWebServiceCodeFor:aClass

!

createWidgetCodeFor:aClass

    "create usually required widget code (redraw, model update, event handling)"

    ^ self new createWidgetCodeFor:aClass

!

initialMenuSpecMethodSourceForApplications

    "return a menuSpec with typical stuff in it"

    ^

'mainMenu

    "This resource specification was automatically generated by the CodeGeneratorTool."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:%1 andSelector:#mainMenu

    "

    <resource: #menu>

    ^ #(#Menu

           #(

             #(#MenuItem

                #label: ''File''

                #translateLabel: true

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: ''New''

                          #translateLabel: true

                          #value: #menuNew

                      )

                       #(#MenuItem

                          #label: ''-''

                      )

                       #(#MenuItem

                          #label: ''Open...''

                          #translateLabel: true

                          #value: #menuOpen

                      )

                       #(#MenuItem

                          #label: ''-''

                      )

                       #(#MenuItem

                          #label: ''Save''

                          #translateLabel: true

                          #value: #menuSave

                      )

                       #(#MenuItem

                          #label: ''Save As...''

                          #translateLabel: true

                          #value: #menuSaveAs

                      )

                       #(#MenuItem

                          #label: ''-''

                      )

                       #(#MenuItem

                          #label: ''Exit''

                          #translateLabel: true

                          #value: #closeRequest

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: ''Help''

                #translateLabel: true

                #startGroup: #right

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: ''Documentation''

                          #translateLabel: true

                          #value: #openDocumentation

                      )

                       #(#MenuItem

                          #label: ''-''

                      )

                       #(#MenuItem

                          #label: ''About this Application...''

                          #translateLabel: true

                          #value: #openAboutThisApplication

                      )

                    ) nil

                    nil

                )

            )

          ) nil

          nil

      )

'.

!

initialPageMenuSpec

    "return a menuSpec with typical stuff in it"

    "This resource specification was automatically generated by the CodeGeneratorTool."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:%1 andSelector:#mainMenu

    "

    <resource: #menu>

    ^ #(#Menu

           #(

             #(#MenuItem

                #label: 'File'

                #translateLabel: true

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'New'

                          #translateLabel: true

                          #value: #menuNew

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Open...'

                          #translateLabel: true

                          #value: #menuOpen

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Save'

                          #translateLabel: true

                          #value: #menuSave

                      )

                       #(#MenuItem

                          #label: 'Save As...'

                          #translateLabel: true

                          #value: #menuSaveAs

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Exit'

                          #translateLabel: true

                          #value: #closeRequest

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Help'

                #translateLabel: true

                #startGroup: #right

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Documentation'

                          #translateLabel: true

                          #value: #openDocumentation

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'About this Application...'

                          #translateLabel: true

                          #value: #openAboutThisApplication

                      )

                    ) nil

                    nil

                )

            )

          ) nil

          nil

      )

!

initialPageMenuSpecMethodSourceForWebApplications

    "return a menuSpec with typical stuff in it"

    ^

'mainMenu

    "This resource specification was automatically generated by the CodeGeneratorTool."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:%1 andSelector:#mainMenu

    "

    <resource: #menu>

    ^ ',(self initialPageMenuSpec decodeAsLiteralArray literalArrayEncoding storeString),'

'.

    "

     self initialPageMenuSpecMethodSourceForWebApplications

    "

!

initialPageSpecMethodSourceForWebApplications

    "return an empty pageSpec"

    ^

'pageSpec

    "This resource specification was automatically generated by the CodeGeneratorTool."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:%1 andSelector:#windowSpec

    "

    <resource: #canvas>

    ^ #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: ''%1''

              #layout: #(#LayoutFrame 204 0 162 0 503 0 461 0)

              #label: ''%1''

              #min: #(#Point 10 10)

              #max: #(#Point 1024 768)

              #bounds: #(#Rectangle 204 162 504 462)

              #menu: #pageMenu

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: #()

          )

      )

'.

!

initialToolbarMenuSpec

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:CodeGeneratorTool andSelector:#initialToolbarMenuSpec

     (Menu new fromLiteralArrayEncoding:(CodeGeneratorTool initialToolbarMenuSpec)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Reload'

            itemValue: menuReload

            translateLabel: true

            labelImage: (ResourceRetriever ToolbarIconLibrary reload24x24Icon)

          )

         )

        nil

        nil

      )

!

initialToolbarMenuSpecMethodSource

    "return a menuSpec with typical stuff in it"

    ^

'toolbarMenu

    "This resource specification was automatically generated by the CodeGeneratorTool."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:%1 andSelector:#toolbarMenu

    "

    <resource: #menu>

    ^ ',(self initialToolbarMenuSpec decodeAsLiteralArray literalArrayEncoding storeString),'

'.

    "

     self initialToolbarMenuSpecMethodSource

    "

!

initialWindowSpecForApplications

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:CodeGeneratorTool andSelector:#initialWindowSpecForApplications

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: initialWindowSpecForApplications

        window: 

       (WindowSpec

          label: '%1'

          name: '%1'

          min: (Point 10 10)

          max: (Point 1024 768)

          bounds: (Rectangle 0 0 300 300)

          menu: mainMenu

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Hello World'

              name: 'Label1'

              layout: (LayoutFrame 0 0.0 60 0 0 1.0 219 0)

              translateLabel: true

            )

           )

        )

      )

!

initialWindowSpecForDialogs

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "