equal
deleted
inserted
replaced
913 |
913 |
914 !MethodRewriter methodsFor:'drag & drop'! |
914 !MethodRewriter methodsFor:'drag & drop'! |
915 |
915 |
916 canDropClasses: dropContext |
916 canDropClasses: dropContext |
917 |
917 |
918 ^dropContext dropObjects allSatisfy: [:obj|obj isClassObject] |
918 ^dropContext dropObjects allSatisfy: [:obj|obj isClassObject or:[obj isMethodObject]] |
919 |
919 |
920 "Created: / 20-07-2007 / 16:58:13 / janfrog" |
920 "Created: / 20-07-2007 / 16:58:13 / janfrog" |
921 ! |
921 ! |
922 |
922 |
923 doDropClasses: dropContext |
923 doDropClasses: dropContext |
924 |
924 |
925 | newClasses | |
925 | newClasses | |
926 newClasses := dropContext dropObjects |
926 newClasses := dropContext dropObjects |
927 select:[:obj|obj isClassObject] |
927 select:[:obj|obj isClassObject or:[obj isMethodObject]]. |
928 thenCollect:[:obj|obj theObject]. |
928 newClasses := newClasses |
|
929 collect:[:obj| |clsOrMethod| |
|
930 clsOrMethod := obj theObject. |
|
931 clsOrMethod isMethod ifTrue:[clsOrMethod containingClass] ifFalse:[clsOrMethod] |
|
932 ] as:IdentitySet. |
|
933 |
929 newClasses := newClasses reject:[:cls|self classes includes:cls]. |
934 newClasses := newClasses reject:[:cls|self classes includes:cls]. |
930 self classes |
935 self classes |
931 addAll: newClasses; |
936 addAll: newClasses; |
932 changed:#content |
937 changed:#content |
933 |
938 |
1071 ! ! |
1076 ! ! |
1072 |
1077 |
1073 !MethodRewriter class methodsFor:'documentation'! |
1078 !MethodRewriter class methodsFor:'documentation'! |
1074 |
1079 |
1075 version_CVS |
1080 version_CVS |
1076 ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.15 2011-08-04 19:21:34 cg Exp $' |
1081 ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.16 2012-08-03 19:21:17 stefan Exp $' |
1077 ! |
1082 ! |
1078 |
1083 |
1079 version_SVN |
1084 version_SVN |
1080 ^ '§Id: Tools__MethodRewriter.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
1085 ^ '§Id: Tools__MethodRewriter.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
1081 ! ! |
1086 ! ! |