equal
deleted
inserted
replaced
819 (changedObject == currentMethod |
819 (changedObject == currentMethod |
820 or:[currentMethod isWrapped |
820 or:[currentMethod isWrapped |
821 and:[currentMethod originalMethod == changedObject]]) |
821 and:[currentMethod originalMethod == changedObject]]) |
822 ifTrue:[ |
822 ifTrue:[ |
823 self refetchMethod. |
823 self refetchMethod. |
|
824 "/ just in case, this is a method which is used during |
|
825 "/ the update ... |
|
826 changedObject removeDependent:self. |
824 self updateMethodListWithScroll:false keepSelection:true. |
827 self updateMethodListWithScroll:false keepSelection:true. |
825 ] |
828 changedObject addDependent:self. |
|
829 ]. |
826 ]. |
830 ]. |
827 ] |
831 ] |
828 |
832 |
829 "Created: / 4.1.1997 / 13:54:00 / cg" |
833 "Created: / 4.1.1997 / 13:54:00 / cg" |
830 "Modified: / 27.7.1998 / 12:11:16 / cg" |
834 "Modified: / 30.7.1998 / 17:33:03 / cg" |
831 ! |
835 ! |
832 |
836 |
833 refetchClass |
837 refetchClass |
834 "after a class definition change in another browser, |
838 "after a class definition change in another browser, |
835 this is sent to update (otherwise, we'd still refer to the obsolete class)" |
839 this is sent to update (otherwise, we'd still refer to the obsolete class)" |
7666 currentMethod notNil ifTrue:[ |
7670 currentMethod notNil ifTrue:[ |
7667 currentMethod isCountingMemoryUsage ifTrue:[ |
7671 currentMethod isCountingMemoryUsage ifTrue:[ |
7668 brkItems := #( |
7672 brkItems := #( |
7669 ('-' nil) |
7673 ('-' nil) |
7670 ('stop mem usage' methodStopMemoryUsage) |
7674 ('stop mem usage' methodStopMemoryUsage) |
|
7675 ('reset count' methodResetMemoryUsage) |
7671 ). |
7676 ). |
7672 ] ifFalse:[ |
7677 ] ifFalse:[ |
7673 currentMethod isCounting ifTrue:[ |
7678 currentMethod isCounting ifTrue:[ |
7674 brkItems := #( |
7679 brkItems := #( |
7675 ('-' nil ) |
7680 ('-' nil ) |
7676 ('stop counting' methodStopCounting) |
7681 ('stop counting' methodStopCounting) |
|
7682 ('reset count' methodResetCounting) |
7677 ). |
7683 ). |
7678 ] ifFalse:[ |
7684 ] ifFalse:[ |
7679 currentMethod isTimed ifTrue:[ |
7685 currentMethod isTimed ifTrue:[ |
7680 brkItems := #( |
7686 brkItems := #( |
7681 ('-' nil ) |
7687 ('-' nil ) |
7682 ('stop timing' methodStopTiming) |
7688 ('stop timing' methodStopTiming) |
|
7689 ('reset times' methodResetTiming) |
7683 ). |
7690 ). |
7684 ] ifFalse:[ |
7691 ] ifFalse:[ |
7685 currentMethod isTraced ifTrue:[ |
7692 currentMethod isTraced ifTrue:[ |
7686 brkItems := #( |
7693 brkItems := #( |
7687 ('-' nil ) |
7694 ('-' nil ) |
7892 ^ m |
7899 ^ m |
7893 |
7900 |
7894 "Created: / 23.11.1995 / 12:02:29 / cg" |
7901 "Created: / 23.11.1995 / 12:02:29 / cg" |
7895 "Modified: / 18.12.1995 / 16:20:07 / stefan" |
7902 "Modified: / 18.12.1995 / 16:20:07 / stefan" |
7896 "Modified: / 29.4.1997 / 11:20:59 / dq" |
7903 "Modified: / 29.4.1997 / 11:20:59 / dq" |
7897 "Modified: / 20.7.1998 / 14:23:07 / cg" |
7904 "Modified: / 30.7.1998 / 17:38:44 / cg" |
7898 ! |
7905 ! |
7899 |
7906 |
7900 methodMove |
7907 methodMove |
7901 "move the current method into another class; typically a superclass" |
7908 "move the current method into another class; typically a superclass" |
7902 |
7909 |
8134 "turn off tracing of the current method" |
8141 "turn off tracing of the current method" |
8135 |
8142 |
8136 self commonTraceHelperWith:#clearBreakPoint. |
8143 self commonTraceHelperWith:#clearBreakPoint. |
8137 |
8144 |
8138 "Modified: / 12.1.1998 / 19:15:32 / cg" |
8145 "Modified: / 12.1.1998 / 19:15:32 / cg" |
|
8146 ! |
|
8147 |
|
8148 methodResetCounting |
|
8149 "reset the counting statstics for the current method" |
|
8150 |
|
8151 self commonTraceHelperWith:#resetCountingStatistics |
|
8152 |
|
8153 "Modified: / 30.7.1998 / 17:16:26 / cg" |
|
8154 "Created: / 30.7.1998 / 17:39:08 / cg" |
|
8155 ! |
|
8156 |
|
8157 methodResetMemoryUsage |
|
8158 "reset the memory statstics for the current method" |
|
8159 |
|
8160 self commonTraceHelperWith:#resetMemoryUsageStatistics |
|
8161 |
|
8162 "Modified: / 30.7.1998 / 17:16:26 / cg" |
|
8163 "Created: / 30.7.1998 / 17:39:20 / cg" |
|
8164 ! |
|
8165 |
|
8166 methodResetTiming |
|
8167 "reset the timing statstics for the current method" |
|
8168 |
|
8169 self commonTraceHelperWith:#resetTimingStatistics |
|
8170 |
|
8171 "Created: / 30.7.1998 / 17:14:41 / cg" |
|
8172 "Modified: / 30.7.1998 / 17:16:26 / cg" |
8139 ! |
8173 ! |
8140 |
8174 |
8141 methodSTCCompile |
8175 methodSTCCompile |
8142 "compile the current method to machine code. |
8176 "compile the current method to machine code. |
8143 This is not supported on all machines, and never supported in |
8177 This is not supported on all machines, and never supported in |
8281 "Created: / 18.12.1995 / 16:02:02 / stefan" |
8315 "Created: / 18.12.1995 / 16:02:02 / stefan" |
8282 "Modified: / 12.1.1998 / 19:16:06 / cg" |
8316 "Modified: / 12.1.1998 / 19:16:06 / cg" |
8283 ! |
8317 ! |
8284 |
8318 |
8285 methodStopTiming |
8319 methodStopTiming |
8286 "show the execution times on the current method" |
8320 "stop timing the current method" |
8287 |
8321 |
8288 self commonTraceHelperWith:#stopTiming |
8322 self commonTraceHelperWith:#stopTiming |
8289 |
8323 |
8290 "Created: / 17.6.1996 / 17:12:27 / cg" |
8324 "Created: / 17.6.1996 / 17:12:27 / cg" |
8291 "Modified: / 12.1.1998 / 19:16:12 / cg" |
8325 "Modified: / 30.7.1998 / 17:15:10 / cg" |
8292 ! |
8326 ! |
8293 |
8327 |
8294 methodStringSearch |
8328 methodStringSearch |
8295 "launch an enterBox for string to search for" |
8329 "launch an enterBox for string to search for" |
8296 |
8330 |
12003 ! ! |
12037 ! ! |
12004 |
12038 |
12005 !BrowserView class methodsFor:'documentation'! |
12039 !BrowserView class methodsFor:'documentation'! |
12006 |
12040 |
12007 version |
12041 version |
12008 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.434 1998-07-30 09:29:04 cg Exp $' |
12042 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.435 1998-07-30 15:52:41 cg Exp $' |
12009 ! ! |
12043 ! ! |
12010 BrowserView initialize! |
12044 BrowserView initialize! |