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

author	Claus Gittinger <cg@exept.de>
	Tue, 17 May 2016 00:05:38 +0200
branch	cvs_MAIN
changeset 968	4cd706e4706e
parent 962	4547369278b6
child 987	4183da051c79
permissions	-rw-r--r--