hg/stx-goodies-smallsense: SmallSense__ClassPO.st@4035038db277 (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.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	41	] ifFalse:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	42	nm := subject nameWithoutPrefix.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	43	].
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	44	^nm
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	45
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	46	"Created: / 26-08-2013 / 10:26:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	47	!
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	showPrefix
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	50	^ showPrefix
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:something
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	54	showPrefix := something.
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
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	subject: aClass
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	super subject: aClass.
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	name := aClass name.
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: / 06-04-2011 / 21:02:34 / 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
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	65	!ClassPO methodsFor:'converting'!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	66
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	67	asString
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	68	^subject isJavaClass ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	69	subject javaName
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	70	] ifFalse:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	71	subject name
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	72	].
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	73
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	74	"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	75	"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	76	! !
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	77
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	78	!ClassPO methodsFor:'displaying'!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	79
90 4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	80	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	81	\| namespace y0 lw cnw fg \|
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	82
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	83	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	84
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	85	showPrefix ifFalse:[
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	86	namespace := subject isJavaClass
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	87	ifFalse:[subject nameSpace name]
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	88	ifTrue:[subject javaPackage].
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	89	(namespace notNil and:[namespace ~~ #Smalltalk]) ifTrue:[
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	90	namespace := 'in ', namespace.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	91	lw := x + IconWidth + (aLabel widthOn: aGC).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	92	y0 := y - (lH + 1 - h // 2).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	93	y0 := y0 + (namespace ascentOn:aGC).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	94	cnw := aGC widthOfString: namespace.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	95
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	96	(aGC width > (lw + cnw + 5)) ifTrue:[
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	97	fg := aGC paint.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	98	aGC paint: (Color gray: 40).
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	99	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	100	aGC paint: fg.
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	101	]
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	102	]
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	103	]
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	104
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	105	"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	106	!
4035038db277 Fixes in PO rendering. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	107
67 020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	108	displayOn:aGC x:x y:y opaque:opaque
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	109
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	110	\| nm namespace lw cnw fg \|
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	111
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	112	showPrefix ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	113	nm := subject name.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	114	namespace := nil
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	115	] ifFalse:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	116	nm := subject nameWithoutPrefix.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	117	subject isJavaClass ifFalse:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	118	namespace := subject nameSpace name.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	119	] ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	120	namespace := subject javaPackage.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	121	]
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	122	].
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 displayOn:aGC x:x y:y opaque:opaque.
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	(namespace notNil and:[namespace ~~ #Smalltalk]) ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	127	namespace := 'in ', namespace.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	128	lw := x + 16 + (name widthOn: aGC).
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	129	cnw := aGC widthOfString: namespace.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	130
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	131	(aGC width > (lw + cnw + 5)) ifTrue:[
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	132	fg := aGC paint.
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	133	aGC paint: (Color gray: 40).
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	134	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	135	aGC paint: fg.
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
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	139	"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	140	"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	141	!
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	142
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	143	displayString
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	144	^ self name
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	145
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	146	"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	147	"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	148	! !
020b7461b15e Package structure reorganization. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 64 diff changeset	149
64 2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	!ClassPO methodsFor:'testing'!
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	isSmallSenseClassPO
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	^ true
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
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	!ClassPO class methodsFor:'documentation'!
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	version_HG
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	^ '$Changeset: <not expanded> $'
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	!
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_SVN
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	^ '$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	165	! !
2257d7223898 All classes moved to namespace SmallSense. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 18 Sep 2013 00:59:55 +0100
changeset 90	4035038db277
parent 67	020b7461b15e
child 120	4fefce92f5bb
permissions	-rw-r--r--