hg/stx-goodies-smallsense: SmallSense__PO.st@7c23c51d2cfd (annotated)

64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:smallsense' }"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: SmallSense }"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	HierarchicalItem subclass:#PO
132 7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	6	instanceVariableNames:'subject icon label name context'
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	7	classVariableNames:'IconWidth'
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	9	category:'SmallSense-Core-Interface-PO'
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	13	!PO class methodsFor:'initialization'!
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	14
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	15	initialize
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	16	"Invoked at system start or when the class is dynamically loaded."
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	17
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	18	"/ please change as required (and remove this comment)
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	19
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	20	IconWidth := 16.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	21
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	22	"Modified: / 18-09-2013 / 00:13:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	23	! !
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	24
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	!PO class methodsFor:'Instance creation'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	subject: anObject
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	^self new subject: anObject
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	"Created: / 06-04-2011 / 21:01:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	!PO methodsFor:'accessing'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35
132 7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	36	context
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	37	^ context
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	38	!
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
132 7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	40	context:something
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	41	something notNil ifTrue:[
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	42	context := something.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	43	].
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44
132 7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	45	"Modified: / 17-10-2013 / 01:16:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
120 4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	46	!
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	47
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	48	cursorColumnAfterCompleteForLanguage: language
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	49	"Answers a cursor column after completion. The number returned
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	50	is relative to the start of the text being replaced"
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	51
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	52	^ (self stringToCompleteForLanguage: language) size
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	53
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	54	"Created: / 03-10-2013 / 16:49:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	55	"Modified: / 04-10-2013 / 07:48:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	icon
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	^nil
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	"Created: / 04-04-2011 / 17:25:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	label
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
120 4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	67	label isNil ifTrue:[label := self name].
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	^label
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	"Created: / 07-04-2011 / 09:55:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
120 4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	71	"Modified: / 03-10-2013 / 16:28:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	name
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	^ name
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	name:something
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	name := something.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	stringToComplete
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	"Answers a string to complete"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85
120 4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	86	^self name
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	"Created: / 05-04-2011 / 16:48:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
120 4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	89	"Modified: / 03-10-2013 / 16:31:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
115 254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	92	stringToCompleteForLanguage: aProgrammingLanguage
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	93	"Answers a string to complete"
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	94
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	95	^ self stringToComplete
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	96
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	97	"Created: / 02-10-2013 / 02:32:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	98	!
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	99
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	subject
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	^ subject
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	subject:something
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	subject := something.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107
132 7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	108	!PO methodsFor:'completion'!
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	109
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	110	insert
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	111	"Insert given completion item at cursor position"
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	112
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	113	\| po stringToComplete stringAlreadyWritten stringToInsert textView \|
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	114
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	115	po := self.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	116	textView := context codeView.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	117	stringToComplete := po stringToCompleteForLanguage: context language.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	118	stringAlreadyWritten := context wordBeforeCursor.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	119	stringToInsert := stringToComplete copyFrom: (stringAlreadyWritten size + 1).
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	120	textView isCodeView2 ifTrue:[textView := textView textView].
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	121	textView undoableDo:[
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	122	(stringToComplete startsWith: stringAlreadyWritten) ifTrue:[
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	123	textView insertStringAtCursor: stringToInsert.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	124	] ifFalse:[
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	125	\| startCol endCol \|
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	126
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	127	endCol := textView cursorCol - 1.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	128	startCol := textView cursorCol - stringAlreadyWritten size.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	129	textView insertStringAtCursor: stringToComplete.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	130	textView deleteFromLine:textView cursorLine col: startCol toLine:textView cursorLine col:endCol.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	131	textView cursorCol: startCol + stringToComplete size.
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	132	].
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	133	].
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	134	textView setCursorCol: textView cursorCol - stringToComplete size + (po cursorColumnAfterCompleteForLanguage: context language).
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	135
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	136	"Created: / 17-10-2013 / 01:08:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	137	! !
7c23c51d2cfd Completion insertion refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 120 diff changeset	138
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	!PO methodsFor:'displaying'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	141	displayLabel:aLabel h:lH on:aGC x:x y:y h:h
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	142	\| cx iconOrNil \|
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	143
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	144	cx := x.
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	146	iconOrNil := self icon.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	147	iconOrNil notNil ifTrue:[
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	148	iconOrNil displayOn: aGC x: cx y: y + (h / 2) - (iconOrNil height / 2).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	149	].
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	151	cx := cx + IconWidth.
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	super displayLabel:aLabel h:lH on:aGC x:cx y:y h:h
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	"Created: / 24-07-2013 / 00:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	156	"Modified: / 18-09-2013 / 00:13:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	!PO methodsFor:'printing & storing'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	printOn:aStream
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	"append a printed representation if the receiver to the argument, aStream"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	super printOn:aStream.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	aStream nextPut:$(.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	name printOn:aStream.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	aStream nextPut:$).
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	"Modified: / 04-04-2011 / 12:02:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	!PO methodsFor:'queries'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	startsWith: prefix
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	^self stringToComplete startsWith: prefix
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	"Created: / 26-11-2011 / 19:25:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	!PO methodsFor:'testing'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	isSmallSenseClassPO
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	^ false
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	isSmallSenseConstantPO
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	^ false
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	isSmallSenseMethodPO
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	^ false
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	isSmallSenseSnippetPO
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	^ false
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	isSmallSenseVariablePO
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	^ false
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	!PO class methodsFor:'documentation'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	version_HG
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	^ '$Changeset: <not expanded> $'
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	version_SVN
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	^ '$Id: SmallSenseResultItem.st 7825 2011-11-26 18:32:31Z vranyj1 $'
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	214
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	215	PO initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 17 Oct 2013 01:41:47 +0100
changeset 132	7c23c51d2cfd
parent 120	4fefce92f5bb
child 133	bd659b67811c
permissions	-rw-r--r--