equal
deleted
inserted
replaced
899 or:[changedObject == currentClass]]) ifTrue:[ |
899 or:[changedObject == currentClass]]) ifTrue:[ |
900 "/ |
900 "/ |
901 "/ its the current class that has changed |
901 "/ its the current class that has changed |
902 "/ |
902 "/ |
903 ((something == #methodDictionary) |
903 ((something == #methodDictionary) |
|
904 or:[something == #methodPackage |
904 or:[something == #methodTrap |
905 or:[something == #methodTrap |
905 or:[something == #methodPrivacy]]) ifTrue:[ |
906 or:[something == #methodPrivacy]]]) ifTrue:[ |
906 |
907 |
907 "/ new feature: changeArg may be an array consisting of |
908 "/ new feature: changeArg may be an array consisting of |
908 "/ the selector and the oldMethod |
909 "/ the selector and the oldMethod |
909 |
910 |
910 someArgument isArray ifTrue:[ |
911 someArgument isArray ifTrue:[ |
936 "/ methodListView notNil ifTrue:[ |
937 "/ methodListView notNil ifTrue:[ |
937 "/ methodListView setSelection:oldMethodSelection. |
938 "/ methodListView setSelection:oldMethodSelection. |
938 "/ ]. |
939 "/ ]. |
939 |
940 |
940 (something == #methodTrap |
941 (something == #methodTrap |
941 or:[something == #methodPrivacy]) ifTrue:[ |
942 or:[something == #methodPackage |
|
943 or:[something == #methodPrivacy]]) ifTrue:[ |
942 selector == currentSelector ifTrue:[ |
944 selector == currentSelector ifTrue:[ |
943 self refetchMethod. |
945 self refetchMethod. |
944 ]. |
946 ]. |
945 ^ self. |
947 ^ self. |
946 ]. |
948 ]. |
9321 initialAnswer:currentClass package. |
9323 initialAnswer:currentClass package. |
9322 newPackage size == 0 ifTrue:[ |
9324 newPackage size == 0 ifTrue:[ |
9323 ^ self |
9325 ^ self |
9324 ]. |
9326 ]. |
9325 |
9327 |
9326 currentMethod package:newPackage |
9328 currentMethod package:newPackage. |
|
9329 currentClass changed:#methodPackage with:currentSelector. |
9327 |
9330 |
9328 "Created: 23.11.1995 / 11:41:38 / cg" |
9331 "Created: 23.11.1995 / 11:41:38 / cg" |
9329 "Modified: 6.2.1996 / 16:58:58 / cg" |
9332 "Modified: 6.2.1996 / 16:58:58 / cg" |
9330 |
9333 |
9331 |
9334 |
13683 ! ! |
13686 ! ! |
13684 |
13687 |
13685 !BrowserView class methodsFor:'documentation'! |
13688 !BrowserView class methodsFor:'documentation'! |
13686 |
13689 |
13687 version |
13690 version |
13688 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.539 1999-08-18 10:59:41 cg Exp $' |
13691 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.540 1999-08-18 12:44:58 cg Exp $' |
13689 ! ! |
13692 ! ! |
13690 BrowserView initialize! |
13693 BrowserView initialize! |