1408     cls isNil ifTrue:[

  1408     cls isNil ifTrue:[

  1409         ^ self information:'no application class defined yet'

  1409         ^ self information:'no application class defined yet'

  1410     ].

  1410     ].

  1411     aspect := self specTool specification columns.

  1411     aspect := self specTool specification columns.

  1412     editor := DataSetBuilder new.

  1412     editor := DataSetBuilder new.

  1413     editor columns:aspect fromView:(self layoutTool layoutView).

  1414     editor columns:aspect fromView:(self layoutTool layoutView).

  1414     editor rowClassName:(self specTool specification rowClassName).

  1415     editor rowClassName:(self specTool specification rowClassName).

  1415     editor openModal.

  1416     editor openModal.

  1416 

  1417 

  1417     editor hasChanged ifTrue:[

  1418     editor hasChanged ifTrue:[