hg/stx-libtool: Tools__LintHighlighter.st@a7ff7d66ee85 (annotated)

12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	1	"
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	2	COPYRIGHT (c) 2006 by eXept Software AG
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	3	All Rights Reserved
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	4
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	5	This software is furnished under a license and may be used
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	6	only in accordance with the terms of that license and with the
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	7	inclusion of the above copyright notice. This software may not
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	8	be provided or otherwise made available to, or used by, any
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	9	other person. No title to or ownership of the software is
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	10	hereby transferred.
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	11	"
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	12	"{ Package: 'stx:libtool' }"
abd25bbd5625 initial checkin vrany parents: diff changeset	13
abd25bbd5625 initial checkin vrany parents: diff changeset	14	"{ NameSpace: Tools }"
abd25bbd5625 initial checkin vrany parents: diff changeset	15
abd25bbd5625 initial checkin vrany parents: diff changeset	16	Object subclass:#LintHighlighter
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	17	instanceVariableNames:'rules annotations formattingMethod emphasisError
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	18	emphasisInformation emphasisWarning'
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	19	classVariableNames:''
abd25bbd5625 initial checkin vrany parents: diff changeset	20	poolDictionaries:''
abd25bbd5625 initial checkin vrany parents: diff changeset	21	category:'Interface-Lint'
abd25bbd5625 initial checkin vrany parents: diff changeset	22	!
abd25bbd5625 initial checkin vrany parents: diff changeset	23
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	24	!LintHighlighter class methodsFor:'documentation'!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	25
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	26	copyright
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	27	"
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	28	COPYRIGHT (c) 2006 by eXept Software AG
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	29	All Rights Reserved
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	30
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	31	This software is furnished under a license and may be used
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	32	only in accordance with the terms of that license and with the
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	33	inclusion of the above copyright notice. This software may not
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	34	be provided or otherwise made available to, or used by, any
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	35	other person. No title to or ownership of the software is
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	36	hereby transferred.
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	37	"
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	38	! !
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	39
abd25bbd5625 initial checkin vrany parents: diff changeset	40	!LintHighlighter methodsFor:'accessing'!
abd25bbd5625 initial checkin vrany parents: diff changeset	41
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	42	annotations
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	43	^ annotations
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	44	!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	45
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	46	rules
abd25bbd5625 initial checkin vrany parents: diff changeset	47	^ rules
abd25bbd5625 initial checkin vrany parents: diff changeset	48	!
abd25bbd5625 initial checkin vrany parents: diff changeset	49
abd25bbd5625 initial checkin vrany parents: diff changeset	50	rules:something
abd25bbd5625 initial checkin vrany parents: diff changeset	51	rules := something.
abd25bbd5625 initial checkin vrany parents: diff changeset	52	! !
abd25bbd5625 initial checkin vrany parents: diff changeset	53
abd25bbd5625 initial checkin vrany parents: diff changeset	54	!LintHighlighter methodsFor:'accessing-emphasis'!
abd25bbd5625 initial checkin vrany parents: diff changeset	55
abd25bbd5625 initial checkin vrany parents: diff changeset	56	emphasisForError
abd25bbd5625 initial checkin vrany parents: diff changeset	57
abd25bbd5625 initial checkin vrany parents: diff changeset	58	emphasisError isNil ifTrue:[
abd25bbd5625 initial checkin vrany parents: diff changeset	59	emphasisError := Array
abd25bbd5625 initial checkin vrany parents: diff changeset	60	with: #underwave
abd25bbd5625 initial checkin vrany parents: diff changeset	61	with: #underlineColor -> Color red
abd25bbd5625 initial checkin vrany parents: diff changeset	62	].
abd25bbd5625 initial checkin vrany parents: diff changeset	63	^emphasisError
abd25bbd5625 initial checkin vrany parents: diff changeset	64
abd25bbd5625 initial checkin vrany parents: diff changeset	65	"Created: / 05-08-2011 / 09:31:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	66	!
abd25bbd5625 initial checkin vrany parents: diff changeset	67
abd25bbd5625 initial checkin vrany parents: diff changeset	68	emphasisForInformation
abd25bbd5625 initial checkin vrany parents: diff changeset	69
abd25bbd5625 initial checkin vrany parents: diff changeset	70	emphasisInformation isNil ifTrue:[
abd25bbd5625 initial checkin vrany parents: diff changeset	71	emphasisInformation := Array
abd25bbd5625 initial checkin vrany parents: diff changeset	72	with: #underwave
abd25bbd5625 initial checkin vrany parents: diff changeset	73	with: #underlineColor -> Color blue lighter
abd25bbd5625 initial checkin vrany parents: diff changeset	74	].
abd25bbd5625 initial checkin vrany parents: diff changeset	75	^emphasisInformation
abd25bbd5625 initial checkin vrany parents: diff changeset	76
abd25bbd5625 initial checkin vrany parents: diff changeset	77	"Created: / 05-08-2011 / 09:31:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	78	!
abd25bbd5625 initial checkin vrany parents: diff changeset	79
abd25bbd5625 initial checkin vrany parents: diff changeset	80	emphasisForSeverity: severity
abd25bbd5625 initial checkin vrany parents: diff changeset	81
abd25bbd5625 initial checkin vrany parents: diff changeset	82	severity == #error ifTrue:[^self emphasisForError].
abd25bbd5625 initial checkin vrany parents: diff changeset	83	severity == #information ifTrue:[^self emphasisForInformation].
abd25bbd5625 initial checkin vrany parents: diff changeset	84
abd25bbd5625 initial checkin vrany parents: diff changeset	85	^self emphasisForWarning
abd25bbd5625 initial checkin vrany parents: diff changeset	86
abd25bbd5625 initial checkin vrany parents: diff changeset	87	"Created: / 05-08-2011 / 09:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	88	!
abd25bbd5625 initial checkin vrany parents: diff changeset	89
abd25bbd5625 initial checkin vrany parents: diff changeset	90	emphasisForWarning
abd25bbd5625 initial checkin vrany parents: diff changeset	91
abd25bbd5625 initial checkin vrany parents: diff changeset	92	emphasisWarning isNil ifTrue:[
abd25bbd5625 initial checkin vrany parents: diff changeset	93	emphasisWarning := Array
abd25bbd5625 initial checkin vrany parents: diff changeset	94	with: #underwave
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	95	with: #underlineColor -> (Color redByte: 224 greenByte: 200 blueByte: 45)
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	96	].
abd25bbd5625 initial checkin vrany parents: diff changeset	97	^emphasisWarning
abd25bbd5625 initial checkin vrany parents: diff changeset	98
abd25bbd5625 initial checkin vrany parents: diff changeset	99	"Created: / 05-08-2011 / 09:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	100	! !
abd25bbd5625 initial checkin vrany parents: diff changeset	101
abd25bbd5625 initial checkin vrany parents: diff changeset	102	!LintHighlighter methodsFor:'formatting'!
abd25bbd5625 initial checkin vrany parents: diff changeset	103
abd25bbd5625 initial checkin vrany parents: diff changeset	104	formatClassDefinition:source in:class
abd25bbd5625 initial checkin vrany parents: diff changeset	105
abd25bbd5625 initial checkin vrany parents: diff changeset	106	formattingMethod := false.
abd25bbd5625 initial checkin vrany parents: diff changeset	107	^ self format: source
abd25bbd5625 initial checkin vrany parents: diff changeset	108
abd25bbd5625 initial checkin vrany parents: diff changeset	109	"Created: / 04-08-2011 / 23:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	110	!
abd25bbd5625 initial checkin vrany parents: diff changeset	111
abd25bbd5625 initial checkin vrany parents: diff changeset	112	formatClassDefinition:source in:class elementsInto: elements
abd25bbd5625 initial checkin vrany parents: diff changeset	113
abd25bbd5625 initial checkin vrany parents: diff changeset	114	formattingMethod := false.
abd25bbd5625 initial checkin vrany parents: diff changeset	115	^ self format: source
abd25bbd5625 initial checkin vrany parents: diff changeset	116
abd25bbd5625 initial checkin vrany parents: diff changeset	117	"Created: / 04-08-2011 / 23:44:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	118	!
abd25bbd5625 initial checkin vrany parents: diff changeset	119
abd25bbd5625 initial checkin vrany parents: diff changeset	120	formatExpression:source in:class
abd25bbd5625 initial checkin vrany parents: diff changeset	121
abd25bbd5625 initial checkin vrany parents: diff changeset	122	formattingMethod := false.
abd25bbd5625 initial checkin vrany parents: diff changeset	123	^ self format: source
abd25bbd5625 initial checkin vrany parents: diff changeset	124
abd25bbd5625 initial checkin vrany parents: diff changeset	125	"Created: / 04-08-2011 / 23:45:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	126	!
abd25bbd5625 initial checkin vrany parents: diff changeset	127
abd25bbd5625 initial checkin vrany parents: diff changeset	128	formatExpression:source in:class elementsInto: elements
abd25bbd5625 initial checkin vrany parents: diff changeset	129
abd25bbd5625 initial checkin vrany parents: diff changeset	130	formattingMethod := false.
abd25bbd5625 initial checkin vrany parents: diff changeset	131	^ self format: source
abd25bbd5625 initial checkin vrany parents: diff changeset	132
abd25bbd5625 initial checkin vrany parents: diff changeset	133	"Created: / 04-08-2011 / 23:43:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	134	!
abd25bbd5625 initial checkin vrany parents: diff changeset	135
abd25bbd5625 initial checkin vrany parents: diff changeset	136	formatMethod:mth source:source in:class using: preferences
abd25bbd5625 initial checkin vrany parents: diff changeset	137
abd25bbd5625 initial checkin vrany parents: diff changeset	138	formattingMethod := true.
abd25bbd5625 initial checkin vrany parents: diff changeset	139	^ self format: source
abd25bbd5625 initial checkin vrany parents: diff changeset	140
abd25bbd5625 initial checkin vrany parents: diff changeset	141	"Created: / 04-08-2011 / 23:45:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	142	!
abd25bbd5625 initial checkin vrany parents: diff changeset	143
abd25bbd5625 initial checkin vrany parents: diff changeset	144	formatMethod:mth source:source in:class using: preferences elementsInto: elements
abd25bbd5625 initial checkin vrany parents: diff changeset	145
abd25bbd5625 initial checkin vrany parents: diff changeset	146	formattingMethod := true.
abd25bbd5625 initial checkin vrany parents: diff changeset	147	^ self format: source
abd25bbd5625 initial checkin vrany parents: diff changeset	148
abd25bbd5625 initial checkin vrany parents: diff changeset	149	"Created: / 04-08-2011 / 23:42:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	150	! !
abd25bbd5625 initial checkin vrany parents: diff changeset	151
abd25bbd5625 initial checkin vrany parents: diff changeset	152	!LintHighlighter methodsFor:'formatting-private'!
abd25bbd5625 initial checkin vrany parents: diff changeset	153
abd25bbd5625 initial checkin vrany parents: diff changeset	154	format: text
abd25bbd5625 initial checkin vrany parents: diff changeset	155
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	156	annotations := SortedCollection new.
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	157	rules ? #() do:[:rule\|
abd25bbd5625 initial checkin vrany parents: diff changeset	158	self format: text rule: rule
abd25bbd5625 initial checkin vrany parents: diff changeset	159	].
abd25bbd5625 initial checkin vrany parents: diff changeset	160	^text
abd25bbd5625 initial checkin vrany parents: diff changeset	161
abd25bbd5625 initial checkin vrany parents: diff changeset	162	"Created: / 04-08-2011 / 23:51:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	163	!
abd25bbd5625 initial checkin vrany parents: diff changeset	164
abd25bbd5625 initial checkin vrany parents: diff changeset	165	format: text rule: rule
abd25bbd5625 initial checkin vrany parents: diff changeset	166
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	167	\| string \|
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	168
abd25bbd5625 initial checkin vrany parents: diff changeset	169	string := text asString.
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	170
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	171
abd25bbd5625 initial checkin vrany parents: diff changeset	172	rule result isParseTreeEnvironment ifTrue:[
abd25bbd5625 initial checkin vrany parents: diff changeset	173	formattingMethod ifTrue:[
abd25bbd5625 initial checkin vrany parents: diff changeset	174	\| interval \|
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	175	[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	176	interval := rule result selectionIntervalFor: string.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	177	] on: Error do:[
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	178	interval := nil.
0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	179	].
10503 a01809c3af32 fixes vrany parents: 10485 diff changeset	180	interval notNil ifTrue:[
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	181	self mark: text from: interval first to: interval last for: rule.
10503 a01809c3af32 fixes vrany parents: 10485 diff changeset	182	]
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	183	].
abd25bbd5625 initial checkin vrany parents: diff changeset	184	] ifFalse:[
abd25bbd5625 initial checkin vrany parents: diff changeset	185	\| searches \|
abd25bbd5625 initial checkin vrany parents: diff changeset	186
abd25bbd5625 initial checkin vrany parents: diff changeset	187	searches := rule result searchStrings asSet.
abd25bbd5625 initial checkin vrany parents: diff changeset	188
abd25bbd5625 initial checkin vrany parents: diff changeset	189	searches do:[:search\|
abd25bbd5625 initial checkin vrany parents: diff changeset	190	\| i \|
abd25bbd5625 initial checkin vrany parents: diff changeset	191	i := 1.
abd25bbd5625 initial checkin vrany parents: diff changeset	192	[
abd25bbd5625 initial checkin vrany parents: diff changeset	193	i := string findString: search startingAt: i.
abd25bbd5625 initial checkin vrany parents: diff changeset	194	i ~~ 0
abd25bbd5625 initial checkin vrany parents: diff changeset	195	] whileTrue:[
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	196	self mark: text from: i to: (i + search size - 1) for: rule.
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	197	i := i + search size + 1.
abd25bbd5625 initial checkin vrany parents: diff changeset	198	]
abd25bbd5625 initial checkin vrany parents: diff changeset	199
abd25bbd5625 initial checkin vrany parents: diff changeset	200
abd25bbd5625 initial checkin vrany parents: diff changeset	201	]
abd25bbd5625 initial checkin vrany parents: diff changeset	202	]
abd25bbd5625 initial checkin vrany parents: diff changeset	203
abd25bbd5625 initial checkin vrany parents: diff changeset	204	"Created: / 04-08-2011 / 23:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
abd25bbd5625 initial checkin vrany parents: diff changeset	205	! !
abd25bbd5625 initial checkin vrany parents: diff changeset	206
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	207	!LintHighlighter methodsFor:'markup'!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	208
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	209	mark: text from: start to: end for: rule
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	210	\| emphasis \|
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	211
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	212	emphasis := self emphasisForSeverity: rule severity.
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	213	text emphasisFrom: start to: end add: emphasis.
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	214	annotations add:
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	215	(LintAnnotation from: start to: end rule: rule)
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	216
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	217	"Created: / 30-01-2012 / 15:30:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	218	! !
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	219
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	220	!LintHighlighter class methodsFor:'documentation'!
abd25bbd5625 initial checkin vrany parents: diff changeset	221
abd25bbd5625 initial checkin vrany parents: diff changeset	222	version
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	223	^ '$Id: Tools__LintHighlighter.st 7854 2012-01-30 17:49:41Z vranyj1 $'
10485 abd25bbd5625 initial checkin vrany parents: diff changeset	224	!
abd25bbd5625 initial checkin vrany parents: diff changeset	225
abd25bbd5625 initial checkin vrany parents: diff changeset	226	version_CVS
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	227	^ '�Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.3 2012/01/27 21:18:06 vrany Exp �'
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	228	!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	229
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	230	version_SVN
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	231	^ '$Id: Tools__LintHighlighter.st 7854 2012-01-30 17:49:41Z vranyj1 $'
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	232	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 30 Jan 2012 17:49:41 +0000
branch	jv
changeset 12128	a7ff7d66ee85
parent 12125	0c49a3b13e43
child 12141	f95099b6b5f7
permissions	-rw-r--r--