hg/stx-goodies-smallsense: SmallSense__MethodPO.st@4fefce92f5bb (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	PO subclass:#MethodPO
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'class'
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
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
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!MethodPO class methodsFor:'Instance creation'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	name:name description:description class:class
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	^ (self new)
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	name:name;
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	description:description;
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	class:class.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	"Created: / 06-04-2011 / 16:50:05 / Jakub <zelenja7@fel.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	!MethodPO methodsFor:'accessing'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	class:something
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	class := something.
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	"Created: / 06-04-2011 / 16:51:42 / Jakub <zelenja7@fel.cvut.cz>"
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
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	cursorColumnAfterComplete
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	\| idx \|
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	idx := name indexOf: $:.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	^idx == 0 ifTrue:[name size + 1] ifFalse:[idx + 1].
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	"Created: / 05-04-2011 / 17:08:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
120 4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	41	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	42	\| stringToComplete idx \|
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	43
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	44	stringToComplete := self stringToCompleteForLanguage: language.
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	45	language isSmalltalk ifTrue:[
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	46	idx := stringToComplete indexOf: $:.
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	47	^idx == 0 ifTrue:[stringToComplete size + 1] ifFalse:[idx + 1].
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	48	].
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	49	language isJava ifTrue:[
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	50	^ (stringToComplete at: stringToComplete size - 1) isSeparator
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	51	ifTrue:[stringToComplete size- 2]
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	52	ifFalse:[stringToComplete 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
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	55	^ stringToComplete size + 1.
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	56
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	57	"Created: / 03-10-2013 / 16:50:22 / 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	58	"Modified: / 03-10-2013 / 18:09:08 / 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	59	!
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	60
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	label
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
115 254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	63	label isNil ifTrue:[
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	64	\| someClass \|
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
115 254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	66	someClass := class isBehavior ifTrue:[class] ifFalse:[class anElement].
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	67	label := name.
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	68	someClass programmingLanguage isSmalltalk ifFalse:[
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	69	label := (someClass compiledMethodAt: name) printStringForBrowserWithSelector: name.
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	70	]
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	71	].
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	72	^ label
64 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	"Created: / 07-04-2011 / 09:56:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
115 254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	75	"Modified: / 02-10-2013 / 02:28:57 / 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	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	stringToComplete
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	^String
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	fromStringCollection: (name tokensBasedOn: $:)
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	separatedBy: ': '.
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	"Created: / 05-04-2011 / 16:51:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
115 254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	85	!
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	86
120 4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	87	stringToCompleteForLanguage: language
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	88	\| someClass \|
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	89
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	90	someClass := class isBehavior ifTrue:[class] ifFalse:[class anElement].
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	91	someClass isJavaClass ifTrue:[
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	92	\| method \|
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	93
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	94	method := someClass compiledMethodAt: name.
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	95	language isSmalltalk ifTrue:[
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	96	^ method selector upTo: $(
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	97	].
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	98	language isJava ifTrue:[
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	99	^ (method selector upTo: $() , (method numArgs == 0 ifTrue:['()'] ifFalse:['( )']).
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	100	].
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	101	].
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	102	^ super stringToCompleteForLanguage: language
115 254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	103
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	104	"Created: / 02-10-2013 / 02:33:44 / 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	105	"Modified: / 03-10-2013 / 18:07:56 / 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	106	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	!MethodPO methodsFor:'displaying'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	110	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	111	\| lw cn cnw fg y0 \|
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	112
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	113	super 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	114
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	115	lw := x + IconWidth + (self label widthOn: aGC).
115 254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	116	class isCollection ifTrue:[
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	117	cn := (class collect:[:each \| each nameWithoutPrefix ]) asArray asStringWith:' , '.
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	118	] ifFalse:[
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	119	cn := class nameWithoutPrefix.
254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	120	].
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	121	cnw := aGC widthOfString: cn.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	122	y0 := y - (lH + 1 - h // 2).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	123	y0 := y0 + (cn ascentOn:aGC).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	124
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	125	(aGC width > (lw + cnw + 5)) ifTrue:
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	126	[fg := aGC paint.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	127	aGC paint: Color gray .
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	128	aGC displayString: cn x: aGC width - cnw - 5 y: y0.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	129	aGC paint: fg.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	130	]
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	131
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	132	"Created: / 18-09-2013 / 00:19:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
115 254c4f5dc963 Initial support for Java. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	133	"Modified: / 02-10-2013 / 02:17:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	134	!
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	135
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	displayOn:aGC x:x y:y opaque:opaque
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	\| lw cn cnw fg \|
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	super displayOn:aGC x:x y:y opaque:opaque.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	lw := x + 16 + (self label widthOn: aGC).
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	cn := class nameWithoutPrefix.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	cnw := aGC widthOfString: cn.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	(aGC width > (lw + cnw + 5)) ifTrue:
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	[fg := aGC paint.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	aGC paint: Color gray .
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	aGC displayString: cn x: aGC width - cnw - 5 y: y.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	aGC paint: fg.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	]
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	"Created: / 21-05-2011 / 11:02:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	! !
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	!MethodPO methodsFor:'testing'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	isSmallSenseMethodPO
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	^ true
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	! !
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	!MethodPO class methodsFor:'documentation'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	version_HG
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	^ '$Changeset: <not expanded> $'
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	version_SVN
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	^ '$Id: SmallSenseMethod.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	170	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 04 Oct 2013 08:25:15 +0100
changeset 120	4fefce92f5bb
parent 115	254c4f5dc963
child 122	a0d62e942364
permissions	-rw-r--r--