hg/stx-libtool: extensions.st@792607726eb6 (annotated)

7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	1	"{ Package: 'stx:libtool' }"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	2	!
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	3
8838 1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	4	!Behavior methodsFor:'misc ui support'!
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	5
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	6	iconInBrowserSymbol
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	7	"can be redefined for a private icon in the browser (for me and my subclasses).
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	8	The returned symbol must be a selector of the ToolbarIconLibrary."
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	9
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	10	(self isBrowserStartable) ifTrue:[
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	11	self isVisualStartable ifTrue:[
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	12	^ #visualStartableClassBrowserIcon
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	13	].
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	14	^ #startableClassBrowserIcon
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	15	].
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	16	self isLoaded ifFalse:[
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	17	^ #autoloadedClassBrowserIcon
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	18	].
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	19
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	20	"/ give ruby and other special metaclasses a chance ot provide their orn icon...
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	21	^ self class iconInBrowserSymbol
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	22
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	23	"Created: / 20-07-2007 / 08:52:17 / cg"
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	24	! !
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	25
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	26	!ByteArray methodsFor:'inspecting'!
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	27
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	28	rt'
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	29	! !
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	30
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	31	!Character methodsFor:'inspecting'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	32
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	33	self class isWords ifTrue:[
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	34	self asWordArray printOn:s base:16 showRadix:true
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	35	] ifFalse:[
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	36	self class isLongs ifTrue:[
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	37	self asLongIntegerArray printOn:s base:16 showRadix:true
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	38	] ifFalse:[
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	39	self asByteArray printOn:s base:16 showRadix:true
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	40	]
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	41	]
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	42	]
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	43	];
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	44	yourself
7365 20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	45
20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	46	"Created: / 18-09-2006 / 21:29:59 / cg"
20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	47	"Modified: / 06-10-2006 / 13:57:20 / cg"
20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	48	! !
20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	49
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	50	!CharacterArray methodsFor:'inspecting'!
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	51
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	52	cg"
7447 744eea8ff31c * empty log message * Claus Gittinger <cg@exept.de> parents: 7371 diff changeset	53	! !
744eea8ff31c * empty log message * Claus Gittinger <cg@exept.de> parents: 7371 diff changeset	54
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	55	!Collection methodsFor:'inspecting'!
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	56
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	57	acterArray methodsFor:'inspecting'
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	58	! !
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	59
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	60	!Color methodsFor:'inspecting'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	61
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	62	HTMLUtilities notNil ifTrue:[
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	63	d add:'-html' -> [ HTMLUtilities escapeCharacterEntities:self ].
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	64	].
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	65	^ d
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	66
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	67	"
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	68	'aou��' inspect
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	69	"
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	70
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	71	"Created: / 22-10-2006 / 03:52:20 / cg"
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	72	! !
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	73
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	74	!Color methodsFor:'inspecting'!
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	75
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	76	specting'
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	77	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	78
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	79	!Dictionary methodsFor:'inspecting'!
8838 1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	80
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	81	Collection class methodsFor:'misc ui support'
8838 1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	82	! !
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	83
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	84	!ExecutableFunction methodsFor:'printing & storing'!
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	85
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	86	"return the class of an appropriate inspector.
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	87	ST/X has a specialized ColorInspectorView for that"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	88
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	89	^ ColorInspectorView
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	90
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	91	"Modified: 23.4.1996 / 13:39:50 / cg"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	92	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	93
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	94	!Form methodsFor:'inspecting'!
8406 445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	95
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	96	ctorExtraAttributes
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	97	"extra (pseudo instvar) entries to be shown in an inspector."
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	98
8406 445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	99	^ Dictionary new
445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	100	declareAllNewFrom:(super inspectorExtraAttributes ? #());
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	101	add:'-rgb' -> [ self rgbValue hexPrintString ];
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	102	add:'-html' -> [ self htmlPrintString ];
8406 445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	103	yourself
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	104
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	105	"
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	106	Color red inspect
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	107	"
8406 445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	108	! !
445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	109
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	110	!Image methodsFor:'inspecting'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	111
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	112	add:'-rgb' -> [ self rgbValue hexPrintString ];
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	113	add:'-html' -> [ self htmlPrintString ];
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	114	yourself
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	115
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	116	"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	117	Color red inspect
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	118	"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	119	! !
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	120
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	121	!Integer methodsFor:'inspecting'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	122
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	123	ector)."
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	124
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	125	^ DictionaryInspectorView
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	126	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	127
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	128	!Metaclass methodsFor:'misc ui support'!
8838 1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	129
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	130	iconInBrowserSymbol
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	131	"can be redefined for a private icon in the browser.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	132	The returned symbol must be a selector of the ToolbarIconLibrary."
8838 1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	133
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	134	^ nil
8838 1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	135	! !
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	136
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	137	!Method methodsFor:'inspecting'!
7735 a85329ee3b3a todo notification Claus Gittinger <cg@exept.de> parents: 7703 diff changeset	138
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	139	lt InspectorView)."
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	140
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	141	^ ImageInspectorView
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	142	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	143
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	144	!Method methodsFor:'printing & storing'!
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	145
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	146	inspectorExtraAttributes
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	147	"extra (pseudo instvar) entries to be shown in an inspector."
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	148
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	149	^ Dictionary new
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	150	declareAllNewFrom:(super inspectorExtraAttributes ? #());
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	151	add:'-hexadecimal' -> [ self radixPrintStringRadix:16 ];
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	152	add:'-octal' -> [ self radixPrintStringRadix:8 ];
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	153	add:'-binary' -> [ self radixPrintStringRadix:2 ];
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	154	yourself
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	155
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	156	"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	157	123 inspect
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	158	"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	159
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	160	"Created: / 18-09-2006 / 21:22:46 / cg"
7365 20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	161	"Modified: / 06-10-2006 / 13:57:28 / cg"
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	162	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	163
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	164	!Method methodsFor:'printing & storing'!
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	165
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	166	printString)
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	167	with:n)
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	168	].
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	169	].
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	170	] ifFalse:[
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	171	moreInfo := ' !!'
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	172	]
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	173	].
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	174	].
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	175	p := self privacy.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	176
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	177	p ~~ #public ifTrue:[
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	178	privInfo := (' (* ' , p , ' *)') asText emphasizeAllWith:#italic.
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	179	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	180
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	181	"/ self isInvalid ifTrue:[
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	182	"/ moreInfo := ' ( not executable )'.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	183	"/ ].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	184
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	185	(self isLazyMethod not and:[self isUnloaded]) ifTrue:[
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	186	moreInfo := ' ( unloaded )'
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	187	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	188
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	189	privInfo size ~~ 0 ifTrue:[
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	190	moreInfo := privInfo , ' ' , moreInfo
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	191	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	192
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	193	s := shownSelector := (self selectorPrintStringInBrowserFor:selector class:aClass).
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	194
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	195	(cls := aClass) isNil ifTrue:[
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	196	cls := self containingClass
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	197	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	198
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	199	currentChangeSet := ChangeSet current.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	200	isInChangeSet := currentChangeSet includesChangeForClass:cls selector:selector.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	201
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	202	isInChangeSet ifTrue:[
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	203	s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode)
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	204	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	205
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	206	(cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	207	suppressPackage := false.
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	208	mthdPackage = Project noProjectID ifTrue:[
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	209	mthdPackage := '+'.
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	210	"/ suppressPackage := true
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	211	].
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	212	suppressPackage ifFalse:[
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	213	p := ' [' , (mthdPackage ? '?') allItalic , '] '.
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	214	p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	215	s := s , ' ' , p
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	216	].
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	217	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	218
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	219	moreInfo size == 0 ifTrue:[^ s].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	220
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	221	s := shownSelector , moreInfo.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	222
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	223	self isInvalid ifTrue:[
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	224	s := s asText emphasizeAllWith:(userPreferences emphasisForObsoleteCode).
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	225	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	226	^ s
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	227
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	228	"Modified: / 23-01-1998 / 13:15:15 / stefan"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	229	"Created: / 05-02-2000 / 22:55:56 / cg"
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	230	"Modified: / 05-03-2007 / 16:18:53 / cg"
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	231	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	232
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	233	!Method methodsFor:'printing & storing'!
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	234
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	235	p := self privacy.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	236
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	237	p ~~ #public ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	238	privInfo := (' (* ' , p , ' *)') asText emphasizeAllWith:#italic.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	239	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	240
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	241	"/ self isInvalid ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	242	"/ moreInfo := ' ( not executable )'.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	243	"/ ].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	244
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	245	(self isLazyMethod not and:[self isUnloaded]) ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	246	moreInfo := ' ( unloaded )'
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	247	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	248
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	249	privInfo size ~~ 0 ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	250	moreInfo := privInfo , ' ' , moreInfo
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	251	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	252
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	253	s := shownSelector := (self selectorPrintStringInBrowserFor:selector class:aClass).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	254
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	255	(cls := aClass) isNil ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	256	cls := self containingClass
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	257	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	258
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	259	currentChangeSet := ChangeSet current.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	260	isInChangeSet := currentChangeSet includesChangeForClass:cls selector:selector.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	261
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	262	isInChangeSet ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	263	s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode)
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	264	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	265
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	266	(cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	267	suppressPackage := false.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	268	mthdPackage = Project noProjectID ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	269	mthdPackage := '+'.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	270	"/ suppressPackage := true
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	271	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	272	suppressPackage ifFalse:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	273	p := ' [' , (mthdPackage ? '?') allItalic , '] '.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	274	p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	275	s := s , ' ' , p
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	276	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	277	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	278
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	279	moreInfo size == 0 ifTrue:[^ s].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	280
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	281	s := shownSelector , moreInfo.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	282
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	283	self isInvalid ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	284	s := s asText emphasizeAllWith:(userPreferences emphasisForObsoleteCode).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	285	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	286	^ s
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	287
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	288	"Modified: / 23-01-1998 / 13:15:15 / stefan"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	289	"Created: / 05-02-2000 / 22:55:56 / cg"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	290	"Modified: / 05-03-2007 / 16:18:53 / cg"
7735 a85329ee3b3a todo notification Claus Gittinger <cg@exept.de> parents: 7703 diff changeset	291	! !
a85329ee3b3a todo notification Claus Gittinger <cg@exept.de> parents: 7703 diff changeset	292
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	293	!MethodDictionary methodsFor:'inspecting'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	294
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	295	s := shownSelector := (self selectorPrintStringInBrowserFor:selector class:aClass).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	296
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	297	(cls := aClass) isNil ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	298	cls := self containingClass
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	299	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	300
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	301	currentChangeSet := ChangeSet current.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	302	isInChangeSet := currentChangeSet includesChangeForClass:cls selector:selector.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	303
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	304	isInChangeSet ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	305	s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode)
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	306	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	307
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	308	(cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	309	suppressPackage := false.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	310	mthdPackage = Project noProjectID ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	311	mthdPackage := '+'.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	312	"/ suppressPackage := true
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	313	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	314	suppressPackage ifFalse:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	315	p := ' [' , (mthdPackage ? '?') allItalic , '] '.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	316	p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	317	s := s , ' ' , p
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	318	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	319	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	320
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	321	moreInfo size == 0 ifTrue:[^ s].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	322
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	323	s := shownSelector , moreInfo.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	324
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	325	self isInvalid ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	326	s := s asText emphasizeAllWith:(userPreferences emphasisForObsoleteCode).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	327	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	328	^ s
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	329
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	330	"Modified: / 23-01-1998 / 13:15:15 / stefan"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	331	"Created: / 05-02-2000 / 22:55:56 / cg"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	332	"Modified: / 05-03-2007 / 16:18:53 / cg"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	333	! !
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	334
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	335	!NameSpace class methodsFor:'inspecting'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	336
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	337	currentChangeSet includesChangeForClass:cls selector:selector.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	338
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	339	isInChangeSet ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	340	s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode)
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	341	].
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	342
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	343	(cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	344	suppressPackage := false.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	345	mthdPackage = Project noProjectID ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	346	mthdPackage := '+'.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	347	"/ suppressPackage := true
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	348	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	349	suppressPackage ifFalse:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	350	p := ' [' , (mthdPackage ? '?') allItalic , '] '.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	351	p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	352	s := s , ' ' , p
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	353	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	354	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	355
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	356	moreInfo size == 0 ifTrue:[^ s].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	357
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	358	s := shownSelector , moreInfo.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	359
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	360	self isInvalid ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	361	s := s asText emphasizeAllWith:(userPreferences emphasisForObsoleteCode).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	362	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	363	^ s
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	364
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	365	"Modified: / 23-01-1998 / 13:15:15 / stefan"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	366	"Created: / 05-02-2000 / 22:55:56 / cg"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	367	"Modified: / 05-03-2007 / 16:18:53 / cg"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	368	! !
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	369
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	370	!Object methodsFor:'debugging'!
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	371
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	372	ackage) ~= cls package]) ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	373	suppressPackage := false.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	374	mthdPackage = Project noProjectID ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	375	mthdPackage := '+'.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	376	"/ suppressPackage := true
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	377	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	378	suppressPackage ifFalse:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	379	p := ' [' , (mthdPackage ? '?') allItalic , '] '.
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	380	p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	381	s := s , ' ' , p
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	382	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	383	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	384
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	385	moreInfo size == 0 ifTrue:[^ s].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	386
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	387	s := shownSelector , moreInfo.
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	388
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	389	self isInvalid ifTrue:[
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	390	s := s asText emphasizeAllWith:(userPreferences emphasisForObsoleteCode).
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	391	].
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	392	^ s
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	393
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	394	"Modified: / 23-01-1998 / 13:15:15 / stefan"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	395	"Created: / 05-02-2000 / 22:55:56 / cg"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	396	"Modified: / 05-03-2007 / 16:18:53 / cg"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	397	! !
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	398
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	399	!OrderedCollection methodsFor:'inspecting'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	400
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	401	2000 / 22:55:56 / cg"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	402	"Modified: / 05-03-2007 / 16:18:53 / cg"
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	403	! !
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	404
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	405	!RunArray methodsFor:'user interface'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	406
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	407	f:$: startingAt:3.
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	408	nsPart := selector copyFrom:2 to:idx-1.
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	409	ns := Smalltalk at:nsPart asSymbol.
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	410	selPart := selector copyFrom:idx+2.
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	411	^ selPart , ' {',nsPart,'}'.
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	412	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	413
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	414	!Set methodsFor:'inspecting'!
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	415
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	416	ictionaryInspector
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	417	(instead of the default Inspector)."
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	418
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	419	^ DictionaryInspectorView
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	420
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	421	"Created: 12.6.1996 / 12:29:13 / stefan"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	422	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	423
7754 7c76e5708dfa oops - got corrupted Claus Gittinger <cg@exept.de> parents: 7753 diff changeset	424	!Smalltalk class methodsFor:'inspecting'!
7c76e5708dfa oops - got corrupted Claus Gittinger <cg@exept.de> parents: 7753 diff changeset	425
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	426	dsFor:'inspecting'
8838 1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	427	! !
1bfd1f1d61f6 icons Claus Gittinger <cg@exept.de> parents: 8677 diff changeset	428
7754 7c76e5708dfa oops - got corrupted Claus Gittinger <cg@exept.de> parents: 7753 diff changeset	429	!Text methodsFor:'inspecting'!
7c76e5708dfa oops - got corrupted Claus Gittinger <cg@exept.de> parents: 7753 diff changeset	430
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	431	Notification class methodsFor:'misc ui support'
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	432	! !
8406 445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	433

author	Claus Gittinger <cg@exept.de>
	Thu, 01 Oct 2009 15:44:55 +0200
changeset 8839	792607726eb6
parent 8838	1bfd1f1d61f6
child 8843	0a0c82b2f7c7
permissions	-rw-r--r--