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

8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	1	"{ Package: 'stx:libtool' }"!
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	2
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	3	!AbstractSyntaxHighlighter class methodsFor:'api highlighting'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	4
10749 4b121ee1c5de comment/format in: #formatExpression:in:elementsInto: Claus Gittinger <cg@exept.de> parents: 10724 diff changeset	5	formatExpression:aString in:aClass elementsInto:elementsCollection
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	6
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	7	^self formatExpression:aString in:aClass
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	8
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	9	"Created: / 25-07-2010 / 08:57:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10749 4b121ee1c5de comment/format in: #formatExpression:in:elementsInto: Claus Gittinger <cg@exept.de> parents: 10724 diff changeset	10	"Modified (format): / 04-10-2011 / 19:47:20 / cg"
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	11	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	12
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	13	!AbstractSyntaxHighlighter class methodsFor:'api highlighting'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	14
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	15	formatMethod:aString in:aClass using:preferencesOrNil elementsInto: elements
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	16
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	17	^self formatMethod:aString in:aClass using:preferencesOrNil
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	18
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	19	"Created: / 25-07-2010 / 08:58:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	20	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	21
10859 38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	22	!Block methodsFor:'inspecting'!
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	23
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	24	inspectorExtraAttributes
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	25	"extra (pseudo instvar) entries to be shown in an inspector."
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	26
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	27	self homeMethod isNil ifTrue:[
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	28	^ Dictionary new
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	29	declareAllNewFrom:(super inspectorExtraAttributes ? #());
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	30	add:'-code' -> 'no home method';
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	31	add:'-source' -> 'no home method';
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	32	yourself
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	33	].
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	34
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	35	^ Dictionary new
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	36	declareAllNewFrom:(super inspectorExtraAttributes ? #());
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	37	add:'-code' -> [ String streamContents:[:s \| self homeMethod decompileTo:s]];
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	38	add:'-source' -> [ self homeMethod source];
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	39	yourself
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	40
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	41	"Created: / 15-11-2011 / 14:24:10 / cg"
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	42	! !
38ebf3f1299e block decompile in inspector Claus Gittinger <cg@exept.de> parents: 10851 diff changeset	43
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	44	!Breakpoint methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	45
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	46	icon
10310 cf3cfd80f443 #icon moved to stx:libtool vrany parents: 10240 diff changeset	47
cf3cfd80f443 #icon moved to stx:libtool vrany parents: 10240 diff changeset	48	^description icon
cf3cfd80f443 #icon moved to stx:libtool vrany parents: 10240 diff changeset	49
cf3cfd80f443 #icon moved to stx:libtool vrany parents: 10240 diff changeset	50	"Created: / 11-07-2011 / 18:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
cf3cfd80f443 #icon moved to stx:libtool vrany parents: 10240 diff changeset	51	! !
cf3cfd80f443 #icon moved to stx:libtool vrany parents: 10240 diff changeset	52
cf3cfd80f443 #icon moved to stx:libtool vrany parents: 10240 diff changeset	53	!BreakpointDescription methodsFor:'accessing'!
cf3cfd80f443 #icon moved to stx:libtool vrany parents: 10240 diff changeset	54
cf3cfd80f443 #icon moved to stx:libtool vrany parents: 10240 diff changeset	55	icon
10202 34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	56	"do not use abbreviations like bpnt or brp or similar;
34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	57	when I do not know the exact name, I tend to search for implementors/senders
34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	58	of 'break' or 'disabled'.
34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	59	I will not find anything useful and have to single step if methods are named
34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	60	cryptically."
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	61
10202 34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	62	condition isNil ifTrue:[
34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	63	state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointRedEnabled16x16].
34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	64	state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointRedDisabled16x16].
11222 225353236163 changed: #icon Claus Gittinger <cg@exept.de> parents: 10859 diff changeset	65	state == #tracing ifTrue:[^ ToolbarIconLibrary tracepointBlue16x16].
10202 34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	66	] ifFalse:[
34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	67	state == #enabled ifTrue:[^ ToolbarIconLibrary breakpointBlueEnabled16x16].
34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	68	state == #disabled ifTrue:[^ ToolbarIconLibrary breakpointBlueDisabled16x16].
34f07f3a4f8a comment/format in: #toggle Claus Gittinger <cg@exept.de> parents: 10164 diff changeset	69	].
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	70
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	71	^nil
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	72
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	73	"Created: / 28-06-2011 / 08:29:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11222 225353236163 changed: #icon Claus Gittinger <cg@exept.de> parents: 10859 diff changeset	74	"Modified: / 27-01-2012 / 13:46:23 / cg"
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	75	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	76
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	77	!ByteArray methodsFor:'inspecting'!
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	78
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	79	inspectorExtraAttributes
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	80	"extra (pseudo instvar) entries to be shown in an inspector."
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	81
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	82	^ Dictionary new
9324 86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	83	declareAllNewFrom:(super inspectorExtraAttributes ? #());
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	84	add:'-hexstring' -> [ self hexPrintString "WithSeparator:Character space" ];
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	85	add:'-hexadecimal' ->
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	86	[
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	87	String
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	88	streamContents:[:s \|
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	89	self class isWords ifTrue:[
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	90	self asWordArray printOn:s base:16 showRadix:true
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	91	] ifFalse:[
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	92	self class isLongs ifTrue:[
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	93	self asLongIntegerArray printOn:s base:16 showRadix:true
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	94	] ifFalse:[
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	95	self asByteArray printOn:s base:16 showRadix:true
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	96	]
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	97	]
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	98	]
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	99	];
86307b0d7c57 hexString in inspector for ByteArrays Claus Gittinger <cg@exept.de> parents: 9050 diff changeset	100	yourself
7365 20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	101
20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	102	"Created: / 18-09-2006 / 21:29:59 / cg"
20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	103	"Modified: / 06-10-2006 / 13:57:20 / cg"
20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	104	! !
20fe515d3a34 * empty log message * Claus Gittinger <cg@exept.de> parents: 7356 diff changeset	105
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	106	!Change methodsFor:'private'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	107
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	108	flattenOnto: aCollection
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	109	aCollection add: self
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	110	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	111
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	112	!Change methodsFor:'private'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	113
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	114	flattenedChanges
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	115	\| changes \|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	116	changes := OrderedCollection new.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	117	self flattenOnto: changes.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	118	^changes
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	119	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	120
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	121	!Change methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	122
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	123	removed
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	124
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	125	^(self objectAttributeAt: #removed) ? false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	126
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	127	"Created: / 24-10-2009 / 21:10:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	128	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	129
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	130	!Change methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	131
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	132	removed: aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	133
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	134	^self objectAttributeAt: #removed put: aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	135
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	136	"Created: / 24-10-2009 / 21:11:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	137	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	138
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	139	!ChangeSet methodsFor:'utilities'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	140
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	141	condenseChangesForRemoved
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	142	"remove all changes which has been removed (marked for removal
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	143	by aChange removed: true)"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	144
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	145	\|changesToRemove\|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	146
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	147	changesToRemove := self select:[:aChange \|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	148	aChange isCompositeChange ifTrue:
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	149	[aChange condenseChangesForRemoved].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	150	aChange removed
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	151	].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	152
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	153	self condenseChanges:changesToRemove
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	154
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	155	"Created: / 05-11-2001 / 14:21:17 / cg"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	156	"Modified: / 12-10-2006 / 16:51:27 / cg"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	157	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	158
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	159	!ChangeSet methodsFor:'private'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	160
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	161	flattenOnto: aCollection
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	162
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	163	self do:[:change\|change flattenOnto: aCollection]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	164	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	165
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	166	!ChangeSet methodsFor:'private'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	167
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	168	flattenedChanges
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	169	\| changes \|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	170	changes := OrderedCollection new.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	171	self flattenOnto: changes.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	172	^changes
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	173	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	174
10700 9beb2903bf24 inspector tab prios: for consistency: the objdect view is always Claus Gittinger <cg@exept.de> parents: 10637 diff changeset	175	!ChangeSet methodsFor:'inspecting'!
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	176
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	177	inspector2TabBrowser
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	178
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	179	^self newInspector2Tab
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	180	label: 'Changes';
10700 9beb2903bf24 inspector tab prios: for consistency: the objdect view is always Claus Gittinger <cg@exept.de> parents: 10637 diff changeset	181	priority: 35;
10522 a05002175fbd Fix for ChangeSet and Inspector2 - enforce usage of Tools::ChangeSetBrowser2 vrany parents: 10483 diff changeset	182	"JV@2011-08-06: Cannot do 'UserPreferences current changeSetBrowserClass'
a05002175fbd Fix for ChangeSet and Inspector2 - enforce usage of Tools::ChangeSetBrowser2 vrany parents: 10483 diff changeset	183	here since ChangeSetBrowser has no #on: and it is not an application model.
a05002175fbd Fix for ChangeSet and Inspector2 - enforce usage of Tools::ChangeSetBrowser2 vrany parents: 10483 diff changeset	184	Thus, enforce Tools::ChangeSetBrowser2 here..."
a05002175fbd Fix for ChangeSet and Inspector2 - enforce usage of Tools::ChangeSetBrowser2 vrany parents: 10483 diff changeset	185	application: ((Tools::ChangeSetBrowser2 on: self) beOneColumn; yourself)
10328 0d535dbf6139 Fix in ChangeSet>>inspector2TabBrowser vrany parents: 10323 diff changeset	186
10393 c5be49d3c613 changed: #inspector2TabBrowser sr parents: 10355 diff changeset	187	"Modified: / 25-07-2011 / 12:22:07 / sr"
10522 a05002175fbd Fix for ChangeSet and Inspector2 - enforce usage of Tools::ChangeSetBrowser2 vrany parents: 10483 diff changeset	188	"Modified: / 06-08-2011 / 21:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10700 9beb2903bf24 inspector tab prios: for consistency: the objdect view is always Claus Gittinger <cg@exept.de> parents: 10637 diff changeset	189	"Modified: / 13-09-2011 / 11:55:53 / cg"
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	190	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	191
10313 a2f4e3f74efe category Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	192	!ChangeSet methodsFor:'inspecting'!
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	193
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	194	inspector2Tabs
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	195	^ #( inspector2TabCommon inspector2TabBrowser )
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	196
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	197	"Created: / 05-07-2011 / 13:40:19 / cg"
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	198	! !
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	199
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	200	!Character methodsFor:'inspecting'!
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	201
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	202	inspectorExtraAttributes
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	203	"extra (pseudo instvar) entries to be shown in an inspector."
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	204
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	205	^ Dictionary new
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	206	declareAllNewFrom:(super inspectorExtraAttributes ? #());
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	207	add:'-hexValue' -> [ self codePoint radixPrintStringRadix:16 ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	208	add:'-string' -> [ self stringSpecies with:self ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	209	add:'-utf8String' -> [ self utf8Encoded ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	210	add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	211	yourself
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	212
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	213	"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	214	$a inspect
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	215	"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	216
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	217	"Created: / 22-10-2006 / 03:52:20 / cg"
7447 744eea8ff31c * empty log message * Claus Gittinger <cg@exept.de> parents: 7371 diff changeset	218	! !
744eea8ff31c * empty log message * Claus Gittinger <cg@exept.de> parents: 7371 diff changeset	219
10313 a2f4e3f74efe category Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	220	!CharacterArray methodsFor:'inspecting'!
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	221
10355 82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	222	inspector2TabBytes
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	223
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	224	^self newInspector2Tab
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	225	label: 'Bytes';
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	226	priority: 25;
10637 1114ddcf69f7 variable renamed in: #inspector2TabBytes Claus Gittinger <cg@exept.de> parents: 10527 diff changeset	227	view: ((ScrollableView for:EditTextView) contents:
10355 82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	228	(self asByteArray hexPrintStringWithSeparator:Character space); yourself)
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	229
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	230	"Created: / 17-02-2008 / 10:10:50 / janfrog"
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	231	"Created: / 20-07-2011 / 16:36:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10637 1114ddcf69f7 variable renamed in: #inspector2TabBytes Claus Gittinger <cg@exept.de> parents: 10527 diff changeset	232	"Modified: / 21-08-2011 / 07:32:57 / cg"
10355 82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	233	! !
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	234
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	235	!CharacterArray methodsFor:'inspecting'!
82ee4e550517 Added missing CharacterArray>>inspector2TabBytes vrany parents: 10336 diff changeset	236
10851 26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	237	inspector2TabHTML
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	238
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	239	^self newInspector2Tab
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	240	label: 'HTML';
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	241	priority: 35;
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	242	view: ((ScrollableView for:HTMLDocumentView) setText: self; yourself)
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	243
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	244	"Created: / 17-02-2008 / 10:10:50 / janfrog"
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	245	"Created: / 07-11-2011 / 12:35:15 / cg"
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	246	! !
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	247
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	248	!CharacterArray methodsFor:'inspecting'!
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	249
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	250	inspector2TabText
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	251
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	252	^self newInspector2Tab
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	253	label: 'String';
10637 1114ddcf69f7 variable renamed in: #inspector2TabBytes Claus Gittinger <cg@exept.de> parents: 10527 diff changeset	254	priority: 50;
1114ddcf69f7 variable renamed in: #inspector2TabBytes Claus Gittinger <cg@exept.de> parents: 10527 diff changeset	255	view: ((ScrollableView for:EditTextView) contents: self; yourself)
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	256
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	257	"Created: / 17-02-2008 / 10:10:50 / janfrog"
10637 1114ddcf69f7 variable renamed in: #inspector2TabBytes Claus Gittinger <cg@exept.de> parents: 10527 diff changeset	258	"Modified: / 21-08-2011 / 08:02:57 / cg"
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	259	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	260
10313 a2f4e3f74efe category Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	261	!CharacterArray methodsFor:'inspecting'!
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	262
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	263	inspector2Tabs
10851 26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	264	HTMLDocumentView notNil ifTrue:[
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	265	(self startsWith:'<!!DOCTYPE html') ifTrue:[
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	266	^ #( inspector2TabCommon inspector2TabText inspector2TabBytes inspector2TabHTML )
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	267	].
26a08a701fde string: inspector \"knows\" about html Claus Gittinger <cg@exept.de> parents: 10839 diff changeset	268	].
10314 260acdfbc85c added: #inspector2TabBytes Claus Gittinger <cg@exept.de> parents: 10313 diff changeset	269	^ #( inspector2TabCommon inspector2TabText inspector2TabBytes )
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	270
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	271	"Created: / 05-07-2011 / 13:40:27 / cg"
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	272	! !
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	273
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	274	!CharacterArray methodsFor:'inspecting'!
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	275
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	276	inspectorExtraAttributes
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	277	"extra (pseudo instvar) entries to be shown in an inspector."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	278
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	279	\|d\|
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	280
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	281	d := Dictionary new
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	282	declareAllNewFrom:(super inspectorExtraAttributes ? #());
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	283	add:'-utf8String' -> [ self utf8Encoded ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	284	add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	285	yourself.
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	286
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	287	HTMLUtilities notNil ifTrue:[
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	288	d add:'-html' -> [ HTMLUtilities escapeCharacterEntities:self ].
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	289	].
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	290	^ d
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	291
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	292	"
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	293	'aou' inspect
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	294	"
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	295
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	296	"Created: / 22-10-2006 / 03:52:20 / cg"
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	297	! !
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	298
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	299	!Collection methodsFor:'inspecting'!
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	300
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	301	inspectorExtraAttributes
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	302	"extra (pseudo instvar) entries to be shown in an inspector."
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	303
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	304	^ Dictionary new
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	305	declareAllNewFrom:(super inspectorExtraAttributes ? #());
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	306	add:('-size' -> [ self size ]);
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	307	yourself
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	308
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	309	"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	310	'hello' inspect
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	311	"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	312
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	313	"Created: / 06-10-2006 / 13:56:52 / cg"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	314	"Modified: / 06-10-2006 / 17:43:45 / cg"
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	315	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	316
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	317	!Color methodsFor:'inspecting'!
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	318
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	319	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	320	"return the class of an appropriate inspector.
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	321	ST/X has a specialized ColorInspectorView for that"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	322
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	323	^ ColorInspectorView
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	324
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	325	"Modified: 23.4.1996 / 13:39:50 / cg"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	326	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	327
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	328	!Color methodsFor:'inspecting'!
8406 445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	329
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	330	inspectorExtraAttributes
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	331	"extra (pseudo instvar) entries to be shown in an inspector."
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	332
8406 445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	333	^ Dictionary new
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	334	declareAllNewFrom:(super inspectorExtraAttributes ? #());
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	335	add:'-rgb' -> [ self rgbValue hexPrintString ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	336	add:'-html' -> [ self htmlPrintString ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	337	yourself
8417 7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	338
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	339	"
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	340	Color red inspect
7ba7a8ebe38c * empty log message * Claus Gittinger <cg@exept.de> parents: 8406 diff changeset	341	"
8406 445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	342	! !
445174a4db22 #inspectorExtraAttributes Stefan Vogel <sv@exept.de> parents: 7754 diff changeset	343
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	344	!CompositeChange methodsFor:'utilities'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	345
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	346	condenseChangesForRemoved
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	347
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	348	self changes condenseChangesForRemoved
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	349	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	350
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	351	!CompositeChange methodsFor:'private'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	352
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	353	flattenOnto: aCollection
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	354
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	355	changes do:[:change\|change flattenOnto: aCollection]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	356	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	357
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	358	!CompositeChange methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	359
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	360	removed
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	361
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	362	^changes allSatisfy: [:e\|e removed]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	363	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	364
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	365	!CompositeChange methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	366
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	367	removed: aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	368
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	369	changes do:[:e\|e removed: aBoolean]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	370	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	371
9691 312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	372	!Date methodsFor:'inspecting'!
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	373
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	374	inspectorExtraAttributes
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	375	"extra (pseudo instvar) entries to be shown in an inspector."
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	376
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	377	^ Dictionary new
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	378	declareAllNewFrom:(super inspectorExtraAttributes ? #());
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	379	add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self dayOfWeekName , '"' ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	380	add:'-dayInYear' -> [ self dayInYear ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	381	add:'-daysInMonth' -> [ self daysInMonth ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	382	add:'-monthName' -> [ self monthName ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	383	add:'-leapYear' -> [ self isLeapYear ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	384	yourself
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	385
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	386	"
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	387	Date today inspect
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	388	"
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	389
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	390	"Created: / 20-01-2011 / 12:19:05 / cg"
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	391	! !
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	392
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	393	!Dictionary methodsFor:'inspecting'!
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	394
10316 11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	395	inspector2TabLabel
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	396	^ 'Dictionary'
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	397
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	398	"Created: / 14-07-2011 / 11:57:18 / cg"
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	399	! !
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	400
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	401	!Dictionary methodsFor:'inspecting'!
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	402
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	403	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	404	"redefined to use DictionaryInspector
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	405	(instead of the default Inspector)."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	406
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	407	^ DictionaryInspectorView
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	408	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	409
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	410	!EditTextView methodsFor:'accessing-dimensions'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	411
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	412	absoluteXOfPosition:positionInText
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	413	\|accumulatedX container\|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	414
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	415	accumulatedX := 0.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	416	container := self.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	417	[ container notNil ] whileTrue:[
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	418	accumulatedX := accumulatedX + container origin x.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	419	container := container isTopView ifFalse:[
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	420	container container
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	421	] ifTrue:[ nil ].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	422	].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	423	^ (self xOfPosition:positionInText) + accumulatedX
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	424
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	425	"Created: / 16-02-2010 / 10:05:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	426	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	427
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	428	!EditTextView methodsFor:'accessing-dimensions'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	429
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	430	absoluteYOfCursor
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	431
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	432	\| accumulatedY container \|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	433	accumulatedY := 0.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	434	container := self.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	435	[ container notNil ] whileTrue:[
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	436	accumulatedY := accumulatedY + container origin y.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	437	container := container isTopView
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	438	ifFalse:[container container]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	439	ifTrue:[nil].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	440	].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	441	^(self yOfCursor) + accumulatedY
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	442
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	443	"Created: / 27-05-2005 / 07:45:53 / janfrog"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	444	"Modified: / 27-05-2005 / 23:03:40 / janfrog"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	445	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	446
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	447	!EditTextView methodsFor:'accessing-dimensions'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	448
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	449	xOfPosition: positionInText
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	450
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	451	\| line col \|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	452	line := self lineOfCharacterPosition: positionInText.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	453	col := positionInText - (self characterPositionOfLine:line col:1) + 1.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	454	^
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	455	(self xOfCol:col inVisibleLine:(self listLineToVisibleLine: line))
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	456	- viewOrigin x.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	457
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	458	"Created: / 16-02-2010 / 10:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	459	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	460
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	461	!EditTextView methodsFor:'accessing-dimensions'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	462
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	463	yOfCursor
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	464
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	465	^self yOfVisibleLine:cursorVisibleLine.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	466
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	467	"Created: / 27-05-2005 / 07:43:41 / janfrog"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	468	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	469
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	470	!EditTextView methodsFor:'accessing-dimensions'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	471
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	472	yOfPosition: positionInText
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	473
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	474	\| line \|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	475	line := self lineOfCharacterPosition: positionInText.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	476	^self yOfVisibleLine:(self listLineToVisibleLine: line)
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	477
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	478	"Created: / 16-02-2010 / 10:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	479	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	480
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	481	!ExecutableFunction methodsFor:'printing & storing'!
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	482
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	483	printStringForBrowserWithSelector:selector
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	484	"return a printString to represent myself to the user in a browser."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	485
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	486	^ self printStringForBrowserWithSelector:selector inClass:nil
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	487	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	488
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	489	!Form methodsFor:'inspecting'!
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	490
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	491	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	492	"redefined to launch an ImageInspector
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	493	(instead of the default InspectorView)."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	494
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	495	^ ImageInspectorView
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	496	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	497
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	498	!GenericToolbarIconLibrary class methodsFor:'image specs-22x22'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	499
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	500	bookmarks22x22
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	501	"This resource specification was automatically generated
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	502	by the ImageEditor of ST/X."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	503
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	504	"Do not manually edit this!! If it is corrupted,
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	505	the ImageEditor may not be able to read the specification."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	506
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	507	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	508	self bookmarks22x22 inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	509	ImageEditor openOnClass:self andSelector:#bookmarks22x22
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	510	Icon flushCachedIcons
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	511	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	512
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	513	<resource: #image>
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	514
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	515	^Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	516	constantNamed:'GenericToolbarIconLibrary class bookmarks22x22'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	517	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	518	????????????????????????????????????????????????????????????????????????LT;??????????????????????????6BAD/??????????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	519	?????????16L''"+???????????????????????<7''95Y????????????????????????YI2[_!!C?????????????????????GXZZ&Y\0????????????I$YF
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	520	Q$YFQUBX%)VRZ%YAO34=OR????=T#9RT$9FP#(6K"(VB_718]U0%????FC)9"X"G!!HN@_W]4\V=)YT@E????????J&Y;^''Y3\''A-ZFI_UR8A??????????<Q
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	521	SF9,Z6]#WU!!SQBW??????????????1YWXU9ZTT5IP2K???????????????<)V5IOR$\>NS (????????????????M$-HP#,3KB\ZE07?????????????GST<
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	522	MB4$GATNB0(]?????????????142J18[@O<RC0XCD?????????????<!!H1$G?????1@T@ $H????????????G2@D?????????14L????????????????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	523	?????????????????????????????????????????????0@a') ; colorMapFromArray:#[143 162 38 146 165 38 153 167 24 155 168 21 149 168 39 149 169 39 156 169 21 151 170 40 151 171 40 156 171 30 159 173 22 160 174 20 156 174 34 154 175 41 162 176 20 159 176 32 156 176 41 156 177 41 157 177 41 159 178 37 159 178 38 163 179 26 158 179 42 163 180 27 159 180 42 162 180 35 166 181 20 160 181 40 161 181 39 160 181 42 165 181 28 162 181 37 161 181 40 162 181 38 161 181 41 168 181 23 162 182 36 161 182 41 161 182 43 168 183 20 163 183 35 162 183 41 162 183 42 170 184 22 169 185 20 169 185 23 164 185 38 164 185 40 164 185 42 164 185 43 171 186 24 171 187 21 172 187 22 170 187 29 168 187 35 165 187 44 171 188 19 173 190 19 168 189 44 174 190 21 174 190 22 170 192 37 176 192 20 170 192 38 171 193 33 171 193 38 177 193 21 176 194 19 174 194 26 172 193 47 172 193 48 178 195 20 179 195 21 179 197 19 180 197 20 180 197 21 176 197 38 181 199 19 177 199 46 183 201 20 179 200 50 184 202 19 185 202 21 184 203 18 180 201 50 183 204 21 181 203 37 184 204 27 185 205 18 181 204 45 187 205 19 187 205 21 183 206 27 187 208 18 189 208 20 189 210 17 186 208 51 191 210 20 190 211 17 190 211 19 187 209 53 191 213 17 190 211 43 193 213 19 193 214 17 194 216 16 192 215 38 195 216 20 196 217 25 196 218 18 196 217 28 196 219 17 198 220 18 199 221 17 200 222 23 201 222 28 201 224 17 200 225 16 203 223 33 203 225 20 202 226 16 202 223 51 204 224 38 204 224 41 203 227 16 204 226 26 203 226 47 204 229 16 206 227 34 203 227 53 206 230 21 207 228 39 208 228 43 207 231 26 207 228 60 209 229 48 209 229 51 210 229 52 209 232 33 210 232 39 209 231 58 211 233 46 212 234 52 213 233 63 213 234 56 214 235 59 214 237 41 215 235 62 215 235 64 215 238 49 217 238 55 217 240 46 218 239 61 219 242 53 220 242 59 222 245 56 223 245 62 224 248 57 224 248 58 224 248 64 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@C@@@C @@G @@G @@G0@@O0@_??8O??8O??0C?? A?>@@?<@@?<@@?>@A?>@A>>@A8_@A0F@@@@@@@@@') ; yourself); yourself]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	524
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	525	"Modified: / 05-05-2011 / 12:45:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	526	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	527
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	528	!GenericToolbarIconLibrary class methodsFor:'image specs-16x16'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	529
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	530	bug16x16Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	531	"This resource specification was automatically generated
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	532	by the ImageEditor of ST/X."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	533
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	534	"Do not manually edit this!! If it is corrupted,
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	535	the ImageEditor may not be able to read the specification."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	536
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	537	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	538	self bug16x16Icon inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	539	ImageEditor openOnClass:self andSelector:#bug16x16Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	540	Icon flushCachedIcons
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	541	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	542
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	543	<resource: #image>
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	544
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	545	^Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	546	constantNamed:'GenericToolbarIconLibrary class bug16x16Icon'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	547	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	548	???????????????????????????????????????????????????3R/??????????????????O"_???????????????????7=?#J1???????????=???=IBP$
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	549	?_????????????7=W5=_W5?=O/7???????>L?PLC@0LC?_????????7=/4S[7S 8TY/=?VC?????L#L.>JI3I+A%H#[?????GA3_]U*/M3_;BPRLD_????7=
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	550	?_B@M>DE-04>?U/??????2_=HEXYQ7:R<Q_???????4>G2$%Q9QEL?5_??????????<=?\;M??????????????????=-H????????0@a') ; colorMapFromArray:#[205 205 205 227 35 35 106 106 106 98 98 98 135 135 135 163 34 34 101 5 5 124 124 124 48 2 2 227 11 11 173 173 173 218 54 54 241 241 241 235 19 19 225 225 225 219 18 18 245 58 58 214 214 214 249 46 46 90 90 90 254 61 61 36 36 36 176 176 176 233 233 233 114 114 114 255 78 78 212 33 33 230 57 57 61 61 61 94 94 94 76 76 76 19 19 19 255 57 57 161 161 161 83 83 83 217 217 217 249 249 249 255 65 65 139 2 2 27 27 27 169 169 169 253 53 53 210 28 28 251 251 251 154 154 154 117 117 117 195 1 1 245 245 245 145 145 145 218 5 5 230 230 230 69 2 2 181 181 181 11 11 11 141 141 141 249 61 61 205 21 21 165 165 165 157 157 157 241 28 28 223 223 223 109 109 109 2 2 2 245 45 45 146 0 0 69 69 69 137 137 137 140 40 40 188 1 1 206 24 24 219 33 33 255 76 76 249 49 49 249 56 56 236 236 236 121 121 121 248 53 53 171 1 1 111 40 40 237 41 41 178 21 21 205 16 16 129 129 129 163 1 1 155 18 18 85 4 4 243 68 68 73 73 73 45 45 45 202 51 51 241 40 40 86 86 86 114 1 1 210 4 4 246 41 41 148 148 148 189 189 189 209 209 209 210 17 17 158 28 28 213 5 5 205 1 1 53 53 53 217 9 9 69 40 40 187 10 10 255 74 74 218 28 28 146 11 11 65 65 65 232 37 37 101 101 101 196 26 26 245 53 53 188 26 26 213 10 10 184 184 184 206 5 5 249 65 65 172 21 21 206 34 34 195 195 195 237 32 32 131 12 12 233 29 29 179 36 36 241 37 37 139 13 13 245 49 49 180 1 1 168 37 37 198 198 198 202 202 202 228 21 21 206 10 10 206 29 29 229 30 30 255 80 80 188 20 20 245 37 37 57 57 57 252 50 50 87 42 42 172 10 10 209 13 13 155 4 4 164 11 11 242 44 44 255 70 70 225 25 25 222 14 14 237 24 24 240 49 49 205 13 13 202 44 44 201 0 0 225 17 17 186 42 42 255 72 72 122 1 1 40 40 40 157 10 10 209 8 8 222 8 8 195 41 41 223 21 21 180 11 11 255 68 68 162 28 28 194 11 11 232 25 25 131 1 1 241 32 32 246 246 246 49 49 49 224 44 44 208 2 2 227 227 227 239 239 239 239 46 46 162 20 20 245 33 33 219 219 219 238 29 29 237 37 37 171 29 29 36 46 46 250 68 68 147 16 16 182 26 26 187 187 187 24 1 1 185 32 32 229 24 24 232 33 33 150 150 150 122 12 12 229 17 17 204 27 27 242 52 52 213 2 2 200 15 15 191 191 191 217 43 43 217 12 12 115 10 10 140 16 16 200 28 28 202 6 6 215 13 13 182 41 41 57 46 46 40 46 46 233 40 40 252 70 70 173 40 40 226 28 28 46 54 54 202 22 22 203 18 18 245 72 72 191 17 17 200 37 37 10 0 0 50 52 52 252 74 74 252 72 72 247 38 38 160 40 40 231 14 14 252 68 68 200 10 10 15 15 15 211 47 47 254 254 254 253 76 76 23 23 23 237 69 69 7 7 7 144 7 7 196 8 7 32 32 32 59 59 59 90 93 93 67 67 67 70 28 28 50 56 56 232 15 16 208 4 4 237 35 35 220 12 11 232 20 20 223 62 62 0 0 0 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L@@0@C8AO C?0O<C?>G?0??#?>C?0_?@O@@L@b') ; yourself); yourself]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	551	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	552
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	553	!GenericToolbarIconLibrary class methodsFor:'image specs-24x24'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	554
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	555	bug24x24Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	556	"This resource specification was automatically generated
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	557	by the ImageEditor of ST/X."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	558
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	559	"Do not manually edit this!! If it is corrupted,
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	560	the ImageEditor may not be able to read the specification."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	561
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	562	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	563	self bug24x24Icon inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	564	ImageEditor openOnClass:self andSelector:#bug24x24Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	565	Icon flushCachedIcons
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	566	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	567
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	568	<resource: #image>
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	569
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	570	^Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	571	constantNamed:'GenericToolbarIconLibrary class bug24x24Icon'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	572	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	573	??????????????????????????????????????????????????>6???????????????????????1???????=????????????????????????<4+????=????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	574	????????????????????O"_???> ??????????????????????????7.?3;.?????????????????????????_4$?#K=,_????????????????7???=/?RP$
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	575	IBP$?_?????=????????MX3=???=L#H2L#H2?_7?XQW.???????????=?_7=W5=_W5=_W?7=O/7?????????????#O4''@0LC@0LC@?7=????????????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	576	?_6 PTEAPTEAPSW=?????????????_7=/4R[6=48NC!!"TY-M?_7=XO???????3H0L29%>JK/\2Z",FUDH#YJ????????????L9-$3N>%%ZW/YL!!D????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	577	????GA1W77W7V*<7M3\R>0%DAH0\D_???????_7=?_@M C_W8PTP-05MO/7=V???????B!!X4MX>WRW7WFPVZ"?//?1XV??????????<XI?7]HEXYFT]Y_)K=
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	578	<Q_???????????4XO!!?DJRU*Q9P%QSL5?U<-?????????3T5???=F$ EB@?L37?G3;=????????????????O_7D3,7=??????????????????????????<(
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	579	[RO?????????????????????????????????????????????') ; colorMapFromArray:#[205 205 205 227 35 35 106 106 106 98 98 98 135 135 135 163 34 34 101 5 5 124 124 124 48 2 2 227 11 11 173 173 173 218 54 54 241 241 241 235 19 19 225 225 225 219 18 18 245 58 58 214 214 214 249 46 46 90 90 90 254 61 61 36 36 36 176 176 176 233 233 233 114 114 114 255 78 78 212 33 33 230 57 57 61 61 61 94 94 94 76 76 76 19 19 19 255 57 57 161 161 161 83 83 83 217 217 217 249 249 249 255 65 65 139 2 2 27 27 27 169 169 169 253 53 53 210 28 28 251 251 251 154 154 154 117 117 117 195 1 1 245 245 245 145 145 145 218 5 5 230 230 230 69 2 2 181 181 181 11 11 11 141 141 141 249 61 61 205 21 21 165 165 165 157 157 157 241 28 28 223 223 223 109 109 109 2 2 2 245 45 45 146 0 0 69 69 69 137 137 137 140 40 40 188 1 1 206 24 24 219 33 33 255 76 76 249 49 49 249 56 56 236 236 236 121 121 121 248 53 53 171 1 1 111 40 40 237 41 41 178 21 21 205 16 16 129 129 129 163 1 1 155 18 18 85 4 4 243 68 68 73 73 73 45 45 45 202 51 51 241 40 40 86 86 86 114 1 1 210 4 4 246 41 41 148 148 148 189 189 189 209 209 209 210 17 17 158 28 28 213 5 5 205 1 1 53 53 53 217 9 9 69 40 40 187 10 10 255 74 74 218 28 28 146 11 11 65 65 65 232 37 37 101 101 101 196 26 26 245 53 53 188 26 26 213 10 10 184 184 184 206 5 5 249 65 65 172 21 21 206 34 34 195 195 195 237 32 32 131 12 12 233 29 29 179 36 36 241 37 37 139 13 13 245 49 49 180 1 1 168 37 37 198 198 198 202 202 202 228 21 21 206 10 10 206 29 29 229 30 30 255 80 80 188 20 20 245 37 37 57 57 57 252 50 50 87 42 42 172 10 10 209 13 13 155 4 4 164 11 11 242 44 44 255 70 70 225 25 25 222 14 14 237 24 24 240 49 49 205 13 13 202 44 44 201 0 0 225 17 17 186 42 42 255 72 72 122 1 1 40 40 40 157 10 10 209 8 8 222 8 8 195 41 41 223 21 21 180 11 11 255 68 68 162 28 28 194 11 11 232 25 25 131 1 1 241 32 32 246 246 246 49 49 49 224 44 44 208 2 2 227 227 227 239 239 239 239 46 46 162 20 20 245 33 33 219 219 219 238 29 29 237 37 37 171 29 29 36 46 46 250 68 68 147 16 16 182 26 26 187 187 187 24 1 1 185 32 32 229 24 24 232 33 33 150 150 150 122 12 12 229 17 17 204 27 27 242 52 52 213 2 2 200 15 15 191 191 191 217 43 43 217 12 12 115 10 10 140 16 16 200 28 28 202 6 6 215 13 13 182 41 41 57 46 46 40 46 46 233 40 40 252 70 70 173 40 40 226 28 28 46 54 54 202 22 22 203 18 18 245 72 72 191 17 17 200 37 37 10 0 0 50 52 52 252 74 74 252 72 72 247 38 38 160 40 40 231 14 14 252 68 68 200 10 10 15 15 15 211 47 47 254 254 254 253 76 76 23 23 23 237 69 69 7 7 7 144 7 7 196 8 7 32 32 32 59 59 59 90 93 93 67 67 67 70 28 28 50 56 56 232 15 16 208 4 4 237 35 35 220 12 11 232 20 20 223 62 62 0 0 0 255 255 255 255 255 255]; mask:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@H@@HH@@FH@@FH@@CX@@G<@BO<HGO>8A??0@??@@??@G??<C??8@??@G??<G??<G??XA??0C??8CO>8@G8@@A0@@@@@') ; yourself); yourself]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	580	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	581
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	582	!GenericToolbarIconLibrary class methodsFor:'image specs-32x32'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	583
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	584	bug32x32Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	585	<resource: #image>
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	586	"This resource specification was automatically generated
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	587	by the ImageEditor of ST/X."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	588	"Do not manually edit this!! If it is corrupted,
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	589	the ImageEditor may not be able to read the specification."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	590	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	591	self bug3232Icon inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	592	ImageEditor openOnClass:self andSelector:#bug3232Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	593	Icon flushCachedIcons"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	594
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	595	^ Icon constantNamed:'GenericToolbarIconLibrary class bug3232Icon'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	596	ifAbsentPut:[
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	597	(Depth8Image new)
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	598	width:32;
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	599	height:32;
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	600	photometric:(#palette);
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	601	bitsPerSample:(#( 8 ));
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	602	samplesPerPixel:((1));
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	603	bits:(ByteArray
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	604	fromPackedString:'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	605	??????????????????????????????????????????????????????????????????>6@/?????????????????????????????1H_????????4-????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	606	???????????????????????=?_??????O!!???????????????????????????????3W3R/?????=I????????????????????????????????38''?????:C?
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	607	??????????????????????????????????7.??<>;/???????????????????????????????????_7=?_7=????????????????????????????????[?7=
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	608	IO;>L/7=,_?????????????????????=?????6?=?RP$IBP$IO7=???????=????????????MX3=?????_42L#H2L#H2L/7=??=!!E^8Q????????????O.9K
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	609	?_7=@G%9^W%9^W%9JO7=O%K=O/???????????????_7=?_5_W5=_W5=_W5=_?_7=O/7??????????????????83=I0LC@0LC@0LC@0O=?SK?????????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	610	?????????_6 PTEAPTEAPTEAPSW=M_??????????????JC(SI?7= S#WP49(ZF"NS$N$]UO=?QU/@6G???????<-?_7=?[=D&5G[7S 8NC!!"65F[S_7=?_4U
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	611	XO??????????L#C4L29%,O"";7M3IK8,FUD?RH6R/????????????????<3&6Q''3N>%%YV%;6]$2DS=????????????????????(@#8(92/KN3,4=T0YZ#
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	612	K/40?????????????0P\GE]X77W7%/M3\7M1K9>0%D?PRLGB\Q????????<_7=?S;=<@5> C_W8^DEDC>7CT7=O/7=<U/?????????B!!X4?3VO%59I_]\Y
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	613	FPVZSH/;;8O?E!!Y9????????????????I<SAD#^BFX&IFVMI86H3H/??????????????????FB4''?]5^HEXY"Q%GVR%>$/4^<Q_???????????????4X?S8_
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	614	1DX)IV)GQ9P%D$T3MS;=W27?????????????MST!!???=1A)HHBTTHC?FL37??1<>?_?????????????????????=A''KUO9M.]0# ?????1_?????????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	615	??????????<=?\SN3,7=H???????????????????????????????????JFY-H???????????????????????????????????????????????????????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	616	?????????????????????????????????????????????0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	617	@@@@@@@@@@@@');
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	618	colorMapFromArray:#[ 205 205 205 227 35 35 106 106 106 98 98 98 135 135 135 163 34 34 101 5 5 124 124 124 48 2 2 227 11 11 173 173 173 218 54 54 241 241 241 235 19 19 225 225 225 219 18 18 245 58 58 214 214 214 249 46 46 90 90 90 254 61 61 36 36 36 176 176 176 233 233 233 114 114 114 255 78 78 212 33 33 230 57 57 61 61 61 94 94 94 76 76 76 19 19 19 255 57 57 161 161 161 83 83 83 217 217 217 249 249 249 255 65 65 139 2 2 27 27 27 169 169 169 253 53 53 210 28 28 251 251 251 154 154 154 117 117 117 195 1 1 245 245 245 145 145 145 218 5 5 230 230 230 69 2 2 181 181 181 11 11 11 141 141 141 249 61 61 205 21 21 165 165 165 157 157 157 241 28 28 223 223 223 109 109 109 2 2 2 245 45 45 146 0 0 69 69 69 137 137 137 140 40 40 188 1 1 206 24 24 219 33 33 255 76 76 249 49 49 249 56 56 236 236 236 121 121 121 248 53 53 171 1 1 111 40 40 237 41 41 178 21 21 205 16 16 129 129 129 163 1 1 155 18 18 85 4 4 243 68 68 73 73 73 45 45 45 202 51 51 241 40 40 86 86 86 114 1 1 210 4 4 246 41 41 148 148 148 189 189 189 209 209 209 210 17 17 158 28 28 213 5 5 205 1 1 53 53 53 217 9 9 69 40 40 187 10 10 255 74 74 218 28 28 146 11 11 65 65 65 232 37 37 101 101 101 196 26 26 245 53 53 188 26 26 213 10 10 184 184 184 206 5 5 249 65 65 172 21 21 206 34 34 195 195 195 237 32 32 131 12 12 233 29 29 179 36 36 241 37 37 139 13 13 245 49 49 180 1 1 168 37 37 198 198 198 202 202 202 228 21 21 206 10 10 206 29 29 229 30 30 255 80 80 188 20 20 245 37 37 57 57 57 252 50 50 87 42 42 172 10 10 209 13 13 155 4 4 164 11 11 242 44 44 255 70 70 225 25 25 222 14 14 237 24 24 240 49 49 205 13 13 202 44 44 201 0 0 225 17 17 186 42 42 255 72 72 122 1 1 40 40 40 157 10 10 209 8 8 222 8 8 195 41 41 223 21 21 180 11 11 255 68 68 162 28 28 194 11 11 232 25 25 131 1 1 241 32 32 246 246 246 49 49 49 224 44 44 208 2 2 227 227 227 239 239 239 239 46 46 162 20 20 245 33 33 219 219 219 238 29 29 237 37 37 171 29 29 36 46 46 250 68 68 147 16 16 182 26 26 187 187 187 24 1 1 185 32 32 229 24 24 232 33 33 150 150 150 122 12 12 229 17 17 204 27 27 242 52 52 213 2 2 200 15 15 191 191 191 217 43 43 217 12 12 115 10 10 140 16 16 200 28 28 202 6 6 215 13 13 182 41 41 57 46 46 40 46 46 233 40 40 252 70 70 173 40 40 226 28 28 46 54 54 202 22 22 203 18 18 245 72 72 191 17 17 200 37 37 10 0 0 50 52 52 252 74 74 252 72 72 247 38 38 160 40 40 231 14 14 252 68 68 200 10 10 15 15 15 211 47 47 254 254 254 253 76 76 23 23 23 237 69 69 7 7 7 144 7 7 196 8 7 32 32 32 59 59 59 90 93 93 67 67 67 70 28 28 50 56 56 232 15 16 208 4 4 237 35 35 220 12 11 232 20 20 223 62 62 0 0 0 255 255 255 255 255 255 ];
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	619	mask:((ImageMask new)
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	620	width:32;
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	621	height:32;
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	622	photometric:(#blackIs0);
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	623	bitsPerSample:(#[ 1 ]);
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	624	samplesPerPixel:((1));
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	625	bits:(ByteArray
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	626	fromPackedString:'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	627	@@@@@@@@L@@@LC@@@A 0@@@\L@@@CB@@@@Y @@@G8@@@G? @AC?8H@8??O@G??? @???0@C??0@@??<@G???>A???? G??? @O??@@G??8@_???8G???>@;?
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	628	?7@@??<@@???0@_??>@GO?3 @A?8P@@O<@@@@<@@@@@@@@@@@@@b');
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	629	yourself);
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	630	yourself
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	631	]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	632	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	633
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	634	!GenericToolbarIconLibrary class methodsFor:'image specs-16x16'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	635
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	636	lint16x16Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	637	"This resource specification was automatically generated
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	638	by the ImageEditor of ST/X."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	639
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	640	"Do not manually edit this!! If it is corrupted,
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	641	the ImageEditor may not be able to read the specification."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	642
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	643	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	644	self lint16x16Icon inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	645	ImageEditor openOnClass:self andSelector:#lint16x16Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	646	Icon flushCachedIcons
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	647	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	648
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	649	<resource: #image>
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	650
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	651	^Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	652	constantNamed:'GenericToolbarIconLibrary class lint16x16Icon'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	653	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	654	??????????????????????????????????????????????????<4[_??????????????????A4W??????????????????2<A()BG??????????<A??<A1_;>
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	655	@XS??????????3<)-;^76.Z5A0O???????<P@W!!8>-3J<0+??????0\JI1,;7^?57-[;''T????<JS0P"PN3'':-V>8L??????V5@''G57.1,!!#X-''R_O???1(R
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	656	@RMW:YKY6+7RW??????3P*ZU[;.:#!!/:7???????<A@6AV2?S:9+>5??????????< BC &?????;?Z??????????<XU_?????X<P@a') ; colorMapFromArray:#[0 1 0 0 2 0 1 4 0 3 6 2 30 1 0 6 9 5 34 2 2 10 12 8 43 4 2 13 15 12 15 17 13 77 0 0 16 18 15 35 14 12 17 19 16 67 6 1 19 20 18 75 7 10 21 23 20 86 9 4 25 27 24 111 4 7 103 7 10 96 10 12 32 29 28 29 30 28 31 33 30 153 2 0 33 35 33 35 36 34 110 16 16 173 0 1 36 38 35 41 37 36 165 4 0 155 7 7 128 15 14 39 41 39 157 12 16 51 42 42 207 0 4 43 45 42 58 41 39 141 19 15 199 4 0 210 3 0 221 1 4 48 49 47 231 0 12 211 7 8 172 19 10 172 19 18 52 54 51 53 55 53 234 5 23 59 54 53 176 24 21 56 57 55 57 59 56 204 19 22 195 22 24 103 47 48 227 16 9 60 61 59 198 25 19 216 20 21 61 63 60 119 48 45 228 20 20 63 65 62 211 30 27 68 69 67 69 71 68 212 32 34 242 25 29 72 74 71 74 76 74 191 45 50 245 31 38 76 78 75 77 79 76 79 80 78 138 66 66 248 36 40 240 41 43 83 85 82 216 50 52 241 43 50 195 58 61 86 88 85 244 46 46 87 89 86 89 91 88 214 58 58 193 65 67 92 93 91 248 51 49 109 90 87 185 68 87 194 67 80 87 95 125 250 54 57 173 74 96 202 67 84 159 78 103 253 56 52 188 72 90 87 99 135 129 89 121 99 101 98 73 104 148 255 59 60 159 83 106 175 81 94 94 102 132 187 78 98 215 71 85 255 61 67 169 84 104 251 66 66 104 106 103 90 106 147 151 92 119 200 81 93 107 108 106 140 99 131 162 94 119 255 72 76 144 100 128 96 112 153 228 80 83 159 97 120 111 113 110 191 90 111 206 87 104 113 115 112 87 118 163 115 117 114 83 122 166 179 100 117 118 120 117 199 99 101 231 91 88 138 113 147 120 122 119 196 101 119 123 125 122 115 123 167 213 100 113 119 123 162 180 109 128 127 129 126 208 108 109 115 131 173 185 115 140 158 122 154 173 119 144 131 133 130 130 130 163 178 122 124 181 119 147 106 139 178 136 138 135 120 139 175 126 138 175 204 121 132 132 139 172 113 146 186 136 143 176 144 146 143 121 149 184 153 142 173 135 150 181 148 150 147 125 153 188 130 153 182 179 140 167 150 152 149 205 136 148 181 145 146 136 159 189 155 157 154 140 163 193 159 161 158 161 163 160 143 166 196 162 164 161 148 167 192 164 166 163 165 165 187 197 159 173 167 169 166 152 171 196 191 163 180 157 172 191 169 171 168 216 159 166 171 173 170 208 163 179 187 169 190 217 162 175 174 176 173 159 178 203 186 173 174 207 167 175 163 178 198 213 166 176 179 181 178 198 176 192 169 185 204 183 185 182 216 175 184 209 177 189 212 180 192 204 183 198 208 183 193 188 190 187 180 192 206 194 196 193 215 191 201 187 199 213 204 198 197 211 196 210 199 201 198 190 202 216 191 203 217 201 202 212 202 204 201 208 203 201 219 201 210 205 207 203 217 203 217 206 208 205 213 207 206 223 205 214 203 211 220 211 213 210 211 212 222 214 216 213 221 215 227 217 219 216 219 221 218 228 218 224 217 222 225 221 223 220 231 221 227 216 225 233 220 226 228 224 226 223 221 229 238 231 233 230 228 234 236 233 235 232 235 238 234 249 251 248 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L@@0@C8AO0C?0O>C?>O?0??#?>C?0O?@OC@LLb') ; yourself); yourself]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	657	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	658
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	659	!GenericToolbarIconLibrary class methodsFor:'image specs-24x24'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	660
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	661	lint24x24Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	662	"This resource specification was automatically generated
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	663	by the ImageEditor of ST/X."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	664
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	665	"Do not manually edit this!! If it is corrupted,
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	666	the ImageEditor may not be able to read the specification."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	667
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	668	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	669	self lint24x24Icon inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	670	ImageEditor openOnClass:self andSelector:#lint24x24Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	671	Icon flushCachedIcons
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	672	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	673
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	674	<resource: #image>
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	675
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	676	^Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	677	constantNamed:'GenericToolbarIconLibrary class lint24x24Icon'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	678	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	679	??????????????????????????????????????????????????????????????????????????=_W?????< @???????????????????????MF7???<4????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	680	????????????????????A4W???<L?????????????????????????2AG?4HY????????????????????????K0E[()@J!!????????????????0G?????@\W>
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	681	?/;0@XS???<Z????????JUEK??</0?3<?O3<F G??0)H??????????<GO2$A-;^7-=+,9+T]A0MU????????????D@DG^G!!<>-262/O1B/??????????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	682	@PDPR4/I):+J+8+Q,_??????????A0(]I1,,N=7J;?W27-ZO>94NS???????B$=QABH(PN2#9>+%5[:@8L>D????????????A!!<-S_BU6=/W3)Y:.]??????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	683	????V5AEI1<>W^:$1,"2X6I(6]IP_O??????F!!HN@RL0U>&6&(-1Y6)(=:$RI_??????N%%\@1UDXKO;(HM6^7M,<G!!Y#O??????????MB(2ZUZX>;.&*NG:
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	684	/:6D??????????<)@PLSXEY?2?S<>.Y-/;V-?????????1$A??<GRU)/]8JMT"_?/;>5#O??????????????H@ +NBXQ??????>:/=*L??????????????<9
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	685	FEU_????????6OF5????????????????????????????-]K?') ; colorMapFromArray:#[0 1 0 0 2 0 1 4 0 3 6 2 30 1 0 6 9 5 34 2 2 10 12 8 43 4 2 13 15 12 15 17 13 77 0 0 16 18 15 35 14 12 17 19 16 67 6 1 19 20 18 75 7 10 21 23 20 86 9 4 25 27 24 111 4 7 103 7 10 96 10 12 32 29 28 29 30 28 31 33 30 153 2 0 33 35 33 35 36 34 110 16 16 173 0 1 36 38 35 41 37 36 165 4 0 155 7 7 128 15 14 39 41 39 157 12 16 51 42 42 207 0 4 43 45 42 58 41 39 141 19 15 199 4 0 210 3 0 221 1 4 48 49 47 231 0 12 211 7 8 172 19 10 172 19 18 52 54 51 53 55 53 234 5 23 59 54 53 176 24 21 56 57 55 57 59 56 204 19 22 195 22 24 103 47 48 227 16 9 60 61 59 198 25 19 216 20 21 61 63 60 119 48 45 228 20 20 63 65 62 211 30 27 68 69 67 69 71 68 212 32 34 242 25 29 72 74 71 74 76 74 191 45 50 245 31 38 76 78 75 77 79 76 79 80 78 138 66 66 248 36 40 240 41 43 83 85 82 216 50 52 241 43 50 195 58 61 86 88 85 244 46 46 87 89 86 89 91 88 214 58 58 193 65 67 92 93 91 248 51 49 109 90 87 185 68 87 194 67 80 87 95 125 250 54 57 173 74 96 202 67 84 159 78 103 253 56 52 188 72 90 87 99 135 129 89 121 99 101 98 73 104 148 255 59 60 159 83 106 175 81 94 94 102 132 187 78 98 215 71 85 255 61 67 169 84 104 251 66 66 104 106 103 90 106 147 151 92 119 200 81 93 107 108 106 140 99 131 162 94 119 255 72 76 144 100 128 96 112 153 228 80 83 159 97 120 111 113 110 191 90 111 206 87 104 113 115 112 87 118 163 115 117 114 83 122 166 179 100 117 118 120 117 199 99 101 231 91 88 138 113 147 120 122 119 196 101 119 123 125 122 115 123 167 213 100 113 119 123 162 180 109 128 127 129 126 208 108 109 115 131 173 185 115 140 158 122 154 173 119 144 131 133 130 130 130 163 178 122 124 181 119 147 106 139 178 136 138 135 120 139 175 126 138 175 204 121 132 132 139 172 113 146 186 136 143 176 144 146 143 121 149 184 153 142 173 135 150 181 148 150 147 125 153 188 130 153 182 179 140 167 150 152 149 205 136 148 181 145 146 136 159 189 155 157 154 140 163 193 159 161 158 161 163 160 143 166 196 162 164 161 148 167 192 164 166 163 165 165 187 197 159 173 167 169 166 152 171 196 191 163 180 157 172 191 169 171 168 216 159 166 171 173 170 208 163 179 187 169 190 217 162 175 174 176 173 159 178 203 186 173 174 207 167 175 163 178 198 213 166 176 179 181 178 198 176 192 169 185 204 183 185 182 216 175 184 209 177 189 212 180 192 204 183 198 208 183 193 188 190 187 180 192 206 194 196 193 215 191 201 187 199 213 204 198 197 211 196 210 199 201 198 190 202 216 191 203 217 201 202 212 202 204 201 208 203 201 219 201 210 205 207 203 217 203 217 206 208 205 213 207 206 223 205 214 203 211 220 211 213 210 211 212 222 214 216 213 221 215 227 217 219 216 219 221 218 228 218 224 217 222 225 221 223 220 231 221 227 216 225 233 220 226 228 224 226 223 221 229 238 231 233 230 228 234 236 233 235 232 235 238 234 249 251 248 255 255 255]; mask:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@LL@@FH@@FH@@CX@@G<@BG>HGO>XA??8@?? @?? G??<G??8@??0G??<G??<G??<@??8A??8CO><@G8O@A8G@@@F') ; yourself); yourself]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	686	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	687
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	688	!GenericToolbarIconLibrary class methodsFor:'image specs-32x32'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	689
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	690	lint32x32Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	691	"This resource specification was automatically generated
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	692	by the ImageEditor of ST/X."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	693
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	694	"Do not manually edit this!! If it is corrupted,
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	695	the ImageEditor may not be able to read the specification."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	696
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	697	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	698	self lint32x32Icon inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	699	ImageEditor openOnClass:self andSelector:#lint32x32Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	700	Icon flushCachedIcons
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	701	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	702
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	703	<resource: #image>
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	704
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	705	^Icon
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	706	constantNamed:'GenericToolbarIconLibrary class lint32x32Icon'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	707	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	708	????????????????????????????????????????????????????????????????????!!O????????????????????????????=_JU???????2@4@???????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	709	??????????????????????<AT_??????@Q*??????????????????????????????4H4[_????<4O????????????????????????????????0]E?????01K
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	710	?????????????????????????????????2AG??=BFX_?????????????????????????????????QQ$A@PDR?????????????????????????????????2<A
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	711	V96"$@(C!!?????????????????????<A??????<R@\W>?/;><CPA!!O????<Z????????????JUEK????K0GC?O3<?O3<>A(A????B$"G????????????@SQG
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	712	V0(ARNO#8>O#8>O_+PD9NS(%@P_?????????????A0\?JPFW-;^7-;_Z;OG&-Q5EA0MU????????????????QQ@AA718^G2?>-26+,+3<W0J????????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	713	????????@PDPR4-K2_^'',+M+8+Q>+G??????????????4IHUV4)B19COVG:(\K9=.7"/XGY;E=HQZ''???????=\A0(]P"\[KC,;7\+;?W2:-;V#8#;''P8%
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	714	S?????????<JS5D)ABH(LTC,(<_'':.W[5[:@^^CO!!@G???????????????<FG241S_BU4M/[5=ON%'')2.]???????????????????0P_K"9^=IOA5MOL1JU&
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	715	\FR47?????????????=[TDT:I1<>M%7.)KCF2KJTX6I(Z=''RTD-<????????EA(RC DAH3AJU>&6&9*K\WQ''Z&!!.=:$RMBW?????????N%%\C LUQD9 ,?.Y
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	716	(HM6!!''-3[LC0^E%_#O??????????????!!@=AS&UX9N.Y''G:Q!!W6,?]"L?????????????????4,4J#INZUZX9/.;)):(8_+0/:6D??????????????<)GPDC
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	717	D4Y U''>N2?S<?_+&[\N?-Z6I????????????FPD)??<GE$%Z[7U7 (6_T"_??;>?-Z6L????????????Q?????<AE31TXFAZRRPM?????;2<.J6R????????
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	718	??????????< BB,3NBXQM????????;</=L????????????????????NRDXUU???????????;#X<[W??????????????????????????????????????;WR
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	719	?????????????????????????????????????????????0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	720	@@@@@@@@@@@@') ; colorMapFromArray:#[0 1 0 0 2 0 1 4 0 3 6 2 30 1 0 6 9 5 34 2 2 10 12 8 43 4 2 13 15 12 15 17 13 77 0 0 16 18 15 35 14 12 17 19 16 67 6 1 19 20 18 75 7 10 21 23 20 86 9 4 25 27 24 111 4 7 103 7 10 96 10 12 32 29 28 29 30 28 31 33 30 153 2 0 33 35 33 35 36 34 110 16 16 173 0 1 36 38 35 41 37 36 165 4 0 155 7 7 128 15 14 39 41 39 157 12 16 51 42 42 207 0 4 43 45 42 58 41 39 141 19 15 199 4 0 210 3 0 221 1 4 48 49 47 231 0 12 211 7 8 172 19 10 172 19 18 52 54 51 53 55 53 234 5 23 59 54 53 176 24 21 56 57 55 57 59 56 204 19 22 195 22 24 103 47 48 227 16 9 60 61 59 198 25 19 216 20 21 61 63 60 119 48 45 228 20 20 63 65 62 211 30 27 68 69 67 69 71 68 212 32 34 242 25 29 72 74 71 74 76 74 191 45 50 245 31 38 76 78 75 77 79 76 79 80 78 138 66 66 248 36 40 240 41 43 83 85 82 216 50 52 241 43 50 195 58 61 86 88 85 244 46 46 87 89 86 89 91 88 214 58 58 193 65 67 92 93 91 248 51 49 109 90 87 185 68 87 194 67 80 87 95 125 250 54 57 173 74 96 202 67 84 159 78 103 253 56 52 188 72 90 87 99 135 129 89 121 99 101 98 73 104 148 255 59 60 159 83 106 175 81 94 94 102 132 187 78 98 215 71 85 255 61 67 169 84 104 251 66 66 104 106 103 90 106 147 151 92 119 200 81 93 107 108 106 140 99 131 162 94 119 255 72 76 144 100 128 96 112 153 228 80 83 159 97 120 111 113 110 191 90 111 206 87 104 113 115 112 87 118 163 115 117 114 83 122 166 179 100 117 118 120 117 199 99 101 231 91 88 138 113 147 120 122 119 196 101 119 123 125 122 115 123 167 213 100 113 119 123 162 180 109 128 127 129 126 208 108 109 115 131 173 185 115 140 158 122 154 173 119 144 131 133 130 130 130 163 178 122 124 181 119 147 106 139 178 136 138 135 120 139 175 126 138 175 204 121 132 132 139 172 113 146 186 136 143 176 144 146 143 121 149 184 153 142 173 135 150 181 148 150 147 125 153 188 130 153 182 179 140 167 150 152 149 205 136 148 181 145 146 136 159 189 155 157 154 140 163 193 159 161 158 161 163 160 143 166 196 162 164 161 148 167 192 164 166 163 165 165 187 197 159 173 167 169 166 152 171 196 191 163 180 157 172 191 169 171 168 216 159 166 171 173 170 208 163 179 187 169 190 217 162 175 174 176 173 159 178 203 186 173 174 207 167 175 163 178 198 213 166 176 179 181 178 198 176 192 169 185 204 183 185 182 216 175 184 209 177 189 212 180 192 204 183 198 208 183 193 188 190 187 180 192 206 194 196 193 215 191 201 187 199 213 204 198 197 211 196 210 199 201 198 190 202 216 191 203 217 201 202 212 202 204 201 208 203 201 219 201 210 205 207 203 217 203 217 206 208 205 213 207 206 223 205 214 203 211 220 211 213 210 211 212 222 214 216 213 221 215 227 217 219 216 219 221 218 228 218 224 217 222 225 221 223 220 231 221 227 216 225 233 220 226 228 224 226 223 221 229 238 231 233 230 228 234 236 233 235 232 235 238 234 249 251 248 255 255 255]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	721	@@@@@@@@D@@@NC @@A 8@@@\L@@@CC@@@@Y0@@@G8@@@C? @AA?<H@8??G@G???0@???8@G??8@@??>@C???>A???? O???0@O??0@C??<@O???8G???>@??
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	722	?? @???@@_??8@O???@GO?38@!!?8_@@O<C8@@>@^@@@@C@@@@@@b') ; yourself); yourself]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	723	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	724
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	725	!Image methodsFor:'inspecting'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	726
10807 4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	727	inspector2TabImage
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	728
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	729	^self newInspector2Tab
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	730	label: 'Image';
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	731	priority: 50;
10839 bcd731f66877 image inspector scrollable Claus Gittinger <cg@exept.de> parents: 10816 diff changeset	732	view: ((HVScrollableView for:ImageView) image: self; yourself)
10807 4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	733
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	734	"Created: / 11-10-2011 / 17:12:01 / cg"
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	735	! !
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	736
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	737	!Image methodsFor:'inspecting'!
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	738
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	739	inspector2Tabs
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	740	^ #( inspector2TabForBasicInspect inspector2TabImage )
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	741
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	742	"Created: / 11-10-2011 / 17:11:21 / cg"
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	743	! !
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	744
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	745	!Image methodsFor:'inspecting'!
4eddbcaaa085 x Claus Gittinger <cg@exept.de> parents: 10795 diff changeset	746
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	747	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	748	"redefined to launch an ImageInspector
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	749	(instead of the default InspectorView)."
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	750
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	751	(width notNil and:[height notNil]) ifTrue:[
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	752	^ ImageInspectorView
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	753	].
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	754	^ super inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	755
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	756	"Modified: 10.6.1996 / 18:23:55 / cg"
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	757	! !
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	758
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	759	!Integer methodsFor:'inspecting'!
792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	760
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	761	inspectorExtraAttributes
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	762	"extra (pseudo instvar) entries to be shown in an inspector."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	763
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	764	^ Dictionary new
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	765	declareAllNewFrom:(super inspectorExtraAttributes ? #());
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	766	add:'-hexadecimal' -> [ self radixPrintStringRadix:16 ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	767	add:'-octal' -> [ self radixPrintStringRadix:8 ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	768	add:'-binary' -> [ self radixPrintStringRadix:2 ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	769	yourself
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	770
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	771	"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	772	123 inspect
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	773	"
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	774
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	775	"Created: / 18-09-2006 / 21:22:46 / cg"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	776	"Modified: / 06-10-2006 / 13:57:28 / cg"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	777	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	778
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	779	!MenuView methodsFor:'accessing-behavior'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	780
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	781	shortKeys
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	782	^ shortKeys
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	783
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	784	"Created: / 18-10-2008 / 19:16:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	785	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	786
8839 792607726eb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8838 diff changeset	787	!Method methodsFor:'inspecting'!
7735 a85329ee3b3a todo notification Claus Gittinger <cg@exept.de> parents: 7703 diff changeset	788
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	789	inspectorExtraAttributes
8677 0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	790	"extra (pseudo instvar) entries to be shown in an inspector."
0846c7bf4817 commen Claus Gittinger <cg@exept.de> parents: 8417 diff changeset	791
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	792	^ Dictionary new
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	793	declareAllNewFrom:(super inspectorExtraAttributes ? #());
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	794	add:'-code' -> [ String streamContents:[:s \| self decompileTo:s] ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	795	add:'-source' -> [ self source ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	796	yourself
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	797
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	798	"
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	799	(Method compiledMethodAt:#inspectorExtraAttributes) inspect
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	800	"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	801
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	802	"Created: / 18-09-2006 / 21:34:01 / cg"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	803	"Modified: / 06-10-2006 / 13:57:33 / cg"
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	804	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	805
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	806	!Method methodsFor:'printing & storing'!
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	807
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	808	printStringForBrowserWithSelector:selector inClass:aClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	809	"return a printString to represent myself to the user in a browser.
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	810	Defined here to allow for browsers to deal with nonStandard pseudoMethods"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	811
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	812	\|s privInfo moreInfo p info n cls ns currentChangeSet isInChangeSet mthdPackage
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	813	userPreferences shownSelector suppressPackage timeRounded\|
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	814
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	815	moreInfo := ''.
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	816	privInfo := ''.
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	817	userPreferences := UserPreferences current.
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	818
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	819	ns := self nameSpace.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	820	(ns notNil and:[ns isNameSpace]) ifTrue:[
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	821	moreInfo := moreInfo ,
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	822	((' < %1 >' bindWith: ns name) asText emphasisAllAdd:
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	823	userPreferences emphasisForNamespacedCode)
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	824
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	825	].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	826
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	827	self isWrapped ifTrue:[
8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	828	(MessageTracer isCounting:self) ifTrue:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	829	(MessageTracer isCountingMemoryUsage:self) ifTrue:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	830	moreInfo := moreInfo , (' (mem usage avg: %1 bytes)' bindWith:(MessageTracer memoryUsageOfMethod:self) printString allBold).
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	831	] ifFalse:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	832	moreInfo := moreInfo , (' (called %1 times)' bindWith:(MessageTracer executionCountOfMethod:self) printString allBold).
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	833	]
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	834	] ifFalse:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	835	(MessageTracer isTiming:self) ifTrue:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	836	info := MessageTracer executionTimesOfMethod:self.
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	837	((n := info count) == 0) ifTrue:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	838	moreInfo := moreInfo , (' (cnt: %1)' bindWith:n)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	839	] ifFalse:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	840	timeRounded := [:millis \|
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	841	\|rnd\|
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	842	rnd := (millis > 100)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	843	ifTrue:[ 1 ]
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	844	ifFalse:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	845	(millis > 10)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	846	ifTrue:[ 0.1 ]
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	847	ifFalse:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	848	(millis > 1)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	849	ifTrue:[ 0.01 ]
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	850	ifFalse:[ 0.001 ]]].
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	851	millis roundTo:rnd
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	852	].
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	853
8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	854	(n == 1 or:[ info avgTimeRounded = info minTimeRounded ]) ifTrue:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	855	moreInfo := moreInfo ,
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	856	(' (t: %1ms cnt: %2)'
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	857	bindWith:((timeRounded value:info avgTimeRounded) printString allBold)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	858	with:n)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	859	] ifFalse:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	860	moreInfo := moreInfo ,
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	861	(' (avg: %1ms min: %2 max: %3 cnt: %4)'
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	862	bindWith:((timeRounded value:info avgTimeRounded) printString allBold)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	863	with:((timeRounded value:info minTimeRounded) printString)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	864	with:((timeRounded value:info maxTimeRounded) printString)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	865	with:n)
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	866	].
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	867	].
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	868	] ifFalse:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	869	moreInfo := ' !!'
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	870	]
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	871	].
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	872	].
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	873	p := self privacy.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	874
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	875	p ~~ #public ifTrue:[
9050 b9df3c89888d comment/format in: #colorizeAllWith:on: Claus Gittinger <cg@exept.de> parents: 8970 diff changeset	876	privInfo := (' (* ' , p , ' *)') allItalic.
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	877	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	878
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	879	"/ self isInvalid ifTrue:[
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	880	"/ moreInfo := ' ( not executable )'.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	881	"/ ].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	882
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	883	(self isLazyMethod not and:[self isUnloaded]) ifTrue:[
8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	884	moreInfo := ' ( unloaded )'
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	885	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	886
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	887	privInfo size ~~ 0 ifTrue:[
8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	888	moreInfo := privInfo , ' ' , moreInfo
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	889	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	890
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	891	s := shownSelector := (self selectorPrintStringInBrowserFor:selector class:aClass).
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	892
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	893	(cls := aClass) isNil ifTrue:[
8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	894	cls := self containingClass
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	895	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	896
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	897	currentChangeSet := ChangeSet current.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	898	isInChangeSet := currentChangeSet includesChangeForClass:cls selector:selector.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	899
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	900	isInChangeSet ifTrue:[
8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	901	s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode)
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	902	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	903
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	904	(cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	905	suppressPackage := false.
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	906	mthdPackage = PackageId noProjectID ifTrue:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	907	mthdPackage := '+'.
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	908	"/ suppressPackage := true
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	909	].
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	910	suppressPackage ifFalse:[
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	911	p := ' [' , (mthdPackage ? '?') allItalic , '] '.
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	912	p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	913	s := s , ' ' , p
7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	914	].
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	915	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	916
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	917	moreInfo size == 0 ifTrue:[^ s].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	918
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	919	s := shownSelector , moreInfo.
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	920
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	921	self isInvalid ifTrue:[
8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	922	s := s asText emphasizeAllWith:(userPreferences emphasisForObsoleteCode).
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	923	].
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	924	^ s
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	925
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	926	"Modified: / 23-01-1998 / 13:15:15 / stefan"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	927	"Created: / 05-02-2000 / 22:55:56 / cg"
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	928	"Modified: / 05-03-2007 / 16:18:53 / cg"
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	929	"Modified: / 20-07-2010 / 15:39:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	930	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	931
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	932	!Method methodsFor:'printing & storing'!
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	933
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	934	selectorPrintStringInBrowserFor:selector
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	935	^ selector
7735 a85329ee3b3a todo notification Claus Gittinger <cg@exept.de> parents: 7703 diff changeset	936	! !
a85329ee3b3a todo notification Claus Gittinger <cg@exept.de> parents: 7703 diff changeset	937
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	938	!Method methodsFor:'printing & storing'!
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	939
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	940	selectorPrintStringInBrowserFor:selector class:aClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	941	\|nsPart selPart idx ns\|
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	942
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	943	selector isNameSpaceSelector ifFalse:[^ selector].
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	944
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	945	idx := selector indexOf:$: startingAt:3.
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	946	"
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	947	nsPart := selector copyFrom:2 to:idx-1.
cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	948	ns := Smalltalk at:nsPart asSymbol.
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	949	"
7703 cfa8b91be77b * empty log message * Claus Gittinger <cg@exept.de> parents: 7657 diff changeset	950	selPart := selector copyFrom:idx+2.
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	951	^ selPart ", ' {',nsPart,'}'."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	952
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	953	"Modified: / 20-07-2010 / 10:33:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	954	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	955
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	956	!MethodDictionary methodsFor:'inspecting'!
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	957
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	958	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	959	"redefined to use DictionaryInspector
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	960	(instead of the default Inspector)."
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	961
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	962	^ DictionaryInspectorView
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	963
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	964	"Created: 12.6.1996 / 12:29:13 / stefan"
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	965	! !
efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	966
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	967	!NameSpace class methodsFor:'inspecting'!
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	968
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	969	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	970	"{ Pragma: +optSpace }"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	971
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	972	"redefined to launch a DictionaryInspector
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	973	(instead of the default Inspector)."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	974
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	975	^ DictionaryInspectorView
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	976
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	977
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	978	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	979
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	980	!Object methodsFor:'debugging'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	981
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	982	inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	983	"{ Pragma: +optSpace }"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	984
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	985	"launch an inspector on the receiver.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	986	this method (or better: inspectorClass) can be redefined in subclasses
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	987	to start special inspectors."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	988
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	989	\|cls\|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	990
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	991	cls := (Smalltalk classNamed: #'Tools::Inspector2')
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	992	ifNil:[self inspectorClass].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	993
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	994	cls isNil ifTrue:[
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	995	^ self basicInspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	996	].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	997	cls openOn:self
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	998
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	999	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1000	Object new inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1001	(1 @ 2) inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1002	Smalltalk inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1003	#(1 2 3) asOrderedCollection inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1004	(Color red) inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1005	(Image fromFile:'bitmaps/garfield.gif') inspect
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1006	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1007	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1008
10702 90cc3aeccac5 inspector2: for consistency: the object view is always the first tab Claus Gittinger <cg@exept.de> parents: 10700 diff changeset	1009	!Object methodsFor:'inspecting'!
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1010
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1011	inspector2TabCommon
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1012	"a tab, showing the old inspector"
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1013
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1014	^ self inspector2TabForInspectorClass
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1015
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1016	"Created: / 24-05-2011 / 14:56:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1017	"Modified: / 05-07-2011 / 14:06:28 / cg"
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1018	! !
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1019
10702 90cc3aeccac5 inspector2: for consistency: the object view is always the first tab Claus Gittinger <cg@exept.de> parents: 10700 diff changeset	1020	!Object methodsFor:'inspecting'!
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1021
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1022	inspector2TabForBasicInspect
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1023	"a tab, showing the old basic inspector"
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1024
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1025	^ Tools::Inspector2Tab new
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1026	priority: 40;
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1027	label:'Basic';
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1028	view: (Inspector new inspect:self);
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1029	yourself
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1030
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1031	"Created: / 05-07-2011 / 13:59:59 / cg"
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1032	! !
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1033
10702 90cc3aeccac5 inspector2: for consistency: the object view is always the first tab Claus Gittinger <cg@exept.de> parents: 10700 diff changeset	1034	!Object methodsFor:'inspecting'!
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1035
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1036	inspector2TabForInspectorClass
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1037	"a tab, showing the old inspector"
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1038
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1039	^ Tools::Inspector2Tab new
10702 90cc3aeccac5 inspector2: for consistency: the object view is always the first tab Claus Gittinger <cg@exept.de> parents: 10700 diff changeset	1040	priority: 100;
10316 11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1041	label:(self inspector2TabLabel);
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1042	view: (self inspectorClass new inspect:self);
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1043	yourself
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1044
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1045	"Created: / 05-07-2011 / 14:06:16 / cg"
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1046	! !
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1047
10702 90cc3aeccac5 inspector2: for consistency: the object view is always the first tab Claus Gittinger <cg@exept.de> parents: 10700 diff changeset	1048	!Object methodsFor:'inspecting'!
10316 11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1049
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1050	inspector2TabLabel
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1051	"label of the main tab"
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1052
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1053	^ 'Object'
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1054
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1055	"Created: / 14-07-2011 / 11:56:23 / cg"
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1056	! !
11e7bcf8838c inspector label Claus Gittinger <cg@exept.de> parents: 10315 diff changeset	1057
10313 a2f4e3f74efe category Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	1058	!Object methodsFor:'inspecting'!
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1059
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1060	inspector2Tabs
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1061	self inspectorClass ~~ Inspector ifTrue:[
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1062	^ #( inspector2TabCommon inspector2TabForBasicInspect )
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1063	].
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1064
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1065	^ #( inspector2TabCommon )
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1066
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1067	"Created: / 05-07-2011 / 13:39:24 / cg"
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1068	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1069
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1070	!Object methodsFor:'debugging'!
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1071
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1072	inspectorExtraAttributes
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1073	"extra (pseudo instvar) entries to be shown in an inspector.
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1074	Answers a dictionary of aString -> aBlock.
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1075	aString is name of extra attribute and MUST start with minus ($-).
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1076	aBlock returns the object representing extra attribute."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1077
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1078	^Dictionary new
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1079
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1080	" Try to uncomment following and inspect any object "
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1081
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1082	"/ ^Dictionary new
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1083	"/ add:'-test' -> ['TEST TEST'];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1084	"/ yourself
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1085
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1086	"Created: / 16-08-2005 / 20:43:33 / janfrog"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1087	"Modified: / 02-09-2005 / 19:00:01 / janfrog"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1088	"Modified: / 04-10-2006 / 14:33:34 / cg"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1089	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1090
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1091	!Object methodsFor:'testing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1092
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1093	isTestCaseLike
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1094
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1095	^false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1096
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1097	"Created: / 28-02-2011 / 21:30:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1098	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1099
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1100	!Object methodsFor:'debugging'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1101
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1102	newInspector2Tab
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1103
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1104	"Use Smalltalk>>at: to trick the dependency detector"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1105
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1106	^(Smalltalk at: #'Tools::Inspector2Tab')
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1107	ifNil:[self error:'Inspector2 not available!! Something is rotten...']
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1108	ifNotNil:[(Smalltalk at: #'Tools::Inspector2Tab') new]
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1109	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1110
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1111	!OrderedCollection methodsFor:'inspecting'!
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1112
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1113	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1114	"redefined to launch an OrderedCollectionInspector
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1115	(instead of the default InspectorView)."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1116
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1117	^ OrderedCollectionInspectorView
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1118
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1119	"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1120	(OrderedCollection withAll:#(3 2 1)) inspect
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1121	(OrderedCollection withAll:#(3 2 1)) removeFirst; yourself; inspect
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1122	#(0 8 15 3 99 2) asSortedCollection inspect
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1123	"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1124	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1125
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1126	!PopUpMenu methodsFor:'converting'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1127
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1128	asMenu
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1129
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1130	\| menu \|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1131	menu := Menu new receiver: menuView receiver.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1132	1 to: self numberOfItems do:
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1133	[:i\| \| menuItem \|
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1134	menuItem := MenuItem new
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1135	label: (self labels at: i);
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1136	value: (menuView selectors at: i);
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1137	enabled: (menuView isEnabled: i);
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1138	shortcutKey: (menuView shortKeys at: i);
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1139	yourself.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1140
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1141	(self subMenuAt: i) ifNotNil:
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1142	[menuItem submenu: (self subMenuAt: i) asMenu].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1143	menu addItem: menuItem.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1144	].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1145	^menu.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1146
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1147	"Created: / 18-10-2008 / 19:01:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1148	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1149
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1150	!ProfileTree methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1151
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1152	method
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1153
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1154	class ifNil:[^nil].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1155	^class >> selector
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1156
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1157	"Created: / 01-12-2007 / 22:50:16 / janfrog"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1158	"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1159	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1160
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1161	!ProfileTree methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1162
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1163	package
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1164
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1165	self method ifNil:[^nil].
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1166	^self method package
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1167
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1168	"Created: / 01-12-2007 / 22:50:28 / janfrog"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1169	"Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1170	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1171
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1172	!RunArray methodsFor:'user interface'!
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1173
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1174	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1175	"Re-reimplemented so that we don't get an ordered collection inspector
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1176	which would get very confused when confronted with a runArray."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1177
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1178	^ InspectorView
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1179
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1180	"Modified: / 30.10.1997 / 14:28:20 / cg"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1181	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1182
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1183	!SelectionInListModelView methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1184
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1185	textStartLeft
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1186	^ textStartLeft
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1187	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1188
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1189	!SelectionInListModelView methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1190
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1191	textStartLeft:something
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1192	textStartLeft := something.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1193	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1194
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1195	!Set methodsFor:'inspecting'!
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1196
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1197	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1198	"redefined to use SetInspector
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1199	(instead of the default Inspector)."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1200
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1201	^ SetInspectorView
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1202	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1203
10724 b0d5a37decd9 category of: #isCodeView2 Claus Gittinger <cg@exept.de> parents: 10702 diff changeset	1204	!SimpleView methodsFor:'testing'!
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1205
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1206	isCodeView2
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1207
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1208	^ false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1209
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1210	"Created: / 20-07-2010 / 15:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9673 c590ef71ca2a sharedpool inspector Claus Gittinger <cg@exept.de> parents: 9324 diff changeset	1211	! !
c590ef71ca2a sharedpool inspector Claus Gittinger <cg@exept.de> parents: 9324 diff changeset	1212
7754 7c76e5708dfa oops - got corrupted Claus Gittinger <cg@exept.de> parents: 7753 diff changeset	1213	!Smalltalk class methodsFor:'inspecting'!
7c76e5708dfa oops - got corrupted Claus Gittinger <cg@exept.de> parents: 7753 diff changeset	1214
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1215	inspectorClass
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1216	"{ Pragma: +optSpace }"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1217
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1218	"redefined to launch a DictionaryInspector (instead of the default Inspector)."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1219
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1220	^ DictionaryInspectorView
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1221	! !
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1222
10313 a2f4e3f74efe category Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	1223	!StringCollection methodsFor:'inspecting'!
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1224
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1225	inspector2TabText
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1226
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1227	^self newInspector2Tab
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1228	label: 'String';
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1229	priority: 25;
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1230	view: ((ScrollableView for:TextView) contents: self asString; yourself)
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1231
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1232	"Created: / 17-02-2008 / 10:13:07 / janfrog"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1233	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1234
10313 a2f4e3f74efe category Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	1235	!StringCollection methodsFor:'inspecting'!
10164 0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1236
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1237	inspector2Tabs
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1238	^ #(inspector2TabCommon inspector2TabText )
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1239
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1240	"Created: / 05-07-2011 / 13:40:43 / cg"
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1241	! !
0a7e3e312a89 changed: #inspect: Claus Gittinger <cg@exept.de> parents: 10120 diff changeset	1242
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1243	!Symbol methodsFor:'accessing'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1244
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1245	formattedCode
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1246
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1247	"Used by CodeGenerator"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1248
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1249	^self
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1250
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1251	"Created: / 07-07-2009 / 20:03:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1252	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1253
10313 a2f4e3f74efe category Claus Gittinger <cg@exept.de> parents: 10310 diff changeset	1254	!Text methodsFor:'inspecting'!
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1255
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1256	inspector2TabText
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1257
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1258	^self newInspector2Tab
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1259	label: 'Text';
10637 1114ddcf69f7 variable renamed in: #inspector2TabBytes Claus Gittinger <cg@exept.de> parents: 10527 diff changeset	1260	priority: 50;
1114ddcf69f7 variable renamed in: #inspector2TabBytes Claus Gittinger <cg@exept.de> parents: 10527 diff changeset	1261	view: ((ScrollableView for:EditTextView) contents: self; yourself)
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1262
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1263	"Created: / 17-02-2008 / 09:03:36 / janfrog"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1264	"Modified: / 17-02-2008 / 10:28:33 / janfrog"
10637 1114ddcf69f7 variable renamed in: #inspector2TabBytes Claus Gittinger <cg@exept.de> parents: 10527 diff changeset	1265	"Modified: / 21-08-2011 / 08:02:46 / cg"
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1266	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1267
7754 7c76e5708dfa oops - got corrupted Claus Gittinger <cg@exept.de> parents: 7753 diff changeset	1268	!Text methodsFor:'inspecting'!
7c76e5708dfa oops - got corrupted Claus Gittinger <cg@exept.de> parents: 7753 diff changeset	1269
8843 0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1270	inspectorExtraAttributes
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1271	"extra (pseudo instvar) entries to be shown in an inspector."
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1272
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1273	^ Dictionary new
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1274	declareAllNewFrom:(super inspectorExtraAttributes ? #());
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1275	add:'-text' -> [ self ];
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1276	yourself
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1277
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1278	"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1279	'hello' allBold inspect
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1280	"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1281
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1282	"Created: / 18-09-2006 / 21:25:52 / cg"
0a0c82b2f7c7 oops Claus Gittinger <cg@exept.de> parents: 8839 diff changeset	1283	"Modified: / 06-10-2006 / 13:57:38 / cg"
7299 efa954fda5c1 inspector code now as extension Claus Gittinger <cg@exept.de> parents: 7298 diff changeset	1284	! !
8918 230356e1b722 * empty log message * Claus Gittinger <cg@exept.de> parents: 8844 diff changeset	1285
9691 312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1286	!Timestamp methodsFor:'inspecting'!
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1287
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1288	inspectorExtraAttributes
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1289	"extra (pseudo instvar) entries to be shown in an inspector."
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1290
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1291	^ Dictionary new
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1292	declareAllNewFrom:(super inspectorExtraAttributes ? #());
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1293	add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self asDate dayOfWeekName , '"' ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1294	add:'-dayInYear' -> [ self dayInYear ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1295	add:'-daysInMonth' -> [ self asDate daysInMonth ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1296	add:'-monthName' -> [ self asDate monthName ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1297	add:'-leapYear' -> [ self asDate isLeapYear ];
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1298	yourself
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1299
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1300	"
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1301	Timestamp now inspect
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1302	"
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1303
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1304	"Created: / 20-01-2011 / 12:19:05 / cg"
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1305	! !
312706640f5c better date and timestamp inspecting Claus Gittinger <cg@exept.de> parents: 9673 diff changeset	1306
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1307	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1308
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1309	alwaysOpenNewTabWhenCtrlClick
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1310
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1311	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1312	UserPreferences current alwaysOpenNewTabWhenCtrlClick
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1313	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1314
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1315
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1316	^ self at:#alwaysOpenNewTabWhenCtrlClick ifAbsent:false.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1317
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1318	"Created: / 19-10-2008 / 08:00:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1319	"Modified: / 14-02-2010 / 19:37:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1320	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1321
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1322	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1323
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1324	alwaysOpenNewTabWhenCtrlClick: aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1325
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1326	self at:#alwaysOpenNewTabWhenCtrlClick put: aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1327
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1328	"Created: / 19-10-2008 / 08:01:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1329	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1330
10525 4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1331	!UserPreferences methodsFor:'accessing-prefs-code view'!
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1332
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1333	codeView2AutoIndent
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1334
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1335	^self at:#codeView2AutoIndent ifAbsent: false
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1336
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1337	"
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1338	UserPreferences current codeView2AutoIndent
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1339	UserPreferences current codeView2AutoIndent:true
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1340	UserPreferences current codeView2AutoIndent:false"
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1341
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1342	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1343	"Created: / 07-08-2011 / 12:46:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1344	! !
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1345
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1346	!UserPreferences methodsFor:'accessing-prefs-code view'!
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1347
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1348	codeView2AutoIndent: aBoolean
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1349
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1350	^self at:#codeView2AutoIndent put: aBoolean
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1351
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1352	"
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1353	UserPreferences current codeView2AutoIndent
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1354	UserPreferences current codeView2AutoIndent:true
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1355	UserPreferences current codeView2AutoIndent:false"
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1356
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1357	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1358	"Created: / 07-08-2011 / 12:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1359	! !
4114204ee980 Added preference for auto indent in CodeView vrany parents: 10522 diff changeset	1360
10795 6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1361	!UserPreferences methodsFor:'accessing-prefs-code view'!
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1362
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1363	codeView2ShowAcceptCancel
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1364
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1365	^self at:#codeView2ShowAcceptCancel ifAbsent: false
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1366
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1367	"
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1368	UserPreferences current codeView2ShowAcceptCancel
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1369	UserPreferences current codeView2ShowAcceptCancel:true
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1370	UserPreferences current codeView2ShowAcceptCancel:false"
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1371
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1372	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1373	"Created: / 10-10-2011 / 16:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1374	! !
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1375
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1376	!UserPreferences methodsFor:'accessing-prefs-code view'!
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1377
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1378	codeView2ShowAcceptCancel: aBoolean
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1379
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1380	^self at:#codeView2ShowAcceptCancel put: aBoolean
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1381
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1382	"
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1383	UserPreferences current codeView2ShowAcceptCancel
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1384	UserPreferences current codeView2ShowAcceptCancel:true
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1385	UserPreferences current codeView2ShowAcceptCancel:false"
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1386
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1387	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1388	"Created: / 10-10-2011 / 16:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1389	! !
6f44639ec301 Added user preference to control default accept/cancel bar visibility vrany parents: 10779 diff changeset	1390
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1391	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1392
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1393	showBookmarkBar
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1394	"experimental."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1395
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1396	^ self at:#showBookmarkBar ifAbsent: true.
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1397
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1398	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1399	UserPreferences current showBookmarkBar
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1400	UserPreferences current showBookmarkBar:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1401	UserPreferences current showBookmarkBar:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1402	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1403
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1404	"Created: / 18-05-2011 / 16:48:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1405	"Modified: / 03-06-2011 / 11:01:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1406	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1407
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1408	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1409
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1410	showBookmarkBar: aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1411	"experimental."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1412
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1413	^ self at:#showBookmarkBar put: aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1414
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1415	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1416	UserPreferences current showBookmarkBar
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1417	UserPreferences current showBookmarkBar:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1418	UserPreferences current showBookmarkBar:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1419	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1420
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1421	"Created: / 18-05-2011 / 17:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1422	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1423
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1424	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1425
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1426	showEmbeddedTestRunnerInBrowser
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1427	"experimental."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1428
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1429	^ self at:#showEmbeddedTestRunnerInBrowser ifAbsent:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1430
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1431	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1432	UserPreferences current showEmbeddedTestRunnerInBrowser
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1433	UserPreferences current showEmbeddedTestRunnerInBrowser:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1434	UserPreferences current showEmbeddedTestRunnerInBrowser:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1435	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1436
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1437	"Created: / 11-03-2010 / 10:11:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1438	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1439
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1440	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1441
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1442	showEmbeddedTestRunnerInBrowser:aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1443	"experimental."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1444
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1445	^ self at:#showEmbeddedTestRunnerInBrowser put:aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1446
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1447	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1448	UserPreferences current showEmbeddedTestRunnerInBrowser:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1449	UserPreferences current showEmbeddedTestRunnerInBrowser:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1450	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1451
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1452	"Created: / 11-03-2010 / 10:11:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1453	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1454
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1455	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1456
10240 d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1457	showGlobalHistory
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1458	"Whether to show global historu in the browser"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1459
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1460	^ self at:#showGlobalHistory ifAbsent: true.
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1461
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1462	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1463	UserPreferences current showGlobalHistory
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1464	UserPreferences current showGlobalHistory:true
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1465	UserPreferences current showGlobalHistory:false
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1466	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1467
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1468	"Created: / 07-07-2011 / 00:03:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1469	! !
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1470
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1471	!UserPreferences methodsFor:'accessing-prefs-browser'!
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1472
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1473	showGlobalHistory: aBoolean
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1474
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1475	"Whether to show global historu in the browser"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1476
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1477	^ self at:#showGlobalHistory put: aBoolean
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1478
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1479	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1480	UserPreferences current showGlobalHistory
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1481	UserPreferences current showGlobalHistory:true
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1482	UserPreferences current showGlobalHistory:false
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1483	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1484
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1485	"Created: / 07-07-2011 / 00:02:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1486	! !
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1487
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1488	!UserPreferences methodsFor:'accessing-prefs-browser'!
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1489
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1490	showLocalHistory
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1491	"Whether to show local (per tab) historu in
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1492	browser"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1493
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1494	^ self at:#showLocalHistory ifAbsent: true.
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1495
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1496	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1497	UserPreferences current showLocalHistory
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1498	UserPreferences current showLocalHistory:true
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1499	UserPreferences current showLocalHistory:false
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1500	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1501
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1502	"Created: / 07-07-2011 / 00:02:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1503	! !
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1504
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1505	!UserPreferences methodsFor:'accessing-prefs-browser'!
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1506
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1507	showLocalHistory: aBoolean
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1508	"Whether to show local (per tab) historu in
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1509	browser"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1510
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1511	^ self at:#showLocalHistory put: aBoolean
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1512
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1513	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1514	UserPreferences current showLocalHistory
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1515	UserPreferences current showLocalHistory:true
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1516	UserPreferences current showLocalHistory:false
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1517	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1518
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1519	"Created: / 07-07-2011 / 00:02:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1520	! !
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1521
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1522	!UserPreferences methodsFor:'accessing-prefs-browser'!
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1523
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1524	showMethodTemplate
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1525	"experimental."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1526
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1527	^ self at:#showMethodTemplate ifAbsent:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1528
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1529	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1530	UserPreferences current showMethodTemplate
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1531	UserPreferences current showMethodTemplate:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1532	UserPreferences current showMethodTemplate:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1533	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1534
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1535	"Created: / 12-02-2010 / 12:06:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1536	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1537
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1538	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1539
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1540	showMethodTemplate:aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1541	"experimental."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1542
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1543	^ self at:#showMethodTemplate put:aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1544
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1545	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1546	UserPreferences current showMethodTemplate:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1547	UserPreferences current showMethodTemplate:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1548	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1549
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1550	"Created: / 12-02-2010 / 12:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1551	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1552
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1553	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1554
10240 d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1555	sortAndIndentClassesByInheritance
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1556
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1557	^ self at:#sortAndIndentClassesByInheritance ifAbsent: false
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1558
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1559	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1560	UserPreferences current sortAndIndentClassesByInheritance
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1561	UserPreferences current sortAndIndentClassesByInheritance:true
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1562	UserPreferences current sortAndIndentClassesByInheritance:false
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1563	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1564
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1565	"Created: / 06-07-2011 / 19:09:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1566	! !
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1567
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1568	!UserPreferences methodsFor:'accessing-prefs-browser'!
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1569
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1570	sortAndIndentClassesByInheritance: aBoolean
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1571
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1572	^ self at:#sortAndIndentClassesByInheritance put: aBoolean
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1573
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1574	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1575	UserPreferences current sortAndIndentClassesByInheritance
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1576	UserPreferences current sortAndIndentClassesByInheritance:true
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1577	UserPreferences current sortAndIndentClassesByInheritance:false
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1578	"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1579
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1580	"Created: / 06-07-2011 / 19:09:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1581	! !
d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1582
10779 3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1583	!UserPreferences methodsFor:'accessing-prefs-browser'!
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1584
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1585	sourceCodeManagementMenuLayout
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1586
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1587	"Defines the layout of source code management menus in
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1588	NewSystemBrowser. Can be one of:
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1589	#old - old style as of 2011-10-06
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1590	#compact - only one Repository menu, SCM specific menus underneath
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1591	#inline - Repository and then SCM specific menus inlined
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1592	"
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1593
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1594	^ self at:#sourceCodeManagementMenuLayout ifAbsent: #old
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1595
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1596	"
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1597	UserPreferences current sourceCodeManagementMenuLayout
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1598	UserPreferences current sourceCodeManagementMenuLayout: #inline
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1599	UserPreferences current sourceCodeManagementMenuLayout: #compact
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1600	UserPreferences current sourceCodeManagementMenuLayout: #old
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1601	"
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1602
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1603	"Created: / 06-10-2011 / 18:42:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1604	! !
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1605
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1606	!UserPreferences methodsFor:'accessing-prefs-browser'!
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1607
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1608	sourceCodeManagementMenuLayout: aSymbol
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1609
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1610	"Defines the layout of source code management menus in
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1611	NewSystemBrowser. Can be one of:
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1612	#old - old style as of 2011-10-06
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1613	#compact - only one Repository menu, SCM specific menus underneath
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1614	#inline - Repository and then SCM specific menus inlined
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1615	"
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1616	self assert: (#(old compact inline) includes: aSymbol).
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1617
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1618	^ self at:#sourceCodeManagementMenuLayout put: aSymbol
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1619
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1620	"
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1621	UserPreferences current sourceCodeManagementMenuLayout
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1622	UserPreferences current sourceCodeManagementMenuLayout: #inline
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1623	UserPreferences current sourceCodeManagementMenuLayout: #compact
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1624	UserPreferences current sourceCodeManagementMenuLayout: #old
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1625	"
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1626
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1627	"Created: / 06-10-2011 / 18:44:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1628	! !
3b5e7e333de6 Added SCM menu layout preference vrany parents: 10749 diff changeset	1629
10399 d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1630	!UserPreferences methodsFor:'accessing-prefs-code view'!
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1631
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1632	useCodeView2In: appSymbol
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1633
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1634	^self useCodeView2InTools or:[self perform: ('useCodeView2In' , appSymbol) asSymbol].
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1635
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1636
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1637	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1638	UserPreferences current useCodeView2In: #Browser
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1639	UserPreferences current useCodeView2InBrowser:true
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1640	UserPreferences current useCodeView2InBrowser:false
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1641
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1642	UserPreferences current useCodeView2InTools:true
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1643	UserPreferences current useCodeView2InTools:false
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1644	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1645
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1646	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1647	"Created: / 26-07-2011 / 10:26:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1648	! !
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1649
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1650	!UserPreferences methodsFor:'accessing-prefs-code view'!
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1651
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1652	useCodeView2InBrowser
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1653
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1654	^self at:#useCodeView2InBrowser ifAbsent: false
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1655
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1656	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1657	UserPreferences current useCodeView2InBrowser
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1658	UserPreferences current useCodeView2InBrowser:true
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1659	UserPreferences current useCodeView2InBrowser:false"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1660
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1661	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1662	"Created: / 26-07-2011 / 10:22:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1663	! !
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1664
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1665	!UserPreferences methodsFor:'accessing-prefs-code view'!
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1666
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1667	useCodeView2InBrowser: aBoolean
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1668
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1669	^self at:#useCodeView2InBrowser put: aBoolean
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1670
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1671	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1672	UserPreferences current useCodeView2InBrowser
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1673	UserPreferences current useCodeView2InBrowser:true
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1674	UserPreferences current useCodeView2InBrowser:false"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1675
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1676	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1677	"Created: / 26-07-2011 / 10:21:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1678	! !
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1679
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1680	!UserPreferences methodsFor:'accessing-prefs-code view'!
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1681
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1682	useCodeView2InDebugger
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1683
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1684	^self at:#useCodeView2InDebugger ifAbsent: false
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1685
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1686	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1687	UserPreferences current useCodeView2InDebugger
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1688	UserPreferences current useCodeView2InDebugger:true
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1689	UserPreferences current useCodeView2InDebugger:false
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1690	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1691
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1692	"Created: / 26-07-2011 / 10:22:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1693	! !
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1694
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1695	!UserPreferences methodsFor:'accessing-prefs-code view'!
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1696
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1697	useCodeView2InDebugger: aBoolean
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1698
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1699	^self at:#useCodeView2InDebugger put: aBoolean
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1700
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1701	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1702	UserPreferences current useCodeView2InDebugger
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1703	UserPreferences current useCodeView2InDebugger:true
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1704	UserPreferences current useCodeView2InDebugger:false"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1705
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1706	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1707	"Created: / 26-07-2011 / 10:22:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1708	! !
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1709
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1710	!UserPreferences methodsFor:'accessing-prefs-code view'!
10240 d156bf8c53c7 Added methods to UserPreferences vrany parents: 10204 diff changeset	1711
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1712	useCodeView2InTools
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1713	^self at:#useCodeView2InTools ifAbsent:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1714
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1715	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1716	UserPreferences current useCodeView2InTools
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1717	UserPreferences current useCodeView2InTools:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1718	UserPreferences current useCodeView2InTools:false"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1719
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1720	"Created: / 12-02-2010 / 12:13:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1721	"Modified: / 15-02-2010 / 09:26:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1722	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1723
10399 d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1724	!UserPreferences methodsFor:'accessing-prefs-code view'!
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1725
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1726	useCodeView2InTools:aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1727	^self at:#useCodeView2InTools put:aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1728
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1729	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1730	UserPreferences current useCodeView2InBrowser:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1731	UserPreferences current useCodeView2InBrowser:false"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1732	"Created: / 12-02-2010 / 12:14:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1733	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1734
10399 d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1735	!UserPreferences methodsFor:'accessing-prefs-code view'!
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1736
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1737	useCodeView2InWorkspace
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1738
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1739	^self at:#useCodeView2InWorkspace ifAbsent: false
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1740
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1741	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1742	UserPreferences current useCodeView2InWorkspace
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1743	UserPreferences current useCodeView2InWorkspace:true
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1744	UserPreferences current useCodeView2InWorkspace:false
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1745	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1746
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1747	"Created: / 26-07-2011 / 10:23:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1748	! !
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1749
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1750	!UserPreferences methodsFor:'accessing-prefs-code view'!
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1751
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1752	useCodeView2InWorkspace: aBoolean
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1753
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1754	^self at:#useCodeView2InWorkspace put: aBoolean
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1755
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1756	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1757	UserPreferences current useCodeView2InWorkspace
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1758	UserPreferences current useCodeView2InWorkspace:true
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1759	UserPreferences current useCodeView2InWorkspace:false
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1760	"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1761
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1762	"Created: / 26-07-2011 / 10:22:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1763	! !
d8e5a8c0c162 - per-tool preference for CodeView2 vrany parents: 10393 diff changeset	1764
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1765	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1766
10417 f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1767	useInPlaceSearchInBrowserLists
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1768
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1769	^ self at:#useInPlaceSearchInBrowserLists ifAbsent: false
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1770
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1771	"
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1772	UserPreferences current useInPlaceSearchInBrowserLists
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1773	UserPreferences current useInPlaceSearchInBrowserLists:true
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1774	UserPreferences current useInPlaceSearchInBrowserLists:false
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1775	"
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1776
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1777	"Created: / 28-07-2011 / 09:34:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1778	! !
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1779
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1780	!UserPreferences methodsFor:'accessing-prefs-browser'!
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1781
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1782	useInPlaceSearchInBrowserLists: aBoolean
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1783
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1784	^ self at:#useInPlaceSearchInBrowserLists put: aBoolean
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1785
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1786	"
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1787	UserPreferences current useInPlaceSearchInBrowserLists
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1788	UserPreferences current useInPlaceSearchInBrowserLists:true
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1789	UserPreferences current useInPlaceSearchInBrowserLists:false
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1790	"
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1791
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1792	"Created: / 28-07-2011 / 09:35:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1793	! !
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1794
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1795	!UserPreferences methodsFor:'accessing-prefs-browser'!
f785ac3d937b Added preference for in-line search in browser lists vrany parents: 10399 diff changeset	1796
10051 5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1797	webBrowserLikeLayout
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1798	"experimental."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1799
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1800	^ self at:#webBrowserLikeLayout ifAbsent: false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1801
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1802	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1803	UserPreferences current webBrowserLikeLayout
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1804	UserPreferences current webBrowserLikeLayout:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1805	UserPreferences current webBrowserLikeLayout:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1806	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1807
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1808	"Created: / 07-06-2011 / 14:33:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1809	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1810
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1811	!UserPreferences methodsFor:'accessing-prefs-browser'!
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1812
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1813	webBrowserLikeLayout: aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1814	"experimental."
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1815
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1816	^ self at:#webBrowserLikeLayout put: aBoolean
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1817
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1818	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1819	UserPreferences current webBrowserLikeLayout
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1820	UserPreferences current webBrowserLikeLayout:true
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1821	UserPreferences current webBrowserLikeLayout:false
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1822	"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1823
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1824	"Created: / 07-06-2011 / 14:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1825	! !
5b7e30460ea4 support non-class based code completion Claus Gittinger <cg@exept.de> parents: 9691 diff changeset	1826
8919 e18fa0224d6e * empty log message * Claus Gittinger <cg@exept.de> parents: 8918 diff changeset	1827	!stx_libtool class methodsFor:'documentation'!
e18fa0224d6e * empty log message * Claus Gittinger <cg@exept.de> parents: 8918 diff changeset	1828
e18fa0224d6e * empty log message * Claus Gittinger <cg@exept.de> parents: 8918 diff changeset	1829	extensionsVersion_CVS
11222 225353236163 changed: #icon Claus Gittinger <cg@exept.de> parents: 10859 diff changeset	1830	^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.69 2012-01-27 13:11:48 cg Exp $'
8970 7b17f7901516 checkin from browser Claus Gittinger <cg@exept.de> parents: 8919 diff changeset	1831	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 27 Jan 2012 14:11:48 +0100
changeset 11222	225353236163
parent 10859	38ebf3f1299e
child 11263	e945a6ed6c3c
child 12123	4bde08cebd48
permissions	-rw-r--r--