" *****************************************************************************************************
*
*  model.txt
*
*   This examples how to work with models
*
*
******************************************************************************************************"


| aModel aTextDisplay |
aTextDisplay := TextWindow  windowLabeled: 'LPC Brokers'
                           frame: (0 @ 0 corner: 500 @ 500).
aTextDisplay cr.


"Creating a Model "
 aModel := LPCModel newName: #LpcSample.

"Displaying a Collection of Models defined in our image"
aTextDisplay nextPutAll: '*** Models defined in the image ***' ; cr.
LPCModel lpcModels do: [ :each | aTextDisplay nextPutAll: each modelName ; cr ].

" retrieving aModel using its name"
aModel := LPCModel getName: #LpcSample.

"removing a Model from the image"
LPCModel removeName: #LpcSample.




