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

author	Claus Gittinger <cg@exept.de>
	Tue, 26 Jan 2016 21:40:42 +0100
branch	cvs_MAIN
changeset 917	c1a6a847be65
parent 916	8b0f48107fff
child 940	d0897a6dbc08
permissions	-rw-r--r--