equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2505 !MenuEditor methodsFor:'queries'! |
2503 !MenuEditor methodsFor:'queries'! |
2506 |
2504 |
2507 hasValidSpecClass |
2505 hasValidSpecClass |
2508 "returns true if a valid specClass exists |
2506 "returns true if a valid specClass exists |
2509 " |
2507 " |
2510 |cls| |
|
2511 |
|
2512 specClass isNil ifTrue:[^ false]. |
2508 specClass isNil ifTrue:[^ false]. |
2513 cls := self resolveName:specClass. |
2509 ^ (self resolveName:specClass) notNil |
2514 ^ cls notNil |
2510 |
|
2511 "Modified: / 19-11-2016 / 20:19:30 / cg" |
2515 ! |
2512 ! |
2516 |
2513 |
2517 isEditingSpecOnly |
2514 isEditingSpecOnly |
2518 ^ masterApplication notNil |
2515 ^ masterApplication notNil |
2519 and:[ masterApplication perform:#isEditingSpecOnly ifNotUnderstood:false] |
2516 and:[ masterApplication perform:#isEditingSpecOnly ifNotUnderstood:false] |