equal
deleted
inserted
replaced
279 |
279 |
280 answer := true. |
280 answer := true. |
281 insts size > 500 ifTrue:[ |
281 insts size > 500 ifTrue:[ |
282 answer := OptionBox |
282 answer := OptionBox |
283 request:('there are ' , insts size printString , ' instances.\\Do you really want to see them all ?' withCRs) |
283 request:('there are ' , insts size printString , ' instances.\\Do you really want to see them all ?' withCRs) |
284 buttonLabels:#('Yes' 'Show me any 500' 'No' ) |
284 buttonLabels:#('No' 'Show me any 500' 'Yes' ) |
285 values:#(true #some false) |
285 values:#( false #some true ) |
286 default:true. |
286 default:true. |
287 ]. |
287 ]. |
288 answer ~~ false ifTrue:[ |
288 answer ~~ false ifTrue:[ |
289 answer == #some ifTrue:[ |
289 answer == #some ifTrue:[ |
290 (insts copyTo:500) inspect. |
290 (insts copyTo:500) inspect. |
1108 ! ! |
1108 ! ! |
1109 |
1109 |
1110 !MemoryUsageView class methodsFor:'documentation'! |
1110 !MemoryUsageView class methodsFor:'documentation'! |
1111 |
1111 |
1112 version |
1112 version |
1113 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.69 2015-02-19 08:43:31 cg Exp $' |
1113 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.70 2015-02-23 17:04:48 cg Exp $' |
1114 ! |
1114 ! |
1115 |
1115 |
1116 version_CVS |
1116 version_CVS |
1117 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.69 2015-02-19 08:43:31 cg Exp $' |
1117 ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.70 2015-02-23 17:04:48 cg Exp $' |
1118 ! ! |
1118 ! ! |
1119 |
1119 |