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

249 8bc64027b189 Package renamed to stx:goodies/smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 197 diff changeset	1	"{ Package: 'stx:goodies/smallsense' }"!
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	!AssignmentNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	aBlock value: #variable value: variable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	aBlock value: #expression value: expression.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	"Modified: / 26-11-2011 / 10:39:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	12
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!AssignmentNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	^ expression inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	21
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	!AssignmentNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	inferedType: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	^ self shouldNotImplement
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	"Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	30
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	31	!BlockNode methodsFor:'enumeration'!
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	32
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	33	childNamesAndValuesDo:aBlock
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	34	"Enumerates all direct children and evaluates a block
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	35	with its name (usually instVar name) and the node itself"
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	36
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	37	aBlock value:'statements' value: statements
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	38
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	39	"Created: / 20-09-2013 / 01:03:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	40	! !
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	41
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	42	!ConfigurableFeatures class methodsFor:'queries-features'!
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	43
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	44	hasSmallSenseEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	45
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	46	^UserPreferences current smallSenseEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	47
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	48
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	49	"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	50	ConfigurableFeatures hasSmallSenseEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	51	ConfigurableFeatures includesFeature:'SmallSenseEnabled'
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	52	"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	53
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	54	"Created: / 27-11-2011 / 17:22:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	55	! !
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	56
63 fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	57	!DoWhatIMeanSupport methodsFor:'code completion - smallsense'!
fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	58
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	59	stx_goodies_smallsense_codeCompletionForClass:classOrNilArg context:contextOrNil codeView:codeViewArg
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	60	<swizzle: #codeCompletionForClass:context:codeView:>
63 fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	61	"SmallSense version of #codeCompletionForClass:context:codeView:.
fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	62
fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	63	When SmallSense is loaded, this method is swizzled as #codeCompletionForClass:context:codeView:.
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	64	into DoWhatIMeanSupport."
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	65
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	66	\| p node text items mode \|
63 fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	67
fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	68	codeView := codeViewArg.
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	69
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	70	"/ The respondsTo: hack is because CVS CodeView2 has no #mode method.
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	71
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	72	mode := (codeView respondsTo:#mode) ifTrue:[
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	73	codeView mode
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	74	] ifFalse:[ #method ].
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	75	contextOrNil notNil ifTrue:[
63 fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	76	mode := #method.
fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	77	].
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	78	items := SmallSense::SmalltalkCompletion
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	79	resultSetFor:mode
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	80	source:codeView contents
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	81	class:classOrNilArg
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	82	line:codeView cursorLine
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	83	column:codeView cursorCol.
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	84	items notEmptyOrNil ifTrue:[
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	85	(p := items position) notNil ifTrue:[
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	86	node := p node.
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	87	node notNil ifTrue:[
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	88	(node isVariable and:[ p isInNode ]) ifTrue:[
63 fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	89	text := node name
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	90	] ifFalse:[
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	91	node isMessage ifTrue:[
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	92	text := node selector
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	93	]
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	94	].
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	95	].
63 fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	96	].
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	97	].
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	98	SmallSense::CompletionWindow
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	99	openForView:codeView
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	100	text:text
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	101	items:items.
63 fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	102
fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	103	"Created: / 19-08-2013 / 15:01:23 / 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	104	"Modified: / 02-09-2013 / 12:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
63 fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	105	! !
fe86b749d233 Support for SmallSense code completion in debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	106
137 12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	107	!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	108
12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	109	autoIndent
12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	110	^ autoIndent
12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	111	! !
12232e62cf54 Fixes in electring snippets (both in API and Smalltalk snippets) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 106 diff changeset	112
279 1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	113	!EditTextViewCompletionSupport methodsFor:'queries'!
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	114
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	115	isCompletionViewShown
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	116	^ 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	117
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	118	"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	119	! !
1dcaf8e06968 Improvement in JavaEditSupport - indent when return is pressed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 275 diff changeset	120
16 900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	121	!HTMLDocumentView methodsFor:'actions'!
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	122
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	123	doQuickFix: quickFixNo
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	124	\| app \|
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	125
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	126	app := self application.
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	127	app notNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	128	app doQuickFix: quickFixNo
16 900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	129	].
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	130
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	131	"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	132	! !
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	133
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	!MessageNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	aBlock value: #receiver value: receiver.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	argArray notNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	140	argArray withIndexDo:[:node :idx\|
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	141	aBlock value: 'arg[' , idx printString , ']' value: node
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	142	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	"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	146	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	147
106 1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	148	!MessageNode methodsFor:'navigation-SmallSense'!
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	149
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	150	navigateToUsing: navigator
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	151	navigator navigateToMessageNode: self.
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	152
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	153	"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	154	! !
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	155
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	156	!Method methodsFor:'inspecting'!
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	157
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	158	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	159	<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	160
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	161	^ (self newInspector2Tab)
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	162	label:'Parse Tree (RB)';
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	163	priority:35;
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	164	application:
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	165	[
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	166	\| src node \|
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	167
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	168	src := self source.
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	169	node := RBParser parseMethod: src.
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	170	SmallSense::ParseTreeInspector new node:node source:src.
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	171	];
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	172	yourself
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	173
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	174	"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	175	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	176
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	177	!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	178
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	179	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	180	<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	181
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	182	^ (self newInspector2Tab)
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	183	label:'Parse Tree (ST/X)';
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	184	priority:36;
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	185	application:
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	186	[
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	187	\| src parser \|
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	188
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	189	src := self source.
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	190	parser := self parserClass parseMethod: src.
197 49a859d7aa94 Renamed ParseNodeInspector to ParseTreeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 196 diff changeset	191	SmallSense::ParseTreeInspector new node:parser tree source:src.
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	192	];
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	193	yourself
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	194
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	195	"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	196	! !
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	197
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	!ParseErrorNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	"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	202
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	203	^ children withIndexDo:[:child :index \|
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	204	aBlock value:'child[' , index printString , ']' value: child
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	205	]
60 0daf99c34c5e Initial support for syntax-error tolerant parsing of Smalltalk. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	206
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	207	"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	208	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	209
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	!ParseNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211
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	212	childNamesAndValuesDo:aBlock
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	"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	214	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	215
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	216	self class allInstVarNames withIndexDo:[:n :i\|
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	217	\| v \|
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	218
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	219	v := self instVarAt: i.
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	220	(v isKindOf: ParseNode) ifTrue:[
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	221	aBlock value: n value: v
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	222	] ifFalse:[
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	223	(v isSequenceable) ifTrue:[
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	224	v withIndexDo:[ :v2 :i2\|
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	225	(v2 isKindOf: ParseNode) ifTrue:[
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	226	aBlock value: (n, '[' , i2 printString , ']') value: v2.
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	227	]
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	228	]
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	229	]
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	230	]
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	231	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	"Created: / 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	234	"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	235	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	236
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	!ParseNode methodsFor:'accessing-SmallSense'!
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	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	\| t \|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	t := self objectAttributeAt:#inferedType.
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	243	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	244	^t
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	"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	247	"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	248	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	249
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250	!ParseNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	inferedType: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	^ self objectAttributeAt:#inferedType put: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	"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	257	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	258
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	259	!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	260
ad653f664e59 Added RB parse 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	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	262	<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	263
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	264	^ (self newInspector2Tab)
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	265	label:'Parse Tree (ST/X)';
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	266	priority:36;
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	267	application:
ad653f664e59 Added RB parse 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	SmallSense::ParseTreeInspector new node:self source:nil.
ad653f664e59 Added RB parse 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	yourself
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	272
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	273	"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	274	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	275
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	!ParseNode methodsFor:'testing'!
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	isSelector
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	"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	280
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	^ false
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	"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	284	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	285
102 538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	286	!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	287
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	288	navigateToUsing:navigator
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	289	"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	290
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	291	"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	292	! !
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	293
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	294	!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	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	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	297	<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	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	^ (self newInspector2Tab)
ad653f664e59 Added RB parse 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	label:'Parse Tree (ST/X)';
ad653f664e59 Added RB parse 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	priority:36;
ad653f664e59 Added RB parse 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	application:
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	303	[
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	304	\| src parser \|
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	305
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	306	source isExternalStream ifFalse:[
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	307	src := source collection
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	308	].
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	309	SmallSense::ParseTreeInspector new node:tree source:src.
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	310	];
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	311	yourself
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	312
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	313	"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	314	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	315
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	!PrimaryNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	"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	321
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	"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	323	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	324
150 f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	325	!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	326
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	327	inferedType
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	328
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	329	^ 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	330
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	331	"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	332	! !
f3e694a9aa12 Added PrimitiveNode>>inferredType as ingerited version is does not work. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 147 diff changeset	333
291 ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	334	!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	335
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	336	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	337	arguments withIndexDo:[:statement :index \|
ad653f664e59 Added RB parse 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	aBlock value: 'argument[', index printString ,']' value: statement
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	339	].
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	340	body statements withIndexDo:[:statement :index \|
ad653f664e59 Added RB parse 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	aBlock value: 'statement[', index printString ,']' value: statement
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	342	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	343
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	344	"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	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
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	347	!RBLintRule methodsFor:'accessing'!
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	348
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	349	fixes: aSmallSenseQuickFixer
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	350	"Adds all possible code fixes to given quick fixer.
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	351	Default is to do nothing, meaning that there are
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	352	no quickfixes available"
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	353
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	354	"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	355	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	356
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	357	!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	358
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	359	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	360	arguments withIndexDo:[:statement :index \|
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	361	aBlock value: 'argument[', index printString ,']' value: statement
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	362	].
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	363	body statements withIndexDo:[:statement :index \|
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	364	aBlock value: 'statement[', index printString ,']' value: statement
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	365	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	366
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	367	"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	368	"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	369	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	370
ad653f664e59 Added RB parse 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	!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	372
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	373	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	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	"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	376	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	377
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	378	self class allInstVarNames withIndexDo:[:n :i\|
ad653f664e59 Added RB parse 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	\| v \|
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	380
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	381	n ~~ #parent ifTrue:[
ad653f664e59 Added RB parse 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	v := self instVarAt: i.
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	383	(v isKindOf: RBProgramNode) ifTrue:[
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	384	aBlock value: n value: v
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	385	] ifFalse:[
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	386	(v isSequenceable) ifTrue:[
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	387	v withIndexDo:[ :v2 :i2\|
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	388	(v2 isKindOf: RBProgramNode) ifTrue:[
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	389	aBlock value: (n, '[' , i2 printString , ']') value: v2.
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	390	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	391	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	392	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	393	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	394	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	395	]
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	396
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	397	"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	398	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	399
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	400	!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	401
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	402	endPosition
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	403	^ self stop
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	404
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	405	"Created: / 15-10-2014 / 09:34:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	406	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	407
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	408	!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	409
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	410	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	411	^ 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	412
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	413	"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	414	! !
ad653f664e59 Added RB parse tree support for parse tree inspector. Added tree inspector tab to many objects. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 289 diff changeset	415
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	416	!RBTransformationRule methodsFor:'accessing'!
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	417
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	418	fixes: fixer
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	419	\| changes \|
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	420
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	421	changes := self changes.
8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	422	changes notEmptyOrNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	423	fixer fix
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	424	label:'Rewrite the code';
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	425	action: [ fixer apply:
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	426	((ChangeSet withAll:self changes) name: self name)
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	427	].
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	428	]
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	429
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	430	"Created: / 01-02-2012 / 12:11:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	431	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	432
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	433	!ReturnNode methodsFor:'enumeration'!
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	434
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	435	childNamesAndValuesDo:aBlock
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	436	aBlock value: 'expression' value: expression.
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	437
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	438	"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	439	! !
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	440
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	!StatementNode methodsFor:'enumeration'!
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	childNamesAndValuesDo:aBlock
15 23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	444	\| stmt index \|
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	445	stmt := self.
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	446	index := 1.
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	447	[ stmt notNil ] whileTrue:[
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	448	\| expr \|
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	449
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	450	stmt isReturnNode ifTrue:[
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	451	expr := stmt.
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	452	] ifFalse:[
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	453	expr := stmt expression.
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	454	].
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	455	aBlock value: ('statement[%1]' bindWith: index) value: expr.
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	456	stmt := stmt nextStatement.
47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	457	index := index + 1.
15 23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	458	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459
196 47c92efe24e5 Fixes/improvements in ParseNodeInspector. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 177 diff changeset	460	"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	461	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	462
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	!StatementNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467	^ expression inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	"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	470	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	471
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	!StatementNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	473
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	474	inferedType: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	475
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	476	^ self shouldNotImplement
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	"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	479	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	480
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	481	!Tools::CodeCompletionService class methodsFor:'testing'!
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	482
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	483	stx_goodies_smallsense_isUsefulFor: arg1
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	484	<swizzle: #isUsefulFor:>
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	485
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	486	^ false
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	487	! !
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	488
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	489	!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	490
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	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	492	"return an initialized instance"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	493
99 6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	494	^ (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	495
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	496	"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	497	"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	498	! !
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	499
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	500	!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	501
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	502	new
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	503	"return an initialized instance"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	504
99 6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	505	^ (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	506
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	507	"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	508	"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	509	! !
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	510
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	511	!Tools::NavigationState methodsFor:'aspects - SmallSense'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	512
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	513	stx_goodies_smallsense_selectedClasses
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	514	<swizzle: #selectedClasses>
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	515	selectedClasses isNil ifTrue:[
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	516	selectedClasses := nil asValue.
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	517	(ConfigurableFeatures includesFeature:'SmallSenseEnabled') ifTrue:[
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	518	selectedClasses
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	519	onChangeEvaluate:[
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	520	selectedClasses value ? #() do:[:cls \|
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	521	(Smalltalk at:#'SmallSense::Manager') instance updateInfoForClass:cls.
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	522	].
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	523	]
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	524	]
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	525	].
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	526	^ selectedClasses
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	527
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	528	"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	529	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	530
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	531	!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	532
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	533	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	534	"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	535	standard DoWhatIMeanSupport"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	536
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	537	^ [: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	538
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	539	"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	540	! !
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	541
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	542	!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	543
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	544	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	545	"/sorry, no method search yet"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	546
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	547	^ 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	548
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	549	"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	550	"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	551	! !
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	552
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	553	!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	554
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	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	556	"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	557	standard DoWhatIMeanSupport"
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	558
147 5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	559	^ [: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	560
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	561	"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	562	"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	563	! !
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	!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	566
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	567	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	568	^ (SmallSense::ClassPO new)
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	klass:aClass;
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	570	showPrefix:showPrefix.
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
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	"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	573	"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	574	! !
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	!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	577
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	578	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	579	\| 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	580
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	581	patternString isEmptyOrNil ifTrue:[
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	582	^ #( '' #() )
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	583	].
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	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	585	env = NavigatorModel nameListEntryForALL ifTrue:[
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	env := #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	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	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	589	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	590	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	591	withPrefix ifTrue:[
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	matcher := [:cls \| pattern match:cls name ]
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	593	] ifFalse:[
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	594	matcher := [:cls \| pattern match:cls nameWithoutPrefix ]
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	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	597	[
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	matches isEmptyOrNil and:[ relax <= 3 ]
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	] whileTrue:[
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	matches := OrderedCollection new.
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	601	env
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	602	keysDo:[:nm \|
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	\| cls \|
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	cls := env at:nm.
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	606	(cls notNil and:[ cls isBehavior and:[ (matches includesIdentical:cls) not ] ])
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	ifTrue:[
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	608	"cls isJavaClass"false ifTrue:[
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	609	cls isAnonymous ifFalse:[
270 51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	610	(matcher value:cls) ifTrue:[
51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	611	matches add:cls
51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	612	].
51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	613	].
51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	614	] ifFalse:[
51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	615	(matcher value:cls) ifTrue:[
51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	616	matches add:cls
51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	617	].
51c4ee46f5c0 Support for completion of Java catch clause (completes exception classes) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 255 diff changeset	618	]
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	].
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	relax := 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	622	].
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	matches isEmpty ifTrue:[
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	624	^ #( nil #() )
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	625	] ifFalse:[
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	626	matches := matches
5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	627	collect:[: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	self smallSenseSearchCompletionEntryForClass:cls showPrefix: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	629	].
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	630	^ {
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	631	matches first.
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	632	matches
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	633	}
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	634	]
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	635
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	636	"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	637	"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	638	! !
5c835893f71b New class search completion for browser's search bar moved to SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 137 diff changeset	639
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640	!UserPreferences methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	641
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	642	smallSenseBackgroundLintEnabled
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	643	"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	644
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	645	^self at:#smallSenseBackgroundLintEnabled ifAbsent:[false]
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	646
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	647	"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	648	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	649
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	650	!UserPreferences methodsFor:'accessing-SmallSense'!
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	651
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	652	smallSenseBackgroundLintEnabled: aBoolean
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	653	"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	654
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	655	^self at:#smallSenseBackgroundLintEnabled put: aBoolean
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	656
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	657	"
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	658	UserPreferences current smallSenseBackgroundLintEnabled
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	659	UserPreferences current smallSenseBackgroundLintEnabled: true
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	660	UserPreferences current smallSenseBackgroundLintEnabled: false
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	661	"
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	662
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	663	"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	664	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	665
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	666	!UserPreferences methodsFor:'accessing-SmallSense'!
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	667
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	668	smallSenseBackgroundTypingEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	669	"Return true if SmallSense background source checking is enabled"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	670
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	671	^self at:#smallSenseBackgroundTypingEnabled ifAbsent:[false]
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	672
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	673	"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	674	! !
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	675
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	676	!UserPreferences methodsFor:'accessing-SmallSense'!
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	677
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	678	smallSenseBackgroundTypingEnabled: aBoolean
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	679	"Return true if SmallSense background source checking is enabled"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	680
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	681	^self at:#smallSenseBackgroundTypingEnabled put: aBoolean
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	682
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	683	"
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	684	UserPreferences current smallSenseBackgroundTypingEnabled
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	685	UserPreferences current smallSenseBackgroundTypingEnabled: true
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	686	UserPreferences current smallSenseBackgroundTypingEnabled: false
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	687	"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	688
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	689	"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	690	! !
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	691
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	692	!UserPreferences methodsFor:'accessing-SmallSense'!
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	693
154 b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	694	smallSenseCompleteIfUnambiguous
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	695
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	696	^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	697
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	698	"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	699	! !
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	700
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	701	!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	702
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	703	smallSenseCompleteIfUnambiguous: aBoolean
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	704
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	705	^self at:#smallSenseCompleteIfUnambiguous put: aBoolean.
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	706
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	707	"
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	708	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	709	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	710	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	711	"
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	712
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	713	"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	714	! !
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	715
b96fbde91144 Support for auto-completion of unambigous items (such as instvars) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 150 diff changeset	716	!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	717
177 be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	718	smallSenseCompletionEnabled
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	719
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	720	^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	721
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	722	"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	723	! !
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	724
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	725	!UserPreferences methodsFor:'accessing-SmallSense'!
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	726
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	727	smallSenseCompletionEnabled: aBoolean
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	728
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	729	^self at:#smallSenseCompletionEnabled put: aBoolean
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	730
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	731	"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	732	! !
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	733
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	734	!UserPreferences methodsFor:'accessing-SmallSense'!
be588b60f4b2 Added preference to enable/disable SmallSense completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 176 diff changeset	735
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	736	smallSenseEnabled
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	737	"Return true if SmallSense is enabled"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	738
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	739	^self at:#smallSenseEnabled ifAbsent:[false]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	740
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	741	"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	742	! !
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	743
20 65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	744	!UserPreferences methodsFor:'accessing-SmallSense'!
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	745
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	746	smallSenseEnabled: aBoolean
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	747	"enable/disable SmallSense"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	748
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	749	^self at:#smallSenseEnabled put: aBoolean.
20 65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	750
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	751	"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	752	UserPreferences current smallSenseEnabled.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	753	UserPreferences current smallSenseEnabled: true.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	754	UserPreferences current smallSenseEnabled: false.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	755	"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	756
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	757	"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	758	! !
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	759
255 c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	760	!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	761
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	762	smallSenseSmalltalkIndentOnPasteEnabled
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	763	"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	764
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	765	^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	766
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	767	"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	768	! !
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	769
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	770	!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	771
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	772	smallSenseSmalltalkIndentOnPasteEnabled: aBoolean
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	773	"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	774
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	775	^ self at:#smallSenseSmalltalkIndentOnPasteEnabled put: aBoolean
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	776
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	777	"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	778	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	779	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	780	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	781	"
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	782
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	783	"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	784	! !
c32b4a6595d6 Added preference to enable / disable indent-on-paste feature. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 249 diff changeset	785
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	786	!VariableNode methodsFor:'queries'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	787
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	788	isGlobalOrPrivateClass
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	789
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	790	^ type == #GlobalVariable or:[type == #PrivateClass]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	791
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	792	"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	793	! !
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	794
106 1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	795	!VariableNode methodsFor:'navigation-SmallSense'!
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	796
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	797	navigateToUsing: navigator
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	798	navigator navigateToVariableNode: self.
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	799
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	800	"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	801	! !
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	802
100 6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	803	!Workspace class methodsFor:'defaults - smallsense'!
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	804
289 5c2cffd3c13c Swizzling refactored. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 279 diff changeset	805	stx_goodies_smallsense_codeCompletionServiceClass
100 6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	806	<swizzle: #codeCompletionServiceClass>
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	807	^ SmallSense::CodeCompletionService
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	808
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	809	"Created: / 24-09-2013 / 00:29:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	810	! !
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	811
249 8bc64027b189 Package renamed to stx:goodies/smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 197 diff changeset	812	!stx_goodies_smallsense class methodsFor:'documentation'!
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	813
29 fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	814	extensionsVersion_HG
fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	815
fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	816	^ '$Changeset: <not expanded> $'
34 5be71b1d52ec SmallSenseResultItem ranemd to SmallSensePO. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	817	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 15 Oct 2014 11:45:01 +0100
changeset 291	ad653f664e59
parent 289	5c2cffd3c13c
child 299	8fb1a71e54f2
permissions	-rw-r--r--