equal
deleted
inserted
replaced
40 evaluate |
40 evaluate |
41 Compiler evaluate: script |
41 Compiler evaluate: script |
42 ! |
42 ! |
43 |
43 |
44 initializeWithScript: aString packageName: packageString |
44 initializeWithScript: aString packageName: packageString |
45 script _ aString. |
45 script := aString. |
46 packageName _ packageString |
46 packageName := packageString |
47 ! |
47 ! |
48 |
48 |
49 installScript |
49 installScript |
50 self installScript: script |
50 self installScript: script |
51 ! |
51 ! |
52 |
52 |
53 installScript: aString |
53 installScript: aString |
54 self packageInfo perform: (self scriptSelector, ':') asSymbol with: aString |
54 | sel pi | |
|
55 sel := (self scriptSelector, ':') asSymbol. |
|
56 pi := self packageInfo. |
|
57 (pi respondsTo: sel) |
|
58 ifTrue: [pi perform: sel with: aString] |
55 ! |
59 ! |
56 |
60 |
57 load |
61 load |
58 self installScript |
62 self installScript |
59 ! |
63 ! |
69 scriptSelector |
73 scriptSelector |
70 ^ self class scriptSelector |
74 ^ self class scriptSelector |
71 ! |
75 ! |
72 |
76 |
73 sortKey |
77 sortKey |
74 ^ '<', self scriptSelector, '>' |
78 ^ '!!', self scriptSelector "force to the front so it gets loaded first" |
75 ! |
79 ! |
76 |
80 |
77 source |
81 source |
78 ^ script |
82 ^ script |
79 ! |
83 ! |
87 ! ! |
91 ! ! |
88 |
92 |
89 !MCScriptDefinition class methodsFor:'documentation'! |
93 !MCScriptDefinition class methodsFor:'documentation'! |
90 |
94 |
91 version |
95 version |
92 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.1 2006-11-22 13:10:11 cg Exp $' |
96 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.2 2011-08-20 11:44:14 cg Exp $' |
|
97 ! |
|
98 |
|
99 version_CVS |
|
100 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScriptDefinition.st,v 1.2 2011-08-20 11:44:14 cg Exp $' |
|
101 ! |
|
102 |
|
103 version_SVN |
|
104 ^ '§Id: MCScriptDefinition.st 5 2010-08-29 07:30:29Z vranyj1 §' |
93 ! ! |
105 ! ! |