equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
2 COPYRIGHT (c) 1995 by Claus Gittinger / 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 |
2682 |
2680 |
2683 |item parent| |
2681 |item parent| |
2684 |
2682 |
2685 item := treeView itemOfView:aView. |
2683 item := treeView itemOfView:aView. |
2686 item isNil ifTrue:[ |
2684 item isNil ifTrue:[ |
2687 "/ I dont know anything about that view (cg: how can this happen ?) |
2685 "/ I don't know anything about that view (cg: how can this happen ?) |
2688 "/ self breakPoint:#cg. |
2686 "/ self breakPoint:#cg. |
2689 ^ false |
2687 ^ false |
2690 ]. |
2688 ]. |
2691 parent := item parent. |
2689 parent := item parent. |
2692 parent isNil ifTrue:[ |
2690 parent isNil ifTrue:[ |
2787 |
2785 |
2788 |item parent| |
2786 |item parent| |
2789 |
2787 |
2790 item := treeView itemOfView:aView. |
2788 item := treeView itemOfView:aView. |
2791 item isNil ifTrue:[ |
2789 item isNil ifTrue:[ |
2792 "/ I dont know anything about that view (cg: how can this happen ?) |
2790 "/ I don't know anything about that view (cg: how can this happen ?) |
2793 "/ self breakPoint:#cg. |
2791 "/ self breakPoint:#cg. |
2794 ^ false |
2792 ^ false |
2795 ]. |
2793 ]. |
2796 parent := item parent. |
2794 parent := item parent. |
2797 parent isNil ifTrue:[ |
2795 parent isNil ifTrue:[ |