equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague |
4 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague |
3 Copyright (c) 2009-2010 eXept Software AG |
5 Copyright (c) 2009-2010 eXept Software AG |
4 |
6 |
5 Permission is hereby granted, free of charge, to any person |
7 Permission is hereby granted, free of charge, to any person |
718 getOtherView |
720 getOtherView |
719 |
721 |
720 | myView | |
722 | myView | |
721 |
723 |
722 myView := self getMyView. |
724 myView := self getMyView. |
723 ^ (myView isNil or:[myView superView isNil]) ifTrue:[ |
725 ^ (myView isNil or:[myView superView isNil]) |
724 nil. |
726 ifTrue:[ nil ] |
725 ] ifFalse: [ |
727 ifFalse: [ myView superView subViews after: myView ]. |
726 myView superView subViews after: myView |
|
727 ]. |
|
728 |
728 |
729 "Created: / 29-10-2010 / 11:49:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
729 "Created: / 29-10-2010 / 11:49:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
730 "Modified (format): / 29-06-2018 / 11:42:20 / Claus Gittinger" |
730 ! |
731 ! |
731 |
732 |
732 hide |
733 hide |
733 |
734 |
734 | myView otherView | |
735 | myView otherView | |