hg/stx-goodies-metacello: core/MetacelloSkipDirtyPackageLoad.st@8caf2f257260 (annotated)

11 d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	1	"{ Package: 'stx:goodies/metacello/core' }"
1 9e312de5f694 - Initial commit jv parents: diff changeset	2
9e312de5f694 - Initial commit jv parents: diff changeset	3	Notification subclass:#MetacelloSkipDirtyPackageLoad
9e312de5f694 - Initial commit jv parents: diff changeset	4	instanceVariableNames:'packageSpec'
9e312de5f694 - Initial commit jv parents: diff changeset	5	classVariableNames:''
9e312de5f694 - Initial commit jv parents: diff changeset	6	poolDictionaries:''
16 25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	7	category:'Metacello-Core-Exceptions-Notifications'
1 9e312de5f694 - Initial commit jv parents: diff changeset	8	!
9e312de5f694 - Initial commit jv parents: diff changeset	9
9e312de5f694 - Initial commit jv parents: diff changeset	10
9e312de5f694 - Initial commit jv parents: diff changeset	11	!MetacelloSkipDirtyPackageLoad class methodsFor:'signalling'!
9e312de5f694 - Initial commit jv parents: diff changeset	12
9e312de5f694 - Initial commit jv parents: diff changeset	13	signal: aMetacelloPackageSpec
9e312de5f694 - Initial commit jv parents: diff changeset	14
9e312de5f694 - Initial commit jv parents: diff changeset	15	^(self new packageSpec: aMetacelloPackageSpec) signal
9e312de5f694 - Initial commit jv parents: diff changeset	16	! !
9e312de5f694 - Initial commit jv parents: diff changeset	17
9e312de5f694 - Initial commit jv parents: diff changeset	18	!MetacelloSkipDirtyPackageLoad methodsFor:'accessing'!
9e312de5f694 - Initial commit jv parents: diff changeset	19
9e312de5f694 - Initial commit jv parents: diff changeset	20	defaultAction
9e312de5f694 - Initial commit jv parents: diff changeset	21	"Default action is to skip the load of a dirty package"
9e312de5f694 - Initial commit jv parents: diff changeset	22
9e312de5f694 - Initial commit jv parents: diff changeset	23	^true
9e312de5f694 - Initial commit jv parents: diff changeset	24	!
9e312de5f694 - Initial commit jv parents: diff changeset	25
9e312de5f694 - Initial commit jv parents: diff changeset	26	packageSpec
9e312de5f694 - Initial commit jv parents: diff changeset	27
9e312de5f694 - Initial commit jv parents: diff changeset	28	^packageSpec
9e312de5f694 - Initial commit jv parents: diff changeset	29	!
9e312de5f694 - Initial commit jv parents: diff changeset	30
9e312de5f694 - Initial commit jv parents: diff changeset	31	packageSpec: aMetacelloPackageSpec
9e312de5f694 - Initial commit jv parents: diff changeset	32
9e312de5f694 - Initial commit jv parents: diff changeset	33	packageSpec := aMetacelloPackageSpec
9e312de5f694 - Initial commit jv parents: diff changeset	34	! !
9e312de5f694 - Initial commit jv parents: diff changeset	35
9e312de5f694 - Initial commit jv parents: diff changeset	36	!MetacelloSkipDirtyPackageLoad class methodsFor:'documentation'!
9e312de5f694 - Initial commit jv parents: diff changeset	37
9e312de5f694 - Initial commit jv parents: diff changeset	38	version_SVN
9e312de5f694 - Initial commit jv parents: diff changeset	39	^ '$Id:: $'
9e312de5f694 - Initial commit jv parents: diff changeset	40	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 19 Sep 2012 01:38:26 +0000
changeset 20	8caf2f257260
parent 16	25ac697dc747
child 22	e1678fee6b03
permissions	-rw-r--r--