equal
deleted
inserted
replaced
860 ! |
860 ! |
861 |
861 |
862 categoryAtTargetPointOf:aDropContext |
862 categoryAtTargetPointOf:aDropContext |
863 |p methodListView lineNr cat| |
863 |p methodListView lineNr cat| |
864 |
864 |
865 p := aDropContext targetPoint. |
865 p := aDropContext targetPointInDeviceCoordinates. |
866 |
866 |
867 methodListView := aDropContext targetWidget. |
867 methodListView := aDropContext targetWidget. |
868 |
868 |
869 lineNr := methodListView lineAtY:p y. |
869 lineNr := methodListView lineAtY:p y. |
870 lineNr isNil ifTrue:[^ nil]. |
870 lineNr isNil ifTrue:[^ nil]. |
872 cat := rawProtocolList at:lineNr. |
872 cat := rawProtocolList at:lineNr. |
873 cat := cat string. |
873 cat := cat string. |
874 cat = self class nameListEntryForALL ifTrue:[^ nil]. |
874 cat = self class nameListEntryForALL ifTrue:[^ nil]. |
875 |
875 |
876 ^ cat |
876 ^ cat |
|
877 |
|
878 "Modified: / 15-06-2018 / 02:27:05 / Claus Gittinger" |
877 ! |
879 ! |
878 |
880 |
879 doDropContext:aDropContext |
881 doDropContext:aDropContext |
880 "handle dropping of a method as a category change" |
882 "handle dropping of a method as a category change" |
881 |
883 |