hg/stx-goodies-smallsense: SmallSense__ClassPO.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:#ClassPO
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	6	instanceVariableNames:'showPrefix'
64 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	!ClassPO methodsFor:'accessing'!
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	icon
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	icon ifNil:[icon := SystemBrowser iconForClass: subject].
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	^icon
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	"Created: / 06-04-2011 / 23:36:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	23	klass
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	24	^ subject
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	25
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	26	"Created: / 25-08-2013 / 13:07:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	27	!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	28
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	29	klass: klass
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	30	^ subject := klass
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	31
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	32	"Created: / 25-08-2013 / 13:07:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	33	!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	34
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	35	name
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	36
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	37	\| nm \|
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	38
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	39	showPrefix ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	40	nm := subject name.
120 4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	41	subject isJavaClass ifTrue:[
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	42	nm := nm copyReplaceAll: $/ with: $.
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	43	].
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	44	] ifFalse:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	45	nm := subject nameWithoutPrefix.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	46	].
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	47	^nm
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	48
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	49	"Created: / 26-08-2013 / 10:26:48 / 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: 90 diff changeset	50	"Modified: / 03-10-2013 / 11:38:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	51	!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	52
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	53	showPrefix
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	54	^ showPrefix
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	55	!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	56
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	57	showPrefix:something
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	58	showPrefix := something.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	59	!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	60
120 4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	61	stringToCompleteForLanguage: language
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	62	^ (subject isJavaClass and:[language isSmalltalk]) ifTrue:[
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	63	'JAVA ', (subject name copyReplaceAll: $/ with: Character space)
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	64	] ifFalse:[
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	65	super stringToCompleteForLanguage: language
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	66	].
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	67
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	68	"Created: / 03-10-2013 / 16:42:05 / 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: 90 diff changeset	69	!
4fefce92f5bb Initial support for Java/Groovy completion and for mixed-language completion. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 90 diff changeset	70
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	subject: aClass
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	super subject: aClass.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	"Created: / 06-04-2011 / 21:02:34 / 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: 90 diff changeset	76	"Modified: / 03-10-2013 / 16:30:10 / 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	77	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	79	!ClassPO methodsFor:'converting'!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	80
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	81	asString
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	82	^subject isJavaClass ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	83	subject javaName
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	84	] ifFalse:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	85	subject name
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	86	].
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	87
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	88	"Created: / 04-04-2012 / 13:00:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	89	"Modified: / 26-08-2013 / 10:27:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	90	! !
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	91
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	92	!ClassPO methodsFor:'displaying'!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	93
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	94	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	95	\| namespace y0 lw cnw fg \|
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	96
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	97	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	98
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	99	showPrefix ifFalse:[
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	100	namespace := subject isJavaClass
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	101	ifFalse:[subject nameSpace name]
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	102	ifTrue:[subject javaPackage].
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	103	(namespace notNil and:[namespace ~~ #Smalltalk]) ifTrue:[
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	104	namespace := 'in ', namespace.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	105	lw := x + IconWidth + (aLabel widthOn: aGC).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	106	y0 := y - (lH + 1 - h // 2).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	107	y0 := y0 + (namespace ascentOn:aGC).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	108	cnw := aGC widthOfString: namespace.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	109
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	110	(aGC width > (lw + cnw + 5)) ifTrue:[
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	111	fg := aGC paint.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	112	aGC paint: (Color gray: 40).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	113	namespace displayOn:aGC x: aGC width - cnw - 5 y:y0.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	114	aGC paint: fg.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	115	]
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	116	]
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	117	]
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	118
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	119	"Created: / 18-09-2013 / 00:17:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	120	!
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	121
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	122	displayOn:aGC x:x y:y opaque:opaque
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	123
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	124	\| nm namespace lw cnw fg \|
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	125
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	126	showPrefix ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	127	nm := subject name.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	128	namespace := nil
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	129	] ifFalse:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	130	nm := subject nameWithoutPrefix.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	131	subject isJavaClass ifFalse:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	132	namespace := subject nameSpace name.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	133	] ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	134	namespace := subject javaPackage.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	135	]
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	136	].
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	137
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	138	nm displayOn:aGC x:x y:y opaque:opaque.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	139
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	140	(namespace notNil and:[namespace ~~ #Smalltalk]) ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	141	namespace := 'in ', namespace.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	142	lw := x + 16 + (name widthOn: aGC).
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	143	cnw := aGC widthOfString: namespace.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	144
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	145	(aGC width > (lw + cnw + 5)) ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	146	fg := aGC paint.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	147	aGC paint: (Color gray: 40).
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	148	namespace displayOn:aGC x: aGC width - cnw - 5 y:y opaque:opaque.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	149	aGC paint: fg.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	150	]
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	151	]
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	152
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	153	"Created: / 04-04-2012 / 13:03:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	154	"Modified: / 25-08-2013 / 13:10:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	155	!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	156
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	157	displayString
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	158	^ self name
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	159
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	160	"Created: / 20-04-2012 / 18:19:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	161	"Modified: / 26-08-2013 / 10:27:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	162	! !
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	163
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	!ClassPO methodsFor:'testing'!
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	isSmallSenseClassPO
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	^ true
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
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	!ClassPO class methodsFor:'documentation'!
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	version_HG
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	^ '$Changeset: <not expanded> $'
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
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	version_SVN
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	^ '$Id: SmallSenseClass.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	179	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 04 Oct 2013 08:25:15 +0100
changeset 120	4fefce92f5bb
parent 90	4035038db277
child 133	bd659b67811c
permissions	-rw-r--r--