equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
4 COPYRIGHT (c) 1994 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
431 ! ! |
433 ! ! |
432 |
434 |
433 !SelectionInList methodsFor:'queries'! |
435 !SelectionInList methodsFor:'queries'! |
434 |
436 |
435 hasSelection |
437 hasSelection |
436 "return true, if there is a selection |
438 "return true, if there is a selection" |
437 " |
439 |
438 ^ self numberOfSelections ~~ 0 |
440 ^ self numberOfSelections ~~ 0 |
439 ! |
441 ! |
440 |
442 |
441 numberOfSelections |
443 numberOfSelections |
442 "return the number of selected entries |
444 "return the number of selected entries |