equal
deleted
inserted
replaced
261 ]. |
261 ]. |
262 classHistory addFirst:newEntry. |
262 classHistory addFirst:newEntry. |
263 classHistory size > self visitedHistoryMaxSize ifTrue:[ |
263 classHistory size > self visitedHistoryMaxSize ifTrue:[ |
264 classHistory removeLast |
264 classHistory removeLast |
265 ]. |
265 ]. |
|
266 SystemBrowser changed:#visitedClassHistory with:classHistory. |
|
267 |
|
268 "Modified: / 20-11-2006 / 12:29:45 / cg" |
266 ! |
269 ! |
267 |
270 |
268 checkClassHistory |
271 checkClassHistory |
269 "checks the class history for non-existing classes" |
272 "checks the class history for non-existing classes" |
270 |
273 |
289 ! |
292 ! |
290 |
293 |
291 emptyClassHistory |
294 emptyClassHistory |
292 "removes all class history entries" |
295 "removes all class history entries" |
293 |
296 |
294 self classHistory removeAll |
297 |classHistory| |
|
298 |
|
299 classHistory := self classHistory. |
|
300 classHistory removeAll. |
|
301 SystemBrowser changed:#visitedClassHistory with:classHistory. |
|
302 |
|
303 "Modified: / 20-11-2006 / 12:29:42 / cg" |
295 ! |
304 ! |
296 |
305 |
297 historyEntryForClass:aClass selector:aSelectorOrNil |
306 historyEntryForClass:aClass selector:aSelectorOrNil |
298 |newEntry meta cls| |
307 |newEntry meta cls| |
299 |
308 |
5524 ! ! |
5533 ! ! |
5525 |
5534 |
5526 !SystemBrowser class methodsFor:'documentation'! |
5535 !SystemBrowser class methodsFor:'documentation'! |
5527 |
5536 |
5528 version |
5537 version |
5529 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.242 2006-10-12 19:31:34 cg Exp $' |
5538 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.243 2006-11-20 11:33:38 cg Exp $' |
5530 ! ! |
5539 ! ! |
5531 |
5540 |
5532 SystemBrowser initialize! |
5541 SystemBrowser initialize! |