equal
deleted
inserted
replaced
20 |
20 |
21 scriptSelector |
21 scriptSelector |
22 self subclassResponsibility |
22 self subclassResponsibility |
23 ! ! |
23 ! ! |
24 |
24 |
25 !MCScriptDefinition methodsFor:'as yet unclassified'! |
25 !MCScriptDefinition methodsFor:'accessing'! |
|
26 |
|
27 description |
|
28 ^ Array with: packageName with: self scriptSelector |
|
29 ! |
|
30 |
|
31 packageInfo |
|
32 ^ PackageInfo named: packageName |
|
33 ! |
|
34 |
|
35 script |
|
36 ^ script |
|
37 ! |
|
38 |
|
39 scriptSelector |
|
40 ^ self class scriptSelector |
|
41 ! |
|
42 |
|
43 source |
|
44 ^ script |
|
45 ! ! |
|
46 |
|
47 !MCScriptDefinition methodsFor:'comparing'! |
26 |
48 |
27 = aDefinition |
49 = aDefinition |
28 ^ (super = aDefinition) |
50 ^ (super = aDefinition) |
29 and: [script = aDefinition script] |
51 and: [script = aDefinition script] |
30 ! |
52 ! |
31 |
53 |
32 accept: aVisitor |
54 sortKey |
33 "do nothing for now - this means it won't appear in the .st file" |
55 ^ '!!', self scriptSelector "force to the front so it gets loaded first" |
34 ! |
56 ! ! |
35 |
57 |
36 description |
58 !MCScriptDefinition methodsFor:'initializing'! |
37 ^ Array with: packageName with: self scriptSelector |
|
38 ! |
|
39 |
|
40 evaluate |
|
41 Compiler evaluate: script |
|
42 ! |
|
43 |
59 |
44 initializeWithScript: aString packageName: packageString |
60 initializeWithScript: aString packageName: packageString |
45 script := aString. |
61 script := aString. |
46 packageName := packageString |
62 packageName := packageString |
|
63 ! ! |
|
64 |
|
65 !MCScriptDefinition methodsFor:'installing'! |
|
66 |
|
67 evaluate |
|
68 Compiler evaluate: script |
47 ! |
69 ! |
48 |
70 |
49 installScript |
71 installScript |
50 self installScript: script |
72 self installScript: script |
51 ! |
73 ! |
60 |
82 |
61 load |
83 load |
62 self installScript |
84 self installScript |
63 ! |
85 ! |
64 |
86 |
65 packageInfo |
87 unload |
66 ^ PackageInfo named: packageName |
88 self installScript: nil |
67 ! |
89 ! ! |
68 |
90 |
69 script |
91 !MCScriptDefinition methodsFor:'printing'! |
70 ^ script |
|
71 ! |
|
72 |
|
73 scriptSelector |
|
74 ^ self class scriptSelector |
|
75 ! |
|
76 |
|
77 sortKey |
|
78 ^ '!!', self scriptSelector "force to the front so it gets loaded first" |
|
79 ! |
|
80 |
|
81 source |
|
82 ^ script |
|
83 ! |
|
84 |
92 |
85 summary |
93 summary |
86 ^ packageName, ' ', self scriptSelector |
94 ^ packageName, ' ', self scriptSelector |
87 ! |
95 ! ! |
88 |
96 |
89 unload |
97 !MCScriptDefinition methodsFor:'visiting'! |
90 self installScript: nil |
98 |
|
99 accept: aVisitor |
|
100 "do nothing for now - this means it won't appear in the .st file" |
91 ! ! |
101 ! ! |
92 |
102 |
93 !MCScriptDefinition class methodsFor:'documentation'! |
103 !MCScriptDefinition class methodsFor:'documentation'! |
94 |
104 |
95 version |
105 version |
96 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.4 2012-09-11 21:28:38 cg Exp $' |
106 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.5 2013-01-18 13:02:42 cg Exp $' |
97 ! |
107 ! |
98 |
108 |
99 version_CVS |
109 version_CVS |
100 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.4 2012-09-11 21:28:38 cg Exp $' |
110 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.5 2013-01-18 13:02:42 cg Exp $' |
101 ! |
111 ! |
102 |
112 |
103 version_SVN |
113 version_SVN |
104 ^ '§Id: MCScriptDefinition.st 5 2010-08-29 07:30:29Z vranyj1 §' |
114 ^ '§Id: MCScriptDefinition.st 5 2010-08-29 07:30:29Z vranyj1 §' |
105 ! ! |
115 ! ! |
|
116 |