hg/stx-libtool: InspectorView.st@b1237f76f501 (annotated)

0 571fd5eee315 Initial revision claus parents: diff changeset	1	"
5 5c9b6ccfff33 claus parents: 3 diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	3	All Rights Reserved
0 571fd5eee315 Initial revision claus parents: diff changeset	4
571fd5eee315 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
571fd5eee315 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
571fd5eee315 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
571fd5eee315 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
571fd5eee315 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
571fd5eee315 Initial revision claus parents: diff changeset	10	hereby transferred.
571fd5eee315 Initial revision claus parents: diff changeset	11	"
2657 0623fcb714f7 care for nil strings Claus Gittinger <cg@exept.de> parents: 2598 diff changeset	12	"{ Package: 'stx:libtool' }"
0623fcb714f7 care for nil strings Claus Gittinger <cg@exept.de> parents: 2598 diff changeset	13
93 dda97353e775 . claus parents: 80 diff changeset	14	SimpleView subclass:#InspectorView
8962 b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	15	instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown
9557 14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	16	hasMore monitorProcess hideReceiver integerDisplayRadix
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	17	inspectHistory allowFollow isStandaloneInspector selectionIndex
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	18	object inspectedObjectHolder displayStringMessage
9630 72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	19	suppressPseudoSlots dereferenceValueHolders suppressHeadline
72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	20	headLineLabel'
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	21	classVariableNames:'DefaultIcon IdDictionary NextSequentialID LastExtent
12158 54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	22	DefaultIntegerDisplayRadix ExpandArraysInAllLists'
8962 b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	23	poolDictionaries:''
b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	24	category:'Interface-Inspector'
0 571fd5eee315 Initial revision claus parents: diff changeset	25	!
571fd5eee315 Initial revision claus parents: diff changeset	26
871 a29021918ec5 fixed openOn:monitor: Claus Gittinger <cg@exept.de> parents: 742 diff changeset	27	!InspectorView class methodsFor:'documentation'!
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	28
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	29	copyright
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	30	"
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	31	COPYRIGHT (c) 1989 by Claus Gittinger
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	32	All Rights Reserved
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	33
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	34	This software is furnished under a license and may be used
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	35	only in accordance with the terms of that license and with the
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	36	inclusion of the above copyright notice. This software may not
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	37	be provided or otherwise made available to, or used by, any
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	38	other person. No title to or ownership of the software is
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	39	hereby transferred.
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	40	"
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	41	!
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	42
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	43	documentation
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	44	"
1570 7b8bda4df1dc comment Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	45	This class implements a graphical inspector.
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	46	Inspecting can be done on an object -
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	47	(where its instvarnames/values are inspected)
1570 7b8bda4df1dc comment Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	48	or a list of objects (where a nameArray/valuesArray is inspected).
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	49	The later is used by the debugger to inspect method variables/args.
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	50
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	51	The system calls the inspector through the global variable 'Inspector'
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	52	which is bound to this class (but could be redefined - it actually is
1570 7b8bda4df1dc comment Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	53	set to MiniInspector in a smalltalk without graphical user interface,
7b8bda4df1dc comment Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	54	or to NewInspector if that is wanted).
0 571fd5eee315 Initial revision claus parents: diff changeset	55
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	56	Also notice, that there are two methods to inspect an object:
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	57	sending #basicInspect to any object, will open this kind of inspector on
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	58	it (showing instance variables which are physically present).
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	59
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	60	Sending it #inspect, will - depending on the object - sometimes invoke a
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	61	specialized inspector.
1570 7b8bda4df1dc comment Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	62	(see OrderedCollectionInspectorView, ImageInspectorView,
7b8bda4df1dc comment Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	63	ColorInspectorView etc. as examples).
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	64
446 8ded3f1df7d2 commentary Claus Gittinger <cg@exept.de> parents: 426 diff changeset	65	You can also open a monitoring inspector, which displays some instance
8ded3f1df7d2 commentary Claus Gittinger <cg@exept.de> parents: 426 diff changeset	66	variable in regular intervals. See #openOn:monitor:.
8ded3f1df7d2 commentary Claus Gittinger <cg@exept.de> parents: 426 diff changeset	67
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	68	examples:
2008 52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	69	#(1 2 3 4) asOrderedCollection inspect
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	70	#(1 2 3 4) asOrderedCollection basicInspect
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	71	(Array new:10000) inspect
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	72	(Image fromFile:'bitmaps/claus.gif') inspect
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	73	(Image fromFile:'bitmaps/claus.gif') basicInspect
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	74	(Image fromFile:'bitmaps/SBrowser.xbm') inspect
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	75	(Image fromFile:'bitmaps/SBrowser.xbm') basicInspect
446 8ded3f1df7d2 commentary Claus Gittinger <cg@exept.de> parents: 426 diff changeset	76
2008 52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	77	InspectorView openOn:Display
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	78	InspectorView openOn:Display monitor:'shiftDown'
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	79
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	80	The InspectorView can also be used as a subComponent within another view.
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	81	In this case, the isStandAlone flag should be cleared, to prevent the
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	82	inspector from changing the topViews window label.
510 6543e55fb227 documentation Claus Gittinger <cg@exept.de> parents: 472 diff changeset	83
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	84	Notice:
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	85	the instvars 'inspectedObject' and 'selectedLine' have been
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	86	renamed to 'object' and 'selectionIndex' for squeak compatibility;
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	87	however, the old vars are kept (in sync) for a while, to allow for
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	88	smooth migration.
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	89
6940 c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	90	Controlling the contents from the inspected object.
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	91
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	92	By redefining inspectorExtraAttributes or inspectorExtraNamedFields, the inspected
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	93	object can add items to the list of fields as ashown in the left list-view of the inspector.
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	94	These methods are meant to return a sequencable Collection of Associations, which represent
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	95	of pseudo slot-name, slot-value pairs.
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	96	In the list, extra attributes are shown with a dash (-), extra named fields are marked with a tick (`).
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	97	These are added (read only) to the list.
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	98
510 6543e55fb227 documentation Claus Gittinger <cg@exept.de> parents: 472 diff changeset	99	[author:]
2008 52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	100	Claus Gittinger
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	101	"
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	102	! !
0 571fd5eee315 Initial revision claus parents: diff changeset	103
871 a29021918ec5 fixed openOn:monitor: Claus Gittinger <cg@exept.de> parents: 742 diff changeset	104	!InspectorView class methodsFor:'instance creation'!
0 571fd5eee315 Initial revision claus parents: diff changeset	105
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	106	for:anObject
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	107	"create and launch a new inspector for anObject.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	108	This protocol is a historic leftover - this method will vanish."
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	109
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	110	^ self openOn:anObject
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	111	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	112
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	113	inspect:anObject
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	114	"create and launch a new inspector for anObject.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	115	This protocol is a historic leftover - this method will vanish."
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	116
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	117	^ self openOn:anObject
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	118	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	119
0 571fd5eee315 Initial revision claus parents: diff changeset	120	openOn:anObject
571fd5eee315 Initial revision claus parents: diff changeset	121	"create and launch a new inspector for anObject"
571fd5eee315 Initial revision claus parents: diff changeset	122
416 fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	123	^ self openOn:anObject monitor:nil
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	124
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	125	"
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	126	InspectorView openOn:(5 @ 7)
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	127	InspectorView openOn:(Array new:400)
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	128	DictionaryInspectorView openOn:(IdentityDictionary new)
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	129	"
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	130
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	131	"Modified: 1.3.1996 / 19:31:03 / cg"
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	132	!
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	133
8452 0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	134	openOn:anObject monitor:anInstVarNameOrNil
416 fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	135	"create and launch a new inspector for anObject.
8452 0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	136	If anInstVarNameOrNil is nonNil, let the inspector monitor it
2008 52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	137	(use an integer-printString as name, for indexed instVars)."
416 fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	138
105 520f37755229 . claus parents: 100 diff changeset	139	\|topView inspectorView\|
0 571fd5eee315 Initial revision claus parents: diff changeset	140
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	141	topView := StandardSystemView new.
9295 34141a7227ca changed: #openOn:monitor: Stefan Vogel <sv@exept.de> parents: 9280 diff changeset	142	topView
34141a7227ca changed: #openOn:monitor: Stefan Vogel <sv@exept.de> parents: 9280 diff changeset	143	icon:self defaultIcon;
34141a7227ca changed: #openOn:monitor: Stefan Vogel <sv@exept.de> parents: 9280 diff changeset	144	label:'Inspector';
34141a7227ca changed: #openOn:monitor: Stefan Vogel <sv@exept.de> parents: 9280 diff changeset	145	iconLabel:'Inspector';
34141a7227ca changed: #openOn:monitor: Stefan Vogel <sv@exept.de> parents: 9280 diff changeset	146	extent:self defaultTopViewExtent;
34141a7227ca changed: #openOn:monitor: Stefan Vogel <sv@exept.de> parents: 9280 diff changeset	147	objectAttributeAt:#rememberExtent put:true.
0 571fd5eee315 Initial revision claus parents: diff changeset	148
571fd5eee315 Initial revision claus parents: diff changeset	149	inspectorView := self origin:(0.0 @ 0.0)
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	150	corner:(1.0 @ 1.0)
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	151	in:topView.
0 571fd5eee315 Initial revision claus parents: diff changeset	152
3 9ff3765f06d0 claus parents: 0 diff changeset	153	"kludge: must realize first, to be able to set menu again"
352 e84b6352735d set focusSequence Claus Gittinger <cg@exept.de> parents: 351 diff changeset	154	topView openAndWait.
871 a29021918ec5 fixed openOn:monitor: Claus Gittinger <cg@exept.de> parents: 742 diff changeset	155	topView windowGroup
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	156	focusSequence:(Array
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	157	with:inspectorView listView
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	158	with:inspectorView workspace).
9262 792dbfa38baf changed: Stefan Vogel <sv@exept.de> parents: 9032 diff changeset	159	inspectorView
792dbfa38baf changed: Stefan Vogel <sv@exept.de> parents: 9032 diff changeset	160	allowFollow:true;
792dbfa38baf changed: Stefan Vogel <sv@exept.de> parents: 9032 diff changeset	161	isStandaloneInspector:true;
792dbfa38baf changed: Stefan Vogel <sv@exept.de> parents: 9032 diff changeset	162	inspect:anObject.
416 fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	163
8452 0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	164	anInstVarNameOrNil notNil ifTrue:[
0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	165	inspectorView monitor:anInstVarNameOrNil
416 fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	166	].
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	167
69 0d6acfdae045 * empty log message * claus parents: 61 diff changeset	168	^ inspectorView
0 571fd5eee315 Initial revision claus parents: diff changeset	169
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	170	"
416 fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	171	\|m\|
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	172
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	173	m := 1 asValue.
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	174	InspectorView openOn:m monitor:'value'.
871 a29021918ec5 fixed openOn:monitor: Claus Gittinger <cg@exept.de> parents: 742 diff changeset	175
a29021918ec5 fixed openOn:monitor: Claus Gittinger <cg@exept.de> parents: 742 diff changeset	176	2 to:10 do:[:i \|
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	177	Delay waitForSeconds:1.
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	178	m value:i
871 a29021918ec5 fixed openOn:monitor: Claus Gittinger <cg@exept.de> parents: 742 diff changeset	179	]
416 fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	180	"
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	181
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	182	"
416 fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	183	\|o\|
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	184
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	185	o := Array with:1 with:2 with:3.
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	186	InspectorView openOn:o monitor:'2'.
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	187	Delay waitForSeconds:1.
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	188	o at:2 put:20
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	189	"
fd30ab6185c7 added startup-with-monitor method Claus Gittinger <cg@exept.de> parents: 383 diff changeset	190
7867 3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	191	"Created: / 01-03-1996 / 19:30:50 / cg"
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	192	"Modified: / 23-10-2007 / 19:08:21 / cg"
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	193	!
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	194
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	195	openOn:anObject withEvalPane:withEvalPane
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	196	^ self openOn:anObject
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	197	!
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	198
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	199	openOn:anObject withEvalPane:withEvalPane withLabel:aLabel
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	200	^ self openOn:anObject
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	201	! !
e332d9c71624 * empty log message * claus parents: 71 diff changeset	202
10321 5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	203	!InspectorView class methodsFor:'common label support'!
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	204
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	205	commonLabelFor:anObject
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	206	"return the windowLabel to use in my topView, when inspecting anObject.
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	207	Identical objects are labelled with the same id, which makes it easy to
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	208	see if two objects are identical (and is very useful, indeed).
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	209	WARNING: used by both Inspector and Inspector2 !!!!!!"
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	210
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	211	\|lbl id\|
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	212
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	213	lbl := ''.
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	214	(anObject isImmediate
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	215	or:[anObject isBoolean]) ifFalse:[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	216	lbl := '<%2> '
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	217	].
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	218	lbl := lbl , '%1'.
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	219
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	220	IdDictionary isNil ifTrue:[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	221	IdDictionary := WeakIdentityDictionary new.
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	222	].
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	223	[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	224	id := IdDictionary
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	225	at:anObject
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	226	ifAbsentPut:[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	227	\|nextID\|
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	228
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	229	nextID := NextSequentialID ? 0.
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	230	NextSequentialID := nextID + 1.
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	231	nextID
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	232	].
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	233	] valueUninterruptably.
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	234
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	235	^ self classResources
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	236	string:lbl
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	237	with:(self labelNameFor:anObject)
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	238	with:id
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	239
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	240	"Created: / 15-07-2011 / 16:21:44 / cg"
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	241	!
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	242
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	243	labelNameFor:anObject
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	244	"return the iconLabel to use in my topView, when inspecting anObject.
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	245	Simply returns the className or name of anObjects class"
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	246
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	247	\|s\|
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	248
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	249	anObject isClass ifTrue:[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	250	s := anObject displayString
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	251	] ifFalse:[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	252	(anObject isImmediate
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	253	or:[anObject isBoolean]) ifTrue:[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	254	s := anObject printString , ', ' , anObject classNameWithArticle
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	255	] ifFalse:[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	256	s := anObject classNameWithArticle
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	257	].
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	258	].
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	259	s isNil ifTrue:[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	260	anObject isBehavior ifTrue:[
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	261	^ 'someBehavior'
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	262	].
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	263	^ 'something'
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	264	].
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	265	^ s
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	266
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	267	"Created: / 15-07-2011 / 16:20:06 / cg"
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	268	! !
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	269
871 a29021918ec5 fixed openOn:monitor: Claus Gittinger <cg@exept.de> parents: 742 diff changeset	270	!InspectorView class methodsFor:'defaults'!
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	271
1873 5fd55aa184d4 added redefinable #defaultExtent method. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	272	defaultExtent
9389 f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	273	^ (Screen current usableExtent // 3)
1873 5fd55aa184d4 added redefinable #defaultExtent method. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	274
5fd55aa184d4 added redefinable #defaultExtent method. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	275	"Created: / 7.9.1998 / 13:47:45 / cg"
5fd55aa184d4 added redefinable #defaultExtent method. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	276	"Modified: / 7.9.1998 / 14:15:38 / cg"
5fd55aa184d4 added redefinable #defaultExtent method. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	277	!
5fd55aa184d4 added redefinable #defaultExtent method. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	278
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	279	defaultIcon
1146 231ebb35a507 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1094 diff changeset	280	"return the browsers default window icon"
231ebb35a507 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1094 diff changeset	281
7835 ba364068a743 icon resource Claus Gittinger <cg@exept.de> parents: 7808 diff changeset	282	<resource: #programImage>
7629 48bf8de91618 Fix #defaultIcon Stefan Vogel <sv@exept.de> parents: 7626 diff changeset	283	<resource: #style (#INSPECTOR_ICON #INSPECTOR_ICON_FILE)>
1146 231ebb35a507 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1094 diff changeset	284
7629 48bf8de91618 Fix #defaultIcon Stefan Vogel <sv@exept.de> parents: 7626 diff changeset	285	\|nm i resources\|
1146 231ebb35a507 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1094 diff changeset	286
231ebb35a507 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1094 diff changeset	287	(i := DefaultIcon) isNil ifTrue:[
7629 48bf8de91618 Fix #defaultIcon Stefan Vogel <sv@exept.de> parents: 7626 diff changeset	288	resources := self classResources.
48bf8de91618 Fix #defaultIcon Stefan Vogel <sv@exept.de> parents: 7626 diff changeset	289	i := resources at:#INSPECTOR_ICON default:nil.
2338 0d791a4b518a #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2323 diff changeset	290	i isNil ifTrue:[
7629 48bf8de91618 Fix #defaultIcon Stefan Vogel <sv@exept.de> parents: 7626 diff changeset	291	nm := resources at:#INSPECTOR_ICON_FILE default:'Inspector.xbm'.
2475 12068d713365 * empty log message * Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	292	i := Smalltalk imageFromFileNamed:nm forClass:self.
2338 0d791a4b518a #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2323 diff changeset	293	i isNil ifTrue:[
2454 114111038a2b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2447 diff changeset	294	i := StandardSystemView defaultIcon
2338 0d791a4b518a #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2323 diff changeset	295	]
0d791a4b518a #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2323 diff changeset	296	].
0d791a4b518a #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2323 diff changeset	297	i notNil ifTrue:[
0d791a4b518a #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2323 diff changeset	298	DefaultIcon := i := i onDevice:Display
0d791a4b518a #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2323 diff changeset	299	]
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	300	].
1146 231ebb35a507 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1094 diff changeset	301	^ i
874 9ec421cec441 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 871 diff changeset	302
7629 48bf8de91618 Fix #defaultIcon Stefan Vogel <sv@exept.de> parents: 7626 diff changeset	303	"
48bf8de91618 Fix #defaultIcon Stefan Vogel <sv@exept.de> parents: 7626 diff changeset	304	DefaultIcon := nil
48bf8de91618 Fix #defaultIcon Stefan Vogel <sv@exept.de> parents: 7626 diff changeset	305	"
7835 ba364068a743 icon resource Claus Gittinger <cg@exept.de> parents: 7808 diff changeset	306
ba364068a743 icon resource Claus Gittinger <cg@exept.de> parents: 7808 diff changeset	307	"Modified: / 17-09-2007 / 11:36:17 / cg"
7867 3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	308	!
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	309
12158 54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	310	defaultIntegerDisplayRadix
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	311	^ DefaultIntegerDisplayRadix ? 10
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	312
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	313	"Created: / 10-02-2012 / 19:51:38 / cg"
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	314	!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	315
7867 3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	316	defaultTopViewExtent
9389 f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	317	\|def\|
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	318
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	319	def := LastExtent ? self defaultExtent.
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	320	^ def min:(Screen current usableExtent)
7867 3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	321
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	322	"Created: / 23-10-2007 / 19:04:13 / cg"
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	323	!
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	324
12158 54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	325	expandArraysInAllLists
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	326	"in the 'all instvars' list, expand arrays"
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	327
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	328	^ ExpandArraysInAllLists ? false
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	329
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	330	"Created: / 30-01-2012 / 16:52:57 / cg"
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	331	!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	332
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	333	expandArraysInAllLists:aBoolean
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	334	"in the 'all instvars' list, expand arrays"
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	335
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	336	ExpandArraysInAllLists := aBoolean
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	337
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	338	"Created: / 30-01-2012 / 16:53:01 / cg"
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	339	!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	340
7867 3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	341	rememberLastExtent:anExtent
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	342	LastExtent := anExtent
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	343
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	344	"Created: / 23-10-2007 / 19:10:02 / cg"
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	345	! !
e332d9c71624 * empty log message * claus parents: 71 diff changeset	346
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	347	!InspectorView class methodsFor:'image specs'!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	348
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	349	imageFor_arrays
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	350	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	351	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	352
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	353	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	354	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	355
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	356	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	357	self imageFor_arrays inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	358	ImageEditor openOnClass:self andSelector:#imageFor_arrays
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	359	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	360	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	361
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	362	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	363
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	364	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	365	constantNamed:'InspectorView class imageFor_arrays'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	366	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	367	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@T5EQT4@@@@@@@@@@@@AOTUAPBU@IS0@@@@@@@@AOTP%PBUAQ
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	368	T %O@@@@@@@@T0$IBP$ITUHIO0@@@@@@@EEPBU@ITUIRBSD@@@@@@@AQBP$IBP%RO0$1@@@@@@@@T5HIT %RO3DIO0@@@@@@@D=RT%HILSEJBR<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	369	S3D1LP%JBR<@@@@@@@@@@@AOO3D1O2<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 218 112 214 255 0 255 208 32 144 199 21 133 186 85 211]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	370	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	371
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	372	imageFor_characters
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	373	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	374	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	375
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	376	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	377	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	378
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	379	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	380	self imageFor_characters inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	381	ImageEditor openOnClass:self andSelector:#imageFor_characters
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	382	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	383	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	384
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	385	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	386
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	387	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	388	constantNamed:'InspectorView class imageFor_characters'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	389	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	390	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTDIOC-FQ@@@@@@@@@A@MP$IBP$I
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	391	Q$U@@@@@@@@@L@%SOP%HRP$>M@@@@@@@@D4<BP$IS#MEP4H@@@@@@@AMNUP9BP$IP3)B@@@@@@@@L@$3R0%EP0%GLP@@@@@@@D@>BP$IBP%RQ2<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	392	K$1LBT]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 173 0 49 115 0 33 181 0 49 74 0 16 255 8 82 231 0 66]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	393	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	394
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	395	imageFor_classes
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	396	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	397	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	398
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	399	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	400	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	401
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	402	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	403	self imageFor_classes inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	404	ImageEditor openOnClass:self andSelector:#imageFor_classes
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	405	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	406	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	407
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	408	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	409
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	410	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	411	constantNamed:'InspectorView class imageFor_classes'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	412	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	413	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEAOC-FQ@@@@@@@@@A@MT 2M3\;
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	414	Q$U@@@@@@@@@LD!!HRD!!HRTX>M@@@@@@@@D4<RC\8S$%FP4H@@@@@@@AMNS$9MST3P3)B@@@@@@@@LCL3R4,3P4)GLP@@@@@@@D@>O#8>R$)JQ2<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	415	K$1LP$]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 0 215 231 0 125 132 0 143 156 128 142 132 49 248 255 0 166 181 140 255 240 0 207 222 33 240 255 0 70 74 0 89 99 0 102 107 0 136 148 0 180 189 0 82 90 8 239 255 16 235 255 0 158 173 127 206 99 95 156 74 100 206 66 44 115 16 78 255 16 48 189 0 43 132 16 47 206 0 136 198 123 113 255 49 88 255 33 55 222 0 19 99 0 54 239 0 61 255 0 208 255 140 34 148 0 69 140 49 144 198 123 69 255 0 19 90 0 34 132 0 118 206 99 33 156 0 47 198 0 20 74 0 70 255 16 55 214 0 28 90 0 40 189 0 28 107 0 64 206 16 56 214 8]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	416	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	417
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	418	imageFor_collections
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	419	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	420	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	421
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	422	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	423	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	424
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	425	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	426	self imageFor_collections inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	427	ImageEditor openOnClass:self andSelector:#imageFor_collections
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	428	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	429	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	430
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	431	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	432
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	433	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	434	constantNamed:'InspectorView class imageFor_collections'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	435	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	436	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@T5EQT4@@@@@@@@@@@@AOBUAPTE@IS0@@@@@@@@AOBUAPTEAQ
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	437	T %O@@@@@@@@T0%PTEAPTUHIO0@@@@@@@EDITEAPTUIRBSD@@@@@@@AQBU@IT%DIO0$1@@@@@@@@T0%RT%IRO3DIO0@@@@@@@D<IT%IRLSEJBR<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	438	S0$1LSEJBR<@@@@@@@@@@@AOO3D1O2<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 218 112 214 255 0 255 208 32 144 199 21 133 186 85 211]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	439	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	440
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	441	imageFor_dictionaries
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	442	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	443	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	444
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	445	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	446	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	447
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	448	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	449	self imageFor_dictionaries inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	450	ImageEditor openOnClass:self andSelector:#imageFor_dictionaries
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	451	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	452	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	453
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	454	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	455
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	456	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	457	constantNamed:'InspectorView class imageFor_dictionaries'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	458	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	459	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@T5EQT4@@@@@@@@@@@@AOTUAPTEARS0@@@@@@@@AOTU@HTE@I
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	460	BEIO@@@@@@@@T5APBP!!PTUIRO0@@@@@@@EDIBP$I@P$HO3D@@@@@@@AQTUDIBEIRO3D1@@@@@@@@T5IRBEIRBP!!JO0@@@@@@@D=RT%H?LSEJR"<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	461	S3D1LT(IBB<@@@@@@@@@@@AOO3D1O2<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 218 112 214 255 0 255 208 32 144 199 21 133 186 85 211]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	462	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	463
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	464	imageFor_false
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	465	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	466	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	467
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	468	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	469	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	470
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	471	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	472	self imageFor_false inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	473	ImageEditor openOnClass:self andSelector:#imageFor_false
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	474	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	475	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	476
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	477	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	478
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	479	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	480	constantNamed:'InspectorView imageFor_false'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	481	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	482	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@ LC@ D@@@@@@@@@@@@DAPXFA0 IA@@@@@@@@@@JB0XLC@0L
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	483	CP8J@@@@@@@@@ XOCA@PDA@QD @@@@@@@@LGC00PD1PNEQX@@@@@@@@CE1 LC@0MEQ$V@@@@@@@@@!!PTCA@PDAXZF0@@@@@@@@(QC 0PGA$]F!!8@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	484	G10LDA(ZF"@@@@@@@@@@@@@JF1XVF18@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 200 120 145 208 64 109 208 16 96 208 96 128 208 0 87 248 0 103 248 0 88 240 0 85 200 0 68 200 120 146 208 0 72 250 255 248 184 192 189 160 0 52 248 8 100 135 144 128 144 0 60 128 16 63 208 8 83 184 0 77 128 0 53 88 0 37 216 0 75 224 0 78 96 0 25 64 0 27 120 16 59 120 0 50 64 0 12 160 72 102 208 96 143 136 32 60]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	485	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	486
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	487	imageFor_floats
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	488	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	489	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	490
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	491	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	492	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	493
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	494	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	495	self imageFor_floats inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	496	ImageEditor openOnClass:self andSelector:#imageFor_floats
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	497	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	498	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	499
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	500	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	501
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	502	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	503	constantNamed:'InspectorView class imageFor_floats'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	504	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	505	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEAOC-FQ@@@@@@@@@A@MT 2BS\;
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	506	Q$U@@@@@@@@@LD!!HBP%HRTX>M@@@@@@@@D4<RC\IS#MFP4H@@@@@@@AMNS$9BSUCP3)B@@@@@@@@LCL3R0%EP4)GLP@@@@@@@D@>O $IBS8IQ2<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	507	K$1LP$]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 0 231 4 0 132 0 0 156 5 139 142 128 52 255 49 0 181 6 161 255 140 0 222 4 33 255 37 0 74 0 0 99 5 0 107 0 0 148 5 0 189 0 0 90 3 8 255 12 16 255 24 0 173 6 206 173 99 156 131 74 206 165 66 115 82 16 255 181 16 189 132 0 132 99 16 206 149 0 198 181 123 255 181 49 255 189 33 222 156 0 99 75 0 239 173 0 255 181 0 255 181 140 148 107 0 140 115 49 198 173 123 255 173 0 90 66 0 132 91 0 206 182 99 156 115 0 198 141 0 74 50 0 255 189 16 214 148 0 90 57 0 189 140 0 107 74 0 206 148 16 214 156 8]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	508	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	509
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	510	imageFor_fractions
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	511	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	512	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	513
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	514	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	515	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	516
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	517	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	518	self imageFor_fractions inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	519	ImageEditor openOnClass:self andSelector:#imageFor_fractions
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	520	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	521	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	522
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	523	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	524
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	525	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	526	constantNamed:'InspectorView class imageFor_fractions'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	527	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	528	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEABS-FQ@@@@@@@@@A@MSH2BP$7
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	529	LTY@@@@@@@@@LCH2L#HIS#D1M@@@@@@@@D4<OC0<BSL1LTH@@@@@@@AML3L3BP$ILSEB@@@@@@@@LCL3L0$3BT\1LP@@@@@@@D@>L3L3BT]GQ2<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	530	K$03BP$IQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 0 231 4 0 132 0 0 156 5 139 142 128 52 255 49 0 181 6 161 255 140 0 222 4 33 255 37 0 74 0 0 99 5 0 107 0 0 148 5 0 189 0 0 90 3 8 255 12 16 255 24 0 173 6 206 173 99 156 131 74 206 165 66 115 82 16 255 181 16 189 132 0 132 99 16 206 149 0 198 181 123 255 181 49 255 189 33 222 156 0 99 75 0 239 173 0 255 181 0 255 181 140 148 107 0 140 115 49 198 173 123 255 173 0 90 66 0 132 91 0 206 182 99 156 115 0 198 141 0 74 50 0 255 189 16 214 148 0 90 57 0 189 140 0 107 74 0 206 148 16 214 156 8]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	531	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	532
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	533	imageFor_integers
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	534	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	535	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	536
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	537	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	538	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	539
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	540	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	541	self imageFor_integers inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	542	ImageEditor openOnClass:self andSelector:#imageFor_integers
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	543	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	544	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	545
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	546	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	547
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	548	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	549	constantNamed:'InspectorView class imageFor_integers'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	550	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	551	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEAOC-FQ@@@@@@@@@A@MT 2BS\;
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	552	Q$U@@@@@@@@@LD!!HBP%HRTX>M@@@@@@@@D4<RC\IS#MFP4H@@@@@@@AMNS$9BSUCP3)B@@@@@@@@LCL3R0%EP4)GLP@@@@@@@D@>O $IBS9JQ2<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	553	K$1LP$]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 0 231 4 0 132 0 0 156 5 139 142 128 52 255 49 0 181 6 161 255 140 0 222 4 33 255 37 0 74 0 0 99 5 0 107 0 0 148 5 0 189 0 0 90 3 8 255 12 16 255 24 0 173 6 206 173 99 156 131 74 206 165 66 115 82 16 255 181 16 189 132 0 132 99 16 206 149 0 198 181 123 255 181 49 255 189 33 222 156 0 99 75 0 239 173 0 255 181 0 255 181 140 148 107 0 140 115 49 198 173 123 255 173 0 90 66 0 132 91 0 206 182 99 156 115 0 198 141 0 74 50 0 255 189 16 214 148 0 90 57 0 189 140 0 107 74 0 206 148 16 214 156 8]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	554	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	555
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	556	imageFor_nil
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	557	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	558	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	559
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	560	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	561	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	562
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	563	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	564	self imageFor_nil inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	565	ImageEditor openOnClass:self andSelector:#imageFor_nil
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	566	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	567	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	568
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	569	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	570
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	571	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	572	constantNamed:'InspectorView class imageFor_nil'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	573	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	574	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KEP4MEP,@@@@@@@@@@@@GEA$YAP4OA0@@@@@@@@@JEA$WF!!HM
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	575	C1 J@@@@@@@@EQ$R@@ CEAXDDP@@@@@@@@4ED!!(ACQXXC@X@@@@@@@@ME@4TEAXXCALF@@@@@@@@EQXVE HXC@XNF@@@@@@@@@(DF@PLCALNC!!@@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	576	A1LSA 8NC 4@@@@@@@@@@@@JF@XFFA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	577	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	578
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	579	imageFor_others
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	580	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	581	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	582
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	583	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	584	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	585
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	586	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	587	self imageFor_others inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	588	ImageEditor openOnClass:self andSelector:#imageFor_others
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	589	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	590	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	591
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	592	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	593
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	594	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	595	constantNamed:'InspectorView class imageFor_others'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	596	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	597	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_G1<_G1<@@@@@@@@@@@@_BP$IBP HF0@@@@@@@@@_BP$HH@ \
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	598	BA8[@@@@@@@@G0$HH ,BB$(F0@@@@@@@A<IJ0 $BB$HGQ,@@@@@@@@_BP #BBDHJRX[@@@@@@@@G0 )BB4HHQ<%F0@@@@@@@A<HBB4HKQ<''IQ,@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	599	F2\''J"T%IQ,@@@@@@@@@@@@[F1,[F1,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	600	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	601
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	602	imageFor_sequenceableCollections
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	603	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	604	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	605
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	606	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	607	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	608
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	609	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	610	self imageFor_sequenceableCollections inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	611	ImageEditor openOnClass:self andSelector:#imageFor_sequenceableCollections
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	612	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	613	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	614
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	615	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	616
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	617	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	618	constantNamed:'InspectorView class imageFor_sequenceableCollections'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	619	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	620	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@T5EQT4@@@@@@@@@@@@AOTUAPTEARS0@@@@@@@@AOTUAPTE@I
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	621	BEIO@@@@@@@@T5APTEAPTUIRO0@@@@@@@EEPTEAPT $HO3D@@@@@@@AQTUERT%IRO3D1@@@@@@@@T5IRT%IRBP!!JO0@@@@@@@D=RT%H?LSEJR"<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	622	S3D1LT(IBB<@@@@@@@@@@@AOO3D1O2<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 218 112 214 255 0 255 208 32 144 199 21 133 186 85 211]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	623	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	624
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	625	imageFor_strings
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	626	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	627	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	628
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	629	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	630	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	631
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	632	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	633	self imageFor_strings inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	634	ImageEditor openOnClass:self andSelector:#imageFor_strings
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	635	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	636	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	637
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	638	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	639
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	640	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	641	constantNamed:'InspectorView class imageFor_strings'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	642	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	643	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEAOC-FQ@@@@@@@@@A@MTDIM5LI
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	644	BTU@@@@@@@@@LDDIM3]HBP$>M@@@@@@@@D4<BP$8S#LIP4H@@@@@@@AMNP$IMUDIP3)B@@@@@@@@LCL3R4=EP4)GLP@@@@@@@D@>QS9CTC)RQ2<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	645	K$1LP$]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 173 0 49 115 0 33 181 0 49 74 0 16 255 8 82]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	646	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	647
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	648	imageFor_symbols
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	649	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	650	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	651
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	652	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	653	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	654
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	655	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	656	self imageFor_symbols inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	657	ImageEditor openOnClass:self andSelector:#imageFor_symbols
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	658	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	659	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	660
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	661	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	662
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	663	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	664	constantNamed:'InspectorView class imageFor_symbols'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	665	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	666	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6LD5MLCX@@@@@@@@@@@ADRTEAOC-FQ@@@@@@@@@A@MTDIM5LI
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	667	Q$U@@@@@@@@@LDDIBP$IBP$>M@@@@@@@@D4<NP$8S $>P4H@@@@@@@AMNS$IMUDIP3)B@@@@@@@@LCLIBP$IBP%GLP@@@@@@@D@>QP%CT@%RQ2<@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	668	K$1LP$]GQ3<@@@@@@@@@@@A@LTIBLR<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 0 0 0 227 231 0 132 132 0 151 156 0 142 131 128 255 252 49 175 181 0 255 234 140 218 222 0 251 255 33 74 74 0 94 99 0 107 107 0 143 148 0 189 189 0 87 90 0 251 255 8 247 255 16 167 173 0 206 99 132 156 74 99 206 66 107 115 16 49 255 16 90 189 0 57 132 16 49 206 0 57 198 123 140 255 49 123 255 33 99 222 0 66 99 0 24 239 0 66 255 0 74 255 140 214 148 0 41 140 49 74 198 123 148 255 0 82 90 0 24 132 0 41 206 99 123 156 0 41 198 0 57 74 0 24 255 16 82 214 0 66 90 0 33 189 0 49 107 0 33 206 16 74 214 8 66 173 0 49 115 0 33 181 0 49 74 0 16 255 8 82]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	669	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	670
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	671	imageFor_true
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	672	"This resource specification was automatically generated
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	673	by the ImageEditor of ST/X."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	674
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	675	"Do not manually edit this!! If it is corrupted,
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	676	the ImageEditor may not be able to read the specification."
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	677
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	678	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	679	self imageFor_true inspect
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	680	ImageEditor openOnClass:self andSelector:#imageFor_true
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	681	Icon flushCachedIcons
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	682	"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	683
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	684	<resource: #image>
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	685
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	686	^Icon
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	687	constantNamed:'InspectorView imageFor_true'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	688	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	689	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(MB@ MB @@@@@@@@@@@@:K#@0F2(\N @@@@@@@@@-H0$IBP$I
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	690	A18-@@@@@@@@MC@GI@$$IBP9HP@@@@@@@B@[J3DIIB0^K3 @@@@@@@@ MRT5BRP^K1<8@@@@@@@@MB0,I $$K2\"JP@@@@@@@B49G#$IIA<]H#H@@@@@@@@@
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	691	M#L3NBH"H#\@@@@@@@@@@@@-JS 8JSH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[226 226 226 176 176 176 155 155 155 169 169 169 152 152 152 164 164 164 149 149 149 192 192 192 240 240 240 255 255 255 202 202 202 201 201 201 151 151 151 162 162 162 148 148 148 158 158 158 173 173 173 154 154 154 167 167 167 150 150 150 160 160 160 180 180 180 156 156 156 170 170 170 153 153 153 165 165 165 183 183 183 98 255 0 75 198 0 25 74 0 57 156 0 34 99 0 92 206 16 60 132 16 31 74 0 79 206 0 128 131 142 88 231 0 70 189 0 38 90 0 148 198 123 57 115 16 92 239 0 103 255 8 76 189 0 154 198 123 85 214 0 53 132 0 106 255 0 138 255 49 107 156 74 44 115 0 119 206 66 85 222 0 142 206 99 68 139 33 33 90 0 57 148 0 135 206 99]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A>@O<A?8G? _>A?8G? _>@?0A>@@@@@@@@@b') ; yourself); yourself]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	692	! !
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	693
2598 298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	694	!InspectorView class methodsFor:'queries-plugin'!
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	695
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	696	aspectSelectors
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	697	^ #( inspectedObjectHolder )
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	698
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	699	"Modified: / 10.2.2000 / 12:25:28 / cg"
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	700	! !
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	701
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	702	!InspectorView methodsFor:'accessing'!
e332d9c71624 * empty log message * claus parents: 71 diff changeset	703
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	704	allowFollow:aBoolean
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	705	"enable/disable the follow menu item;
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	706	This is disabled for inspectors which are embedded in the debugger"
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	707
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	708	allowFollow := aBoolean
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	709	!
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	710
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	711	dereferenceValueHolders:aBoolean
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	712	dereferenceValueHolders := aBoolean
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	713	!
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	714
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	715	fieldListLabel:aString
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	716	labelView label:aString
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	717
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	718	"Created: 28.6.1996 / 15:30:26 / cg"
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	719	!
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	720
9630 72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	721	headLineLabel:aString
72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	722	"an alternative headline label (if used as embedded inspector)"
72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	723
72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	724	headLineLabel := aString.
72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	725
9648 bf870042cb9f changed: #headLineLabel: Claus Gittinger <cg@exept.de> parents: 9637 diff changeset	726	labelView notNil ifTrue:[
bf870042cb9f changed: #headLineLabel: Claus Gittinger <cg@exept.de> parents: 9637 diff changeset	727	labelView label:headLineLabel.
bf870042cb9f changed: #headLineLabel: Claus Gittinger <cg@exept.de> parents: 9637 diff changeset	728	].
bf870042cb9f changed: #headLineLabel: Claus Gittinger <cg@exept.de> parents: 9637 diff changeset	729
bf870042cb9f changed: #headLineLabel: Claus Gittinger <cg@exept.de> parents: 9637 diff changeset	730	"Modified: / 25-11-2010 / 17:16:45 / cg"
9630 72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	731	!
72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	732
9693 76a39c3e5330 added: Claus Gittinger <cg@exept.de> parents: 9690 diff changeset	733	headLineLabelView
76a39c3e5330 added: Claus Gittinger <cg@exept.de> parents: 9690 diff changeset	734	"provides access to the headline"
76a39c3e5330 added: Claus Gittinger <cg@exept.de> parents: 9690 diff changeset	735
76a39c3e5330 added: Claus Gittinger <cg@exept.de> parents: 9690 diff changeset	736	^ labelView
76a39c3e5330 added: Claus Gittinger <cg@exept.de> parents: 9690 diff changeset	737
76a39c3e5330 added: Claus Gittinger <cg@exept.de> parents: 9690 diff changeset	738	"Created: / 21-01-2011 / 12:07:13 / cg"
76a39c3e5330 added: Claus Gittinger <cg@exept.de> parents: 9690 diff changeset	739	!
76a39c3e5330 added: Claus Gittinger <cg@exept.de> parents: 9690 diff changeset	740
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	741	hideReceiver:aBoolean
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	742	"hide/show the self-entry for the inspected object;
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	743	This is hidden for context inspectors in the debugger"
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	744
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	745	hideReceiver := aBoolean
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	746
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	747	"Created: 28.6.1996 / 15:08:32 / cg"
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	748	!
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	749
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	750	inspect:anObject
8452 0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	751	"set/update the object to be inspected"
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	752
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	753	\|keepList fieldNameList sameObject sameClass oldSelectedField idx\|
9390 a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	754
9690 5682d804727a changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9672 diff changeset	755	"/ (anObject isNil and:[object isNil]) ifTrue:[^ self].
9651 cca26b954d45 changed: Claus Gittinger <cg@exept.de> parents: 9648 diff changeset	756
9390 a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	757	sameObject := (anObject == object) and:[object notNil].
10520 f15aa3e05329 Fix for variable-length classes in #inspect: vrany parents: 10436 diff changeset	758
f15aa3e05329 Fix for variable-length classes in #inspect: vrany parents: 10436 diff changeset	759	"/ JV@2011-08-06: Be carefull here, classes may be variable-lenght,
f15aa3e05329 Fix for variable-length classes in #inspect: vrany parents: 10436 diff changeset	760	"/ so instances of same class may have different number of slots!!
f15aa3e05329 Fix for variable-length classes in #inspect: vrany parents: 10436 diff changeset	761	"/ (caused problems expecially when stack inspector is shown in debugger).
f15aa3e05329 Fix for variable-length classes in #inspect: vrany parents: 10436 diff changeset	762	"/ To fix, I've added ------------------------v
f15aa3e05329 Fix for variable-length classes in #inspect: vrany parents: 10436 diff changeset	763	sameClass := (anObject class == object class) and:[anObject class isVariable not].
9390 a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	764	selectionIndex notNil ifTrue:[
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	765	oldSelectedField := (listView list ? #()) at:selectionIndex ifAbsent:nil.
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	766	].
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	767	inspectedObject := object := anObject.
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	768
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	769	keepList := ((sameObject \| sameClass) and:[listView list notEmptyOrNil]).
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	770	"/ assume that the list remains unchanged;
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	771	"/ this is no longer true, if some inst-slot has changed (bullet colors)
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	772	UserPreferences current showTypeIndicatorInInspector ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	773	keepList := false.
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	774	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	775	keepList ifFalse:[
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	776	hasMore := false.
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	777	fieldNameList := self fieldList.
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	778	hasMore ifTrue:[
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	779	fieldNameList add:' ... '
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	780	].
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	781	listView contents:fieldNameList.
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	782	workspace contents:nil.
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	783	self setDoItAction.
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	784	].
9390 a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	785	sameClass ifFalse:[
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	786	selectionIndex := selectedLine := nil.
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	787	].
9262 792dbfa38baf changed: Stefan Vogel <sv@exept.de> parents: 9032 diff changeset	788	isStandaloneInspector ifTrue:[
8452 0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	789	"/ not embedded (as in the debugger)
2284 0f4ee9b43468 checkin from browser Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	790	self topView
0f4ee9b43468 checkin from browser Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	791	label:(self labelFor:anObject);
10321 5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	792	iconLabel:(self class labelNameFor:anObject).
8452 0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	793	].
0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	794
9390 a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	795	(sameObject \| sameClass) ifFalse:[
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	796	idx := (listView list ? #()) indexOf:oldSelectedField.
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	797	idx ~~ 0 ifTrue:[
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	798	listView selection:idx
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	799	] ifFalse:[
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	800	self setInitialSelection.
a18badc9f912 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9389 diff changeset	801	]
8452 0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	802	].
10520 f15aa3e05329 Fix for variable-length classes in #inspect: vrany parents: 10436 diff changeset	803	self showSelection:((selectedLine ? 1) min: listView list size)
9624 defa4a2d2a10 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 9615 diff changeset	804
10520 f15aa3e05329 Fix for variable-length classes in #inspect: vrany parents: 10436 diff changeset	805	"Modified (comment): / 06-08-2011 / 13:41:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	806	"Modified: / 02-06-2012 / 13:06:59 / cg"
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	807	!
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	808
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	809	isStandaloneInspector:aBoolean
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	810	"obsolete now"
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	811
2008 52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	812	isStandaloneInspector := aBoolean
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	813
52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	814	"Modified: / 12.2.1999 / 16:01:44 / cg"
29 8a72e10043f6 * empty log message * claus parents: 23 diff changeset	815	!
8a72e10043f6 * empty log message * claus parents: 23 diff changeset	816
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	817	label:aString
4106 1222d4e1166e * empty log message * Claus Gittinger <cg@exept.de> parents: 4095 diff changeset	818	"set the fieldListLabel - obsolete; collides with inherited label-functionality"
1222d4e1166e * empty log message * Claus Gittinger <cg@exept.de> parents: 4095 diff changeset	819
5845 c7a4a4cd352b Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 5698 diff changeset	820	<resource:#obsolete>
4106 1222d4e1166e * empty log message * Claus Gittinger <cg@exept.de> parents: 4095 diff changeset	821	self obsoleteMethodWarning:'use fieldListLabel:'.
1222d4e1166e * empty log message * Claus Gittinger <cg@exept.de> parents: 4095 diff changeset	822	self fieldListLabel:aString.
1222d4e1166e * empty log message * Claus Gittinger <cg@exept.de> parents: 4095 diff changeset	823	super label:aString.
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	824
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	825	"Created: 28.6.1996 / 15:30:26 / cg"
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	826	!
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	827
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	828	listView
e332d9c71624 * empty log message * claus parents: 71 diff changeset	829	^ listView
352 e84b6352735d set focusSequence Claus Gittinger <cg@exept.de> parents: 351 diff changeset	830	!
e84b6352735d set focusSequence Claus Gittinger <cg@exept.de> parents: 351 diff changeset	831
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	832	reinspect
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	833	"update display for a changed inspectedObject"
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	834
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	835	\|aList\|
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	836
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	837	hasMore := false.
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	838	aList := self fieldList.
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	839	hasMore ifTrue:[
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	840	aList add:' ... '
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	841	].
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	842
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	843	listView contents:aList.
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	844	self setDoItAction.
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	845	selectionIndex := selectedLine := nil
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	846
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	847	"Modified (comment): / 02-06-2012 / 13:08:15 / cg"
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	848	!
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	849
9625 1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	850	suppressHeadline:aBoolean
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	851	"hide/show the title line above the list/value"
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	852
9736 94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	853	suppressHeadline := aBoolean.
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	854
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	855	labelView notNil ifTrue:[
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	856	suppressHeadline == true ifTrue:[
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	857	labelView beInvisible.
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	858	listView container topInset:0.
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	859	workspace container topInset:0.
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	860	] ifFalse:[
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	861	labelView beVisible.
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	862	listView container topInset:(labelView preferredHeight).
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	863	workspace container topInset:(labelView preferredHeight).
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	864	].
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	865	].
9625 1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	866
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	867	"Created: / 09-11-2010 / 14:50:04 / cg"
9736 94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	868	"Modified: / 05-02-2011 / 14:03:55 / cg"
9625 1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	869	!
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	870
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	871	suppressPseudoSlots:aBoolean
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	872	suppressPseudoSlots := aBoolean
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	873	!
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	874
352 e84b6352735d set focusSequence Claus Gittinger <cg@exept.de> parents: 351 diff changeset	875	workspace
e84b6352735d set focusSequence Claus Gittinger <cg@exept.de> parents: 351 diff changeset	876	^ workspace
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	877	! !
7b48409ae088 * empty log message * claus parents: 49 diff changeset	878
2724 ca96b304e992 category changes Claus Gittinger <cg@exept.de> parents: 2657 diff changeset	879	!InspectorView methodsFor:'accessing-channels'!
2598 298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	880
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	881	inspectedObjectHolder
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	882	inspectedObjectHolder isNil ifTrue:[
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	883	inspectedObjectHolder := ValueHolder new.
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	884	inspectedObjectHolder addDependent:self.
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	885	].
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	886	^ inspectedObjectHolder
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	887
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	888	"Created: / 10.2.2000 / 13:33:16 / cg"
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	889	"Modified: / 10.2.2000 / 13:34:23 / cg"
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	890	!
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	891
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	892	inspectedObjectHolder:aValueHolder
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	893	inspectedObjectHolder notNil ifTrue:[
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	894	inspectedObjectHolder removeDependent:self.
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	895	].
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	896	inspectedObjectHolder := aValueHolder.
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	897	inspectedObjectHolder notNil ifTrue:[
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	898	inspectedObjectHolder addDependent:self.
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	899	].
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	900
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	901	"Created: / 10.2.2000 / 13:34:53 / cg"
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	902	! !
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	903
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	904	!InspectorView methodsFor:'change & update'!
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	905
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	906	update:something with:aParameter from:changedObject
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	907	"Invoked when one of my dependees sends a change notification."
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	908
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	909	\|oldSelection\|
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	910
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	911	changedObject == object ifTrue:[
2598 298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	912	oldSelection := listView selection.
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	913	self inspect:object.
2598 298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	914	oldSelection notNil ifTrue:[
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	915	self showSelection:oldSelection
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	916	]
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	917	].
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	918
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	919	changedObject == object ifTrue:[
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	920	self inspect:(object value)
2598 298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	921	].
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	922
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	923	super update:something with:aParameter from:changedObject
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	924
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	925	"Created: / 10.2.2000 / 13:46:38 / cg"
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	926	"Modified: / 10.2.2000 / 13:48:18 / cg"
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	927	! !
298843749a49 inspectedObjectHolder added Claus Gittinger <cg@exept.de> parents: 2587 diff changeset	928
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	929	!InspectorView methodsFor:'drag & drop'!
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	930
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	931	getDisplayObjects
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	932
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	933	^List with:self selection printString
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	934
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	935	"Created: / 16-08-2005 / 21:54:52 / janfrog"
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	936	"Modified: / 18-09-2006 / 21:11:16 / cg"
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	937	!
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	938
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	939	getDropObjects
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	940
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	941	^List with:(DropObject new:self selection).
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	942
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	943	"Created: / 16-08-2005 / 21:49:23 / janfrog"
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	944	"Modified: / 18-09-2006 / 21:11:31 / cg"
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	945	! !
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	946
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	947	!InspectorView methodsFor:'event handling'!
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	948
10424 9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	949	doubleClickOnLine:lineNr
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	950	\|objectToInspect app\|
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	951
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	952	objectToInspect := self selection ? object.
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	953
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	954	"HACK"
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	955	app := (self topView perform:#application ifNotUnderstood: [nil]).
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	956	(app notNil and:[app isKindOf: Tools::Inspector2]) ifTrue:[
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	957	app inspect: objectToInspect
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	958	] ifFalse:[
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	959	objectToInspect inspect
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	960	]
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	961
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	962	"Created: / 29-07-2011 / 21:09:43 / cg"
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	963	!
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	964
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	965	keyPress:key x:x y:y
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	966	"handle special keys"
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	967
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	968	<resource: #keyboard (#BrowseIt #InspectIt)>
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	969
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	970	self selection notNil ifTrue:[
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	971	(key == #BrowseIt) ifTrue:[
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	972	self browse.
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	973	^ self.
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	974	].
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	975	(key == #InspectIt) ifTrue:[
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	976	self doInspect.
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	977	^ self.
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	978	].
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	979	].
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	980
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	981	"all my other input is passed on to the workspace-field"
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	982	x notNil ifTrue:[
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	983	"/ not already delegated
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	984	workspace keyPress:key x:-1 y:-1
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	985	].
9389 f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	986	!
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	987
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	988	sizeChanged:how
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	989	super sizeChanged:how.
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	990
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	991	isStandaloneInspector == true ifTrue:[
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	992	LastExtent := self topView extent.
f7ad2b69030f better tracking of sizeChange for default size. sr parents: 9384 diff changeset	993	].
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	994	! !
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	995
2587 b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	996	!InspectorView methodsFor:'initialization & release'!
2117 dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	997
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	998	destroy
7867 3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	999	(self topView objectAttributeAt:#rememberExtent) == true ifTrue:[
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	1000	self class rememberLastExtent:(self topView extent).
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	1001	].
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	1002
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1003	inspectedObject := object := nil.
2117 dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1004	monitorProcess notNil ifTrue:[
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1005	monitorProcess terminate
2117 dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1006	].
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1007	super destroy
7867 3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	1008
3d405157be72 default size Claus Gittinger <cg@exept.de> parents: 7835 diff changeset	1009	"Modified: / 23-10-2007 / 19:11:04 / cg"
2117 dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1010	!
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1011
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1012	initialize
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1013	\|v panel helpView labelView2\|
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1014
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1015	super initialize.
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1016
3318 46c3347385f4 preps to allow for displayString message to be configured Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	1017	displayStringMessage := #displayString.
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1018	hideReceiver := false.
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1019	integerDisplayRadix := (DefaultIntegerDisplayRadix ? 10).
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1020	allowFollow := false.
2008 52bf8b8afd3b separated allowFollow from isStandAlone flag Claus Gittinger <cg@exept.de> parents: 2007 diff changeset	1021	isStandaloneInspector := false.
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1022
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1023	panel := VariableHorizontalPanel
1991 dfbb30988edd no miniScrollers; no autoHide Claus Gittinger <cg@exept.de> parents: 1930 diff changeset	1024	origin:(0.0 @ 0.0)
dfbb30988edd no miniScrollers; no autoHide Claus Gittinger <cg@exept.de> parents: 1930 diff changeset	1025	corner:(1.0 @ 1.0)
dfbb30988edd no miniScrollers; no autoHide Claus Gittinger <cg@exept.de> parents: 1930 diff changeset	1026	in:self.
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1027
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1028	helpView := View origin:(0.0 @ 0.0) corner:(0.3 @ 1.0) in:panel.
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1029	helpView level:0; borderWidth:0.
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1030
9625 1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1031	suppressHeadline == true ifFalse:[
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1032	labelView := Label origin:0.0@0.0 corner:1.0@0.0 in:helpView.
9630 72d3d048a53e headLineLabel Claus Gittinger <cg@exept.de> parents: 9625 diff changeset	1033	labelView label:(headLineLabel ? self defaultLabel).
9625 1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1034	labelView bottomInset:(labelView preferredHeight negated).
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1035	].
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1036
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1037	v := HVScrollableView
9625 1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1038	for:SelectionInListView
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1039	miniScrollerH:true
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1040	miniScrollerV:false
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1041	in:helpView.
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1042	v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1043	labelView notNil ifTrue:[
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1044	v topInset:(labelView preferredHeight).
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1045	].
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1046
1991 dfbb30988edd no miniScrollers; no autoHide Claus Gittinger <cg@exept.de> parents: 1930 diff changeset	1047	"/ v autoHideScrollBars:true.
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1048
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1049	listView := v scrolledView.
8653 72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	1050	listView action:[:lineNr \| self selection:lineNr.].
10424 9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	1051	listView doubleClickAction:[:lineNr \| self doubleClickOnLine:lineNr].
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1052	listView ignoreReselect:false.
98 e6fac698d6d9 . claus parents: 93 diff changeset	1053	listView menuHolder:self; menuPerformer:self; menuMessage:#fieldMenu.
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1054	self initializeDragAndDrop.
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1055
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1056	helpView := View origin:(0.3 @ 0.0) corner:(1.0 @ 1.0) in:panel.
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1057	helpView level:0; borderWidth:0.
aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1058
9625 1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1059	suppressHeadline == true ifFalse:[
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1060	labelView2 := Label origin:0.0@0.0 corner:1.0@0.0 in:helpView.
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1061	labelView2 label:''.
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1062	labelView2 bottomInset:(labelView preferredHeight negated).
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1063	].
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1064
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1065	v := HVScrollableView
1991 dfbb30988edd no miniScrollers; no autoHide Claus Gittinger <cg@exept.de> parents: 1930 diff changeset	1066	for:CodeView
dfbb30988edd no miniScrollers; no autoHide Claus Gittinger <cg@exept.de> parents: 1930 diff changeset	1067	miniScrollerH:true
dfbb30988edd no miniScrollers; no autoHide Claus Gittinger <cg@exept.de> parents: 1930 diff changeset	1068	miniScrollerV:false
dfbb30988edd no miniScrollers; no autoHide Claus Gittinger <cg@exept.de> parents: 1930 diff changeset	1069	in:helpView.
dfbb30988edd no miniScrollers; no autoHide Claus Gittinger <cg@exept.de> parents: 1930 diff changeset	1070	"/ v autoHideScrollBars:true.
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1071	v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
9625 1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1072	labelView2 notNil ifTrue:[
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1073	v topInset:(labelView2 preferredHeight).
1b6c049c1990 allow suppressing the headline Claus Gittinger <cg@exept.de> parents: 9624 diff changeset	1074	].
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1075	workspace := v scrolledView.
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1076
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	1077	self setAcceptAction.
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1078
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1079	nShown := 100.
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1080	hasMore := false.
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	1081
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1082	"Modified: / 16-08-2005 / 21:54:04 / janfrog"
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	1083	"Modified: / 30-10-2011 / 09:18:36 / cg"
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1084	!
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1085
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1086	initializeDragAndDrop
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1087
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1088	\| source \|
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1089	source := DropSource
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1090	receiver:self
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1091	argument:nil
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1092	dropObjectSelector:#getDropObjects
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1093	displayObjectSelector:#getDisplayObjects
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1094	dropFeedBackSelector:nil.
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1095
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1096	listView dropSource:source.
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1097
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1098	"Created: / 16-08-2005 / 21:51:43 / janfrog"
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	1099	"Modified: / 18-09-2006 / 21:13:05 / cg"
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1100	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1101
593 6bc83313d7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 570 diff changeset	1102	realize
6bc83313d7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 570 diff changeset	1103	"delayed setup of lists till first map-time -
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1104	this makes startup of inspectors a bit faster"
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1105
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1106	\|o\|
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1107
593 6bc83313d7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 570 diff changeset	1108	super realize.
7887 be186ae12782 dont clobber the current selection on realize Claus Gittinger <cg@exept.de> parents: 7867 diff changeset	1109	"/ cg: I dont remember what this was needed for (is it still?)
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1110	false "object notNil" ifTrue:[
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1111	"
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1112	kludge to trick inspect:, which ignores setting the
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1113	same object again ...
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1114	"
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1115	o := object.
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1116	inspectedObject := object := nil.
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1117	self inspect:o
383 e5760d864242 checkin from browser Claus Gittinger <cg@exept.de> parents: 352 diff changeset	1118	]
593 6bc83313d7ff checkin from browser Claus Gittinger <cg@exept.de> parents: 570 diff changeset	1119
7887 be186ae12782 dont clobber the current selection on realize Claus Gittinger <cg@exept.de> parents: 7867 diff changeset	1120	"Created: / 30-05-1996 / 09:38:37 / cg"
be186ae12782 dont clobber the current selection on realize Claus Gittinger <cg@exept.de> parents: 7867 diff changeset	1121	"Modified: / 05-11-2007 / 20:11:44 / cg"
2117 dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1122	!
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1123
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1124	release
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1125	"release inpected object. This is normally not needed,
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1126	since the garbage collector will find this memory alone.
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1127	However, if some applications keeps invisible inspectors around
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1128	(for example, the debugger does this), the inspected object
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1129	would be kept from being freed or freed very late."
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1130
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1131	"
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1132	inspectedObject notNil ifTrue:[
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1133	inspectedObject removeDependent:self
2117 dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1134	].
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1135	"
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1136	inspectedObject := object := nil.
2117 dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1137	self setDoItAction. "/ to release ref to inspectedObject in doItBlock
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1138	workspace contents:nil.
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1139	listView contents:nil.
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1140
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1141	super release.
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1142
dd96b2478eeb category change Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1143	"Modified: 11.6.1997 / 13:20:39 / cg"
8452 0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	1144	!
0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	1145
0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	1146	setInitialSelection
8868 1fd94adeda59 changed: #setInitialSelection Claus Gittinger <cg@exept.de> parents: 8800 diff changeset	1147	object isLazyValue ifFalse:[
1fd94adeda59 changed: #setInitialSelection Claus Gittinger <cg@exept.de> parents: 8800 diff changeset	1148	object isString ifTrue:[
1fd94adeda59 changed: #setInitialSelection Claus Gittinger <cg@exept.de> parents: 8800 diff changeset	1149	self showSelection:1 "/ the self-line
1fd94adeda59 changed: #setInitialSelection Claus Gittinger <cg@exept.de> parents: 8800 diff changeset	1150	]
8452 0840b314f7bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8388 diff changeset	1151	].
98 e6fac698d6d9 . claus parents: 93 diff changeset	1152	! !
e6fac698d6d9 . claus parents: 93 diff changeset	1153
e6fac698d6d9 . claus parents: 93 diff changeset	1154	!InspectorView methodsFor:'menu'!
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1155
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1156	fieldMenu
1040 5835207bcb3e menu resource Claus Gittinger <cg@exept.de> parents: 901 diff changeset	1157	"return the menu for the field-list"
5835207bcb3e menu resource Claus Gittinger <cg@exept.de> parents: 901 diff changeset	1158
1235 13610578a5d2 resource flag: #menu -> #programMenu Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	1159	<resource: #programMenu>
1040 5835207bcb3e menu resource Claus Gittinger <cg@exept.de> parents: 901 diff changeset	1160
9703 0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1161	\|items m sel protocolMenu localProtocolMenu
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1162	protocols protocolsSorted
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1163	selectorsByFirstCharacter alphaMenu
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1164	localSelectors\|
1597 48629e1fc7b6 use new menu-creation message in PopUpMenu. Claus Gittinger <cg@exept.de> parents: 1570 diff changeset	1165
48629e1fc7b6 use new menu-creation message in PopUpMenu. Claus Gittinger <cg@exept.de> parents: 1570 diff changeset	1166	items := #(
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	1167	('Copy Name or Key' #doCopyKey )
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 2008 diff changeset	1168	('-')
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	1169	('Inspect' #doInspect )
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	1170	('BasicInspect' #doBasicInspect )
9349 e6d367cbe86c do not show new-inspector in menu, if there is none loaded Claus Gittinger <cg@exept.de> parents: 9316 diff changeset	1171	).
e6d367cbe86c do not show new-inspector in menu, if there is none loaded Claus Gittinger <cg@exept.de> parents: 9316 diff changeset	1172	NewInspector::NewInspectorView notNil ifTrue:[
e6d367cbe86c do not show new-inspector in menu, if there is none loaded Claus Gittinger <cg@exept.de> parents: 9316 diff changeset	1173	items := items , #(
4197 8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1174	('Inspect Hierarchical' #doNewInspect )
9349 e6d367cbe86c do not show new-inspector in menu, if there is none loaded Claus Gittinger <cg@exept.de> parents: 9316 diff changeset	1175	).
e6d367cbe86c do not show new-inspector in menu, if there is none loaded Claus Gittinger <cg@exept.de> parents: 9316 diff changeset	1176	].
e6d367cbe86c do not show new-inspector in menu, if there is none loaded Claus Gittinger <cg@exept.de> parents: 9316 diff changeset	1177	items := items , #(
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1178	('Browse' #browse )
8800 ab79a72dfdec changed: #fieldMenu Claus Gittinger <cg@exept.de> parents: 8799 diff changeset	1179	).
9703 0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1180	items := items , (self optionalToolItems).
8800 ab79a72dfdec changed: #fieldMenu Claus Gittinger <cg@exept.de> parents: 8799 diff changeset	1181	items := items , (self optionalViewSelectionItems).
ab79a72dfdec changed: #fieldMenu Claus Gittinger <cg@exept.de> parents: 8799 diff changeset	1182	items := items , #(
7951 ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1183	('-')
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1184	('Owners' #showOwners )
4197 8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1185	('Ref Chains' #showReferences )
3199 5478ca0ac71f * empty log message * Claus Gittinger <cg@exept.de> parents: 3198 diff changeset	1186	"/ ('Browse class hierarchy' #browseClassHierarchy )
5478ca0ac71f * empty log message * Claus Gittinger <cg@exept.de> parents: 3198 diff changeset	1187	"/ ('Browse full class protocol' #browseFullClassProtocol)
2579 81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1188	).
2587 b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1189
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1190	sel := self selection.
6491 d02c41c57d02 better menu Claus Gittinger <cg@exept.de> parents: 6372 diff changeset	1191
8799 1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1192	items := items , (self optionalMethodOrBlockSelectionItems).
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1193	items := items , (self optionalStreamSelectionItems).
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1194	items := items , (self optionalFilenameSelectionItems).
9700 5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1195	items := items , (self optionalByteArraySelectionItems).
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1196
2579 81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1197	items := items , #(
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 2008 diff changeset	1198	('-')
9574 d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1199	('Local Protocol' #localProtocolMenu )
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1200	('Full Protocol' #protocolMenu )
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1201	('-')
4197 8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1202	('Trap Message...' #doTrap )
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1203	('Trap all Messages' #doTrapAll )
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1204	('Trace all Messages' #doTraceAll )
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1205	('Untrace/Untrap' #doUntrace )
2850 f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1206	"/ ('-')
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	1207	"/ ('Trap change to instVar' #doTrapInstVarChange )
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	1208	"/ ('Trap change to any instVar' #doTrapAnyInstVarChange )
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1209	).
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1210
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1211	allowFollow ifTrue:[
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1212	items := #(
3198 1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	1213	('Follow' #doFollow )
1c34cd12b80b * empty log message * Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	1214	('Back' #doBack )
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1215	('-')
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1216	)
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1217	,
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1218	items.
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1219	].
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1220
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1221	monitorProcess isNil ifTrue:[
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1222	items := items , #(
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1223	('Start Monitor' #doStartMonitor )
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1224	).
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1225	] ifFalse:[
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1226	items := items , #(
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1227	('Stop Monitor' #doStopMonitor )
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1228	).
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1229	].
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1230
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1231	hasMore ifTrue:[
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1232	items := items , #(
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1233	('-')
4197 8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1234	('Show More' #showMore )
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1235	)
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1236	].
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1237
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1238	protocols := Dictionary new.
9703 0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1239	selectorsByFirstCharacter := Dictionary new.
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1240	object class withAllSuperclassesDo:[:eachClass \|
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1241	eachClass methodDictionary keysAndValuesDo:[:sel :m \|
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1242	sel numArgs == 0 ifTrue:[
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1243	(protocols at:m category ifAbsentPut:[Set new]) add:sel.
9703 0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1244	(selectorsByFirstCharacter at:(sel first asString) ifAbsentPut:[Set new]) add:sel.
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1245	]
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1246	].
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1247	].
9574 d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1248
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1249	protocolsSorted := protocols keys asArray sort.
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1250	protocolMenu := PopUpMenu
9703 0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1251	labels:#('alphabetical' '=') , protocolsSorted
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1252	selectors:#(nil nil) , protocolsSorted.
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1253
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1254	protocolMenu
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1255	subMenuAt:'alphabetical'
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1256	put:[
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1257	\|firstChars\|
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1258
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1259	firstChars := selectorsByFirstCharacter keys asOrderedCollection sort.
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1260	alphaMenu := PopUpMenu
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1261	labels:firstChars
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1262	selector:#mmm
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1263	args:firstChars
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1264	receiver:self.
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1265	firstChars do:[:ch \|
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1266	alphaMenu
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1267	subMenuAt:ch
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1268	put:[
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1269	\|selectors sortedSelectors\|
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1270
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1271	selectors := selectorsByFirstCharacter at:ch.
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1272	sortedSelectors := selectors asArray sort.
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1273	protocolMenu := PopUpMenu
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1274	labels:sortedSelectors
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1275	selector:#letSelectedObjectPerform:
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1276	args:sortedSelectors
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1277	receiver:self.
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1278	]
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1279	].
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1280	alphaMenu
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1281	].
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1282
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1283	protocolsSorted do:[:p \|
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1284	protocolMenu
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1285	subMenuAt:p
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1286	put:[
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1287	\|selectors sortedSelectors\|
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1288
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1289	selectors := protocols at:p.
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1290	sortedSelectors := selectors asArray sort.
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1291	protocolMenu := PopUpMenu
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1292	labels:sortedSelectors
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1293	selector:#letSelectedObjectPerform:
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1294	args:sortedSelectors
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1295	receiver:self.
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1296	]
93 dda97353e775 . claus parents: 80 diff changeset	1297	].
dda97353e775 . claus parents: 80 diff changeset	1298
9574 d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1299	localSelectors := object class methodDictionary keys asArray sort.
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1300	localProtocolMenu := PopUpMenu
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1301	labels:localSelectors
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1302	selector:#letSelectedObjectPerform:
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1303	args:localSelectors
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1304	receiver:self.
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1305
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1306	items := items , (self numberBaseItems).
1634 216a4254e634 added 'hex integers' toggle to menu. Claus Gittinger <cg@exept.de> parents: 1597 diff changeset	1307
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1308	m := PopUpMenu
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1309	itemList:items
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1310	resources:resources.
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1311
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1312	m subMenuAt:#protocolMenu put:protocolMenu.
9574 d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1313	m subMenuAt:#localProtocolMenu put:localProtocolMenu.
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1314
9703 0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1315	(self theSingleSelectionIndex isNil) ifTrue:[
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1316	m disableAll:#(doFollow doInspect doBasicInspect doNewInspect
cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1317	browse browseClassHierarchy browseFullClassProtocol
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	1318	doStartMonitor doCopyKey doCopyKey)
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1319	].
9703 0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1320	(self hasSelfEntry and:[selectionIndex == 1]) ifTrue:[
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1321	m disableAll:#(doFollow doCopyKey "doInspect doBasicInspect")
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1322	].
7975 39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1323
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1324	inspectHistory size == 0 ifTrue:[
2007 cd423a740a14 renamed instance variable. Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1325	m disable:#doBack
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1326	].
6491 d02c41c57d02 better menu Claus Gittinger <cg@exept.de> parents: 6372 diff changeset	1327	sel class hasImmediateInstances ifTrue:[
2580 d0c284a14c9c * empty log message * Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	1328	m disableAll:#(showReferences doNewInspect)
d0c284a14c9c * empty log message * Claus Gittinger <cg@exept.de> parents: 2579 diff changeset	1329	].
8616 51d6f6c57f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 8452 diff changeset	1330	"/ sel inspectorClass == self class ifFalse:[
51d6f6c57f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 8452 diff changeset	1331	"/ m disable:#doFollow
51d6f6c57f14 * empty log message * Claus Gittinger <cg@exept.de> parents: 8452 diff changeset	1332	"/ ].
4197 8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1333	sel isMethod ifFalse:[
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1334	m disable:#browseMethodsClass
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1335	].
3199 5478ca0ac71f * empty log message * Claus Gittinger <cg@exept.de> parents: 3198 diff changeset	1336
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1337	^ m
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1338
9703 0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1339	"Modified: / 27-01-2011 / 12:08:54 / cg"
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1340	!
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1341
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1342	numberBaseItems
9557 14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1343	^ {
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1344	#('-') .
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1345	(integerDisplayRadix == 10)
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1346	ifFalse:[ #('Decimal Integers' #setDisplayRadixTo10 ) ] .
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1347	(integerDisplayRadix == 2)
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1348	ifFalse:[ #('Binary Integers' #setDisplayRadixTo2 ) ] .
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1349	(integerDisplayRadix == 16)
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1350	ifFalse:[ #('Hex Integers' #setDisplayRadixTo16 ) ] .
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1351	} select:[:el \| el notNil].
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1352
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	1353	"Modified: / 24-08-2010 / 17:31:51 / cg"
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1354	!
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1355
9700 5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1356	optionalByteArraySelectionItems
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1357	\|sel\|
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1358
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1359	sel := self selection.
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1360	(object isByteArray) ifTrue:[
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1361	^ #(
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1362	('Save Bytes to File...' #saveBytesToFile)
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1363	).
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1364	].
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1365	^ #()
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1366
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1367	"Created: / 25-01-2011 / 17:16:12 / cg"
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1368	!
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1369
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1370	optionalFilenameSelectionItems
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1371	\|sel\|
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1372
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1373	sel := self selection.
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1374	(object isFilename or:[sel isFilename]) ifTrue:[
9737 36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1375	OperatingSystem isMSWINDOWSlike ifTrue:[
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1376	^ #(
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1377	('Show in Explorer' #showInWindowsExplorer)
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1378	('Open FileBrowser' #openFileBrowser)
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1379	).
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1380	].
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1381	^ #(
8090 45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1382	('Open FileBrowser' #openFileBrowser)
45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1383	).
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1384	].
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1385	^ #()
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1386
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1387	"Created: / 09-02-2007 / 16:10:30 / cg"
9737 36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1388	"Modified: / 05-02-2011 / 15:49:48 / cg"
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1389	!
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1390
8799 1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1391	optionalMethodOrBlockSelectionItems
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1392	\|sel items\|
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1393
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1394	sel := self selection.
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1395
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1396	items := #().
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1397	(sel isBlock or:[sel isContext]) ifTrue:[
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1398	items := items , #(
10436 75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1399	('Browse Block''s Home' #browseHome)
8799 1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1400	).
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1401	].
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1402	(object isMethod or:[sel isMethod]) ifTrue:[
8799 1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1403	items := items , #(
10436 75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1404	('Browse Method''s Class' #browseMethodsClass)
8799 1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1405	).
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1406	].
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1407	(selectionIndex notNil
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1408	and:[(self fieldList at:selectionIndex ifAbsent:nil) = '-dependents']) ifTrue:[
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1409	items := items , #(
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1410	('Browse Update Methods' #browseUpdateMethods)
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1411	).
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1412	].
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1413
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1414	^ items
10436 75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1415
75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1416	"Modified: / 03-08-2011 / 15:03:36 / cg"
8799 1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1417	!
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1418
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1419	optionalStreamSelectionItems
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1420	\|sel\|
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1421
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1422	sel := self selection.
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1423
8090 45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1424	sel isStream ifTrue:[
45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1425	sel isFileStream ifTrue:[
9737 36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1426	OperatingSystem isMSWINDOWSlike ifTrue:[
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1427	^ #(
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1428	('Show in Explorer' #showInWindowsExplorer)
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1429	('Open FileBrowser' #openFileBrowser)
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1430	).
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1431	].
8090 45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1432	^ #(
45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1433	('Open FileBrowser' #openFileBrowser)
45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1434	).
45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1435	].
9384 30eafebfd3f5 code deobfuscated: Claus Gittinger <cg@exept.de> parents: 9378 diff changeset	1436	sel isExternalStream ifFalse:[
8090 45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1437	^ #(
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1438	('Show Stream Contents' #showStreamContents)
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1439	).
8090 45e0ec5d10f5 * empty log message * Claus Gittinger <cg@exept.de> parents: 8065 diff changeset	1440	].
7639 c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1441	].
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1442	^ #()
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1443
c888d208bda0 * empty log message * Claus Gittinger <cg@exept.de> parents: 7629 diff changeset	1444	"Created: / 09-02-2007 / 16:09:15 / cg"
9737 36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1445	"Modified: / 05-02-2011 / 15:49:55 / cg"
8799 1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1446	!
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1447
9703 0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1448	optionalToolItems
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1449	"inserted after inspect/browse"
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1450
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1451	^ #()
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1452
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1453	"Created: / 27-01-2011 / 11:51:12 / cg"
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1454	!
0262e41260f0 added: #optionalToolItems Claus Gittinger <cg@exept.de> parents: 9701 diff changeset	1455
8799 1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1456	optionalViewSelectionItems
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1457	\|sel\|
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1458
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1459	sel := self selection.
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1460
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1461	sel isView ifTrue:[
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1462	^ #(
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1463	('Show Widget Hierarchy' #openWidgetHierarchy)
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1464	).
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1465	].
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1466	^ #()
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1467	! !
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1468
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1469	!InspectorView methodsFor:'menu actions'!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1470
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1471	browse
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1472	\|cls\|
527 2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1473
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	1474	cls := (self selection ? object) class.
10436 75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1475	(cls browserClass ? UserPreferences current systemBrowserClass)
75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1476	openInClass:cls selector:nil
75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1477
75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1478	"Created: / 14-12-1995 / 19:15:50 / cg"
75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1479	"Modified: / 03-08-2011 / 15:07:42 / cg"
527 2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1480	!
2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1481
2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1482	browseClass
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1483	\|cls\|
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1484
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	1485	cls := (self selection ? object) class.
10436 75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1486	cls browserClass
75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1487	openInClass:cls selector:nil
75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1488	"/ browseClass:cls
75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1489
75108fe4b96f comment/format in: #browse Claus Gittinger <cg@exept.de> parents: 10424 diff changeset	1490	"Modified: / 03-08-2011 / 15:05:58 / cg"
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1491	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1492
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1493	browseClassHierarchy
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1494	\|cls\|
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1495
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	1496	cls := (self selection ? object) class.
527 2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1497	cls browserClass browseClassHierarchy:cls
2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1498
2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1499	"Modified: 3.5.1996 / 12:40:04 / cg"
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1500	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1501
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1502	browseFullClassProtocol
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1503	\|cls\|
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1504
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	1505	cls := (self selection ? object) class.
527 2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1506	cls browserClass browseFullClassProtocol:cls
2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1507
2faba0c6ab96 ask class for browserClass Claus Gittinger <cg@exept.de> parents: 510 diff changeset	1508	"Modified: 3.5.1996 / 12:40:17 / cg"
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1509	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1510
2579 81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1511	browseHome
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1512	\|sel mthd\|
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1513
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	1514	sel := self selection ? object.
2579 81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1515	sel isBlock ifTrue:[
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1516	mthd := sel homeMethod
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1517	] ifFalse:[
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1518	sel isContext ifTrue:[
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1519	mthd := sel method.
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1520	]
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1521	].
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1522	mthd isNil ifTrue:[
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1523	^ self warn:'Sorry - cannot figure out home method.'
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1524	].
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1525	mthd class browserClass
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1526	openInClass:mthd mclass selector:mthd selector
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1527	!
81108fb4f996 added browse home-method Claus Gittinger <cg@exept.de> parents: 2475 diff changeset	1528
4197 8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1529	browseMethodsClass
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1530	\|mthd\|
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1531
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1532	mthd := self selection.
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1533	mthd mclass browserClass
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1534	openInClass:mthd mclass selector:mthd selector
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1535	!
8086dadff648 added broese methods class Claus Gittinger <cg@exept.de> parents: 4106 diff changeset	1536
7975 39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1537	browseUpdateMethods
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1538	\|deps methods\|
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1539
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1540	deps := self selection.
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1541	methods := Set new.
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1542	deps do:[:each \|
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1543	\|implClass\|
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1544
8962 b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	1545	implClass := each class whichClassIncludesSelector:#'update:with:from:'.
7975 39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1546	implClass notNil ifTrue:[
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1547	methods add:(implClass compiledMethodAt:#'update:with:from:')
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1548	]
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1549	].
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1550	methods isEmpty ifTrue:[^ self].
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1551
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1552	methods first mclass browserClass
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1553	browseMethods:methods
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1554	title:'Update Method(s) of dependent(s)'
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1555	!
39967da19bfe +browseUpdatemethods Claus Gittinger <cg@exept.de> parents: 7951 diff changeset	1556
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1557	doBack
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1558	"user selected back-menu entry"
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1559
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1560	\|objectToInspect\|
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1561
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1562	inspectHistory size > 0 ifTrue:[
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1563	objectToInspect := inspectHistory removeLast.
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1564	inspectHistory size == 0 ifTrue:[
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1565	inspectHistory := nil
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1566	].
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1567	self inspect:objectToInspect.
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1568	]
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1569
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1570	"Created: / 22.9.1998 / 18:22:01 / cg"
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1571	"Modified: / 22.9.1998 / 18:22:28 / cg"
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1572	!
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1573
1930 fc38f714f4ab checkin from browser Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	1574	doBasicInspect
fc38f714f4ab checkin from browser Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	1575	"user selected inspect-menu entry"
fc38f714f4ab checkin from browser Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	1576
fc38f714f4ab checkin from browser Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	1577	self doInspect:true
fc38f714f4ab checkin from browser Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	1578	!
fc38f714f4ab checkin from browser Claus Gittinger <cg@exept.de> parents: 1895 diff changeset	1579
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1580	doFollow
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1581	"user selected follow-menu entry"
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1582
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1583	\|objectToInspect\|
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1584
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1585	selectionIndex notNil ifTrue:[
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1586	objectToInspect := self selection.
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1587	inspectHistory isNil ifTrue:[
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1588	inspectHistory := OrderedCollection new
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1589	].
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1590	inspectHistory addLast:object.
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1591	self inspect:objectToInspect.
1895 8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1592	]
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1593
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1594	"Created: / 22.9.1998 / 18:21:08 / cg"
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1595	"Modified: / 22.9.1998 / 18:22:23 / cg"
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1596	!
8b51d61d9c0a added follow & back menu items. Claus Gittinger <cg@exept.de> parents: 1873 diff changeset	1597
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1598	doInspect
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1599	"user selected inspect-menu entry"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1600
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1601	self doInspect:false
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1602	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1603
1365 4a98e9a59430 * empty log message * Claus Gittinger <cg@exept.de> parents: 1270 diff changeset	1604	doNewInspect
4a98e9a59430 * empty log message * Claus Gittinger <cg@exept.de> parents: 1270 diff changeset	1605	self doInspect:#new
4a98e9a59430 * empty log message * Claus Gittinger <cg@exept.de> parents: 1270 diff changeset	1606
4a98e9a59430 * empty log message * Claus Gittinger <cg@exept.de> parents: 1270 diff changeset	1607	"Created: / 31.10.1997 / 12:45:38 / cg"
4a98e9a59430 * empty log message * Claus Gittinger <cg@exept.de> parents: 1270 diff changeset	1608	"Modified: / 31.10.1997 / 12:47:11 / cg"
4a98e9a59430 * empty log message * Claus Gittinger <cg@exept.de> parents: 1270 diff changeset	1609	!
4a98e9a59430 * empty log message * Claus Gittinger <cg@exept.de> parents: 1270 diff changeset	1610
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1611	doStartMonitor
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1612	"start a monitoring process"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1613
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1614	monitorProcess isNil ifTrue:[
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1615	monitorProcess :=
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1616	[
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1617	\|sel\|
295 92bcaa9996ae minor changes for ContextInspector required Claus Gittinger <cg@exept.de> parents: 268 diff changeset	1618
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1619	[true] whileTrue:[
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1620	(sel := selectionIndex) notNil ifTrue:[
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1621	self showSelection:sel
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1622	].
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1623	(Delay forSeconds:0.5) wait
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1624	]
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	1625	] forkAt:Processor userBackgroundPriority
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1626	]
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1627
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1628	"Modified: 12.4.1996 / 14:20:06 / cg"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1629	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1630
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1631	doStopMonitor
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1632	"stop the monitor"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1633
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1634	monitorProcess terminate.
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1635	monitorProcess := nil
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1636	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1637
2800 4e5792ade7aa menu fix Claus Gittinger <cg@exept.de> parents: 2724 diff changeset	1638	doTraceAll
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1639	"place a trace on all messages sent to the inspected object"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1640
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1641	self topView withWaitCursorDo:[MessageTracer traceAll:object on:Transcript]
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1642	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1643
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1644	doTrap
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1645	"place a trap on a message sent to the inspected object"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1646
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1647	\|string selector\|
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1648
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1649	string := Dialog request:'Selector to trap on:' onCancel:nil.
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1650
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1651	string notNil ifTrue:[
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1652	selector := string asSymbolIfInterned.
901 56fe927e0734 fix doTrap ca parents: 874 diff changeset	1653
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1654	selector isNil ifTrue:[
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1655	self warn:'no such selector'
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1656	] ifFalse:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1657	self topView withWaitCursorDo:[MessageTracer trap:object
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1658	selector:selector]
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1659	]
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1660	]
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1661
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1662	"Modified: 12.4.1996 / 14:07:01 / cg"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1663	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1664
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1665	doTrapAll
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1666	"place a trap on all messages sent to the inspected object"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1667
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1668	self topView withWaitCursorDo:[MessageTracer trapAll:object]
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1669	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1670
2850 f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1671	doTrapAnyInstVarChange
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1672	"place a trap which is triggered if any instVar of the inspected object is changed"
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1673
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1674	self topView withWaitCursorDo:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1675	MessageTracer trapModificationsIn:object
2850 f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1676	]
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1677	!
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1678
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1679	doTrapInstVarChange
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1680	"place a trap which is triggered if the selected instVar of the inspected object is changed"
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1681
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1682	self topView withWaitCursorDo:[
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1683	\|idx\|
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1684
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1685	"/ a named instVar ?
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1686	idx := self instVarIndexForLine:selectionIndex.
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1687	idx isNil ifTrue:[
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1688	self warn:'select an instance variable first.'.
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1689	^ self.
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1690	].
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1691	MessageTracer
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1692	trapModificationsOf:(object class allInstVarNames at:idx)
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1693	in:object
2850 f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1694	]
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1695	!
f05e61a40fe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2800 diff changeset	1696
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1697	doUntrace
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1698	"remove traps/traces"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1699
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1700	MessageTracer untrace:object
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1701	!
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1702
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1703	inspectOwners
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1704	"open an inspector on owners of the inspectedObject.
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1705	(this is a secret function)"
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1706
7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1707	self withCursor:(Cursor questionMark) do:[
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1708	\|owners dict\|
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1709
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1710	owners := (ObjectMemory whoReferences:object) asOrderedCollection.
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1711	owners size > 500 ifTrue:[
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1712	(self confirm:'there are ' , owners size printString , ' owners.\\Do you really want to see them all ?' withCRs)
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1713	ifFalse:[^ self]
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1714	].
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1715	dict := IdentityDictionary new.
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1716	owners do:[:owner \|
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1717	\|set names oClass\|
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1718
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1719	owner ~~ self ifTrue:[
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1720	set := Set new.
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1721	names := owner class allInstVarNames.
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1722	oClass := owner class.
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1723	1 to:oClass instSize do:[:i \|
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1724	(owner instVarAt:i) == object ifTrue:[
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1725	set add:(names at:i).
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1726	].
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1727	].
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1728	oClass isVariable ifTrue:[
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1729	oClass isPointers ifTrue:[
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1730	1 to:owner basicSize do:[:i \|
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	1731	(owner basicAt:i) == object ifTrue:[
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1732	set add:i
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1733	]
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1734	]
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1735	]
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1736	].
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1737	dict at:owner put:set
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1738	].
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1739	].
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	1740	dict inspect
472 7e2d83585ed7 category rename; menu order changed Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1741	]
2587 b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1742	!
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1743
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1744	letSelectedObjectPerform:aSelector
9574 d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1745	\|sel argString\|
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1746
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1747	sel := self selection ? object.
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1748	aSelector numArgs == 0 ifTrue:[
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1749	(sel perform:aSelector) inspect.
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1750	^ self.
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1751	].
9574 d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1752	aSelector numArgs == 1 ifTrue:[
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1753	argString := Dialog request:'Argument (Smalltalk Object)'.
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1754	argString isEmptyOrNil ifTrue:[^ self].
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1755	(sel perform:aSelector with:(Object readFrom:argString)) inspect.
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1756	^ self.
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1757	].
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1758	self halt.
9574 d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1759
d2a1b8074d35 changed: Claus Gittinger <cg@exept.de> parents: 9557 diff changeset	1760	"Modified: / 07-10-2010 / 14:34:21 / cg"
8993 ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1761	!
ddf4fc887179 experimental protocol menu... Claus Gittinger <cg@exept.de> parents: 8962 diff changeset	1762
6283 7fa17d36a91c +openFileBrowser (when inspeting a filename) Claus Gittinger <cg@exept.de> parents: 6130 diff changeset	1763	openFileBrowser
7fa17d36a91c +openFileBrowser (when inspeting a filename) Claus Gittinger <cg@exept.de> parents: 6130 diff changeset	1764	\|fn\|
7fa17d36a91c +openFileBrowser (when inspeting a filename) Claus Gittinger <cg@exept.de> parents: 6130 diff changeset	1765
7fa17d36a91c +openFileBrowser (when inspeting a filename) Claus Gittinger <cg@exept.de> parents: 6130 diff changeset	1766	fn := self selection.
9615 6fc22155a4f6 changed: #openFileBrowser Claus Gittinger <cg@exept.de> parents: 9574 diff changeset	1767	fn isNil ifTrue:[ fn := inspectedObject ].
8155 018dcb4973bf * empty log message * Claus Gittinger <cg@exept.de> parents: 8090 diff changeset	1768	fn isStream ifTrue:[
018dcb4973bf * empty log message * Claus Gittinger <cg@exept.de> parents: 8090 diff changeset	1769	fn := fn pathName asFilename
018dcb4973bf * empty log message * Claus Gittinger <cg@exept.de> parents: 8090 diff changeset	1770	].
9794 6aa5341140a7 changed: #openFileBrowser Claus Gittinger <cg@exept.de> parents: 9737 diff changeset	1771	(UserPreferences current fileBrowserClass) openOnFileNamed:fn asFilename.
6aa5341140a7 changed: #openFileBrowser Claus Gittinger <cg@exept.de> parents: 9737 diff changeset	1772
6aa5341140a7 changed: #openFileBrowser Claus Gittinger <cg@exept.de> parents: 9737 diff changeset	1773	"Modified: / 22-03-2011 / 18:05:22 / cg"
6283 7fa17d36a91c +openFileBrowser (when inspeting a filename) Claus Gittinger <cg@exept.de> parents: 6130 diff changeset	1774	!
7fa17d36a91c +openFileBrowser (when inspeting a filename) Claus Gittinger <cg@exept.de> parents: 6130 diff changeset	1775
8799 1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1776	openWidgetHierarchy
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1777	\|view\|
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1778
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1779	view := self selection.
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1780	view isView ifFalse:[^ self].
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1781
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1782	WindowTreeView openOn:view
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1783	!
1d12c3d835ba +showWidgetHierarchy Claus Gittinger <cg@exept.de> parents: 8726 diff changeset	1784
9700 5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1785	saveBytesToFile
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1786	\|fn\|
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1787
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1788	fn := Dialog requestFileName:'Save bytes into:'.
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1789	fn isEmptyOrNil ifTrue:[^ self].
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1790
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1791	fn asFilename contents:inspectedObject.
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1792
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1793	"Modified: / 25-01-2011 / 17:23:38 / cg"
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1794	!
5e21472414c9 added: Claus Gittinger <cg@exept.de> parents: 9693 diff changeset	1795
9737 36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1796	showInWindowsExplorer
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1797	"show in explorer"
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1798
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1799	\|fn dir\|
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1800
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1801	fn := self selection.
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1802	fn isNil ifTrue:[ fn := inspectedObject ].
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1803	fn isStream ifTrue:[
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1804	fn := fn pathName asFilename
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1805	].
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1806	dir := fn isDirectory
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1807	ifTrue:[ fn ]
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1808	ifFalse:[ fn directory ].
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1809
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1810	OperatingSystem
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1811	openApplicationForDocument:dir
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1812	operation:#explore.
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1813
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1814	"Created: / 05-02-2011 / 15:49:33 / cg"
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1815	!
36540512da66 added: Claus Gittinger <cg@exept.de> parents: 9736 diff changeset	1816
7951 ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1817	showOwners
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1818	\|o\|
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1819
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1820	o := self selection.
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1821	self withCursor:(Cursor questionMark) do:[
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1822	\|owners dict\|
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1823
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1824	owners := (ObjectMemory whoReferences:o).
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1825	owners isEmptyOrNil ifTrue:[
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1826	self information:'No owners found.'.
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1827	^ self
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1828	].
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1829	owners := owners asOrderedCollection.
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1830	"
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1831	skip weakArrays ... (they dont count)
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1832	"
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1833	owners := owners reject:[:owner \| owner isMemberOf:WeakArray].
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1834	owners inspect.
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1835	"/ inspector := DictionaryInspectorView openOn:dict.
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1836	"/ inspector listView doubleClickAction:[:lineNr \| inspector doInspectKey].
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1837	]
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1838
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1839	"Modified: 15.10.1996 / 22:09:38 / cg"
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1840	!
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1841
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1842	showReferences
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1843	"user selected references-menu entry"
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1844
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1845	self selection class hasImmediateInstances ifTrue:[
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1846	^ self warn:'Sorry - cannot show references to immediate objects'
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1847	].
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1848	ObjectMemory displayRefChainTo:(self selection)
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1849
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1850	"Modified: / 30.7.1998 / 14:03:16 / cg"
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1851	!
ebebf170a28c changed #fieldMenu Claus Gittinger <cg@exept.de> parents: 7904 diff changeset	1852
2587 b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1853	showStreamContents
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1854	\|sel\|
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1855
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1856	sel := self selection.
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1857	(sel isStream and:[sel isExternalStream not]) ifTrue:[
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1858	workspace replace:(sel contents printString)
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1859	].
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1860
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1861	"Created: / 6.2.2000 / 13:46:37 / cg"
b6838cdb1f14 added show-stream-contents menu item Claus Gittinger <cg@exept.de> parents: 2580 diff changeset	1862	"Modified: / 6.2.2000 / 13:47:37 / cg"
73 e332d9c71624 * empty log message * claus parents: 71 diff changeset	1863	! !
e332d9c71624 * empty log message * claus parents: 71 diff changeset	1864
12158 54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1865	!InspectorView methodsFor:'presentation'!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1866
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1867	appendDisplayStringForElementsOf:val indent:lvl pad:padding to:aStream
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1868	val doWithIndex:[:el :idx \|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1869	\|elValString\|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1870
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1871	aStream spaces:lvl.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1872	aStream nextPutAll:(' ' paddedTo:padding with:$.).
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1873	aStream nextPutAll:(' [',(idx printString leftPaddedTo:2),']').
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1874	aStream nextPutAll:' : '.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1875	elValString := self basicDisplayStringForValue:el.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1876	aStream nextPutAll:elValString.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1877	aStream cr.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1878	"/ s nextPutAll:(self stringWithAllInstVarValuesFor:el level:lvl+4)
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1879	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1880
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1881	"Created: / 12-02-2012 / 09:55:53 / cg"
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1882	!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1883
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1884	basicDisplayStringForValue:someValue
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1885	"return the value's displayString to be pasted into the workspace."
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1886
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1887	\|s\|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1888
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1889	Error handle:[:ex \|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1890	s := someValue classNameWithArticle.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1891	displayStringMessage == #displayString ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1892	s := s , ' "error in displayString: ' , ex description , '"'
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1893	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1894	s := s , ' "error in displayString (' , displayStringMessage , '): ' , ex description , '"'
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1895	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1896	^ s
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1897	] do:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1898	integerDisplayRadix ~= 10 ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1899	"/ not everything can be shown in HEX/Binary
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1900
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1901	someValue isInteger ifTrue:[
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	1902	s := someValue radixPrintStringRadix:integerDisplayRadix.
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	1903	s := s , ' "',(someValue printString),'"'.
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	1904	^ s
12158 54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1905	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1906	(someValue isMemberOf:ByteArray) ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1907	s := WriteStream on:(String new:10).
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1908	s writeLimit:100000.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1909	someValue printOn:s base:integerDisplayRadix showRadix:true.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1910	^ s contents
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1911	]
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1912	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1913
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1914	"/ displayStringMessage := #classNameWithArticle
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1915	"/ displayStringMessage := #displayString
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1916	"/ displayStringMessage := #printString
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1917
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1918	s := CharacterWriteStream on:(String new:10).
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1919	s writeLimit:100000.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1920
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1921	someValue isLazyValue ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1922	s nextPutAll:someValue class nameWithArticle
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1923	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1924	"/ mhmh - avoid sending #perform: (bad for proxy objects which pass it to somewhere..)
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1925	displayStringMessage == #displayString ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1926	someValue displayOn:s.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1927	"/ s := someValue displayString.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1928	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1929	displayStringMessage == #printString ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1930	someValue printOn:s.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1931	"/ s := someValue printString.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1932	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1933	displayStringMessage == #storeString ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1934	someValue storeOn:s.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1935	"/ s := someValue storeString.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1936	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1937	^ someValue perform:displayStringMessage.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1938	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1939	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1940	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1941	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1942	^ s contents
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1943	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1944
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	1945	"Modified: / 17-02-2012 / 20:48:45 / cg"
12158 54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1946	!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1947
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1948	displayStringForValue:someValue
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1949	"return the value's displayString to be pasted into the workspace."
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1950
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1951	\|idx sel extraAttributes\|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1952
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1953	idx := self theSingleSelectionIndex.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1954	idx notNil ifTrue:[
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1955	sel := self listEntryAt:idx.
12158 54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1956
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1957	extraAttributes := object inspectorExtraAttributes.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1958	(extraAttributes notNil and:[extraAttributes includesKey:sel]) ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1959	^ someValue "(extraAttributes at:sel) value" printString
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1960	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1961
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1962	(sel startsWith:'-all inst vars') ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1963	^ self stringWithAllInstVarValues
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1964	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1965	(sel startsWith:'-all indexed vars') ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1966	^ self stringWithAllIndexedVarValues
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1967	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1968	(sel startsWith:'-all messages') ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1969	^ self stringWithMessages:#all
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1970	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1971	(sel startsWith:'-local messages') ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1972	^ self stringWithMessages:#local
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1973	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1974	(sel startsWith:'-inherited messages') ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1975	^ self stringWithMessages:#inherited
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1976	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1977	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1978	^ self basicDisplayStringForValue:someValue
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	1979
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1980	"Modified: / 16-05-2012 / 17:55:05 / cg"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1981	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1982
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1983	iconForValue: anObject
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1984	anObject isNil ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1985	^ self class imageFor_nil
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1986	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1987	anObject isNumber ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1988	anObject isInteger ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1989	^ self class imageFor_integers
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1990	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1991	anObject isFloat ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1992	^ self class imageFor_floats
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1993	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1994	anObject isFraction ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1995	^ self class imageFor_fractions
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1996	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1997	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1998	anObject isCollection ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	1999	anObject isString ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2000	anObject isSymbol ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2001	^ self class imageFor_symbols
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2002	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2003	^ self class imageFor_strings
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2004	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2005	(anObject isKindOf:Dictionary) ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2006	^ self class imageFor_dictionaries
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2007	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2008	(anObject isArray) ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2009	^ self class imageFor_arrays
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2010	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2011	(anObject isSequenceable) ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2012	^ self class imageFor_sequenceableCollections
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2013	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2014	^ self class imageFor_collections
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2015	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2016	anObject == true ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2017	^ self class imageFor_true
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2018	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2019	anObject == false ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2020	^ self class imageFor_false
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2021	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2022	anObject isCharacter ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2023	^ self class imageFor_characters
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2024	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2025	anObject isBehavior ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2026	^ self class imageFor_classes
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2027	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2028	^ self class imageFor_others
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2029
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2030	"Created: / 16-05-2012 / 17:58:20 / cg"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2031	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2032
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2033	listEntryForName:nameString value:value
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2034	\|valString plainString\|
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2035
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2036	UserPreferences current showTypeIndicatorInInspector ifFalse:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2037	^ nameString
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2038	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2039
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2040	value isNumber ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2041	valString := value printString
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2042	] ifFalse:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2043	(value isSymbol or:[value isCharacter]) ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2044	valString := value storeString
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2045	] ifFalse:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2046	value isString ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2047	valString := value contractTo:30.
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2048	] ifFalse:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2049	value isColor ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2050	valString := value htmlPrintString
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2051	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2052	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2053	]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2054	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2055
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2056	valString notNil ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2057	plainString := (nameString allBold,' <',valString,'>').
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2058	] ifFalse:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2059	plainString := nameString allBold
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2060	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2061
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2062	value isColor ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2063	plainString := plainString
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2064	, ' ' , (' '
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2065	colorizeAllWith:((value brightness < 0.5)
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2066	ifTrue:[ Color white ]
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2067	ifFalse:[ Color black ])
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2068	on:value).
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2069	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2070
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2071	^ LabelAndIcon string:plainString image:(self iconForValue:value)
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2072
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2073	"Created: / 16-05-2012 / 18:42:28 / cg"
12158 54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2074	!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2075
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2076	stringWithAllIndexedVarValues
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2077	\|nIdx s names maxLen varString padLeft\|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2078
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2079	nIdx := object size.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2080
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2081	s := CharacterWriteStream on:''.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2082	names := self indexList.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2083	names size > 0 ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2084	maxLen := (names collect:[:eachName \| eachName printString size]) max.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2085	padLeft := names conform:[:eachIdx \| eachIdx isInteger].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2086
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2087	names do:[:eachIdx \|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2088	\|val\|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2089
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2090	padLeft ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2091	s nextPutAll:(eachIdx printStringLeftPaddedTo:maxLen).
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2092	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2093	s nextPutAll:((eachIdx printString , ' ') paddedTo:maxLen+1 with:$.).
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2094	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2095	s nextPutAll:' : '.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2096
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2097	val := self indexedValueAtKey:eachIdx.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2098
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2099	((ExpandArraysInAllLists == true) and:[val isSequenceable and:[ val class isPointers]]) ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2100	s cr.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2101	self appendDisplayStringForElementsOf:val indent:2 pad:maxLen+1+1 to:s.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2102	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2103	varString := self basicDisplayStringForValue:val.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2104	(varString includes:Character cr) ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2105	varString := varString copyTo:(varString indexOf:Character cr)-1.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2106	varString := varString , '...'.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2107	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2108	s nextPutLine:varString.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2109	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2110	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2111	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2112	nShown < nIdx ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2113	s nextPutLine:' ...'.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2114	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2115	^ s contents
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2116
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2117	"Modified: / 12-02-2012 / 10:52:04 / cg"
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2118	!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2119
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2120	stringWithAllInstVarValues
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2121	^ self stringWithAllInstVarValuesFor:object level:0
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2122
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2123	"Modified: / 31-01-2012 / 18:23:11 / cg"
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2124	!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2125
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2126	stringWithAllInstVarValuesFor:anObject level:lvl
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2127	\|s names maxLen\|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2128
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2129	s := CharacterWriteStream on:''.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2130	names := anObject class allInstVarNames.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2131	maxLen := (names collect:[:eachName \| eachName size]) max.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2132	names keysAndValuesDo:[:eachInstVarIndex :eachInstVarName \|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2133	\|val valString\|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2134
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2135	val := anObject instVarAt:eachInstVarIndex.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2136
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2137	s spaces:lvl.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2138	s nextPutAll:((eachInstVarName , ' ') paddedTo:maxLen+1 with:$.).
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2139	s nextPutAll:' : '.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2140
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2141	((ExpandArraysInAllLists == true) and:[val isSequenceable and:[ val class isPointers] ]) ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2142	s cr.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2143	self appendDisplayStringForElementsOf:val indent:lvl pad:maxLen+1+1 to:s.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2144	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2145	valString := self basicDisplayStringForValue:val.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2146	(valString includes:Character cr) ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2147	valString := valString copyTo:(valString indexOf:Character cr)-1.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2148	valString := valString , '...'.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2149	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2150	s nextPutAll:valString.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2151	s cr.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2152	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2153	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2154	^ s contents
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2155
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2156	"Created: / 31-01-2012 / 18:23:15 / cg"
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2157	!
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2158
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2159	stringWithMessages:which
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2160	\|cls s messages \|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2161
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2162	s := CharacterWriteStream on:''.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2163	cls := object class.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2164	which == #local ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2165	messages := cls selectors.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2166	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2167	which == #all ifTrue:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2168	messages := cls allSelectors.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2169	] ifFalse:[
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2170	messages := cls allSelectors copy asSet removeAll:cls selectors; yourself.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2171	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2172	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2173
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2174	messages asOrderedCollection sort do:[:eachSelector \|
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2175	s nextPutAll:eachSelector.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2176	s cr.
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2177	].
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2178	^ s contents
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2179	! !
54259ef3a49d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	2180
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2181	!InspectorView methodsFor:'private'!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2182
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2183	baseInspectedObjectClass
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2184	^ Object
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2185
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2186
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2187	!
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2188
647 1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 644 diff changeset	2189	defaultLabel
9736 94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	2190	^ 'InstVars & Pseudo Slots'
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	2191
94b7fca09158 class definition Claus Gittinger <cg@exept.de> parents: 9703 diff changeset	2192	"Modified: / 05-02-2011 / 14:06:26 / cg"
647 1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 644 diff changeset	2193	!
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 644 diff changeset	2194
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2195	derivedFieldNames
9701 c8c52d6b74e3 changed: #derivedFieldNames Claus Gittinger <cg@exept.de> parents: 9700 diff changeset	2196	\|d actionItems valueItems otherItems\|
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2197
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2198	d := self derivedFields.
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2199	(d isKindOf:Dictionary) ifTrue:[
9701 c8c52d6b74e3 changed: #derivedFieldNames Claus Gittinger <cg@exept.de> parents: 9700 diff changeset	2200	actionItems := d keys select:[:k \| k startsWith:'!!'] as:OrderedCollection .
c8c52d6b74e3 changed: #derivedFieldNames Claus Gittinger <cg@exept.de> parents: 9700 diff changeset	2201	valueItems := d keys select:[:k \| k startsWith:'-'] as:OrderedCollection.
c8c52d6b74e3 changed: #derivedFieldNames Claus Gittinger <cg@exept.de> parents: 9700 diff changeset	2202	otherItems := d keys select:[:k \| (k startsWithAnyOf:#('!!' '-')) not] as:OrderedCollection.
c8c52d6b74e3 changed: #derivedFieldNames Claus Gittinger <cg@exept.de> parents: 9700 diff changeset	2203	^ ((actionItems sort , valueItems sort) collect:[:k \| (k copyTo:1),(k copyFrom:2) allItalic])
c8c52d6b74e3 changed: #derivedFieldNames Claus Gittinger <cg@exept.de> parents: 9700 diff changeset	2204	,
c8c52d6b74e3 changed: #derivedFieldNames Claus Gittinger <cg@exept.de> parents: 9700 diff changeset	2205	otherItems sort
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2206	].
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2207	^ d collect:[:eachEntry \|
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2208	\|nm\|
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2209
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2210	nm := (eachEntry isAssociation)
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2211	ifTrue:[ eachEntry key ]
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2212	ifFalse:[ eachEntry first ].
8699 c15ffeafbe35 * empty log message * Claus Gittinger <cg@exept.de> parents: 8689 diff changeset	2213	'-',nm allItalic
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2214	]
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2215
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2216	"Created: / 03-08-2006 / 15:02:54 / cg"
9701 c8c52d6b74e3 changed: #derivedFieldNames Claus Gittinger <cg@exept.de> parents: 9700 diff changeset	2217	"Modified: / 27-01-2011 / 11:45:17 / cg"
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2218	!
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2219
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2220	derivedFields
7054 89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2221	"the check below is not sufficient - if someone catches messages, for example.
89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2222	Therefore, we do a manual lookup here:"
8962 b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	2223
b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	2224	(object class whichClassIncludesSelector:#inspectorExtraAttributes) isNil ifTrue:[
7054 89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2225	^ #()
89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2226	].
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2227	^ [object inspectorExtraAttributes]
40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2228	on: MessageNotUnderstood
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2229	do: [:ex \| ex return: #() ]
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2230
40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2231	"Created: / 17-07-2006 / 11:02:32 / cg"
7054 89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2232	"Modified: / 29-08-2006 / 13:03:31 / cg"
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2233	!
40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2234
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2235	extraNamedFieldNames
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2236	^ self extraNamedFields
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2237	collect:[:eachEntry \|
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2238	\|nm\|
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2239
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2240	nm := (eachEntry isAssociation)
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2241	ifTrue:[ eachEntry key ]
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2242	ifFalse:[ eachEntry first ].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2243	'`',nm
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2244	]
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2245
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2246	"Modified: / 03-08-2006 / 15:17:19 / cg"
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2247	!
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2248
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2249	extraNamedFields
6940 c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	2250	"by redefining inspectorExtraNamedFields to return an array of
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	2251	pseudo-fieldName->value associations, the inspectors left list can be extended"
c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	2252
7054 89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2253	"the check below is not sufficient - if someone catches messages, for example.
89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2254	Therefore, we do a manual lookup here:"
8962 b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	2255
b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	2256	(object class whichClassIncludesSelector:#inspectorExtraNamedFields) isNil ifTrue:[
7054 89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2257	^ #()
89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2258	].
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2259	^ [object inspectorExtraNamedFields]
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2260	on: MessageNotUnderstood
6940 c95880ea4d17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	2261	do: [:ex \| ex return: #() ]
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2262
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2263	"Created: / 03-08-2006 / 13:34:18 / cg"
7054 89bf9a75fb79 * empty log message * Claus Gittinger <cg@exept.de> parents: 6940 diff changeset	2264	"Modified: / 29-08-2006 / 13:03:57 / cg"
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2265	!
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2266
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2267	extraNamedVarIndexForLine:lineNr
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2268	"helper - return the index for a named instVar;
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2269	nil, if self or a keyed instvar is selected."
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2270
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2271	\|idx nNamedInstvarsShown nExtraNamedInstvarsShown cls baseCls firstRealIndex line\|
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2272
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2273	lineNr isNil ifTrue:[^ nil].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2274	firstRealIndex := 1.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2275
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2276	idx := lineNr.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2277	self hasSelfEntry ifTrue:[
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2278	(lineNr == 1 or:[lineNr isNil]) ifTrue:[
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2279	^ nil "/ self selected
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2280	].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2281	idx := idx - 1.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2282	firstRealIndex := 2.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2283	].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2284
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2285	[line := self listEntryAt:firstRealIndex.
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2286	(line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]] whileTrue:[
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2287	firstRealIndex := firstRealIndex + 1.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2288	idx := idx - 1.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2289	].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2290
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2291	cls := object class.
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2292	baseCls := self baseInspectedObjectClass.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2293
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2294	nNamedInstvarsShown := cls instSize.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2295	"/ only the namedInstvars below baseInspectedObjectClass
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2296	"/ are shown ...
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2297	(cls == baseCls or:[cls isSubclassOf:baseCls]) ifTrue:[
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2298	nNamedInstvarsShown := nNamedInstvarsShown - baseCls instSize.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2299	].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2300
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2301	idx := idx - nNamedInstvarsShown.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2302	idx < 1 ifTrue:[
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2303	^ nil.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2304	].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2305
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2306	nExtraNamedInstvarsShown := self extraNamedFields size.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2307	idx <= nExtraNamedInstvarsShown ifTrue:[
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2308	^ idx.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2309	].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2310
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2311	^ nil "/ indexed instvar or other selected
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2312
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2313	"Created: / 03-08-2006 / 13:45:14 / cg"
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2314	"Modified: / 16-05-2012 / 17:54:52 / cg"
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2315	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2316
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2317	fieldList
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2318	"return a list of names to show in the selectionList.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2319	Leave hasMore as true, if a '...' entry should be added."
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2320
6840 52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2321	\|derivedFieldList namedFieldList fieldList cls indexedList extraNamedFieldList\|
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2322
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2323	object isNil ifTrue:[
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2324	^ self hasSelfEntry ifFalse:[ #() ] ifTrue:[ #('-self') ]
3338 c2691e356f51 checkin from browser Claus Gittinger <cg@exept.de> parents: 3318 diff changeset	2325	].
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2326
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2327	cls := object class.
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2328
2275 b402f5173c79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2271 diff changeset	2329	self topView withWaitCursorDo:[
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2330	namedFieldList := self namedFieldList.
3868 77040d8d3526 all indexed vars Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	2331	indexedList := self indexedFieldList.
6840 52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2332	extraNamedFieldList := OrderedCollection new.
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2333
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2334	self hasSelfEntry ifTrue:[
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2335	self suppressPseudoSlots ifFalse:[
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2336	derivedFieldList := OrderedCollection new.
9370 daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2337	derivedFieldList addAll:(self pseudoFieldNamesWithIndexed:(indexedList notEmptyOrNil)).
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2338	derivedFieldList addAll:(self derivedFieldNames).
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2339	extraNamedFieldList addAll:(self extraNamedFieldNames).
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2340	].
3525 761785907491 checkin from browser martin parents: 3432 diff changeset	2341	].
531 4b079a4e85b4 checkin from browser Claus Gittinger <cg@exept.de> parents: 527 diff changeset	2342
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2343	fieldList := OrderedCollection new.
40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2344	derivedFieldList notNil ifTrue:[fieldList addAll:derivedFieldList].
40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2345	namedFieldList notNil ifTrue:[fieldList addAll:namedFieldList].
6840 52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2346	extraNamedFieldList notNil ifTrue:[fieldList addAll:extraNamedFieldList].
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2347	indexedList notNil ifTrue:[fieldList addAll:indexedList].
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2348	].
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2349	^ fieldList
531 4b079a4e85b4 checkin from browser Claus Gittinger <cg@exept.de> parents: 527 diff changeset	2350
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2351	"Modified: / 18-09-2006 / 21:16:03 / cg"
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2352	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2353
295 92bcaa9996ae minor changes for ContextInspector required Claus Gittinger <cg@exept.de> parents: 268 diff changeset	2354	hasSelfEntry
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2355	^ hideReceiver not and:[self suppressPseudoSlots not]
295 92bcaa9996ae minor changes for ContextInspector required Claus Gittinger <cg@exept.de> parents: 268 diff changeset	2356
92bcaa9996ae minor changes for ContextInspector required Claus Gittinger <cg@exept.de> parents: 268 diff changeset	2357	"Created: 14.12.1995 / 19:30:03 / cg"
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	2358	"Modified: 28.6.1996 / 15:13:41 / cg"
295 92bcaa9996ae minor changes for ContextInspector required Claus Gittinger <cg@exept.de> parents: 268 diff changeset	2359	!
92bcaa9996ae minor changes for ContextInspector required Claus Gittinger <cg@exept.de> parents: 268 diff changeset	2360
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2361	indexList
9557 14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2362	"return a list of indexes usable to access the object's indexed slots.
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2363	Set hasMore to true, if a '...' entry should be added."
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2364
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2365	\|objSz n cls list\|
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2366
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2367	cls := object class.
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2368
3868 77040d8d3526 all indexed vars Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	2369	cls isVariable ifFalse:[^ nil ].
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2370
9557 14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2371	n := objSz := object basicSize.
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2372	(n > nShown) ifTrue:[
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2373	n := nShown.
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2374	hasMore := true.
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2375	].
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2376	list := (1 to:n).
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2377	^ list
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2378	"/ keysAndValuesCollect:[:idx :nm \|
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2379	"/ LabelAndIcon string:nm image:(self iconForValue:(object basicAt:idx))
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2380	"/ ].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2381
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2382	"Modified: / 16-05-2012 / 18:34:35 / cg"
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2383	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2384
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2385	indexOfFirstNamedInstvarInList
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2386	"helper - return the index for the first named instVar;
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2387	nil, if self or a keyed instvar is selected."
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2388
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2389	\|firstRealIndex\|
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2390
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2391	firstRealIndex := 1.
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2392	self hasSelfEntry ifTrue:[
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2393	firstRealIndex := 2.
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2394	].
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2395
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2396	[
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2397	\|line\|
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2398
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2399	line := self listEntryAt:firstRealIndex.
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2400	(line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2401	] whileTrue:[
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2402	firstRealIndex := firstRealIndex + 1.
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2403	].
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2404	^ firstRealIndex
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2405
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2406	"Modified: / 16-05-2012 / 17:54:46 / cg"
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2407	!
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2408
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2409	indexedFieldList
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2410	"return a list of indexed-variable names to show in the selectionList.
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2411	Set hasMore to true, if a '...' entry should be added."
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2412
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2413	\|l maxIndex sz list\|
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2414
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2415	l := self indexList.
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	2416	l isEmptyOrNil ifTrue:[^ nil ].
9557 14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2417
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2418	integerDisplayRadix ~~ 10 ifTrue:[
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2419	maxIndex := l last.
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2420	maxIndex isInteger ifTrue:[
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2421	sz := (maxIndex printStringRadix:integerDisplayRadix) size.
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2422	] ifFalse:[
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2423	sz := 0
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2424	].
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2425	list := l collect:
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2426	[:i \|
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2427	i isInteger ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2428	(i printStringRadix:integerDisplayRadix size:sz fill:$0)
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2429	] ifFalse:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2430	i printString
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2431	]
9557 14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2432	]
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2433	] ifFalse:[
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2434	list := l collect:[:i \| i printString].
9557 14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2435	].
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	2436
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2437	^ list
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2438	keysAndValuesCollect:[:idx :nm \|
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2439	self listEntryForName:nm value:(object at:idx)
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2440	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2441
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2442	^ list.
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2443
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2444	"Modified: / 16-05-2012 / 18:43:10 / cg"
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2445	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2446
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2447	indexedValueAtIndex:idx
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2448	^ object basicAt:idx
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2449	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2450
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2451	indexedValueAtIndex:idx put:newValue
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2452	object basicAt:idx put:newValue
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2453	!
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2454
3884 4329e6c615a5 dont crash in set showing all indexed vars james parents: 3874 diff changeset	2455	indexedValueAtKey:key
4314 7dbc212d0cd2 kludge to show Float bytes Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	2456	"/ kludge
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2457	object isLimitedPrecisionReal ifTrue:[
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2458	^ object basicAt:key
4314 7dbc212d0cd2 kludge to show Float bytes Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	2459	].
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2460	^ object at:key
3884 4329e6c615a5 dont crash in set showing all indexed vars james parents: 3874 diff changeset	2461	!
4329e6c615a5 dont crash in set showing all indexed vars james parents: 3874 diff changeset	2462
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2463	instVarIndexForLine:lineNr
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2464	"helper - return the index for a named instVar;
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2465	nil, if self or a keyed instvar is selected."
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2466
5421 86a6077b131d Fix for negative numbers as keys in a Dictionary Stefan Vogel <sv@exept.de> parents: 5134 diff changeset	2467	\|idx nNamedInstvarsShown cls baseCls firstRealIndex line\|
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2468
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2469	lineNr isNil ifTrue:[^ nil].
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2470	firstRealIndex := 1.
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2471
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2472	idx := lineNr.
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2473	self hasSelfEntry ifTrue:[
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2474	(lineNr == 1 or:[lineNr isNil]) ifTrue:[
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2475	^ nil "/ self selected
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2476	].
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2477	idx := idx - 1.
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2478	firstRealIndex := 2.
b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2479	].
b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2480
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2481	[line :=self listEntryAt:firstRealIndex.
5421 86a6077b131d Fix for negative numbers as keys in a Dictionary Stefan Vogel <sv@exept.de> parents: 5134 diff changeset	2482	(line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]] whileTrue:[
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2483	firstRealIndex := firstRealIndex + 1.
b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2484	idx := idx - 1.
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2485	].
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2486
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2487	cls := object class.
2447 95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2488	baseCls := self baseInspectedObjectClass.
95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2489
95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2490	nNamedInstvarsShown := cls instSize.
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2491	"/ only the namedInstvars below baseInspectedObjectClass
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2492	"/ are shown ...
8962 b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	2493	(cls includesBehavior:baseCls) ifTrue:[
2447 95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2494	nNamedInstvarsShown := nNamedInstvarsShown - baseCls instSize.
95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2495	].
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2496
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2497	idx <= nNamedInstvarsShown ifTrue:[
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2498	^ idx + self baseInspectedObjectClass instSize.
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2499	].
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2500	^ nil "/ indexed instvar or other selected
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2501
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2502	"Modified: / 16-05-2012 / 17:54:41 / cg"
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2503	!
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2504
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2505	keyIndexForLine:lineNr
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2506	"helper - return the index of the key-list;
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2507	nil, if self or a namedInstVar is selected."
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2508
6840 52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2509	\|idx nNamedInstvarsShown nExtraNamedInstvarsShown cls baseCls firstRealIndex line\|
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2510
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2511	lineNr isNil ifTrue:[^ nil].
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2512
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2513	firstRealIndex := 1.
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2514	idx := lineNr.
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2515	self hasSelfEntry ifTrue:[
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2516	(lineNr == 1 or:[lineNr isNil]) ifTrue:[
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2517	^ nil "/ self selected
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2518	].
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2519	idx := idx - 1.
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2520	firstRealIndex := firstRealIndex + 1.
b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2521	].
b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2522
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2523	[line := self listEntryAt:firstRealIndex.
5881 ef6791c315ab oops - out of bounds error fixed Claus Gittinger <cg@exept.de> parents: 5845 diff changeset	2524	line notNil
ef6791c315ab oops - out of bounds error fixed Claus Gittinger <cg@exept.de> parents: 5845 diff changeset	2525	and:[(line startsWith:'-') and:[line size < 2 or:[line second isDigit not]]]
ef6791c315ab oops - out of bounds error fixed Claus Gittinger <cg@exept.de> parents: 5845 diff changeset	2526	] whileTrue:[
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2527	firstRealIndex := firstRealIndex + 1.
b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2528	idx := idx - 1.
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2529	].
3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2530
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2531	cls := object class.
2447 95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2532	baseCls := self baseInspectedObjectClass.
95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2533
95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2534	nNamedInstvarsShown := cls instSize.
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2535	"/ only the namedInstvars below baseInspectedObjectClass
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2536	"/ are shown ...
8962 b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	2537	(cls includesBehavior:baseCls) ifTrue:[
2447 95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2538	nNamedInstvarsShown := nNamedInstvarsShown - baseCls instSize.
95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2539	].
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2540	nExtraNamedInstvarsShown := self extraNamedFields size.
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2541
6840 52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2542	idx <= (nNamedInstvarsShown+nExtraNamedInstvarsShown) ifTrue:[
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2543	^ nil "/ named instVar selected.
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2544	].
6840 52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2545	^ idx - (nNamedInstvarsShown+nExtraNamedInstvarsShown).
2193 3d7b1044e8c8 fixed access to namedInstvars Claus Gittinger <cg@exept.de> parents: 2188 diff changeset	2546
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2547	"Modified: / 16-05-2012 / 17:54:34 / cg"
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2548	!
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2549
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2550	listEntryAt:lineNr
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2551	\|entry\|
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2552
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2553	entry := listView at:lineNr.
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2554	entry isNil ifTrue:[^ entry].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2555	^ entry string
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2556
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2557	"Created: / 16-05-2012 / 17:53:39 / cg"
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2558	!
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2559
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2560	namedFieldAt:idx
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2561	^ object instVarAt:idx
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2562	!
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2563
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2564	namedFieldAt:idx put:newValue
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2565	^ object instVarAt:idx put:newValue
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2566	!
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2567
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2568	namedFieldList
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2569	"return a list of instVar names to show in the selectionList."
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2570
2447 95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2571	\|aList cls baseCls\|
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2572
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2573	cls := object class.
2447 95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2574	baseCls := self baseInspectedObjectClass.
95055cf58b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 2446 diff changeset	2575
3351 64cdbec2dd8e text display Claus Gittinger <cg@exept.de> parents: 3349 diff changeset	2576	aList := OrderedCollection new.
3338 c2691e356f51 checkin from browser Claus Gittinger <cg@exept.de> parents: 3318 diff changeset	2577
3351 64cdbec2dd8e text display Claus Gittinger <cg@exept.de> parents: 3349 diff changeset	2578	aList addAll:(cls allInstVarNames).
8962 b0e0907c0bf7 changed:6 methods Claus Gittinger <cg@exept.de> parents: 8908 diff changeset	2579	(cls includesBehavior:baseCls) ifTrue:[
3351 64cdbec2dd8e text display Claus Gittinger <cg@exept.de> parents: 3349 diff changeset	2580	"/ hide some stuff
64cdbec2dd8e text display Claus Gittinger <cg@exept.de> parents: 3349 diff changeset	2581	aList := aList copyFrom:(self baseInspectedObjectClass instSize + 1).
64cdbec2dd8e text display Claus Gittinger <cg@exept.de> parents: 3349 diff changeset	2582	].
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2583	^ aList
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2584	keysAndValuesCollect:[:idx :nm \|
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2585	self listEntryForName:nm value:(object instVarAt:idx)
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2586	].
3351 64cdbec2dd8e text display Claus Gittinger <cg@exept.de> parents: 3349 diff changeset	2587
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2588	^ aList
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2589
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2590	"Modified: / 16-05-2012 / 18:43:23 / cg"
6372 d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 6283 diff changeset	2591	!
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 6283 diff changeset	2592
9370 daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2593	pseudoFieldNames
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2594	"return a list of names to show in the selectionList.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2595	Leave hasMore as true, if a '...' entry should be added."
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2596
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2597	\|list cls\|
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2598
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2599	cls := object class.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2600
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2601	list := OrderedCollection new.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2602	list add:'-' , 'self' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2603	list add:'-' , 'local messages' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2604	"/ list add:'-' , 'inherited messages' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2605	list add:'-' , 'all messages' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2606	list add:'-' , 'hash' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2607	list add:'-' , 'identityHash' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2608
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2609	cls hasImmediateInstances ifFalse:[
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2610	object dependents notEmptyOrNil ifTrue:[
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2611	list add:'-' , 'dependents' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2612	].
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2613	].
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2614	cls instSize > 0 ifTrue:[
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2615	list add:'-' , 'all inst vars' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2616	].
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2617	((cls isVariable) and:[self showAllIndexedVarsInFieldList]) ifTrue:[
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2618	list add:'-' , 'all indexed vars' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2619	].
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2620	^ list
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2621	!
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2622
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2623	pseudoFieldNamesWithIndexed:withIndexed
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2624	"return a list of names to show in the selectionList.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2625	Leave hasMore as true, if a '...' entry should be added."
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2626
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2627	\|list cls\|
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2628
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2629	cls := object class.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2630
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2631	list := OrderedCollection new.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2632	list add:'-' , 'self' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2633	list add:'-' , 'local messages' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2634	"/ list add:'-' , 'inherited messages' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2635	list add:'-' , 'all messages' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2636	list add:'-' , 'hash' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2637	list add:'-' , 'identityHash' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2638
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2639	cls hasImmediateInstances ifFalse:[
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2640	object dependents notEmptyOrNil ifTrue:[
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2641	list add:'-' , 'dependents' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2642	].
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2643	].
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2644	cls instSize > 0 ifTrue:[
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2645	list add:'-' , 'all inst vars' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2646	].
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2647	(withIndexed and:[self showAllIndexedVarsInFieldList]) ifTrue:[
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2648	list add:'-' , 'all indexed vars' allItalic.
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2649	].
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2650	^ list
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2651	!
daf95953c10f added: Claus Gittinger <cg@exept.de> parents: 9367 diff changeset	2652
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2653	setAcceptAction
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2654	"set the codeViews accept action"
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2655
9375 f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2656	\|idx acceptAction sel\|
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2657
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2658	acceptAction := [:theText \| self doAccept:theText asString].
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2659
9375 f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2660	idx := self theSingleSelectionIndex.
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2661
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2662	(idx isNil
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2663	or:[ object class hasImmediateInstances])
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2664	ifTrue:[
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2665	acceptAction := nil.
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2666	] ifFalse:[
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2667	sel := self listEntryAt:idx.
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2668
3868 77040d8d3526 all indexed vars Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	2669	(sel startsWith:'-all') ifTrue:[
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2670	acceptAction := nil.
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2671	].
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2672	(sel startsWith:'-hash') ifTrue:[
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2673	acceptAction := nil.
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2674	].
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2675	(sel startsWith:'-identityHash') ifTrue:[
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2676	acceptAction := nil.
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2677	].
3634 db094dd598f7 -dependents Claus Gittinger <cg@exept.de> parents: 3608 diff changeset	2678	(sel startsWith:'-dependents') ifTrue:[
db094dd598f7 -dependents Claus Gittinger <cg@exept.de> parents: 3608 diff changeset	2679	acceptAction := nil.
db094dd598f7 -dependents Claus Gittinger <cg@exept.de> parents: 3608 diff changeset	2680	].
5134 536fbfead179 source field for methods Claus Gittinger <cg@exept.de> parents: 4999 diff changeset	2681	(sel startsWith:'-source') ifTrue:[
536fbfead179 source field for methods Claus Gittinger <cg@exept.de> parents: 4999 diff changeset	2682	acceptAction := nil.
536fbfead179 source field for methods Claus Gittinger <cg@exept.de> parents: 4999 diff changeset	2683	].
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2684	].
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2685
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2686	workspace acceptAction:acceptAction.
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2687
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2688	"Modified: / 16-05-2012 / 17:54:16 / cg"
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2689	!
aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2690
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2691	setDoItAction
542 12d3bf714076 checkin from browser Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2692	"set the codeViews doit action"
12d3bf714076 checkin from browser Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2693
12d3bf714076 checkin from browser Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2694	workspace
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2695	doItAction:[:theCode \|
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2696	\|evaluator\|
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2697
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2698	(evaluator := object class evaluatorClass)
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2699	notNil ifTrue:[
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2700	evaluator
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2701	evaluate:theCode
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2702	in:nil
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2703	receiver:object
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2704	notifying:workspace
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2705	logged:true
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2706	ifFail:nil
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2707	] ifFalse:[
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2708	'objects class provides no evaluator'
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2709	]
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2710	].
542 12d3bf714076 checkin from browser Claus Gittinger <cg@exept.de> parents: 531 diff changeset	2711
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2712	object class evaluatorClass isNil ifTrue:[
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2713	workspace doItAction:nil.
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	2714	workspace acceptAction:nil.
1270 3dc841708edd disable accept/doIt, if instances class provides no evaluator Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	2715	]
3dc841708edd disable accept/doIt, if instances class provides no evaluator Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	2716
3dc841708edd disable accept/doIt, if instances class provides no evaluator Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	2717	"Modified: 1.8.1997 / 21:47:09 / cg"
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2718	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2719
3884 4329e6c615a5 dont crash in set showing all indexed vars james parents: 3874 diff changeset	2720	showAllIndexedVarsInFieldList
4329e6c615a5 dont crash in set showing all indexed vars james parents: 3874 diff changeset	2721	^ true
4329e6c615a5 dont crash in set showing all indexed vars james parents: 3874 diff changeset	2722	!
4329e6c615a5 dont crash in set showing all indexed vars james parents: 3874 diff changeset	2723
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2724	showMore
1855 24108d2b3374 oops - fixed showMore handling Claus Gittinger <cg@exept.de> parents: 1770 diff changeset	2725	\|o\|
24108d2b3374 oops - fixed showMore handling Claus Gittinger <cg@exept.de> parents: 1770 diff changeset	2726
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2727	hasMore ifTrue:[
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	2728	nShown := nShown * 2.
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	2729	"/ force update (which is otherwise ignored)
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2730	o := object.
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	2731	inspectedObject := object := nil.
ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	2732	self inspect:o
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2733	]
1855 24108d2b3374 oops - fixed showMore handling Claus Gittinger <cg@exept.de> parents: 1770 diff changeset	2734
24108d2b3374 oops - fixed showMore handling Claus Gittinger <cg@exept.de> parents: 1770 diff changeset	2735	"Modified: / 26.8.1998 / 19:05:25 / cg"
1739 d98fa6eea4fc added show references Claus Gittinger <cg@exept.de> parents: 1634 diff changeset	2736	!
d98fa6eea4fc added show references Claus Gittinger <cg@exept.de> parents: 1634 diff changeset	2737
9375 f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2738	theSingleSelectionIndex
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2739	"helper - return the index of the (single) selected entry.
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2740	Nil if nothing or multiple items are selected"
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2741
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2742	\|idx\|
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2743
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2744	idx := selectionIndex.
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2745	idx isCollection ifTrue:[
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2746	selectionIndex size == 1 ifTrue:[
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2747	^ selectionIndex first
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2748	].
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2749	^ nil
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2750	].
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2751	^ selectionIndex
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2752	!
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	2753
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2754	valueAtLine:lineNr
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2755	"helper - return the value of the selected entry"
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2756
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2757	\|idx l val\|
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2758
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2759	(self hasSelfEntry
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2760	and:[lineNr == 1 or:[lineNr isNil]]) ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2761	^ object
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2762	].
2235 ce49947e61f7 migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	2763
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2764	((l := self listEntryAt:lineNr) startsWith:$-) ifTrue:[
5421 86a6077b131d Fix for negative numbers as keys in a Dictionary Stefan Vogel <sv@exept.de> parents: 5134 diff changeset	2765	(l ~= '-' and:[(l at:2) isDigit not "negative number"]) ifTrue:[
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2766	^ self valueForSpecialLine:l
3645 d88ce5dea1ce * empty log message * Claus Gittinger <cg@exept.de> parents: 3639 diff changeset	2767	].
3338 c2691e356f51 checkin from browser Claus Gittinger <cg@exept.de> parents: 3318 diff changeset	2768	].
c2691e356f51 checkin from browser Claus Gittinger <cg@exept.de> parents: 3318 diff changeset	2769
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2770	"/ a named instVar ?
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2771	idx := self instVarIndexForLine:lineNr.
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2772	idx notNil ifTrue:[
3432 087493c18c74 class based exceptions - no longer need to send #breakPointSígnal Claus Gittinger <cg@exept.de> parents: 3428 diff changeset	2773	BreakPointInterrupt catch:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2774	^ self namedFieldAt:idx
2800 4e5792ade7aa menu fix Claus Gittinger <cg@exept.de> parents: 2724 diff changeset	2775	]
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2776	].
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2777
6840 52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2778	"/ an extra named field ?
52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2779	idx := self extraNamedVarIndexForLine:lineNr.
52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2780	idx notNil ifTrue:[
52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2781	BreakPointInterrupt catch:[
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2782	val := ((self extraNamedFields) at:idx) value.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2783	val isBlock ifTrue:[ val := val value ].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2784	^ val
6840 52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2785	]
52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2786	].
52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2787
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2788	"/ an indexed instVar ?
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2789	idx := self keyIndexForLine:lineNr.
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2790	idx notNil ifTrue:[
3432 087493c18c74 class based exceptions - no longer need to send #breakPointSígnal Claus Gittinger <cg@exept.de> parents: 3428 diff changeset	2791	BreakPointInterrupt catch:[
2800 4e5792ade7aa menu fix Claus Gittinger <cg@exept.de> parents: 2724 diff changeset	2792	^ self indexedValueAtIndex:idx.
4e5792ade7aa menu fix Claus Gittinger <cg@exept.de> parents: 2724 diff changeset	2793	]
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2794	].
644 aab7d4f7c8c3 allow hiding self; added a label Claus Gittinger <cg@exept.de> parents: 621 diff changeset	2795
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2796	"/ nope
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2797	^ nil
613 048942111c7b checkin from browser Claus Gittinger <cg@exept.de> parents: 593 diff changeset	2798
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	2799	"Modified: / 16-05-2012 / 17:54:06 / cg"
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2800	!
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2801
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2802	valueAtLine:lineNr put:newValue
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2803	\|idx\|
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2804
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2805	idx := self instVarIndexForLine:selectionIndex.
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2806	idx notNil ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2807	self namedFieldAt:idx put:newValue.
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2808	^ self.
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	2809	].
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2810
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2811	idx := self keyIndexForLine:selectionIndex.
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2812	idx notNil ifTrue:[
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2813	self indexedValueAtIndex:idx put:newValue.
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2814	^ self
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2815	].
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2816
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2817	^ self "/ self selected - dont store
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2818	!
b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2819
b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2820	valueForSpecialLine:line
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2821	\|idx fieldEntry extraAttributes fields\|
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2822
0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2823	extraAttributes := object inspectorExtraAttributes.
8664 c6afed1e4bfa changed #valueForSpecialLine: Claus Gittinger <cg@exept.de> parents: 8653 diff changeset	2824	(extraAttributes notNil and:[ extraAttributes includesKey:line ]) ifTrue:[
7297 ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2825	^ (extraAttributes at:line) value
ea3614b585e4 drag & drop; Claus Gittinger <cg@exept.de> parents: 7054 diff changeset	2826	].
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2827
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2828	idx := self derivedFieldNames findFirst:[:l \| l string = line string ].
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2829	idx ~~ 0 ifTrue:[
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2830	"a lot of backward compatibility crab which has to go away..."
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2831	fields := self derivedFields.
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2832	(fields isKindOf:Dictionary) ifTrue:[
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2833	fieldEntry := fields associationAt:line string "idx".
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2834	] ifFalse:[
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2835	fieldEntry := fields associationAt:idx.
f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2836	].
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2837	] ifFalse:[
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2838	idx := self extraNamedFieldNames indexOf:line.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2839	idx ~~ 0 ifTrue:[
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2840	fieldEntry := self extraNamedFields at:idx.
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2841	].
6840 52d3f2cbf130 extraNamedField support Claus Gittinger <cg@exept.de> parents: 6823 diff changeset	2842	].
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2843	fieldEntry notNil ifTrue:[
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2844	fieldEntry isAssociation ifTrue:[
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2845	^ fieldEntry value value
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2846	].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	2847	^ fieldEntry at:2.
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2848	].
40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2849
3525 761785907491 checkin from browser martin parents: 3432 diff changeset	2850	(line startsWith:'-self') ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2851	^ object
3525 761785907491 checkin from browser martin parents: 3432 diff changeset	2852	].
9504 196c6f7d3cc4 changed: #valueForSpecialLine: Stefan Vogel <sv@exept.de> parents: 9396 diff changeset	2853	(line startsWith:'-size') ifTrue:[
196c6f7d3cc4 changed: #valueForSpecialLine: Stefan Vogel <sv@exept.de> parents: 9396 diff changeset	2854	^ object size
196c6f7d3cc4 changed: #valueForSpecialLine: Stefan Vogel <sv@exept.de> parents: 9396 diff changeset	2855	].
3525 761785907491 checkin from browser martin parents: 3432 diff changeset	2856	(line startsWith:'-hash') ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2857	^ object hash
3525 761785907491 checkin from browser martin parents: 3432 diff changeset	2858	].
761785907491 checkin from browser martin parents: 3432 diff changeset	2859	(line startsWith:'-identityHash') ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2860	^ object identityHash
3525 761785907491 checkin from browser martin parents: 3432 diff changeset	2861	].
3634 db094dd598f7 -dependents Claus Gittinger <cg@exept.de> parents: 3608 diff changeset	2862	(line startsWith:'-dependents') ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2863	^ object dependents
3634 db094dd598f7 -dependents Claus Gittinger <cg@exept.de> parents: 3608 diff changeset	2864	].
3868 77040d8d3526 all indexed vars Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	2865	(line startsWith:'-all') ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2866	^ object
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2867	].
8726 f0230df32944 * empty log message * Claus Gittinger <cg@exept.de> parents: 8699 diff changeset	2868	(line startsWith:'-local messages') ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2869	^ object
8726 f0230df32944 * empty log message * Claus Gittinger <cg@exept.de> parents: 8699 diff changeset	2870	].
f0230df32944 * empty log message * Claus Gittinger <cg@exept.de> parents: 8699 diff changeset	2871	(line startsWith:'-inherited messages') ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2872	^ object
8726 f0230df32944 * empty log message * Claus Gittinger <cg@exept.de> parents: 8699 diff changeset	2873	].
f0230df32944 * empty log message * Claus Gittinger <cg@exept.de> parents: 8699 diff changeset	2874	(line startsWith:'-all messages') ifTrue:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2875	^ object
8726 f0230df32944 * empty log message * Claus Gittinger <cg@exept.de> parents: 8699 diff changeset	2876	].
3608 aebf9f1eb30e all inst vars Claus Gittinger <cg@exept.de> parents: 3567 diff changeset	2877
3526 d8f3082ea1d7 Remove unused vars Stefan Vogel <sv@exept.de> parents: 3525 diff changeset	2878	self error:'unknown special line'.
3349 b9a9138f8017 * empty log message * Claus Gittinger <cg@exept.de> parents: 3338 diff changeset	2879
6823 40d460dee8df * empty log message * Claus Gittinger <cg@exept.de> parents: 6491 diff changeset	2880	"Created: / 31-10-2001 / 09:17:45 / cg"
12205 f210b6224ef0 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12158 diff changeset	2881	"Modified: / 13-03-2012 / 08:25:52 / cg"
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2882	! !
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2883
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2884	!InspectorView methodsFor:'queries'!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2885
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2886	canInspect:anObject
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2887	^ anObject inspectorClass == self class
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2888	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2889
5925 6502b73091ab * empty log message * ca parents: 5913 diff changeset	2890	compilerClass
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	2891	^ object class compilerClass
5925 6502b73091ab * empty log message * ca parents: 5913 diff changeset	2892	!
6502b73091ab * empty log message * ca parents: 5913 diff changeset	2893
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2894	dereferenceValueHolders
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2895	^ dereferenceValueHolders ? false
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2896	!
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2897
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2898	labelFor:anObject
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2899	"return the windowLabel to use in my topView, when inspecting anObject."
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2900
10321 5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	2901	\|lbl\|
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2902
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2903	(self class == InspectorView
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2904	and:[anObject inspectorClass ~~ InspectorView]) ifTrue:[
6130 8f6c6203e608 * empty log message * Claus Gittinger <cg@exept.de> parents: 6034 diff changeset	2905	lbl := 'BasicInspector on: '
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2906	] ifFalse:[
6130 8f6c6203e608 * empty log message * Claus Gittinger <cg@exept.de> parents: 6034 diff changeset	2907	lbl := 'Inspector on: '
5958 751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2908	].
10321 5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	2909	^ (self class classResources string:lbl)
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	2910	, (self class commonLabelFor:anObject)
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	2911
5b9b69c21cd8 added: Claus Gittinger <cg@exept.de> parents: 10207 diff changeset	2912	"Modified: / 15-07-2011 / 16:22:05 / cg"
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2913	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2914
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2915	labelNameFor:anObject
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2916	"return the iconLabel to use in my topView, when inspecting anObject.
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2917	Simply returns the className or name of anObjects class"
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2918
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2919	\|s\|
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2920
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2921	anObject isClass ifTrue:[
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2922	s := anObject displayString
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2923	] ifFalse:[
9262 792dbfa38baf changed: Stefan Vogel <sv@exept.de> parents: 9032 diff changeset	2924	(anObject isImmediate
792dbfa38baf changed: Stefan Vogel <sv@exept.de> parents: 9032 diff changeset	2925	or:[anObject isBoolean]) ifTrue:[
5958 751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2926	s := anObject printString , ', ' , anObject classNameWithArticle
751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2927	] ifFalse:[
751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2928	s := anObject classNameWithArticle
751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2929	].
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2930	].
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2931	s isNil ifTrue:[
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2932	anObject isBehavior ifTrue:[
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2933	^ 'someBehavior'
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2934	].
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2935	^ 'something'
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2936	].
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2937	^ s
5958 751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2938
751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2939	"
751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2940	1234 inspect
751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2941	true inspect
751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2942	$a inspect
751d314f92c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5925 diff changeset	2943	"
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2944	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2945
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2946	selectedKeyName
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2947	selectionIndex notNil ifTrue:[
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2948	^ listView listAt:selectionIndex.
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2949	].
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2950	^ nil
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2951	!
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2952
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2953	suppressPseudoSlots
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	2954	^ suppressPseudoSlots ? false
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2955	! !
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	2956
8653 72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2957	!InspectorView methodsFor:'selection'!
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2958
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2959	selection:lineNr
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2960	self showSelection:lineNr
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2961	!
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2962
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2963	showSelection:lineNr
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2964	"user clicked on an instvar - show value in workspace"
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2965
9672 bad886ee0f07 changed: #showSelection: Claus Gittinger <cg@exept.de> parents: 9651 diff changeset	2966	\|listSize val\|
bad886ee0f07 changed: #showSelection: Claus Gittinger <cg@exept.de> parents: 9651 diff changeset	2967
bad886ee0f07 changed: #showSelection: Claus Gittinger <cg@exept.de> parents: 9651 diff changeset	2968	listSize := listView list size.
bad886ee0f07 changed: #showSelection: Claus Gittinger <cg@exept.de> parents: 9651 diff changeset	2969	listSize == 0 ifTrue:[^ self].
bad886ee0f07 changed: #showSelection: Claus Gittinger <cg@exept.de> parents: 9651 diff changeset	2970
bad886ee0f07 changed: #showSelection: Claus Gittinger <cg@exept.de> parents: 9651 diff changeset	2971	(hasMore and:[lineNr == listSize]) ifTrue:[
8653 72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2972	"clicked on the '...' entry"
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2973	self showMore.
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2974	listView setSelection:lineNr.
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2975	].
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2976
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2977	self hasSelfEntry ifTrue:[
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2978	(self hasSelfEntry and:[lineNr == 1]) ifTrue:[
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2979	"selecting self also does a re-set, this allows updating the list"
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2980	self reinspect.
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2981	].
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2982	].
10521 9218a2f4a6d1 Oops, fixes previous (messed) revision (changed: #showSelection:) vrany parents: 10520 diff changeset	2983	selectionIndex := selectedLine := lineNr.
8653 72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2984	val := self selection.
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2985	self showValue:val.
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2986
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2987	self setAcceptAction.
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2988
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2989	"Modified: / 03-08-2006 / 14:26:22 / cg"
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2990	!
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2991
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2992	showValue:someValue
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2993	"user clicked on an entry - show value in workspace"
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2994
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2995	\|s\|
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2996
9651 cca26b954d45 changed: Claus Gittinger <cg@exept.de> parents: 9648 diff changeset	2997	self "topView" withWaitCursorDo:[
8653 72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2998	s := self displayStringForValue:someValue.
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	2999	s = workspace selectionAsString ifFalse:[
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	3000	workspace replace:s.
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	3001	].
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	3002	].
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	3003
9651 cca26b954d45 changed: Claus Gittinger <cg@exept.de> parents: 9648 diff changeset	3004	"Modified: / 30-11-2010 / 18:56:55 / cg"
8653 72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	3005	! !
72f9c682ba3e * empty log message * Claus Gittinger <cg@exept.de> parents: 8635 diff changeset	3006
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3007	!InspectorView methodsFor:'user interaction'!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3008
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3009	doAccept:theText
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3010	\|sel newValue fieldNameList\|
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3011
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3012	sel := self listEntryAt:(self theSingleSelectionIndex).
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3013	(sel startsWith:'-all') ifTrue:[
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3014	workspace flash.
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3015	^ self.
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3016	].
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3017
4642 ee63c37d9d3c Convert Object>>errorSignal -> Error Stefan Vogel <sv@exept.de> parents: 4314 diff changeset	3018	Error handle:[:ex \|
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3019	workspace flash
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3020	] do:[
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	3021	newValue := object class evaluatorClass
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3022	evaluate:theText
9367 0f2dbaf97046 added: Claus Gittinger <cg@exept.de> parents: 9349 diff changeset	3023	receiver:object
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3024	notifying:workspace.
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3025
4095 5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	3026	self dereferenceValueHolders ifTrue:[
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	3027	(self valueAtLine:selectionIndex) value:newValue
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	3028	] ifFalse:[
5bd36b14723d labels; added suppressPseudoVars & dereferenceValueHolders Claus Gittinger <cg@exept.de> parents: 3884 diff changeset	3029	self valueAtLine:selectionIndex put:newValue.
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3030	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3031	"/ update the fieldList...
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3032	fieldNameList := self fieldList.
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3033	hasMore ifTrue:[
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3034	fieldNameList add:' ... '
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3035	].
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3036	listView contents:fieldNameList.
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3037	]
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3038
b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3039	"Modified: / 04-06-2012 / 18:16:29 / cg"
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3040	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3041
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3042	doCopyKey
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3043	"put the instVar-name into the text-copy-buffer"
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3044
9378 07c0ca7444b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9375 diff changeset	3045	\|nm selIdx\|
07c0ca7444b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9375 diff changeset	3046
07c0ca7444b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9375 diff changeset	3047	(selIdx := self theSingleSelectionIndex) notNil ifTrue:[
07c0ca7444b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 9375 diff changeset	3048	nm := listView listAt:selIdx.
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3049	nm notNil ifTrue:[
6034 7f7d4b7362dd set selection interface changed ca parents: 5958 diff changeset	3050	self setClipboardText:(nm asString)
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3051	]
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3052	]
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3053	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3054
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3055	doInspect:basic
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3056	"user selected inspect-menu entry"
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3057
10207 e2968eb0d08e changed: #doInspect: to open instvars within same Inspector2 window vrany parents: 9794 diff changeset	3058	\|objectToInspect app \|
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3059
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	3060	objectToInspect := self selection ? object.
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	3061	objectToInspect notNil ifTrue:[
9349 e6d367cbe86c do not show new-inspector in menu, if there is none loaded Claus Gittinger <cg@exept.de> parents: 9316 diff changeset	3062	(basic == #new and:[NewInspector::NewInspectorView notNil]) ifTrue:[
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3063	NewInspector::NewInspectorView inspect:objectToInspect
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3064	] ifFalse:[
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3065	basic ifTrue:[
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3066	objectToInspect basicInspect
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3067	] ifFalse:[
10424 9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3068	"/ cg: a bad hack; it is ok for a double-click, but not for the
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3069	"/ menu item (i often want to have another inspector on the same object)
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3070	"/ for the menu: add an extra follow/diveIn or whatever entry, if desired
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3071	"/ "HACK"
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3072	"/ app := (self topView perform:#application ifNotUnderstood: [nil]).
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3073	"/ (app notNil and:[app isKindOf: Tools::Inspector2]) ifTrue:[
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3074	"/ app inspect: objectToInspect
9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3075	"/ ] ifFalse:[
10207 e2968eb0d08e changed: #doInspect: to open instvars within same Inspector2 window vrany parents: 9794 diff changeset	3076	objectToInspect inspect
10424 9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3077	"/ ]
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3078	]
8025 33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	3079	].
33e306c26e0f Handle keys: Ctrl-i, Ctrl-B Stefan Vogel <sv@exept.de> parents: 7975 diff changeset	3080	].
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3081
10207 e2968eb0d08e changed: #doInspect: to open instvars within same Inspector2 window vrany parents: 9794 diff changeset	3082	"Modified: / 06-07-2011 / 15:58:55 / jv"
10424 9d7d0c28f504 only follow (dive in) with double click; Claus Gittinger <cg@exept.de> parents: 10321 diff changeset	3083	"Modified: / 29-07-2011 / 21:07:21 / cg"
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3084	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3085
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3086	doUpdate
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3087	self reinspect
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3088	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3089
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3090	monitor:anInstVarName
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3091	"start a monitoring process, showing the given instVar
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3092	in regular intervals."
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3093
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3094	\|ivName\|
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3095
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3096	(ivName := anInstVarName) isInteger ifTrue:[
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3097	ivName := anInstVarName printString
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3098	].
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3099	listView selectElement:ivName.
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3100	self doStartMonitor
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3101
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3102	"Created: / 1.3.1996 / 19:31:45 / cg"
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3103	"Modified: / 12.2.1999 / 16:05:47 / cg"
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3104	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3105
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3106	selection
9375 f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	3107	"helper - return the value of the (single) selected entry.
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	3108	Nil if nothing or multiple items are selected"
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	3109
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	3110	\|idx val\|
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	3111
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	3112	idx := self theSingleSelectionIndex.
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	3113	idx isNil ifTrue:[^ nil].
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	3114
f885ea13e694 allow multiSelect in dictionary inspector (for removeKey) Claus Gittinger <cg@exept.de> parents: 9370 diff changeset	3115	val := self valueAtLine:idx.
6850 1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	3116	self dereferenceValueHolders ifTrue:[
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	3117	"workspace-variable-inspection"
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	3118	val := val value
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	3119	].
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	3120	^ val
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	3121
1dd4d6518d91 extra field support Claus Gittinger <cg@exept.de> parents: 6840 diff changeset	3122	"Modified: / 03-08-2006 / 14:27:02 / cg"
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3123	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3124
9557 14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3125	setDisplayRadixTo10
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3126	self setDisplayRadixTo:10
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3127
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3128	"Created: / 24-08-2010 / 17:26:12 / cg"
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3129	!
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3130
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3131	setDisplayRadixTo16
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3132	self setDisplayRadixTo:16
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3133
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3134	"Created: / 24-08-2010 / 17:26:22 / cg"
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3135	!
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3136
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3137	setDisplayRadixTo2
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3138	self setDisplayRadixTo:2
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3139
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3140	"Created: / 24-08-2010 / 17:26:18 / cg"
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3141	!
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3142
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3143	setDisplayRadixTo:radix
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3144	\|sel\|
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3145
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3146	integerDisplayRadix := DefaultIntegerDisplayRadix := radix.
9557 14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3147	self reinspect.
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3148	sel := listView selection.
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3149	sel notNil ifTrue:[
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3150	self showSelection:sel
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3151	]
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3152
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3153	"Created: / 24-08-2010 / 17:26:54 / cg"
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3154	!
14b8fe98a8ed can now display values and indices in binary and hex. Claus Gittinger <cg@exept.de> parents: 9504 diff changeset	3155
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3156	showLast
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3157	"user clicked on an instvar - show value in workspace"
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3158
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3159	\|lastIdx\|
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3160
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3161	lastIdx := listView list size.
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3162	lastIdx ~~ 0 ifTrue:[
8908 04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	3163	self showSelection:lastIdx.
04406d5f9acd * empty log message * Michael Beyl <mb@exept.de> parents: 8907 diff changeset	3164	listView selection:lastIdx.
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3165	]
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3166
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3167	"Created: 28.6.1996 / 15:06:38 / cg"
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3168	"Modified: 18.3.1997 / 18:22:54 / cg"
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3169	!
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3170
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3171	tryToSelectKeyNamed:aString
5558 8b9d99f714d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5498 diff changeset	3172	\|list idx\|
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3173
5558 8b9d99f714d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5498 diff changeset	3174	list := listView list.
8b9d99f714d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5498 diff changeset	3175	list notNil ifTrue:[
8b9d99f714d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5498 diff changeset	3176	(idx := list indexOf:aString) ~= 0 ifTrue:[
8b9d99f714d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5498 diff changeset	3177	listView selection:idx
8b9d99f714d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 5498 diff changeset	3178	].
3874 ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3179	].
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3180
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3181	"Created: / 16.11.2001 / 13:48:51 / cg"
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3182	! !
ed3a652e5ce0 all indexed vars for dictionaries Claus Gittinger <cg@exept.de> parents: 3869 diff changeset	3183
4268 0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3184	!InspectorView methodsFor:'workspace protocol'!
0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3185
0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3186	modified:aBoolean
0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3187	^ workspace modified:aBoolean
0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3188	!
0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3189
0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3190	saveAs:file doAppend:doAppend
0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3191	workspace saveAs:file doAppend:doAppend
0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3192	! !
0fe3e4a82ddf more textView protocol (for Workspace) Claus Gittinger <cg@exept.de> parents: 4197 diff changeset	3193
871 a29021918ec5 fixed openOn:monitor: Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3194	!InspectorView class methodsFor:'documentation'!
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 188 diff changeset	3195
10521 9218a2f4a6d1 Oops, fixes previous (messed) revision (changed: #showSelection:) vrany parents: 10520 diff changeset	3196	version
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3197	^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.257 2012/06/04 16:17:33 cg Exp $'
10521 9218a2f4a6d1 Oops, fixes previous (messed) revision (changed: #showSelection:) vrany parents: 10520 diff changeset	3198	!
9218a2f4a6d1 Oops, fixes previous (messed) revision (changed: #showSelection:) vrany parents: 10520 diff changeset	3199
8868 1fd94adeda59 changed: #setInitialSelection Claus Gittinger <cg@exept.de> parents: 8800 diff changeset	3200	version_CVS
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3201	^ '�Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.257 2012/06/04 16:17:33 cg Exp �'
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	3202	!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	3203
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	3204	version_SVN
12254 b1237f76f501 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12205 diff changeset	3205	^ '$Id: InspectorView.st 8007 2012-06-05 14:49:00Z vranyj1 $'
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	3206	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 05 Jun 2012 15:49:00 +0100
branch	jv
changeset 12254	b1237f76f501
parent 12205	f210b6224ef0
child 12258	c25935799d7b
permissions	-rw-r--r--