hg/stx-goodies-smallsense: SmallSense__SmalltalkQuickFixer.st@feba6ee5c814 (annotated)

252 feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	1	"
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	2	stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	3	Copyright (C) 2013-2014 Jan Vrany
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	4
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	5	This library is free software; you can redistribute it and/or
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	6	modify it under the terms of the GNU Lesser General Public
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	7	License as published by the Free Software Foundation; either
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	8	version 2.1 of the License.
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	9
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	10	This library is distributed in the hope that it will be useful,
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	11	but WITHOUT ANY WARRANTY; without even the implied warranty of
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	13	Lesser General Public License for more details.
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	14
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	15	You should have received a copy of the GNU Lesser General Public
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	16	License along with this library; if not, write to the Free Software
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	17	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	18	"
249 8bc64027b189 Package renamed to stx:goodies/smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 174 diff changeset	19	"{ Package: 'stx:goodies/smallsense' }"
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	"{ NameSpace: SmallSense }"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	23	Object subclass:#SmalltalkQuickFixer
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	instanceVariableNames:'view rule fixes'
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	classVariableNames:''
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	poolDictionaries:''
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	27	category:'SmallSense-Smalltalk-Lint'
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	Object subclass:#QuickFix
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	instanceVariableNames:'rule label action'
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	classVariableNames:''
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	poolDictionaries:''
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	34	privateIn:SmalltalkQuickFixer
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
252 feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	37	!SmalltalkQuickFixer class methodsFor:'documentation'!
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	38
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	39	copyright
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	40	"
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	41	stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	42	Copyright (C) 2013-2014 Jan Vrany
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	43
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	44	This library is free software; you can redistribute it and/or
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	45	modify it under the terms of the GNU Lesser General Public
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	46	License as published by the Free Software Foundation; either
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	47	version 2.1 of the License.
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	48
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	49	This library is distributed in the hope that it will be useful,
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	50	but WITHOUT ANY WARRANTY; without even the implied warranty of
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	51	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	52	Lesser General Public License for more details.
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	53
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	54	You should have received a copy of the GNU Lesser General Public
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	55	License along with this library; if not, write to the Free Software
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	56	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	57	"
feba6ee5c814 Added copyright notice and license information (LGPL2) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	58	! !
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	60	!SmalltalkQuickFixer class methodsFor:'instance creation'!
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	for: rule
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	^self new initializeForRule: rule.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	"Created: / 01-02-2012 / 12:06:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	for: rule view: view
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	^self new initializeForRule: rule view: view
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	"Created: / 17-02-2012 / 00:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	76	!SmalltalkQuickFixer methodsFor:'adding'!
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	fix
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	"Create and return new quick fix. Caller MUST set its
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	label and action"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	\| fix \|
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	fix := QuickFix new.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	fix rule: rule.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	fixes add: fix.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	^fix
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	"Created: / 01-02-2012 / 10:51:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	92	!SmalltalkQuickFixer methodsFor:'initialization'!
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	initializeForRule: anRBLintRule view: aCodeView2
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	rule := anRBLintRule.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	view := aCodeView2.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	fixes := OrderedCollection new: 3.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	rule fixes: self.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	"Created: / 17-02-2012 / 00:20:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	103	!SmalltalkQuickFixer methodsFor:'performing fixes'!
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	performFix: index
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	index <= fixes size ifTrue:[
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	(fixes at: index) performFix.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	] ifFalse:[
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	^ Dialog warn: ('No such fix (%1)' bindWith: index).
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	]
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	"Created: / 16-02-2012 / 14:48:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	116	!SmalltalkQuickFixer methodsFor:'printing & storing'!
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	printHtmlOn: html
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	fixes isEmptyOrNil ifTrue:[ ^ self ].
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	fixes size > 1 ifTrue:[
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	html nextPutAll: '<br>'.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	html nextPutLine: 'Possible fixes'.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	].
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	html nextPutLine:'<ul>'.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	fixes withIndexDo:[:fix :index\|
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	html
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	nextPutAll:'<li><a action="doit: self doQuickFix:';
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	nextPutAll: index printString;
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	nextPutAll:'">';
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	nextPutAll: fix label;
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	nextPutAll:'</a></li>'.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	].
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	html nextPutLine:'</ul>'.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	"Created: / 01-02-2012 / 12:13:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	139	!SmalltalkQuickFixer methodsFor:'utilities'!
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140
97 062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	141	apply: changes
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	142	changes isEmptyOrNil ifTrue: [
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	143	^ self
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	144	].
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	145	(changes size == 1 and: [ changes anElement isMethodCodeChange ]) ifTrue: [
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	146	\| oldSource newSource \|
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147
92 67592095147e Improvement in QuickFixer - if the fix is local to the method, only update codeview's contents. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	148	oldSource := view contents asString string.
97 062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	149	newSource := changes anElement source asString.
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	150	oldSource ~= newSource ifTrue: [
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	151	view contents: newSource asStringCollection clear: false.
92 67592095147e Improvement in QuickFixer - if the fix is local to the method, only update codeview's contents. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	152	view modified: true.
97 062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	153	view isCodeView2 ifTrue: [
92 67592095147e Improvement in QuickFixer - if the fix is local to the method, only update codeview's contents. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	154	view reallyModifiedChannel value: true.
67592095147e Improvement in QuickFixer - if the fix is local to the method, only update codeview's contents. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	155	]
67592095147e Improvement in QuickFixer - if the fix is local to the method, only update codeview's contents. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	156	].
97 062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	157	] ifFalse: [
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	\| browser \|
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159
97 062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	160	browser := view application topApplication.
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	161	(browser respondsTo: #performRefactoring:) ifTrue: [
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	162	browser performRefactoring: changes.
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	163	] ifFalse: [
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	164	self breakPoint: #jv.
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	165	Dialog warn:'Sorry, this application does not support quick fixes'
062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	166	]
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	]
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	"Created: / 16-02-2012 / 14:46:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
97 062cd1535107 Fix in SmallSense::SmalltalkQuickFixer>>#apply: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 92 diff changeset	170	"Modified: / 19-09-2013 / 15:18:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	173	!SmalltalkQuickFixer::QuickFix methodsFor:'accessing'!
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	action
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	^ action
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	action:aBlock
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	action := aBlock.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	label
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	^ label
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	label:aString
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	label := aString.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	performFix
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	^action value
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	"Created: / 16-02-2012 / 14:48:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	rule
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	^ rule
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	rule:anRBLintRule
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	rule := anRBLintRule.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	206	!SmalltalkQuickFixer class methodsFor:'documentation'!
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	version_HG
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	^ '$Changeset: <not expanded> $'
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	version_SVN
174 3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 97 diff changeset	214	^ '$Id: SmallSense__SmalltalkQuickFixer.st,v 1.2 2014/02/12 14:49:29 sr Exp $'
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 18 Jul 2014 07:01:21 +0100
changeset 252	feba6ee5c814
parent 249	8bc64027b189
child 296	981a82217e4c
permissions	-rw-r--r--