hg/stx-libtool: ClassItemRoot.st@1f1e8b6710c8 (annotated)

2626 4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	1	"
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	2	COPYRIGHT (c) 2000 by eXept Software AG
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	3	All Rights Reserved
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	4
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	5	This software is furnished under a license and may be used
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	6	only in accordance with the terms of that license and with the
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	7	inclusion of the above copyright notice. This software may not
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	8	be provided or otherwise made available to, or used by, any
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	9	other person. No title to or ownership of the software is
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	10	hereby transferred.
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	11	"
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	12	"{ Package: 'stx:libtool' }"
2626 4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	13
2540 e183741e7290 initial checkin ps parents: diff changeset	14	AbstractVersionDiffBrowserItem subclass:#ClassItemRoot
e183741e7290 initial checkin ps parents: diff changeset	15	instanceVariableNames:''
e183741e7290 initial checkin ps parents: diff changeset	16	classVariableNames:''
e183741e7290 initial checkin ps parents: diff changeset	17	poolDictionaries:''
2547 49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	18	category:'Interface-Browsers-Support'
2540 e183741e7290 initial checkin ps parents: diff changeset	19	!
e183741e7290 initial checkin ps parents: diff changeset	20
2547 49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	21	!ClassItemRoot class methodsFor:'documentation'!
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	22
2626 4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	23	copyright
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	24	"
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	25	COPYRIGHT (c) 2000 by eXept Software AG
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	26	All Rights Reserved
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	27
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	28	This software is furnished under a license and may be used
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	29	only in accordance with the terms of that license and with the
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	30	inclusion of the above copyright notice. This software may not
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	31	be provided or otherwise made available to, or used by, any
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	32	other person. No title to or ownership of the software is
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	33	hereby transferred.
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	34	"
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	35
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	36
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	37	!
4ee750caddab doc Claus Gittinger <cg@exept.de> parents: 2625 diff changeset	38
2547 49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	39	documentation
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	40	"
2625 d70f0361a027 doc; halts removed Claus Gittinger <cg@exept.de> parents: 2612 diff changeset	41	This is not yet finished (work in progress) - do not use.
2547 49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	42
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	43	[author:]
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	44	Pierre Schwarz (ps@exept.de)
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	45
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	46	[see also:]
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	47
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	48	[instance variables:]
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	49
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	50	[class variables:]
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	51	"
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	52
49e7cb306cd5 category change Claus Gittinger <cg@exept.de> parents: 2544 diff changeset	53	! !
2540 e183741e7290 initial checkin ps parents: diff changeset	54
2612 ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	55	!ClassItemRoot class methodsFor:'accessing'!
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	56
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	57	classItemClass
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	58
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	59	^ClassItem
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	60
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	61	! !
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	62
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	63	!ClassItemRoot methodsFor:'accessing'!
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	64
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	65	classItemClass
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	66	"return the value of the instance variable 'classItemClass' (automatically generated)"
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	67
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	68	^ self class classItemClass
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	69
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	70
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	71	! !
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	72
2544 04ebb73c452f * empty log message * ps parents: 2540 diff changeset	73	!ClassItemRoot methodsFor:'initialization'!
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	74
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	75	initialize
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	76	super initialize.
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	77	isExpanded := true.
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	78	! !
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	79
2612 ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	80	!ClassItemRoot methodsFor:'protocol'!
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	81
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	82	children
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	83	"
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	84	default childrens of the receiver are none.
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	85
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	86	<return: Array>
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	87	"
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	88
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	89	children ifNil:[
2625 d70f0361a027 doc; halts removed Claus Gittinger <cg@exept.de> parents: 2612 diff changeset	90	children := self computeChildrensFor:parent dataColl.
2612 ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	91	children do:[:eachChild \| eachChild parent:self]
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	92	].
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	93	^ children
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	94
2625 d70f0361a027 doc; halts removed Claus Gittinger <cg@exept.de> parents: 2612 diff changeset	95	"Modified: / 18.2.2000 / 15:02:12 / cg"
2612 ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	96	!
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	97
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	98	computeChildrensFor:aClassColl
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	99	"
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	100
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	101	<return: OrderedCollection\|nil>
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	102	"
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	103
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	104	\|theClassItemColl\|
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	105
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	106	aClassColl ifNil:[^#()].
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	107	theClassItemColl := aClassColl collect:[:eachClass \|
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	108	\|theClassItem theClass\|
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	109	theClassItem := self classItemClass new.
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	110	theClass := Smalltalk resolveName:eachClass inClass:Smalltalk.
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	111	theClassItem myClass:theClass.
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	112	theClassItem].
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	113	^theClassItemColl
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	114
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	115	!
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	116
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	117	doubleClickOn:anItem
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	118
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	119	\|listView\|
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	120
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	121	(anItem isExpandableRevisionItem and:[parent application listView sensor shiftDown])
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	122	ifTrue: [anItem recursiveToggleExpand]
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	123	ifFalse:[anItem toggleExpand]
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	124	! !
ce84f1d3dae9 * empty log message * ps parents: 2547 diff changeset	125
2544 04ebb73c452f * empty log message * ps parents: 2540 diff changeset	126	!ClassItemRoot methodsFor:'queries'!
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	127
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	128	canCollapse
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	129	^ false
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	130
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	131	! !
04ebb73c452f * empty log message * ps parents: 2540 diff changeset	132
2540 e183741e7290 initial checkin ps parents: diff changeset	133	!ClassItemRoot class methodsFor:'documentation'!
e183741e7290 initial checkin ps parents: diff changeset	134
e183741e7290 initial checkin ps parents: diff changeset	135	version
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	136	^ '$Id: ClassItemRoot.st 7854 2012-01-30 17:49:41Z vranyj1 $'
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	137	!
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	138
12431 9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	139	version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	140
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	141	^ '$Changeset: <not expanded> $'
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	142	!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	143
12128 a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	144	version_SVN
a7ff7d66ee85 Improvements in LintHighlighter, few fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12125 diff changeset	145	^ '$Id: ClassItemRoot.st 7854 2012-01-30 17:49:41Z vranyj1 $'
12125 0c49a3b13e43 Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12123 diff changeset	146	! !
12431 9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12128 diff changeset	147

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 28 Aug 2013 12:52:38 +0100
branch	jv
changeset 13465	1f1e8b6710c8
parent 12431	9f0c59c742d5
child 15950	23be8cf85415
permissions	-rw-r--r--