--- a/MCScriptDefinition.st Fri Jan 18 14:02:40 2013 +0100
+++ b/MCScriptDefinition.st Fri Jan 18 14:02:42 2013 +0100
@@ -22,28 +22,50 @@
self subclassResponsibility
! !
-!MCScriptDefinition methodsFor:'as yet unclassified'!
+!MCScriptDefinition methodsFor:'accessing'!
+
+description
+ ^ Array with: packageName with: self scriptSelector
+!
+
+packageInfo
+ ^ PackageInfo named: packageName
+!
+
+script
+ ^ script
+!
+
+scriptSelector
+ ^ self class scriptSelector
+!
+
+source
+ ^ script
+! !
+
+!MCScriptDefinition methodsFor:'comparing'!
= aDefinition
^ (super = aDefinition)
and: [script = aDefinition script]
!
-accept: aVisitor
- "do nothing for now - this means it won't appear in the .st file"
-!
+sortKey
+ ^ '!!', self scriptSelector "force to the front so it gets loaded first"
+! !
-description
- ^ Array with: packageName with: self scriptSelector
-!
-
-evaluate
- Compiler evaluate: script
-!
+!MCScriptDefinition methodsFor:'initializing'!
initializeWithScript: aString packageName: packageString
script := aString.
packageName := packageString
+! !
+
+!MCScriptDefinition methodsFor:'installing'!
+
+evaluate
+ Compiler evaluate: script
!
installScript
@@ -62,44 +84,33 @@
self installScript
!
-packageInfo
- ^ PackageInfo named: packageName
-!
-
-script
- ^ script
-!
+unload
+ self installScript: nil
+! !
-scriptSelector
- ^ self class scriptSelector
-!
-
-sortKey
- ^ '!!', self scriptSelector "force to the front so it gets loaded first"
-!
-
-source
- ^ script
-!
+!MCScriptDefinition methodsFor:'printing'!
summary
^ packageName, ' ', self scriptSelector
-!
+! !
-unload
- self installScript: nil
+!MCScriptDefinition methodsFor:'visiting'!
+
+accept: aVisitor
+ "do nothing for now - this means it won't appear in the .st file"
! !
!MCScriptDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.4 2012-09-11 21:28:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.5 2013-01-18 13:02:42 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.4 2012-09-11 21:28:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.5 2013-01-18 13:02:42 cg Exp $'
!
version_SVN
^ '§Id: MCScriptDefinition.st 5 2010-08-29 07:30:29Z vranyj1 §'
! !
+