ImageEditor.st
changeset 1443 ba75957c7bfc
parent 1436 180804d7c28f
child 1446 6f2344ca1e92
equal deleted inserted replaced
1442:ed108e53c783 1443:ba75957c7bfc
  1519 
  1519 
  1520 hasClassDefined
  1520 hasClassDefined
  1521     ^ [
  1521     ^ [
  1522         |clsName|
  1522         |clsName|
  1523 
  1523 
  1524         (clsName := imageEditView resourceClass) > 0
  1524         (clsName := imageEditView resourceClass) size > 0
  1525         and:[(Smalltalk at:clsName ifAbsent:nil) notNil]
  1525         and:[(Smalltalk at:clsName ifAbsent:nil) notNil]
  1526       ]
  1526       ]
  1527 
  1527 
  1528     "Created: / 31.7.1998 / 02:02:22 / cg"
  1528     "Created: / 31.7.1998 / 02:02:22 / cg"
  1529 !
  1529 !