equal
deleted
inserted
replaced
309 |
309 |
310 ! |
310 ! |
311 |
311 |
312 sortByClass |
312 sortByClass |
313 self label:'Memory usage; by class'. |
313 self label:'Memory usage; by class'. |
314 sortBlock := [:a :b | (a at:1) displayString < (b at:1) displayString]. |
314 sortBlock := [:a :b | |c1 c2 s1 s2| |
|
315 |
|
316 c1 := (a at:1). |
|
317 c2 := (b at:1). |
|
318 |
|
319 s1 := c1 isBehavior ifTrue:[ c1 name] ifFalse:[ c1 displayString ]. |
|
320 s2 := c2 isBehavior ifTrue:[ c2 name ] ifFalse:[ c2 displayString ]. |
|
321 s1 < s2]. |
315 self updateDisplay |
322 self updateDisplay |
316 |
323 |
317 "Modified: 28.6.1996 / 14:32:38 / cg" |
324 "Modified: 28.6.1996 / 14:32:38 / cg" |
|
325 ! |
|
326 |
|
327 sortByClassNameWithoutPrefix |
|
328 self label:'Memory usage; by className without prefix'. |
|
329 sortBlock := [:a :b | |c1 c2 s1 s2| |
|
330 |
|
331 c1 := (a at:1). |
|
332 c2 := (b at:1). |
|
333 |
|
334 s1 := c1 isBehavior ifTrue:[ c1 nameWithoutPrefix ] ifFalse:[ c1 displayString ]. |
|
335 s2 := c2 isBehavior ifTrue:[ c2 nameWithoutPrefix ] ifFalse:[ c2 displayString ]. |
|
336 s1 < s2]. |
|
337 self updateDisplay |
|
338 |
|
339 |
|
340 |
|
341 |
|
342 |
|
343 |
|
344 |
318 ! |
345 ! |
319 |
346 |
320 sortByInstCount |
347 sortByInstCount |
321 self label:'Memory usage; by instance count'. |
348 self label:'Memory usage; by instance count'. |
322 "/ sortBlock := [:a :b | (a at:2) > (b at:2) ]. |
349 "/ sortBlock := [:a :b | (a at:2) > (b at:2) ]. |
367 |
394 |
368 |m| |
395 |m| |
369 |
396 |
370 m := PopUpMenu |
397 m := PopUpMenu |
371 itemList:#( |
398 itemList:#( |
372 ('sort by class' sortByClass ) |
399 ('sort by class name' sortByClass ) |
|
400 ('sort by classes base name' sortByClassNameWithoutPrefix ) |
373 ('sort by inst count' sortByInstCount ) |
401 ('sort by inst count' sortByInstCount ) |
374 ('sort by memory usage' sortByMemoryUsage ) |
402 ('sort by memory usage' sortByMemoryUsage ) |
375 ('sort by average size' sortByAverageSize ) |
403 ('sort by average size' sortByAverageSize ) |
376 ('sort by maximum size' sortByMaxSize ) |
404 ('sort by maximum size' sortByMaxSize ) |
377 ('-') |
405 ('-') |
585 ! ! |
613 ! ! |
586 |
614 |
587 !MemoryUsageView class methodsFor:'documentation'! |
615 !MemoryUsageView class methodsFor:'documentation'! |
588 |
616 |
589 version |
617 version |
590 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.39 2000-08-15 14:15:20 cg Exp $' |
618 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.40 2000-09-05 19:15:26 cg Exp $' |
591 ! ! |
619 ! ! |