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

32 658f47bc231e Code moved to package jv:smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	1	"{ Package: 'jv: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
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	59	smallSenseCodeCompletionForClass: classOrNilArg context: contextOrNil codeView: codeViewArg
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."
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	65
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.
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	69
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.
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	71
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	72	mode := (codeView respondsTo: #mode) ifTrue: [
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	73	codeView mode
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	74	] ifFalse: [ #method ].
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 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	].
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	78	items := SmallSense::SmalltalkCompletion
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	79	resultSetFor: mode
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	80	source: codeView contents
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	81	class: classOrNilArg
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	82	line: codeView cursorLine
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	83	column: codeView cursorCol.
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	84	items notEmptyOrNil ifTrue: [
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	85	(p := items position) notNil ifTrue: [
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	86	node := p node.
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	87	node notNil ifTrue: [
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 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
101 a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	90	] ifFalse: [
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	91	node isMessage ifTrue: [
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	].
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	98	SmallSense::CompletionWindow
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	99	openForView: codeView
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 diff changeset	100	text: text
a300290bf8fc Classes renamed to better express theit purpose. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 100 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
16 900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	113	!HTMLDocumentView methodsFor:'actions'!
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	114
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	115	doQuickFix: quickFixNo
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	116	\| app \|
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	117
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	118	app := self application.
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	119	app notNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	120	app doQuickFix: quickFixNo
16 900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	121	].
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	"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	124	! !
900fdba78fb2 Lint checking improved Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	125
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	!MessageNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	aBlock value: #receiver value: receiver.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	argArray notNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	132	argArray withIndexDo:[:node :idx\|
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	133	aBlock value: 'arg[' , idx printString , ']' value: node
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	134	]
0 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
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	"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	138	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	139
106 1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	140	!MessageNode methodsFor:'navigation-SmallSense'!
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	141
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	142	navigateToUsing: navigator
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	143	navigator navigateToMessageNode: self.
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	144
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	145	"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	146	! !
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	147
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	!ParseErrorNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	"superclass ParseNode says that I am responsible to implement this method"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	153	^ children withIndexDo:[:child :index \|
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	154	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	155	]
60 0daf99c34c5e Initial support for syntax-error tolerant parsing of Smalltalk. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 51 diff changeset	156
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	157	"Modified: / 20-09-2013 / 01:00:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	159
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	!ParseNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	162	childNamesAndValuesDo:aBlock
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	"Enumerates all direct children and evaluates a block
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	with its name (usually instVar name) and the node itself"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	166	self class allInstVarNames withIndexDo:[:n :i\|
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	167	\| 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	168
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	169	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	170	(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	171	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	172	] 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	173	(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	174	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	175	(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	176	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	177	]
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	178	]
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	179	]
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	180	]
c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	181	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	"Created: / 26-11-2011 / 10:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
98 c21c3e61a377 Fixes for ParseNodeInspector. Display nodes with no source position info in red. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 80 diff changeset	184	"Modified: / 19-09-2013 / 18:18:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	186
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	!ParseNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	\| t \|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	t := self objectAttributeAt:#inferedType.
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	193	t isNil ifTrue:[t := SmallSense::Type unknown].
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	^t
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	"Created: / 26-11-2011 / 12:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	197	"Modified: / 24-08-2013 / 20:46:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	199
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	!ParseNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	inferedType: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	^ self objectAttributeAt:#inferedType put: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	"Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	208
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	!ParseNode methodsFor:'testing'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	isSelector
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	"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	213
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	^ false
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	"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	217	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	218
102 538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	219	!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	220
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	221	navigateToUsing:navigator
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	222	"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	223
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	224	"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	225	! !
538fc4ef040c CodeNavigation service refactored to support Java (not yet done, though) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 101 diff changeset	226
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	!PrimaryNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	childNamesAndValuesDo:aBlock
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	"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	232
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	"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	234	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	235
174 3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	236	!PrimitiveNode methodsFor:'accessing-SmallSense'!
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	237
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	238	inferedType
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	239
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	240	^ SmallSense::Type withClass: UndefinedObject "/ Not really true, should be 'void'
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	241
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	242	"Created: / 08-12-2013 / 22:25:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	243	! !
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	244
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	245	!RBLintRule methodsFor:'accessing'!
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	246
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	247	fixes: aSmallSenseQuickFixer
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	248	"Adds all possible code fixes to given quick fixer.
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	249	Default is to do nothing, meaning that there are
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	250	no quickfixes available"
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	251
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	252	"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	253	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	254
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	255	!RBTransformationRule methodsFor:'accessing'!
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	256
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	257	fixes: fixer
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	258	\| changes \|
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	259
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	260	changes := self changes.
8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	261	changes notEmptyOrNil ifTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	262	fixer fix
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	263	label:'Rewrite the code';
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	264	action: [ fixer apply:
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	265	((ChangeSet withAll:self changes) name: self name)
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	266	].
17 8443d79a77ac Improvements in background lint checker Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	267	]
9 7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	268
7c4f6be917fe Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	269	"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	270	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	271
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	!StatementNode methodsFor:'enumeration'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	childNamesAndValuesDo:aBlock
15 23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	275	\| stmt index \|
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	276	stmt := self.
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	277	index := 1.
23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	278	[ stmt notNil ] whileTrue:[
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	279	aBlock value: ('statement[%1]' bindWith: index) value: stmt expression.
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	280	stmt := stmt nextStatement.
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	281	index := index + 1.
15 23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	282	]
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283
15 23ecfbccccd5 Updates in SmallSenseParseNodeInspector Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	284	"Modified: / 15-02-2012 / 12:50:30 / 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	285	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	286
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	!StatementNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	^ expression inferedType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	"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	294	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	295
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296	!StatementNode methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	inferedType: aSmallSenseType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	^ self shouldNotImplement
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	"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	303	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	304
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	305	!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	306
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	307	smallSenseIsUsefulFor:aCodeView
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	308	"No old completion once there's SmallSense :-)"
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	309
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	310	<swizzle: #isUsefulFor:>
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	311
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	312	^ false.
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	313
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	314	"Created: / 02-09-2013 / 12:58:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
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	315	! !
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	316
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	317	!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	318
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	319	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	320	"return an initialized instance"
99 6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	321
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	322	^ (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	323
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	324	"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	325	"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	326	! !
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	327
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	328	!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	329
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	330	new
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	331	"return an initialized instance"
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	332
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	333	^ (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	334
6943778c2db7 SyntaxHighlightingService renamed to CodeHighlightingService to match those in tools. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 98 diff changeset	335	"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	336	"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	337	! !
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	338
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	339	!Tools::NavigationState methodsFor:'aspects - SmallSense'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	340
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	341	smallSenseSelectedClasses
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	342
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	343	<swizzle: #selectedClasses>
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	344
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	345	selectedClasses isNil ifTrue:[
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	346	selectedClasses := "SpecialValueHolder with:nil." nil asValue.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	347	(ConfigurableFeatures includesFeature:'SmallSenseEnabled') ifTrue:[
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	348	selectedClasses onChangeEvaluate:[
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	349	selectedClasses value ? #() do:[:cls\|
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	350	(Smalltalk at:#SmallSense::Manager) instance updateInfoForClass: cls.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	351	].
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	352	]
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	353	]
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	354	].
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	355	^ selectedClasses
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	356
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	357	"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	358	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	359
174 3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	360	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	361
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	362	searchCompletionBlock_SmallSense
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	363	"This returns a class/selector name completion block that uses
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	364	standard DoWhatIMeanSupport"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	365
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	366	^ [:patternString \| self smallSenseSearchCompletion:patternString ]
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	367
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	368	"Created: / 25-11-2013 / 12:27:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	369	! !
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	370
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	371	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	372
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	373	smallSenseSearchCompletion:patternString
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	374	"/sorry, no method search yet"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	375
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	376	^ self smallSenseSearchCompletionNewForClass:patternString
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	377
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	378	"Modified: / 04-08-2011 / 19:05:28 / cg"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	379	"Created: / 04-12-2011 / 22:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	380	! !
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	381
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	382	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	383
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	384	smallSenseSearchCompletionBlock
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	385	"This returns a class/selector name completion block that uses
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	386	standard DoWhatIMeanSupport"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	387
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	388	^ [:patternString \| self smallSenseSearchCompletion:patternString ]
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	389
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	390	"Modified: / 04-08-2011 / 19:05:28 / cg"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	391	"Created: / 04-12-2011 / 22:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	392	! !
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	393
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	394	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	395
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	396	smallSenseSearchCompletionEntryForClass:aClass showPrefix:showPrefix
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	397	^ (SmallSense::ClassPO new)
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	398	klass:aClass;
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	399	showPrefix:showPrefix.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	400
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	401	"Created: / 06-04-2012 / 12:55:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	402	"Modified: / 25-11-2013 / 12:16:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	403	! !
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	404
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	405	!Tools::NewSystemBrowser methodsFor:'private-searching-smallsense'!
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	406
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	407	smallSenseSearchCompletionNewForClass:patternString
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	408	\| env pattern matcher matches relax withPrefix \|
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	409
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	410	patternString isEmptyOrNil ifTrue:[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	411	^ #( '' #() )
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	412	].
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	413	env := self theSingleSelectedNamespace ? #Smalltalk.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	414	env = NavigatorModel nameListEntryForALL ifTrue:[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	415	env := #Smalltalk
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	416	].
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	417	env := Smalltalk at:env.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	418	withPrefix := patternString includes:$:.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	419	pattern := StringPattern readFrom:patternString onError:[ ^ #( '' #() ) ].
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	420	withPrefix ifTrue:[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	421	matcher := [:cls \| pattern match:cls name ]
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	422	] ifFalse:[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	423	matcher := [:cls \| pattern match:cls nameWithoutPrefix ]
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	424	].
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	425	relax := 1.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	426	[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	427	matches isEmptyOrNil and:[ relax <= 3 ]
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	428	] whileTrue:[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	429	matches := OrderedCollection new.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	430	env
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	431	keysDo:[:nm \|
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	432	\| cls \|
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	433
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	434	cls := env at:nm.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	435	(cls notNil
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	436	and:[ cls isBehavior and:[ (matches includesIdentical:cls) not ] ])
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	437	ifTrue:[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	438	(matcher value:cls) ifTrue:[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	439	matches add:cls
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	440	].
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	441	].
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	442	].
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	443	relax := relax + 1.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	444	].
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	445	matches isEmpty ifTrue:[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	446	^ #( nil #() )
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	447	] ifFalse:[
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	448	matches := matches
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	449	collect:[:cls \|
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	450	self smallSenseSearchCompletionEntryForClass:cls showPrefix:withPrefix
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	451	].
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	452	^ {
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	453	matches first.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	454	matches
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	455	}
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	456	]
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	457
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	458	"Created: / 06-04-2012 / 12:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	459	! !
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	460
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461	!UserPreferences methodsFor:'accessing-SmallSense'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	463	smallSenseBackgroundLintEnabled
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	464	"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	465
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	466	^self at:#smallSenseBackgroundLintEnabled ifAbsent:[false]
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	467
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	468	"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	469	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	470
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	471	!UserPreferences methodsFor:'accessing-SmallSense'!
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	472
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	473	smallSenseBackgroundLintEnabled: aBoolean
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	474	"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	475
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	476	^self at:#smallSenseBackgroundLintEnabled put: aBoolean
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	477
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	478	"
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	479	UserPreferences current smallSenseBackgroundLintEnabled
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	480	UserPreferences current smallSenseBackgroundLintEnabled: true
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	481	UserPreferences current smallSenseBackgroundLintEnabled: false
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	482	"
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	483
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	484	"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	485	! !
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	486
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	487	!UserPreferences methodsFor:'accessing-SmallSense'!
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	488
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	489	smallSenseBackgroundTypingEnabled
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	490	"Return true if SmallSense background source checking is enabled"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	491
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	492	^self at:#smallSenseBackgroundTypingEnabled ifAbsent:[false]
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	493
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	494	"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	495	! !
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	496
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	497	!UserPreferences methodsFor:'accessing-SmallSense'!
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	498
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	499	smallSenseBackgroundTypingEnabled: aBoolean
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	500	"Return true if SmallSense background source checking is enabled"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	501
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	502	^self at:#smallSenseBackgroundTypingEnabled put: aBoolean
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	503
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	504	"
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	505	UserPreferences current smallSenseBackgroundTypingEnabled
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	506	UserPreferences current smallSenseBackgroundTypingEnabled: true
75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	507	UserPreferences current smallSenseBackgroundTypingEnabled: false
11 17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	508	"
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	509
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	510	"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	511	! !
17938f618c57 Added settings application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	512
5 9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	513	!UserPreferences methodsFor:'accessing-SmallSense'!
9b296f3ad0a4 Added code critics (lint) window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	514
174 3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	515	smallSenseCompleteIfUnambiguous
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	516
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	517	^self at:#smallSenseCompleteIfUnambiguous ifAbsent:[false]
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	518
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	519	"Created: / 18-01-2014 / 23:08:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	520	! !
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	521
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	522	!UserPreferences methodsFor:'accessing-SmallSense'!
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	523
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	524	smallSenseCompleteIfUnambiguous: aBoolean
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	525
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	526	^self at:#smallSenseCompleteIfUnambiguous put: aBoolean.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	527
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	528	"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	529	UserPreferences current smallSenseCompleteIfUnambiguous
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	530	UserPreferences current smallSenseCompleteIfUnambiguous: true.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	531	UserPreferences current smallSenseCompleteIfUnambiguous: false.
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	532	"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	533
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	534	"Created: / 18-01-2014 / 23:08:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	535	! !
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	536
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	537	!UserPreferences methodsFor:'accessing-SmallSense'!
3e08d765d86f sync from current CVS head; fixed comment highlighting for STXEOLRule Claus Gittinger parents: 137 diff changeset	538
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539	smallSenseEnabled
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	"Return true if SmallSense is enabled"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	542	^self at:#smallSenseEnabled ifAbsent:[false]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	"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	545	! !
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	546
20 65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	547	!UserPreferences methodsFor:'accessing-SmallSense'!
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	548
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	549	smallSenseEnabled: aBoolean
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	550	"enable/disable SmallSense"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	551
23 75fba0a79b3f Fixes UserPreferences Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	552	^self at:#smallSenseEnabled put: aBoolean.
20 65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	553
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	554	"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	555	UserPreferences current smallSenseEnabled.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	556	UserPreferences current smallSenseEnabled: true.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	557	UserPreferences current smallSenseEnabled: false.
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	558	"
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	559
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	560	"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	561	! !
65bee305e13f Added UserPreferences>>smallSenseEnabled: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 19 diff changeset	562
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563	!VariableNode methodsFor:'queries'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565	isGlobalOrPrivateClass
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567	^ type == #GlobalVariable or:[type == #PrivateClass]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	569	"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	570	! !
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	571
106 1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	572	!VariableNode methodsFor:'navigation-SmallSense'!
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	573
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	574	navigateToUsing: navigator
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	575	navigator navigateToVariableNode: self.
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	576
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	577	"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	578	! !
1ab781eac004 Even more support for Java Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	579
100 6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	580	!Workspace class methodsFor:'defaults - smallsense'!
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	581
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	582	smallSenseCodeCompletionServiceClass
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	583	<swizzle: #codeCompletionServiceClass>
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	584
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	585	^ SmallSense::CodeCompletionService
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	586
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	587	"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	588	! !
6d2fb43e661b Initial support for complete-as-you-type. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 99 diff changeset	589
32 658f47bc231e Code moved to package jv:smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	590	!jv_smallsense class methodsFor:'documentation'!
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591
29 fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	592	extensionsVersion_HG
fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	593
fe650a6e5704 Moved NavigationState>>selectedClasses to package stx:libtool. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	594	^ '$Changeset: <not expanded> $'
34 5be71b1d52ec SmallSenseResultItem ranemd to SmallSensePO. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	595	! !

author	Claus Gittinger
	Wed, 26 Feb 2014 19:06:00 +0100
changeset 174	3e08d765d86f
parent 137	12232e62cf54
child 176	df6d3225d1e4
permissions	-rw-r--r--