" *****************************************************************************************************
*
*  classgen.txt
*
*   This examples shows how to generate a class for a type
*
*
******************************************************************************************************"


| aModel aTextDisplay courseType aClass|
aTextDisplay := TextWindow  windowLabeled: 'LPC Brokers - generating a Class '
                           frame: (0 @ 0 corner: 500 @ 500).
aTextDisplay cr. 
 
aModel := LPCModel getName: #LpcSample.
courseType :=aModel typeNamed: #Course.

"generate a class with instance variable and accessors"

LPCClassGenerator generateClassForObjectType: courseType
                    options: ((Dictionary new) at:#AccessMethods put: #Yes ; yourself).

ClassBrowser new openOn: (Smalltalk at: #Course).


