hg/stx-goodies-smallsense: extensions.st@b19848756f4b (annotated)

249 8bc64027b189 Package renamed to stx:goodies/smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 197 diff changeset	1	"{ Package: 'stx:goodies/smallsense' }"!
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	!AssignmentNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	aBlock value: #variable value: variable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	aBlock value: #expression value: expression.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	"Modified: / 26-11-2011 / 10:39:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	12
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!AssignmentNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	^ expression inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	21
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	!AssignmentNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	inferedType: aSmallSenseType
1038 5d66b7793f44 fix Claus Gittinger <cg@exept.de> parents: 987 diff changeset	25	"/ cg: why not????
5d66b7793f44 fix Claus Gittinger <cg@exept.de> parents: 987 diff changeset	26	"/ ^ self shouldNotImplement
5d66b7793f44 fix Claus Gittinger <cg@exept.de> parents: 987 diff changeset	27	^ super inferedType: aSmallSenseType
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	"Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1038 5d66b7793f44 fix Claus Gittinger <cg@exept.de> parents: 987 diff changeset	30	"Modified: / 14-07-2017 / 13:37:28 / cg"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	32
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	33	!BlockNode methodsFor:'enumeration'!
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	34
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	35	childNamesAndValuesDo:aBlock
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	36	"Enumerates all direct children and evaluates a block
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	37	with its name (usually instVar name) and the node itself"
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	38
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	39	aBlock value:'statements' value: statements
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	40
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	41	"Created: / 20-09-2013 / 01:03:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	42	! !
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	43
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	44	!ConfigurableFeatures class methodsFor:'queries-features'!
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	45
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	46	hasSmallSenseEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	47
917 c1a6a847be65 * empty log message * Claus Gittinger <cg@exept.de> parents: 916 diff changeset	48	^(UserPreferences current smallSenseEnabled == true)
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	49
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	50
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	51	"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	52	ConfigurableFeatures hasSmallSenseEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	53	ConfigurableFeatures includesFeature:'SmallSenseEnabled'
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	54	"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	55
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	56	"Created: / 27-11-2011 / 17:22:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	57	! !
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	58
279 1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	59	!EditTextViewCompletionSupport methodsFor:'queries'!
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	60
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	61	isCompletionViewShown
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	62	^ completionView notNil and:[ completionView isVisible ]
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	63
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	64	"Created: / 13-08-2014 / 16:00:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	65	! !
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	66
16 900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	67	!HTMLDocumentView methodsFor:'actions'!
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	68
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	69	doQuickFix: quickFixNo
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	70	\| app \|
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	71
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	72	app := self application.
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	73	app notNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	74	app doQuickFix: quickFixNo
16 900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	75	].
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	76
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	77	"Created: / 16-02-2012 / 14:18:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	78	! !
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	79
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	!MessageNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	aBlock value: #receiver value: receiver.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	argArray notNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	86	argArray withIndexDo:[:node :idx\|
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	87	aBlock value: 'arg[' , idx printString , ']' value: node
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	88	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	"Modified: / 26-11-2011 / 12:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	93
106 1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	94	!MessageNode methodsFor:'navigation-SmallSense'!
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	95
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	96	navigateToUsing: navigator
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	97	navigator navigateToMessageNode: self.
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	98
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	99	"Created: / 24-09-2013 / 10:04:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	100	! !
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	101
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	102	!Method methodsFor:'inspecting'!
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	103
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	104	inspector2TabRBParseTreeInspector
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	105	<inspector2Tab>
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	106
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	107	"provide an extra tab, which show the RefactoryBrowser-AST (parsetree) of the sourcecode"
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	108
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	109	^ (self newInspector2Tab)
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	110	label:'Parse Tree (RB)';
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	111	priority:35;
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	112	application:
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	113	[
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	114	\| src node \|
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	115
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	116	src := self source.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	117	node := RBParser parseMethod: src.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	118	SmallSense::ParseTreeInspector new node:node source:src.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	119	];
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	120	yourself
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	121
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	122	"Created: / 15-10-2014 / 02:37:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	123	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	124
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	125	!Method methodsFor:'inspecting'!
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	126
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	127	inspector2TabSTXParseTreeInspector
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	128	<inspector2Tab>
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	129
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	130	"provide an extra tab, which show the ST/X-AST (parsetree) of the sourcecode"
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	131
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	132	^ (self newInspector2Tab)
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	133	label:'Parse Tree (ST/X)';
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	134	priority:36;
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	135	application:
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	136	[
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	137	\| src parser \|
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	138
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	139	src := self source.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	140	parser := self parserClass parseMethod: src.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	141	SmallSense::ParseTreeInspector new node:parser tree source:src.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	142	];
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	143	yourself
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	144
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	145	"Created: / 15-10-2014 / 11:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	146	! !
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	147
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	!ParseErrorNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	"superclass ParseNode says that I am responsible to implement this method"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	153	^ children withIndexDo:[:child :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	154	aBlock value:'child[' , index printString , ']' value: child
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	155	]
60 0daf99c34c5e Initial support for syntax-error tolerant parsing of Smalltalk. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	156
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	157	"Modified: / 20-09-2013 / 01:00:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	159
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	!ParseNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	162	childNamesAndValuesDo:aBlock
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	"Enumerates all direct children and evaluates a block
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	with its name (usually instVar name) and the node itself"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	166	self class allInstVarNames withIndexDo:[:n :i\|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	167	\| v \|
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	168
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	169	v := self instVarAt: i.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	170	(v isKindOf: ParseNode) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	171	aBlock value: n value: v
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	172	] ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	173	(v isSequenceable) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	174	v withIndexDo:[ :v2 :i2\|
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	175	(v2 isKindOf: ParseNode) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	176	aBlock value: (n, '[' , i2 printString , ']') value: v2.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	177	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	178	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	179	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	180	]
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	181	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	"Created: / 26-11-2011 / 10:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	184	"Modified: / 19-09-2013 / 18:18:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	186
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	!ParseNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	\| t \|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	t := self objectAttributeAt:#inferedType.
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	193	t isNil ifTrue:[t := SmallSense::Type unknown].
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	^t
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	"Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	197	"Modified: / 24-08-2013 / 20:46:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	199
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	!ParseNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	inferedType: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	^ self objectAttributeAt:#inferedType put: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	"Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	208
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	209	!ParseNode methodsFor:'inspecting'!
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	210
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	211	inspector2TabSTXParseTreeInspector
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	212	<inspector2Tab>
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	213
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	214	^ (self newInspector2Tab)
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	215	label:'Parse Tree (ST/X)';
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	216	priority:36;
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	217	application:
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	218	[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	219	SmallSense::ParseTreeInspector new node:self source:nil.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	220	];
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	221	yourself
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	222
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	223	"Created: / 15-10-2014 / 11:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	224	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	225
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	!ParseNode methodsFor:'testing'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	isSelector
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	"return true, if this is a node for an selctors"
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	230
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	^ false
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	"Created: / 22-02-2011 / 21:44:45 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	235
102 538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	236	!ParseNode methodsFor:'navigation-SmallSense'!
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	237
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	238	navigateToUsing:navigator
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	239	"Nothing by default, to overwritten by subclasses"
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	240
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	241	"Modified: / 24-09-2013 / 10:05:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	242	! !
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	243
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	244	!Parser methodsFor:'inspecting'!
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	245
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	246	inspector2TabSTXParseTreeInspector
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	247	<inspector2Tab>
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	248
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	249	^ (self newInspector2Tab)
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	250	label:'Parse Tree (ST/X)';
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	251	priority:36;
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	252	application:
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	253	[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	254	\| src parser \|
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	255
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	256	source isExternalStream ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	257	src := source collection
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	258	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	259	SmallSense::ParseTreeInspector new node:tree source:src.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	260	];
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	261	yourself
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	262
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	263	"Created: / 15-10-2014 / 11:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	264	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	265
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266	!PrimaryNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	"Initionally left blank, primary nodes have no children"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	"Modified: / 26-11-2011 / 11:49:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	274
150 f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	275	!PrimitiveNode methodsFor:'accessing-SmallSense'!
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	276
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	277	inferedType
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	278
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	279	^ SmallSense::Type withClass: UndefinedObject "/ Not really true, should be 'void'
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	280
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	281	"Created: / 08-12-2013 / 22:25:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	282	! !
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	283
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	284	!RBBlockNode methodsFor:'enumeration'!
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	285
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	286	childNamesAndValuesDo:aBlock
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	287	arguments withIndexDo:[:statement :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	288	aBlock value: 'argument[', index printString ,']' value: statement
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	289	].
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	290	body statements withIndexDo:[:statement :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	291	aBlock value: 'statement[', index printString ,']' value: statement
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	292	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	293
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	294	"Created: / 15-10-2014 / 10:42:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	295	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	296
299 8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	297	!RBContainsSmalltalkXEOLCommentRule methodsFor:'accessing'!
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	298
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	299	fixes: fixer
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	300	\| changes \|
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	301
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	302	changes := self changes.
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	303	changes notEmptyOrNil ifTrue:[
962 4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	304	fixer fix
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	305	rule: self;
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	306	label:'Change EOL comments to standard Smalltalk comments';
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	307	action: [
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	308	fixer apply: ((ChangeSet withAll:changes) name: self name)
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	309	].
299 8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	310	]
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	311
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	312	"Created: / 01-02-2012 / 12:11:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
315 0a4845a0c211 Update to catchup changes in libtool: refactoring to support multiple lint warnings at line Jan Vrany <jan.vrany@fit.cvut.cz> parents: 311 diff changeset	313	"Modified: / 15-12-2014 / 16:46:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
299 8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	314	! !
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	315
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	316	!RBLintRule methodsFor:'accessing'!
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	317
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	318	fixes: aSmallSenseQuickFixer
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	319	"Adds all possible code fixes to given quick fixer.
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	320	Default is to do nothing, meaning that there are
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	321	no quickfixes available"
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	322
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	323	"Created: / 01-02-2012 / 12:09:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	324	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	325
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	326	!RBMethodNode methodsFor:'enumeration'!
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	327
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	328	childNamesAndValuesDo:aBlock
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	329	arguments withIndexDo:[:statement :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	330	aBlock value: 'argument[', index printString ,']' value: statement
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	331	].
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	332	body statements withIndexDo:[:statement :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	333	aBlock value: 'statement[', index printString ,']' value: statement
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	334	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	335
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	336	"Created: / 15-10-2014 / 09:28:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	337	"Modified: / 15-10-2014 / 10:41:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	338	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	339
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	340	!RBProgramNode methodsFor:'enumeration'!
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	341
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	342	childNamesAndValuesDo:aBlock
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	343
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	344	"Enumerates all direct children and evaluates a block
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	345	with its name (usually instVar name) and the node itself"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	346
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	347	self class allInstVarNames withIndexDo:[:n :i\|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	348	\| v \|
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	349
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	350	n ~~ #parent ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	351	v := self instVarAt: i.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	352	(v isKindOf: RBProgramNode) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	353	aBlock value: n value: v
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	354	] ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	355	(v isSequenceable) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	356	v withIndexDo:[ :v2 :i2\|
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	357	(v2 isKindOf: RBProgramNode) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	358	aBlock value: (n, '[' , i2 printString , ']') value: v2.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	359	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	360	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	361	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	362	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	363	]
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	364	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	365
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	366	"Created: / 15-10-2014 / 10:39:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	367	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	368
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	369	!RBProgramNode methodsFor:'accessing'!
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	370
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	371	startPosition
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	372	^ self start
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	373
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	374	"Created: / 15-10-2014 / 09:34:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	375	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	376
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	377	!RBTransformationRule methodsFor:'accessing'!
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	378
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	379	fixes: fixer
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	380	\| changes \|
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	381
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	382	changes := self changes.
8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	383	changes notEmptyOrNil ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	384	fixer fix
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	385	rule: self;
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	386	label:'Rewrite the code';
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	387	action: [
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	388	fixer apply: ((ChangeSet withAll:self changes) name: self name)
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	389	].
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	390	]
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	391
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	392	"Created: / 01-02-2012 / 12:11:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
315 0a4845a0c211 Update to catchup changes in libtool: refactoring to support multiple lint warnings at line Jan Vrany <jan.vrany@fit.cvut.cz> parents: 311 diff changeset	393	"Modified: / 15-12-2014 / 16:46:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	394	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	395
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	396	!ReturnNode methodsFor:'enumeration'!
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	397
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	398	childNamesAndValuesDo:aBlock
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	399	aBlock value: 'expression' value: expression.
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	400
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	401	"Created: / 10-04-2014 / 08:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	402	! !
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	403
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404	!StatementNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406	childNamesAndValuesDo:aBlock
15 23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	407	\| stmt index \|
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	408	stmt := self.
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	409	index := 1.
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	410	[ stmt notNil ] whileTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	411	\| expr \|
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	412
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	413	stmt isReturnNode ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	414	expr := stmt.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	415	] ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	416	expr := stmt expression.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	417	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	418	aBlock value: ('statement[%1]' bindWith: index) value: expr.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	419	stmt := stmt nextStatement.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	420	index := index + 1.
15 23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	421	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	423	"Modified: / 10-04-2014 / 08:13:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	425
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	!StatementNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430	^ expression inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	"Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	434
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	!StatementNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	inferedType: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439	^ self shouldNotImplement
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	"Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	443
308 8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	444	!Tools::CodeCompletionService class methodsFor:'instance creation'!
8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	445
8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	446	new
8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	447	"return an initialized instance"
75 2046f40e5dde Fixes to make SmallSense code completion working on eXept CVS version (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 69 diff changeset	448
308 8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	449	^ (SmallSense::EditService ? self) basicNew initialize.
75 2046f40e5dde Fixes to make SmallSense code completion working on eXept CVS version (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 69 diff changeset	450
308 8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	451	"Created: / 27-07-2013 / 22:47:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	452	"Modified: / 28-11-2014 / 15:40:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
75 2046f40e5dde Fixes to make SmallSense code completion working on eXept CVS version (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 69 diff changeset	453	! !
2046f40e5dde Fixes to make SmallSense code completion working on eXept CVS version (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 69 diff changeset	454
42 48307f46ff8e Edit support cut off to a new service. Added SmallSense syntax highlighting service. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 34 diff changeset	455	!Tools::CodeHighlightingService class methodsFor:'instance creation'!
48307f46ff8e Edit support cut off to a new service. Added SmallSense syntax highlighting service. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 34 diff changeset	456
48307f46ff8e Edit support cut off to a new service. Added SmallSense syntax highlighting service. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 34 diff changeset	457	new
48307f46ff8e Edit support cut off to a new service. Added SmallSense syntax highlighting service. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 34 diff changeset	458	"return an initialized instance"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	459
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	460	\|serviceUsed\|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	461
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	462	"/ cg: what an ugly hack; @Jan, why this
aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	463	"/ ^ (SmallSense::CodeHighlightingService ? self) basicNew initialize.
42 48307f46ff8e Edit support cut off to a new service. Added SmallSense syntax highlighting service. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 34 diff changeset	464
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	465	"/ cg: at least allow subclassing
aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	466	serviceUsed := self.
aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	467	self == Tools::CodeHighlightingService ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	468	serviceUsed := (SmallSense::CodeHighlightingService ? self).
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	469	].
aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	470	^ serviceUsed basicNew initialize
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	471
42 48307f46ff8e Edit support cut off to a new service. Added SmallSense syntax highlighting service. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 34 diff changeset	472	"Created: / 27-07-2013 / 22:47:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
99 6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	473	"Modified: / 23-09-2013 / 14:32:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	474	! !
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	475
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	476	!Tools::CodeNavigationService class methodsFor:'instance creation'!
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	477
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	478	new
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	479	"return an initialized instance"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	480
99 6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	481	^ (SmallSense::CodeNavigationService ? self) basicNew initialize.
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	482
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	483	"Created: / 27-07-2013 / 22:47:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	484	"Modified: / 23-09-2013 / 14:32:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
42 48307f46ff8e Edit support cut off to a new service. Added SmallSense syntax highlighting service. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 34 diff changeset	485	! !
48307f46ff8e Edit support cut off to a new service. Added SmallSense syntax highlighting service. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 34 diff changeset	486
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	487	!Tools::LintService methodsFor:'event handling'!
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	488
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	489	buttonPress:button x:x y:y in:view
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	490	\|lineNr\|
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	491
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	492	view == gutterView ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	493	button == 1 ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	494	lineNr := textView yVisibleToLineNr:y.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	495	lineNr notNil ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	496	^ self showInfoWindowForLine: lineNr
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	497	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	498	^ false.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	499	].
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	500	].
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	501	^ false
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	502
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	503	"Created: / 30-01-2012 / 21:04:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	504	"Modified: / 03-12-2014 / 10:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	505	! !
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	506
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	507	!Tools::LintService methodsFor:'private'!
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	508
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	509	showInfoWindowForLine: lineNo
1083 ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	510	\| ann infoApp \|
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	511
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	512	ann := self annotationAtLine: lineNo.
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	513	ann isNil ifTrue:[ ^ false ].
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	514
1083 ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	515	infoApp := SmallSense::CriticsWindow new
ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	516	rule: ann rule;
ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	517	codeView: codeView;
ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	518	allButOpen;
ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	519	openWindowAt: (Screen current pointerPosition - (20@20)).
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	520
1083 ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	521	SmallSense::CriticsWindow rememberLastExtentOf:infoApp window.
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	522	^true
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	523
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	524	"Created: / 30-01-2012 / 21:04:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	525	"Modified: / 03-12-2014 / 10:00:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1083 ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	526	"Modified: / 02-03-2019 / 13:09:34 / Claus Gittinger"
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	527	! !
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	528
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	529	!Tools::NavigationState methodsFor:'aspects - SmallSense'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	530
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	531	stx_goodies_smallsense_selectedClasses
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	532	<swizzle: #selectedClasses>
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	533	selectedClasses isNil ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	534	selectedClasses := nil asValue.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	535	(ConfigurableFeatures includesFeature:'SmallSenseEnabled') ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	536	selectedClasses
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	537	onChangeEvaluate:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	538	selectedClasses value ? #() do:[:cls \|
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	539	(Smalltalk at:#'SmallSense::Manager') instance updateInfoForClass:cls.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	540	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	541	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	542	]
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	543	].
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	544	^ selectedClasses
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	545
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	546	"Created: / 24-08-2013 / 21:53:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	547	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	548
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	549	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	550
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	551	searchCompletionBlock_SmallSense
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	552	"This returns a class/selector name completion block that uses
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	553	standard DoWhatIMeanSupport"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	554
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	555	^ [:patternString \| self smallSenseSearchCompletion:patternString ]
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	556
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	557	"Created: / 25-11-2013 / 12:27:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	558	! !
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	559
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	560	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	561
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	562	smallSenseSearchCompletion:patternString
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	563	"/sorry, no method search yet"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	564
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	565	^ self smallSenseSearchCompletionNewForClass:patternString
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	566
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	567	"Modified: / 04-08-2011 / 19:05:28 / cg"
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	568	"Created: / 04-12-2011 / 22:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	569	! !
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	570
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	571	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	572
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	573	smallSenseSearchCompletionBlock
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	574	"This returns a class/selector name completion block that uses
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	575	standard DoWhatIMeanSupport"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	576
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	577	^ [:patternString \| self smallSenseSearchCompletion:patternString ]
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	578
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	579	"Modified: / 04-08-2011 / 19:05:28 / cg"
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	580	"Created: / 04-12-2011 / 22:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	581	! !
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	582
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	583	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	584
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	585	smallSenseSearchCompletionEntryForClass:aClass showPrefix:showPrefix
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	586	^ (SmallSense::ClassPO new)
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	587	klass:aClass;
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	588	showPrefix:showPrefix.
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	589
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	590	"Created: / 06-04-2012 / 12:55:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	591	"Modified: / 25-11-2013 / 12:16:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	592	! !
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	593
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	594	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	595
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	596	smallSenseSearchCompletionNewForClass:patternString
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	597	\| env pattern matcher matches relax withPrefix \|
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	598
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	599	patternString isEmptyOrNil ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	600	^ #( '' #() )
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	601	].
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	602	env := self theSingleSelectedNamespace ? #Smalltalk.
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	603	env = NavigatorModel nameListEntryForALL ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	604	env := #Smalltalk
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	605	].
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	606	env := Smalltalk at:env.
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	607	withPrefix := patternString includes:$:.
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	608	pattern := StringPattern readFrom:patternString onError:[ ^ #( '' #() ) ].
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	609	withPrefix ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	610	matcher := [:cls \| pattern match:cls name ]
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	611	] ifFalse:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	612	matcher := [:cls \| pattern match:cls nameWithoutPrefix ]
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	613	].
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	614	relax := 1.
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	615	[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	616	matches isEmptyOrNil and:[ relax <= 3 ]
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	617	] whileTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	618	matches := OrderedCollection new.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	619	env
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	620	keysDo:[:nm \|
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	621	\| cls \|
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	622
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	623	cls := env at:nm.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	624	(cls notNil and:[ cls isBehavior and:[ (matches includesIdentical:cls) not ] ])
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	625	ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	626	"cls isJavaClass"false ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	627	cls isAnonymous ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	628	(matcher value:cls) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	629	matches add:cls
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	630	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	631	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	632	] ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	633	(matcher value:cls) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	634	matches add:cls
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	635	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	636	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	637	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	638	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	639	relax := relax + 1.
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	640	].
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	641	matches isEmpty ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	642	^ #( nil #() )
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	643	] ifFalse:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	644	matches := matches
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	645	collect:[:cls \|
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	646	self smallSenseSearchCompletionEntryForClass:cls showPrefix:withPrefix
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	647	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	648	^ {
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	649	matches first.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	650	matches
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	651	}
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	652	]
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	653
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	654	"Created: / 06-04-2012 / 12:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
270 51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	655	"Modified: / 07-08-2014 / 13:10:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	656	! !
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	657
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658	!UserPreferences methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	660	smallSenseBackgroundLintEnabled
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	661	"Return true if SmallSense background source checking is enabled"
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	662
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	663	^self at:#smallSenseBackgroundLintEnabled ifAbsent:[false]
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	664
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	665	"Created: / 30-01-2012 / 19:59:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	666	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	667
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	668	!UserPreferences methodsFor:'accessing-SmallSense'!
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	669
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	670	smallSenseBackgroundLintEnabled: aBoolean
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	671	"Return true if SmallSense background source checking is enabled"
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	672
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	673	^self at:#smallSenseBackgroundLintEnabled put: (aBoolean ? false)
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	674
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	675	"
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	676	UserPreferences current smallSenseBackgroundLintEnabled
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	677	UserPreferences current smallSenseBackgroundLintEnabled: true
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	678	UserPreferences current smallSenseBackgroundLintEnabled: false
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	679	"
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	680
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	681	"Created: / 30-01-2012 / 20:00:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	682	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	683
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	684	!UserPreferences methodsFor:'accessing-SmallSense'!
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	685
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	686	smallSenseBackgroundTypingEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	687	"Return true if SmallSense background source checking is enabled"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	688
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	689	^self at:#smallSenseBackgroundTypingEnabled ifAbsent:[false]
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	690
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	691	"Created: / 04-02-2012 / 21:41:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	692	! !
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	693
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	694	!UserPreferences methodsFor:'accessing-SmallSense'!
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	695
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	696	smallSenseBackgroundTypingEnabled: aBoolean
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	697	"Return true if SmallSense background source checking is enabled"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	698
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	699	^self at:#smallSenseBackgroundTypingEnabled put: (aBoolean ? false)
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	700
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	701	"
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	702	UserPreferences current smallSenseBackgroundTypingEnabled
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	703	UserPreferences current smallSenseBackgroundTypingEnabled: true
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	704	UserPreferences current smallSenseBackgroundTypingEnabled: false
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	705	"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	706
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	707	"Created: / 04-02-2012 / 21:41:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	708	! !
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	709
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	710	!UserPreferences methodsFor:'accessing-SmallSense'!
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	711
154 b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	712	smallSenseCompleteIfUnambiguous
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	713
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	714	^self at:#smallSenseCompleteIfUnambiguous ifAbsent:[false]
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	715
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	716	"Created: / 18-01-2014 / 23:08:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	717	! !
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	718
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	719	!UserPreferences methodsFor:'accessing-SmallSense'!
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	720
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	721	smallSenseCompleteIfUnambiguous: aBoolean
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	722
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	723	^self at:#smallSenseCompleteIfUnambiguous put: (aBoolean ? false).
154 b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	724
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	725	"
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	726	UserPreferences current smallSenseCompleteIfUnambiguous
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	727	UserPreferences current smallSenseCompleteIfUnambiguous: true.
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	728	UserPreferences current smallSenseCompleteIfUnambiguous: false.
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	729	"
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	730
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	731	"Created: / 18-01-2014 / 23:08:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	732	! !
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	733
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	734	!UserPreferences methodsFor:'accessing-SmallSense'!
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	735
177 be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	736	smallSenseCompletionEnabled
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	737
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	738	^self at:#smallSenseCompletionEnabled ifAbsent:[self smallSenseEnabled]
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	739
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	740	"Created: / 27-02-2014 / 09:29:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	741	! !
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	742
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	743	!UserPreferences methodsFor:'accessing-SmallSense'!
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	744
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	745	smallSenseCompletionEnabled: aBoolean
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	746
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	747	^self at:#smallSenseCompletionEnabled put: (aBoolean ? false)
177 be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	748
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	749	"Created: / 27-02-2014 / 09:29:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	750	! !
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	751
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	752	!UserPreferences methodsFor:'accessing-SmallSense'!
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	753
1068 a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	754	smallSenseElectricEditSupportEnabled
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	755	^ self at:#smallSenseElectricEditSupportEnabled ifAbsent:[false]
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	756
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	757	"Created: / 23-04-2018 / 17:25:42 / stefan"
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	758	! !
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	759
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	760	!UserPreferences methodsFor:'accessing-SmallSense'!
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	761
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	762	smallSenseElectricEditSupportEnabled: aBoolean
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	763	^ self at:#smallSenseElectricEditSupportEnabled put: (aBoolean ? false).
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	764
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	765	"
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	766	UserPreferences current smallSenseElectricEditSupportEnabled
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	767	UserPreferences current smallSenseElectricEditSupportEnabled: true.
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	768	UserPreferences current smallSenseElectricEditSupportEnabled: false.
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	769	"
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	770
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	771	"Created: / 23-04-2018 / 17:25:16 / stefan"
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	772	! !
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	773
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	774	!UserPreferences methodsFor:'accessing-SmallSense'!
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	775
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	776	smallSenseEnabled
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	777	"Return true if SmallSense is enabled"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	778
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	779	^self at:#smallSenseEnabled ifAbsent:[false]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	780
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	781	"Created: / 27-11-2011 / 17:20:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	782	! !
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	783
20 65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	784	!UserPreferences methodsFor:'accessing-SmallSense'!
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	785
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	786	smallSenseEnabled: aBoolean
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	787	"enable/disable SmallSense"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	788
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	789	^self at:#smallSenseEnabled put: (aBoolean ? false).
20 65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	790
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	791	"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	792	UserPreferences current smallSenseEnabled.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	793	UserPreferences current smallSenseEnabled: true.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	794	UserPreferences current smallSenseEnabled: false.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	795	"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	796
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	797	"Created: / 02-04-2012 / 11:37:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	798	! !
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	799
255 c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	800	!UserPreferences methodsFor:'accessing-SmallSense-Smalltalk'!
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	801
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	802	smallSenseSmalltalkIndentOnPasteEnabled
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	803	"Return true if SmallSense indent-on-paste is enabled for Smalltalk language"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	804
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	805	^self at:#smallSenseSmalltalkIndentOnPasteEnabled ifAbsent:[false]
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	806
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	807	"Created: / 19-07-2014 / 00:11:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	808	! !
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	809
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	810	!UserPreferences methodsFor:'accessing-SmallSense-Smalltalk'!
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	811
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	812	smallSenseSmalltalkIndentOnPasteEnabled: aBoolean
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	813	"Set SmallSense indent-on-paste feature for Smalltalk"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	814
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	815	^ self at:#smallSenseSmalltalkIndentOnPasteEnabled put: (aBoolean ? false)
255 c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	816
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	817	"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	818	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	819	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	820	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: false.
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	821	"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	822
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	823	"Created: / 19-07-2014 / 00:11:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	824	! !
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	825
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	826	!VariableNode methodsFor:'queries'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	827
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	828	isGlobalOrPrivateClass
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	829
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	830	^ type == #GlobalVariable or:[type == #PrivateClass]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	831
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	832	"Created: / 27-11-2011 / 16:31:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	833	! !
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	834
106 1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	835	!VariableNode methodsFor:'navigation-SmallSense'!
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	836
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	837	navigateToUsing: navigator
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	838	navigator navigateToVariableNode: self.
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	839
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	840	"Created: / 24-09-2013 / 10:04:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	841	! !
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	842
249 8bc64027b189 Package renamed to stx:goodies/smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 197 diff changeset	843	!stx_goodies_smallsense class methodsFor:'documentation'!
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	844
878 b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	845	extensionsVersion_CVS
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	846	^ '$Header$'
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	847	! !
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	848
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	849	!stx_goodies_smallsense class methodsFor:'documentation'!
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	850
29 fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	851	extensionsVersion_HG
fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	852
fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	853	^ '$Changeset: <not expanded> $'
34 5be71b1d52ec SmallSenseResultItem ranemd to SmallSensePO. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	854	! !
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	855

author	Claus Gittinger <cg@exept.de>
	Fri, 02 Aug 2019 17:46:33 +0200
branch	cvs_MAIN
changeset 1093	b19848756f4b
parent 1087	75d5cb624db4
child 1096	2ad61bb2f155
permissions	-rw-r--r--