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

249 8bc64027b189 Package renamed to stx:goodies/smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 197 diff changeset	1	"{ Package: 'stx:goodies/smallsense' }"!
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	!AssignmentNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	aBlock value: #variable value: variable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	aBlock value: #expression value: expression.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	"Modified: / 26-11-2011 / 10:39:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	12
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!AssignmentNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	^ expression inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	21
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	!AssignmentNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	inferedType: aSmallSenseType
1038 5d66b7793f44 fix Claus Gittinger <cg@exept.de> parents: 987 diff changeset	25	"/ cg: why not????
5d66b7793f44 fix Claus Gittinger <cg@exept.de> parents: 987 diff changeset	26	"/ ^ self shouldNotImplement
5d66b7793f44 fix Claus Gittinger <cg@exept.de> parents: 987 diff changeset	27	^ super inferedType: aSmallSenseType
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	"Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1038 5d66b7793f44 fix Claus Gittinger <cg@exept.de> parents: 987 diff changeset	30	"Modified: / 14-07-2017 / 13:37:28 / cg"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	32
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	33	!BlockNode methodsFor:'enumeration'!
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	34
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	35	childNamesAndValuesDo:aBlock
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	36	"Enumerates all direct children and evaluates a block
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	37	with its name (usually instVar name) and the node itself"
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	38
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	39	aBlock value:'statements' value: statements
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	40
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	41	"Created: / 20-09-2013 / 01:03:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	42	! !
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	43
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	44	!ConfigurableFeatures class methodsFor:'queries-features'!
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	45
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	46	hasSmallSenseEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	47
917 c1a6a847be65 * empty log message * Claus Gittinger <cg@exept.de> parents: 916 diff changeset	48	^(UserPreferences current smallSenseEnabled == true)
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	49
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	50
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	51	"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	52	ConfigurableFeatures hasSmallSenseEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	53	ConfigurableFeatures includesFeature:'SmallSenseEnabled'
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	54	"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	55
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	56	"Created: / 27-11-2011 / 17:22:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	57	! !
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	58
137 12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	59	!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	60
12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	61	autoIndent
12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	62	^ autoIndent
12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	63	! !
12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	64
279 1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	65	!EditTextViewCompletionSupport methodsFor:'queries'!
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	66
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	67	isCompletionViewShown
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	68	^ 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	69
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	70	"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	71	! !
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	72
16 900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	73	!HTMLDocumentView methodsFor:'actions'!
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	74
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	75	doQuickFix: quickFixNo
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	76	\| app \|
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	77
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	78	app := self application.
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	79	app notNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	80	app doQuickFix: quickFixNo
16 900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	81	].
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	"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	84	! !
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	85
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	!MessageNode methodsFor:'enumeration'!
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	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	aBlock value: #receiver value: receiver.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	argArray notNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	92	argArray withIndexDo:[:node :idx\|
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	93	aBlock value: 'arg[' , idx printString , ']' value: node
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	94	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	"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	98	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	99
106 1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	100	!MessageNode methodsFor:'navigation-SmallSense'!
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	101
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	102	navigateToUsing: navigator
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	103	navigator navigateToMessageNode: self.
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	"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	106	! !
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	107
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	108	!Method methodsFor:'inspecting'!
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	109
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	110	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	111	<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	112
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	113	"provide an extra tab, which show the RefactoryBrowser-AST (parsetree) of the sourcecode"
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	114
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	115	^ (self newInspector2Tab)
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	116	label:'Parse Tree (RB)';
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	117	priority:35;
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	118	application:
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	119	[
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	120	\| 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	121
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	122	src := self source.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	123	node := RBParser parseMethod: src.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	124	SmallSense::ParseTreeInspector new node:node source:src.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	125	];
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	126	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	127
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	128	"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	129	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	130
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	131	!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	132
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	133	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	134	<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	135
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	136	"provide an extra tab, which show the ST/X-AST (parsetree) of the sourcecode"
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	137
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	138	^ (self newInspector2Tab)
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	139	label:'Parse Tree (ST/X)';
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	140	priority:36;
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	141	application:
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	142	[
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	143	\| src parser \|
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	144
940 d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	145	src := self source.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	146	parser := self parserClass parseMethod: src.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	147	SmallSense::ParseTreeInspector new node:parser tree source:src.
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	148	];
d0897a6dbc08 x Claus Gittinger <cg@exept.de> parents: 917 diff changeset	149	yourself
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	150
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	151	"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	152	! !
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	153
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	!ParseErrorNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	"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	158
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	159	^ children withIndexDo:[:child :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	160	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	161	]
60 0daf99c34c5e Initial support for syntax-error tolerant parsing of Smalltalk. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	162
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	163	"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	164	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	165
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	!ParseNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167
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	childNamesAndValuesDo:aBlock
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	"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	170	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	171
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	172	self class allInstVarNames withIndexDo:[:n :i\|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	173	\| 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	174
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	175	v := self instVarAt: i.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	176	(v isKindOf: ParseNode) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	177	aBlock value: n value: v
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	178	] ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	179	(v isSequenceable) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	180	v withIndexDo:[ :v2 :i2\|
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	181	(v2 isKindOf: ParseNode) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	182	aBlock value: (n, '[' , i2 printString , ']') value: v2.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	183	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	184	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	185	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	186	]
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	187	]
0 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	"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	190	"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	191	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	192
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	!ParseNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	\| t \|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	t := self objectAttributeAt:#inferedType.
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	199	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	200	^t
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	"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	203	"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	204	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	205
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	!ParseNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	inferedType: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	^ self objectAttributeAt:#inferedType put: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	"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	213	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	214
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	215	!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	216
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	217	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	218	<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	219
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	220	^ (self newInspector2Tab)
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	221	label:'Parse Tree (ST/X)';
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	222	priority:36;
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	223	application:
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	224	[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	225	SmallSense::ParseTreeInspector new node:self source:nil.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	226	];
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	227	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	228
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	229	"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	230	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	231
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	!ParseNode methodsFor:'testing'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	isSelector
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	"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	236
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	^ false
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	"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	240	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	241
102 538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	242	!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	243
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	244	navigateToUsing:navigator
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	245	"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	246
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	247	"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	248	! !
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	249
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	250	!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	251
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	252	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	253	<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	254
ad653f664e59 Added RB parse 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	^ (self newInspector2Tab)
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	256	label:'Parse Tree (ST/X)';
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	257	priority:36;
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	258	application:
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	259	[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	260	\| 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	261
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	262	source isExternalStream ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	263	src := source collection
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	264	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	265	SmallSense::ParseTreeInspector new node:tree source:src.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	266	];
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	267	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	268
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	269	"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	270	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	271
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	!PrimaryNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	"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	277
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	"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	279	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	280
150 f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	281	!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	282
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	283	inferedType
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	284
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	285	^ 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	286
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	287	"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	288	! !
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	289
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	290	!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	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	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	293	arguments withIndexDo:[:statement :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	294	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	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	body statements withIndexDo:[:statement :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	297	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	298	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	299
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	300	"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	301	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	302
299 8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	303	!RBContainsSmalltalkXEOLCommentRule methodsFor:'accessing'!
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	304
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	305	fixes: fixer
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	306	\| changes \|
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	307
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	308	changes := self changes.
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	309	changes notEmptyOrNil ifTrue:[
962 4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	310	fixer fix
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	311	rule: self;
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	312	label:'Change EOL comments to standard Smalltalk comments';
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	313	action: [
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	314	fixer apply: ((ChangeSet withAll:changes) name: self name)
4547369278b6 class: RBContainsSmalltalkXEOLCommentRule Claus Gittinger <cg@exept.de> parents: 940 diff changeset	315	].
299 8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	316	]
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	317
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	318	"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	319	"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	320	! !
8fb1a71e54f2 Add a quickfix to Smalltalk/X EOL comment rule Jan Vrany <jan.vrany@fit.cvut.cz> parents: 291 diff changeset	321
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	322	!RBLintRule methodsFor:'accessing'!
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	323
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	324	fixes: aSmallSenseQuickFixer
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	325	"Adds all possible code fixes to given quick fixer.
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	326	Default is to do nothing, meaning that there are
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	327	no quickfixes available"
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	328
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	329	"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	330	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	331
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	332	!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	333
ad653f664e59 Added RB parse 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	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	335	arguments withIndexDo:[:statement :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	336	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	337	].
ad653f664e59 Added RB parse 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	body statements withIndexDo:[:statement :index \|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	339	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	340	]
ad653f664e59 Added RB parse 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	"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	343	"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	344	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	345
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	346	!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	347
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	348	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	349
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	350	"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	351	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	352
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	353	self class allInstVarNames withIndexDo:[:n :i\|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	354	\| 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	355
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	356	n ~~ #parent ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	357	v := self instVarAt: i.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	358	(v isKindOf: RBProgramNode) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	359	aBlock value: n value: v
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	360	] ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	361	(v isSequenceable) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	362	v withIndexDo:[ :v2 :i2\|
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	363	(v2 isKindOf: RBProgramNode) ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	364	aBlock value: (n, '[' , i2 printString , ']') value: v2.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	365	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	366	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	367	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	368	]
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	369	]
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	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
ad653f664e59 Added RB parse 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	"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	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
ad653f664e59 Added RB parse 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	!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	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	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	378	^ 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	379
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	380	"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	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
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	383	!RBTransformationRule methodsFor:'accessing'!
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	384
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	385	fixes: fixer
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	386	\| changes \|
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	387
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	388	changes := self changes.
8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	389	changes notEmptyOrNil ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	390	fixer fix
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	391	rule: self;
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	392	label:'Rewrite the code';
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	393	action: [
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	394	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	395	].
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	396	]
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	397
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	398	"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	399	"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	400	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	401
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	402	!ReturnNode methodsFor:'enumeration'!
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	403
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	404	childNamesAndValuesDo:aBlock
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	405	aBlock value: 'expression' value: expression.
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	406
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	407	"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	408	! !
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	409
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410	!StatementNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	childNamesAndValuesDo:aBlock
15 23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	413	\| stmt index \|
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	414	stmt := self.
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	415	index := 1.
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	416	[ stmt notNil ] whileTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	417	\| expr \|
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	418
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	419	stmt isReturnNode ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	420	expr := stmt.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	421	] ifFalse:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	422	expr := stmt expression.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	423	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	424	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	425	stmt := stmt nextStatement.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	426	index := index + 1.
15 23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	427	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	429	"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	430	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	431
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	!StatementNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	inferedType
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	^ expression 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	"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	439	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	440
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	!StatementNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	inferedType: aSmallSenseType
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	^ self shouldNotImplement
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	"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	448	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	449
308 8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	450	!Tools::CodeCompletionService class methodsFor:'instance creation'!
8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	451
8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	452	new
8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	453	"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	454
308 8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	455	^ (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	456
308 8a605d737807 Removed all but one swizzled methods. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 299 diff changeset	457	"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	458	"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	459	! !
2046f40e5dde Fixes to make SmallSense code completion working on eXept CVS version (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 69 diff changeset	460
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	461	!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	462
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	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	464	"return an initialized instance"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	465
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	466	\|serviceUsed\|
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	467
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	468	"/ cg: what an ugly hack; @Jan, why this
aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	469	"/ ^ (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	470
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	471	"/ cg: at least allow subclassing
aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	472	serviceUsed := self.
aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	473	self == Tools::CodeHighlightingService ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	474	serviceUsed := (SmallSense::CodeHighlightingService ? self).
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	475	].
aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	476	^ serviceUsed basicNew initialize
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	477
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	478	"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	479	"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	480	! !
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	481
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	482	!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	483
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	484	new
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	485	"return an initialized instance"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	486
99 6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	487	^ (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	488
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	489	"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	490	"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	491	! !
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	492
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	493	!Tools::LintService methodsFor:'event handling'!
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	494
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	495	buttonPress:button x:x y:y in:view
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	496	\|lineNr\|
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	497
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	498	view == gutterView ifTrue:[
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	499	button == 1 ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	500	lineNr := textView yVisibleToLineNr:y.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	501	lineNr notNil ifTrue:[
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	502	^ self showInfoWindowForLine: lineNr
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	503	].
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	504	^ false.
8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	505	].
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	506	].
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	507	^ false
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	"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	510	"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	511	! !
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	512
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	513	!Tools::LintService methodsFor:'private'!
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	showInfoWindowForLine: lineNo
1083 ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	516	\| ann infoApp \|
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	517
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	518	ann := self annotationAtLine: lineNo.
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	519	ann isNil ifTrue:[ ^ false ].
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	520
1083 ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	521	infoApp := SmallSense::CriticsWindow new
ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	522	rule: ann rule;
ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	523	codeView: codeView;
ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	524	allButOpen;
ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	525	openWindowAt: (Screen current pointerPosition - (20@20)).
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	526
1083 ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	527	SmallSense::CriticsWindow rememberLastExtentOf:infoApp window.
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	528	^true
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	529
368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	530	"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	531	"Modified: / 03-12-2014 / 10:00:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1083 ca84e06c117a class: Tools::LintService Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	532	"Modified: / 02-03-2019 / 13:09:34 / Claus Gittinger"
311 368ff7243ade Cleanup in SmalltalkLintService Jan Vrany <jan.vrany@fit.cvut.cz> parents: 308 diff changeset	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
1068 a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	760	smallSenseElectricEditSupportEnabled
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	761	^ self at:#smallSenseElectricEditSupportEnabled ifAbsent:[false]
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	762
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	763	"Created: / 23-04-2018 / 17:25:42 / stefan"
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	764	! !
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	765
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	766	!UserPreferences methodsFor:'accessing-SmallSense'!
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	767
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	768	smallSenseElectricEditSupportEnabled: aBoolean
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	769	^ self at:#smallSenseElectricEditSupportEnabled put: (aBoolean ? false).
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	770
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	771	"
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	772	UserPreferences current smallSenseElectricEditSupportEnabled
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	773	UserPreferences current smallSenseElectricEditSupportEnabled: true.
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	774	UserPreferences current smallSenseElectricEditSupportEnabled: false.
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	775	"
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	776
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	777	"Created: / 23-04-2018 / 17:25:16 / stefan"
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	778	! !
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	779
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	780	!UserPreferences methodsFor:'accessing-SmallSense'!
a1ade1a529c8 add smallSenseElectricEditSupportEnabled* Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	781
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	782	smallSenseEnabled
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	783	"Return true if SmallSense is enabled"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	784
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	785	^self at:#smallSenseEnabled ifAbsent:[false]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	786
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	787	"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	788	! !
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	789
20 65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	790	!UserPreferences methodsFor:'accessing-SmallSense'!
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	791
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	792	smallSenseEnabled: aBoolean
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	793	"enable/disable SmallSense"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	794
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	795	^self at:#smallSenseEnabled put: (aBoolean ? false).
20 65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	796
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	797	"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	798	UserPreferences current smallSenseEnabled.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	799	UserPreferences current smallSenseEnabled: true.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	800	UserPreferences current smallSenseEnabled: false.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	801	"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	802
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	803	"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	804	! !
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	805
255 c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	806	!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	807
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	808	smallSenseSmalltalkIndentOnPasteEnabled
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	809	"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	810
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	811	^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	812
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	813	"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	814	! !
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	815
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	816	!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	817
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	818	smallSenseSmalltalkIndentOnPasteEnabled: aBoolean
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	819	"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	820
916 8b0f48107fff somehow we can get nils as booleans. Claus Gittinger <cg@exept.de> parents: 878 diff changeset	821	^ 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	822
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	823	"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	824	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	825	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	826	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	827	"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	828
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	829	"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	830	! !
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	831
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	832	!VariableNode methodsFor:'queries'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	833
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	834	isGlobalOrPrivateClass
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	835
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	836	^ type == #GlobalVariable or:[type == #PrivateClass]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	837
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	838	"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	839	! !
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	840
106 1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	841	!VariableNode methodsFor:'navigation-SmallSense'!
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	842
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	843	navigateToUsing: navigator
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	844	navigator navigateToVariableNode: self.
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	845
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	846	"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	847	! !
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	848
249 8bc64027b189 Package renamed to stx:goodies/smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 197 diff changeset	849	!stx_goodies_smallsense class methodsFor:'documentation'!
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	850
878 b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	851	extensionsVersion_CVS
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	852	^ '$Header$'
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	853	! !
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	854
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	855	!stx_goodies_smallsense class methodsFor:'documentation'!
b969c8b5f4b9 class: RBTransformationRule Claus Gittinger <cg@exept.de> parents: 872 diff changeset	856
29 fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	857	extensionsVersion_HG
fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	858
fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	859	^ '$Changeset: <not expanded> $'
34 5be71b1d52ec SmallSenseResultItem ranemd to SmallSensePO. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	860	! !
872 aef8cc9059c8 class: Tools::CodeHighlightingService Claus Gittinger <cg@exept.de> parents: 315 diff changeset	861

author	Claus Gittinger <cg@exept.de>
	Wed, 08 May 2019 03:10:11 +0200
branch	cvs_MAIN
changeset 1086	7c310120c9dd
parent 1083	ca84e06c117a
child 1087	75d5cb624db4
permissions	-rw-r--r--