equal
deleted
inserted
replaced
995 ! |
995 ! |
996 |
996 |
997 classAtTargetPointOf:aDropContext |
997 classAtTargetPointOf:aDropContext |
998 |p classListView lineNr cls| |
998 |p classListView lineNr cls| |
999 |
999 |
1000 p := aDropContext targetPoint. |
1000 p := aDropContext targetPointInDeviceCoordinates. |
1001 |
1001 |
1002 classListView := aDropContext targetWidget. |
1002 classListView := aDropContext targetWidget. |
1003 |
1003 |
1004 lineNr := classListView lineAtY:p y. |
1004 lineNr := classListView lineAtY:p y. |
1005 lineNr isNil ifTrue:[^ nil]. |
1005 lineNr isNil ifTrue:[^ nil]. |
1006 |
1006 |
1007 cls := classList value at:lineNr. |
1007 cls := classList value at:lineNr. |
1008 ^ cls |
1008 ^ cls |
|
1009 |
|
1010 "Modified: / 15-06-2018 / 02:26:58 / Claus Gittinger" |
1009 ! |
1011 ! |
1010 |
1012 |
1011 doDropContext:aDropContext |
1013 doDropContext:aDropContext |
1012 |objects browser| |
1014 |objects browser| |
1013 |
1015 |