Tools__ProjectBuilderAssistantApplication.st
changeset 2993 23f43abca7d0
parent 2990 66833743333c
child 2994 1606aca78699
equal deleted inserted replaced
2992:a970017936e7 2993:23f43abca7d0
  2636 !
  2636 !
  2637 
  2637 
  2638 generatePackageContentsMethods
  2638 generatePackageContentsMethods
  2639     <resource: #uiCallback>
  2639     <resource: #uiCallback>
  2640 
  2640 
  2641     Class packageQuerySignal answer:(selectedProjectDefinition package)
  2641     selectedProjectDefinition
  2642     do:[
  2642         updateContentsMethodsCodeUsingCompiler:SmalltalkCodeGeneratorTool 
  2643         selectedProjectDefinition 
  2643         ignoreOldDefinition:true.
  2644             forEachContentsMethodsCodeToCompileDo:[:code :category |
  2644 
  2645                     SmalltalkCodeGeneratorTool
  2645 "/    Class packageQuerySignal answer:(selectedProjectDefinition package)
  2646                         compile:code
  2646 "/    do:[
  2647                         forClass:selectedProjectDefinition theMetaclass
  2647 "/        selectedProjectDefinition 
  2648                         inCategory:category.
  2648 "/            forEachContentsMethodsCodeToCompileDo:[:code :category |
  2649                 ]
  2649 "/                    SmalltalkCodeGeneratorTool
  2650             ignoreOldDefinition:true
  2650 "/                        compile:code
  2651     ].
  2651 "/                        forClass:selectedProjectDefinition theMetaclass
       
  2652 "/                        inCategory:category.
       
  2653 "/                ]
       
  2654 "/            ignoreOldDefinition:true
       
  2655 "/    ].
  2652     self updateListOfClassesInProject
  2656     self updateListOfClassesInProject
  2653 
  2657 
  2654     "Modified: / 31-01-2011 / 18:29:44 / cg"
  2658     "Modified: / 31-01-2011 / 18:29:44 / cg"
  2655 !
  2659 !
  2656 
  2660