"

 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'

	classVariableNames:'GenerateCommentsForGetters GenerateCommentsForSetters'

	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:'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

!

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

!

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

!

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

      )

'.

!

initialWindowSpecMethodSourceForApplications

    "return an empty windowSpec with an initial menubar in it"

    ^

'windowSpec

    "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: #mainMenu

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: #()

          )

      )

'.

!

initialWindowSpecMethodSourceForDialogs

    "return an empty windowSpec for dialogs"

    ^

'windowSpec

    "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 221 0 118 0 520 0 417 0)

              #level: 0

              #label: ''%1''

              #min: #(#Point 10 10)

              #max: #(#Point 1024 768)

              #bounds: #(#Rectangle 221 118 521 418)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#HorizontalPanelViewSpec

                    #name: ''buttonPanel''

                    #layout: #(#LayoutFrame 0 0.0 -45 1 0 1.0 0 1.0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                          #(#ActionButtonSpec

                             #name: ''cancelButton''

                             #label: ''Cancel''

                             #tabable: true

                             #translateLabel: true

                             #model: #cancel

                             #extent: #(#Point 125 22)

                           )

                           #(#ActionButtonSpec

                              #name: ''okButton''

                              #label: ''OK''

                              #tabable: true

                              #translateLabel: true

                              #isDefault: true

                              #model: #accept

                              #extent: #(#Point 125 22)

                          )

                        )

                    )

                    #reverseOrderIfOKAtLeft: true

                    #horizontalLayout: #spreadSpaceMax

                    #verticalLayout: #center

                    #horizontalSpace: 3

                    #verticalSpace: 3

                )

              )

          )

      )

'.

! !

!CodeGeneratorTool class methodsFor:'code generation-basic'!

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

    "workhorse for creating access methods for instvars."

    ^ self new 

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

! !

!CodeGeneratorTool class methodsFor:'code generation-individual methods'!

createAcceptVisitorMethod:selector in:aClass

    "create an acceptVisitor: method

     (I'm tired of typing)"

    ^ self new createAcceptVisitorMethod:selector in:aClass

!

createAcceptVisitorMethodIn:aClass

    "create an acceptVisitor: method

     (I'm tired of typing)"

    ^ self new createAcceptVisitorMethodIn:aClass

!

createCopyrightMethodFor:aClass

    "add copyright method containing your/your companies

     copyright template but only if not already present.

     this is only added, if specified in the 

     COPYRIGHT_TEMPLATE_FILE resources."

    ^ self new createCopyrightMethodFor:aClass