changeset 1443 | ba75957c7bfc |
parent 1436 | 180804d7c28f |
child 1446 | 6f2344ca1e92 |
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 ! |