equal
deleted
inserted
replaced
14 |
14 |
15 SimpleView subclass:#InspectorView |
15 SimpleView subclass:#InspectorView |
16 instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown |
16 instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown |
17 hasMore monitorProcess hideReceiver showHex inspectHistory |
17 hasMore monitorProcess hideReceiver showHex inspectHistory |
18 allowFollow isStandaloneInspector selectionIndex object |
18 allowFollow isStandaloneInspector selectionIndex object |
19 inspectedObjectHolder' |
19 inspectedObjectHolder displayStringMessage' |
20 classVariableNames:'DefaultIcon' |
20 classVariableNames:'DefaultIcon' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'Interface-Inspector' |
22 category:'Interface-Inspector' |
23 ! |
23 ! |
24 |
24 |
391 initialize |
391 initialize |
392 |v panel helpView labelView2| |
392 |v panel helpView labelView2| |
393 |
393 |
394 super initialize. |
394 super initialize. |
395 |
395 |
|
396 displayStringMessage := #displayString. |
396 hideReceiver := false. |
397 hideReceiver := false. |
397 showHex := false. |
398 showHex := false. |
398 allowFollow := false. |
399 allowFollow := false. |
399 isStandaloneInspector := false. |
400 isStandaloneInspector := false. |
400 |
401 |
1244 |
1245 |
1245 self topView withWaitCursorDo:[ |
1246 self topView withWaitCursorDo:[ |
1246 |s| |
1247 |s| |
1247 |
1248 |
1248 Object errorSignal handle:[:ex | |
1249 Object errorSignal handle:[:ex | |
1249 s := someValue classNameWithArticle , ' "error in displayString"' |
1250 s := someValue classNameWithArticle. |
|
1251 displayStringMessage == #displayString ifTrue:[ |
|
1252 s := s , ' "error in displayString"' |
|
1253 ] ifFalse:[ |
|
1254 s := s , ' "error in displayString (' , displayStringMessage , ')"' |
|
1255 ] |
1250 ] do:[ |
1256 ] do:[ |
1251 s := someValue displayString. |
1257 "/ displayStringMessage := #classNameWithArticle |
|
1258 "/ displayStringMessage := #displayString |
|
1259 "/ displayStringMessage := #printString |
|
1260 s := someValue perform:displayStringMessage. |
1252 showHex ifTrue:[ |
1261 showHex ifTrue:[ |
1253 someValue isInteger ifTrue:[ |
1262 someValue isInteger ifTrue:[ |
1254 s := '16r' , someValue hexPrintString |
1263 s := '16r' , someValue hexPrintString |
1255 ] ifFalse:[ |
1264 ] ifFalse:[ |
1256 (someValue isMemberOf:ByteArray) ifTrue:[ |
1265 (someValue isMemberOf:ByteArray) ifTrue:[ |
1345 ! ! |
1354 ! ! |
1346 |
1355 |
1347 !InspectorView class methodsFor:'documentation'! |
1356 !InspectorView class methodsFor:'documentation'! |
1348 |
1357 |
1349 version |
1358 version |
1350 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.114 2001-09-25 12:57:35 cg Exp $' |
1359 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.115 2001-10-18 09:58:58 cg Exp $' |
1351 ! ! |
1360 ! ! |