Re: [Pharo-users] How to visit over packages, classes, methods (all types)

[Dale Henrichs]

clarification embedded below

On 5/20/19 3:43 PM, Dale Henrichs wrote:

    | project className |
    project := (Rowan projectNamed:'Exercise') asDefinition.    
    className := 'Acronym'.
    packageName := 'Exercise-', className.
    ((project
        addPackageNamed: packageName
                toComponentNamed: className
                withConditions: 'gemstone'
                andGroup: 'core')
        addClassNamed: className super: 'Object' category: packageName)
        addInstanceMethod: 'foo ^1' protocol: 'accessing.

    ((project
        addPackageNamed: packageName, '-Test'
                toComponentNamed: className
                withConditions: 'gemstone'
                andGroup: 'test')
        addClassNamed: className, 'Test' super: 'TestCase' category: 
packageName)
        addInstanceMethod: 'test ...' protocol: 'testing.

    (project componentNamed: className)
        addComponent: 'ExercismDev'.
    project export.                     "to write project to disk"
    project load.                               "to load the project in the 
image"

'ExercismDev' above and 'ExercismTools' should be the same component 
name ('ExercismDev' ?) ... this is the component name containing the 
required packages ...

    RwComponentLoadConfiguration{
        #name : 'Acronym',
        #version : '0.1.0',
        #conditionalPackages : {
                [
                        'gemstone'
                ] : {
                        'core' : {
                                #packageNames : [
                                        'Exercise-Acronym'
                                ]
                        }
                        'test' : {
                                #packageNames : [
                                        'Exercise-Acronym-Test'
                                ]
                        }

                }
        },
        #componentNames : [ 'ExercismTools' ]
    }