equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995-1998 by eXept Software AG |
4 COPYRIGHT (c) 1995-1998 by eXept Software AG |
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 |
7328 ! ! |
7330 ! ! |
7329 |
7331 |
7330 !UIPainter::TreeView methodsFor:'searching'! |
7332 !UIPainter::TreeView methodsFor:'searching'! |
7331 |
7333 |
7332 detectItemCorespondingToView:aView |
7334 detectItemCorespondingToView:aView |
7333 "detects the item coresponding to the view. The item of the view or the first |
7335 "detects the item corresponding to the view. The item of the view or the first |
7334 subview providing the item is returned. If no property is detected nil is |
7336 subview providing the item is returned. If no property is detected nil is |
7335 returned" |
7337 returned" |
7336 |
7338 |
7337 |view item| |
7339 |view item| |
7338 |
7340 |
7340 |
7342 |
7341 [(item := self itemOfView:view) isNil] whileTrue:[ |
7343 [(item := self itemOfView:view) isNil] whileTrue:[ |
7342 (view := view superView) isNil ifTrue:[^ listOfNodes at:1] |
7344 (view := view superView) isNil ifTrue:[^ listOfNodes at:1] |
7343 ]. |
7345 ]. |
7344 ^ item |
7346 ^ item |
|
7347 |
|
7348 "Modified (comment): / 11-05-2017 / 12:42:31 / mawalch" |
7345 ! ! |
7349 ! ! |
7346 |
7350 |
7347 !UIPainter::TreeView methodsFor:'user interaction'! |
7351 !UIPainter::TreeView methodsFor:'user interaction'! |
7348 |
7352 |
7349 askForSelectionChangeAllowed |
7353 askForSelectionChangeAllowed |