resin 0.2.2 → 0.2.3
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- data/amber/css/amber-normalize.css +73 -73
- data/amber/css/amber-normalize.less +1 -1
- data/amber/css/amber.css +106 -106
- data/amber/css/helios.css +242 -0
- data/amber/images/hsplitter.png +0 -0
- data/amber/images/vsplitter.png +0 -0
- data/amber/js/Benchfib.deploy.js +116 -38
- data/amber/js/Benchfib.js +120 -42
- data/amber/js/Canvas.deploy.js +674 -403
- data/amber/js/Canvas.js +682 -411
- data/amber/js/Compiler-AST.deploy.js +1150 -0
- data/amber/js/Compiler-AST.js +1591 -0
- data/amber/js/Compiler-Core.deploy.js +1562 -0
- data/amber/js/Compiler-Core.js +1972 -0
- data/amber/js/Compiler-Exceptions.deploy.js +114 -0
- data/amber/js/Compiler-Exceptions.js +161 -0
- data/amber/js/Compiler-IR.deploy.js +2326 -0
- data/amber/js/Compiler-IR.js +3146 -0
- data/amber/js/Compiler-Inlining.deploy.js +1147 -0
- data/amber/js/Compiler-Inlining.js +1514 -0
- data/amber/js/Compiler-Semantic.deploy.js +1207 -0
- data/amber/js/Compiler-Semantic.js +1628 -0
- data/amber/js/Compiler-Tests.deploy.js +646 -60
- data/amber/js/Compiler-Tests.js +843 -82
- data/amber/js/Compiler.deploy.js +1097 -159
- data/amber/js/Compiler.js +1414 -161
- data/amber/js/Examples.deploy.js +31 -15
- data/amber/js/Examples.js +33 -17
- data/amber/js/Helios-Announcements.deploy.js +127 -0
- data/amber/js/Helios-Announcements.js +157 -0
- data/amber/js/Helios-Browser.deploy.js +1473 -0
- data/amber/js/Helios-Browser.js +1953 -0
- data/amber/js/Helios-Commands.deploy.js +403 -0
- data/amber/js/Helios-Commands.js +563 -0
- data/amber/js/Helios-Core.deploy.js +1070 -0
- data/amber/js/Helios-Core.js +1445 -0
- data/amber/js/Helios-Environments.deploy.js +132 -0
- data/amber/js/Helios-Environments.js +179 -0
- data/amber/js/Helios-Inspector.deploy.js +855 -0
- data/amber/js/Helios-Inspector.js +1155 -0
- data/amber/js/Helios-KeyBindings.deploy.js +753 -0
- data/amber/js/Helios-KeyBindings.js +1023 -0
- data/amber/js/Helios-Layout.deploy.js +383 -0
- data/amber/js/Helios-Layout.js +523 -0
- data/amber/js/Helios-Workspace.deploy.js +799 -0
- data/amber/js/Helios-Workspace.js +1074 -0
- data/amber/js/IDE.deploy.js +2541 -1490
- data/amber/js/IDE.js +2721 -1660
- data/amber/js/Importer-Exporter.deploy.js +671 -0
- data/amber/js/Importer-Exporter.js +816 -0
- data/amber/js/Kernel-Announcements.deploy.js +137 -20
- data/amber/js/Kernel-Announcements.js +176 -22
- data/amber/js/Kernel-Classes.deploy.js +555 -168
- data/amber/js/Kernel-Classes.js +662 -205
- data/amber/js/Kernel-Collections.deploy.js +1403 -618
- data/amber/js/Kernel-Collections.js +1545 -690
- data/amber/js/Kernel-Exceptions.deploy.js +109 -45
- data/amber/js/Kernel-Exceptions.js +123 -49
- data/amber/js/Kernel-Methods.deploy.js +196 -81
- data/amber/js/Kernel-Methods.js +214 -89
- data/amber/js/Kernel-Objects.deploy.js +1542 -1117
- data/amber/js/Kernel-Objects.js +1593 -1148
- data/amber/js/Kernel-Tests.deploy.js +1725 -772
- data/amber/js/Kernel-Tests.js +2301 -1123
- data/amber/js/Kernel-Transcript.deploy.js +23 -25
- data/amber/js/Kernel-Transcript.js +24 -26
- data/amber/js/SUnit.deploy.js +204 -131
- data/amber/js/SUnit.js +222 -139
- data/amber/js/Spaces.deploy.js +240 -0
- data/amber/js/Spaces.js +326 -0
- data/amber/js/amber.js +26 -7
- data/amber/js/boot.js +65 -47
- data/amber/js/init.js +1 -1
- data/amber/js/lib/CodeMirror/amber.css +21 -21
- data/amber/js/lib/CodeMirror/codemirror.css +119 -13
- data/amber/js/lib/CodeMirror/codemirror.js +2219 -1220
- data/amber/js/lib/CodeMirror/smalltalk.js +134 -129
- data/amber/js/lib/bootstrap/css/bootstrap.css +5837 -0
- data/amber/js/lib/bootstrap/css/bootstrap.min.css +841 -0
- data/amber/js/lib/bootstrap/img/glyphicons-halflings-white.png +0 -0
- data/amber/js/lib/bootstrap/img/glyphicons-halflings.png +0 -0
- data/amber/js/lib/bootstrap/js/bootstrap.js +2038 -0
- data/amber/js/lib/bootstrap/js/bootstrap.min.js +7 -0
- data/amber/js/lib/jQuery/jquery-1.8.2.min.js +2 -0
- data/amber/js/lib/jQuery/jquery-ui-1.8.24.custom.min.js +125 -0
- data/amber/st/Compiler-AST.st +505 -0
- data/amber/st/Compiler-Core.st +835 -0
- data/amber/st/Compiler-Exceptions.st +87 -0
- data/amber/st/Compiler-IR.st +1097 -0
- data/amber/st/Compiler-Inlining.st +650 -0
- data/amber/st/Compiler-Semantic.st +558 -0
- data/amber/st/Compiler-Tests.st +285 -381
- data/amber/st/Compiler.st +725 -2
- data/amber/st/Helios-Announcements.st +104 -0
- data/amber/st/Helios-Browser.st +708 -0
- data/amber/st/Helios-Commands.st +223 -0
- data/amber/st/Helios-Core.st +532 -0
- data/amber/st/Helios-Environments.st +98 -0
- data/amber/st/Helios-Inspector.st +367 -0
- data/amber/st/Helios-KeyBindings.st +337 -0
- data/amber/st/Helios-Layout.st +199 -0
- data/amber/st/Helios-Workspace.st +367 -0
- data/amber/st/IDE.st +75 -53
- data/amber/st/Importer-Exporter.st +386 -0
- data/amber/st/Kernel-Announcements.st +92 -0
- data/amber/st/Kernel-Classes.st +137 -15
- data/amber/st/Kernel-Collections.st +137 -47
- data/amber/st/Kernel-Exceptions.st +14 -0
- data/amber/st/Kernel-Methods.st +9 -1
- data/amber/st/Kernel-Objects.st +29 -5
- data/amber/st/Kernel-Tests.st +545 -199
- data/amber/st/SUnit.st +10 -0
- data/amber/st/Spaces.st +142 -0
- data/lib/resin/app.rb +1 -1
- metadata +86 -31
- data/amber/js/lib/jQuery/jquery-1.4.4.min.js +0 -167
- data/amber/js/lib/jQuery/jquery-1.6.4.min.js +0 -4
|
@@ -7,7 +7,8 @@ selector: "context",
|
|
|
7
7
|
fn: function (){
|
|
8
8
|
var self=this;
|
|
9
9
|
return self.context;
|
|
10
|
-
|
|
10
|
+
;
|
|
11
|
+
return self}
|
|
11
12
|
}),
|
|
12
13
|
smalltalk.Error);
|
|
13
14
|
|
|
@@ -18,7 +19,8 @@ selector: "isSmalltalkError",
|
|
|
18
19
|
fn: function (){
|
|
19
20
|
var self=this;
|
|
20
21
|
return self.smalltalkError === true;
|
|
21
|
-
|
|
22
|
+
;
|
|
23
|
+
return self}
|
|
22
24
|
}),
|
|
23
25
|
smalltalk.Error);
|
|
24
26
|
|
|
@@ -29,7 +31,8 @@ selector: "jsStack",
|
|
|
29
31
|
fn: function (){
|
|
30
32
|
var self=this;
|
|
31
33
|
return self.stack;
|
|
32
|
-
|
|
34
|
+
;
|
|
35
|
+
return self}
|
|
33
36
|
}),
|
|
34
37
|
smalltalk.Error);
|
|
35
38
|
|
|
@@ -39,8 +42,8 @@ smalltalk.method({
|
|
|
39
42
|
selector: "messageText",
|
|
40
43
|
fn: function (){
|
|
41
44
|
var self=this;
|
|
42
|
-
return self[
|
|
43
|
-
|
|
45
|
+
return self["@messageText"];
|
|
46
|
+
}
|
|
44
47
|
}),
|
|
45
48
|
smalltalk.Error);
|
|
46
49
|
|
|
@@ -50,8 +53,8 @@ smalltalk.method({
|
|
|
50
53
|
selector: "messageText:",
|
|
51
54
|
fn: function (aString){
|
|
52
55
|
var self=this;
|
|
53
|
-
|
|
54
|
-
return self
|
|
56
|
+
self["@messageText"]=aString;
|
|
57
|
+
return self}
|
|
55
58
|
}),
|
|
56
59
|
smalltalk.Error);
|
|
57
60
|
|
|
@@ -62,7 +65,8 @@ selector: "signal",
|
|
|
62
65
|
fn: function (){
|
|
63
66
|
var self=this;
|
|
64
67
|
self.context = smalltalk.getThisContext(); self.smalltalkError = true; throw(self);
|
|
65
|
-
|
|
68
|
+
;
|
|
69
|
+
return self}
|
|
66
70
|
}),
|
|
67
71
|
smalltalk.Error);
|
|
68
72
|
|
|
@@ -72,9 +76,9 @@ smalltalk.method({
|
|
|
72
76
|
selector: "signal:",
|
|
73
77
|
fn: function (aString){
|
|
74
78
|
var self=this;
|
|
75
|
-
smalltalk.send(self,
|
|
76
|
-
smalltalk.send(self,
|
|
77
|
-
return self
|
|
79
|
+
smalltalk.send(self,"_messageText_",[aString]);
|
|
80
|
+
smalltalk.send(self,"_signal",[]);
|
|
81
|
+
return self}
|
|
78
82
|
}),
|
|
79
83
|
smalltalk.Error);
|
|
80
84
|
|
|
@@ -85,8 +89,10 @@ smalltalk.method({
|
|
|
85
89
|
selector: "signal",
|
|
86
90
|
fn: function (){
|
|
87
91
|
var self=this;
|
|
88
|
-
|
|
89
|
-
|
|
92
|
+
var $1;
|
|
93
|
+
$1=smalltalk.send(smalltalk.send(self,"_new",[]),"_signal",[]);
|
|
94
|
+
return $1;
|
|
95
|
+
}
|
|
90
96
|
}),
|
|
91
97
|
smalltalk.Error.klass);
|
|
92
98
|
|
|
@@ -96,8 +102,10 @@ smalltalk.method({
|
|
|
96
102
|
selector: "signal:",
|
|
97
103
|
fn: function (aString){
|
|
98
104
|
var self=this;
|
|
99
|
-
|
|
100
|
-
|
|
105
|
+
var $1;
|
|
106
|
+
$1=smalltalk.send(smalltalk.send(self,"_new",[]),"_signal_",[aString]);
|
|
107
|
+
return $1;
|
|
108
|
+
}
|
|
101
109
|
}),
|
|
102
110
|
smalltalk.Error.klass);
|
|
103
111
|
|
|
@@ -109,8 +117,8 @@ smalltalk.method({
|
|
|
109
117
|
selector: "message",
|
|
110
118
|
fn: function (){
|
|
111
119
|
var self=this;
|
|
112
|
-
return self[
|
|
113
|
-
|
|
120
|
+
return self["@message"];
|
|
121
|
+
}
|
|
114
122
|
}),
|
|
115
123
|
smalltalk.MessageNotUnderstood);
|
|
116
124
|
|
|
@@ -120,8 +128,8 @@ smalltalk.method({
|
|
|
120
128
|
selector: "message:",
|
|
121
129
|
fn: function (aMessage){
|
|
122
130
|
var self=this;
|
|
123
|
-
|
|
124
|
-
return self
|
|
131
|
+
self["@message"]=aMessage;
|
|
132
|
+
return self}
|
|
125
133
|
}),
|
|
126
134
|
smalltalk.MessageNotUnderstood);
|
|
127
135
|
|
|
@@ -131,8 +139,10 @@ smalltalk.method({
|
|
|
131
139
|
selector: "messageText",
|
|
132
140
|
fn: function (){
|
|
133
141
|
var self=this;
|
|
134
|
-
|
|
135
|
-
|
|
142
|
+
var $1;
|
|
143
|
+
$1=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_receiver",[]),"_asString",[]),"__comma",[" does not understand #"]),"__comma",[smalltalk.send(smalltalk.send(self,"_message",[]),"_selector",[])]);
|
|
144
|
+
return $1;
|
|
145
|
+
}
|
|
136
146
|
}),
|
|
137
147
|
smalltalk.MessageNotUnderstood);
|
|
138
148
|
|
|
@@ -142,8 +152,8 @@ smalltalk.method({
|
|
|
142
152
|
selector: "receiver",
|
|
143
153
|
fn: function (){
|
|
144
154
|
var self=this;
|
|
145
|
-
return self[
|
|
146
|
-
|
|
155
|
+
return self["@receiver"];
|
|
156
|
+
}
|
|
147
157
|
}),
|
|
148
158
|
smalltalk.MessageNotUnderstood);
|
|
149
159
|
|
|
@@ -153,13 +163,38 @@ smalltalk.method({
|
|
|
153
163
|
selector: "receiver:",
|
|
154
164
|
fn: function (anObject){
|
|
155
165
|
var self=this;
|
|
156
|
-
|
|
157
|
-
return self
|
|
166
|
+
self["@receiver"]=anObject;
|
|
167
|
+
return self}
|
|
158
168
|
}),
|
|
159
169
|
smalltalk.MessageNotUnderstood);
|
|
160
170
|
|
|
161
171
|
|
|
162
172
|
|
|
173
|
+
smalltalk.addClass('NonBooleanReceiver', smalltalk.Error, ['object'], 'Kernel-Exceptions');
|
|
174
|
+
smalltalk.addMethod(
|
|
175
|
+
"_object",
|
|
176
|
+
smalltalk.method({
|
|
177
|
+
selector: "object",
|
|
178
|
+
fn: function (){
|
|
179
|
+
var self=this;
|
|
180
|
+
return self["@object"];
|
|
181
|
+
}
|
|
182
|
+
}),
|
|
183
|
+
smalltalk.NonBooleanReceiver);
|
|
184
|
+
|
|
185
|
+
smalltalk.addMethod(
|
|
186
|
+
"_object_",
|
|
187
|
+
smalltalk.method({
|
|
188
|
+
selector: "object:",
|
|
189
|
+
fn: function (anObject){
|
|
190
|
+
var self=this;
|
|
191
|
+
self["@object"]=anObject;
|
|
192
|
+
return self}
|
|
193
|
+
}),
|
|
194
|
+
smalltalk.NonBooleanReceiver);
|
|
195
|
+
|
|
196
|
+
|
|
197
|
+
|
|
163
198
|
smalltalk.addClass('ErrorHandler', smalltalk.Object, [], 'Kernel-Exceptions');
|
|
164
199
|
smalltalk.addMethod(
|
|
165
200
|
"_handleError_",
|
|
@@ -167,9 +202,15 @@ smalltalk.method({
|
|
|
167
202
|
selector: "handleError:",
|
|
168
203
|
fn: function (anError){
|
|
169
204
|
var self=this;
|
|
170
|
-
|
|
171
|
-
smalltalk.send(
|
|
172
|
-
|
|
205
|
+
var $1;
|
|
206
|
+
$1=smalltalk.send(anError,"_context",[]);
|
|
207
|
+
if(($receiver = $1) == nil || $receiver == undefined){
|
|
208
|
+
$1;
|
|
209
|
+
} else {
|
|
210
|
+
smalltalk.send(self,"_logErrorContext_",[smalltalk.send(anError,"_context",[])]);
|
|
211
|
+
};
|
|
212
|
+
smalltalk.send(self,"_logError_",[anError]);
|
|
213
|
+
return self}
|
|
173
214
|
}),
|
|
174
215
|
smalltalk.ErrorHandler);
|
|
175
216
|
|
|
@@ -179,8 +220,8 @@ smalltalk.method({
|
|
|
179
220
|
selector: "log:",
|
|
180
221
|
fn: function (aString){
|
|
181
222
|
var self=this;
|
|
182
|
-
smalltalk.send(
|
|
183
|
-
return self
|
|
223
|
+
smalltalk.send(console,"_log_",[aString]);
|
|
224
|
+
return self}
|
|
184
225
|
}),
|
|
185
226
|
smalltalk.ErrorHandler);
|
|
186
227
|
|
|
@@ -190,9 +231,15 @@ smalltalk.method({
|
|
|
190
231
|
selector: "logContext:",
|
|
191
232
|
fn: function (aContext){
|
|
192
233
|
var self=this;
|
|
193
|
-
|
|
194
|
-
smalltalk.send(
|
|
195
|
-
|
|
234
|
+
var $1;
|
|
235
|
+
$1=smalltalk.send(aContext,"_home",[]);
|
|
236
|
+
if(($receiver = $1) == nil || $receiver == undefined){
|
|
237
|
+
$1;
|
|
238
|
+
} else {
|
|
239
|
+
smalltalk.send(self,"_logContext_",[smalltalk.send(aContext,"_home",[])]);
|
|
240
|
+
};
|
|
241
|
+
smalltalk.send(self,"_log_",[smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aContext,"_receiver",[]),"_asString",[]),"__comma",[">>"]),"__comma",[smalltalk.send(aContext,"_selector",[])])]);
|
|
242
|
+
return self}
|
|
196
243
|
}),
|
|
197
244
|
smalltalk.ErrorHandler);
|
|
198
245
|
|
|
@@ -202,8 +249,8 @@ smalltalk.method({
|
|
|
202
249
|
selector: "logError:",
|
|
203
250
|
fn: function (anError){
|
|
204
251
|
var self=this;
|
|
205
|
-
smalltalk.send(self,
|
|
206
|
-
return self
|
|
252
|
+
smalltalk.send(self,"_log_",[smalltalk.send(anError,"_messageText",[])]);
|
|
253
|
+
return self}
|
|
207
254
|
}),
|
|
208
255
|
smalltalk.ErrorHandler);
|
|
209
256
|
|
|
@@ -213,8 +260,18 @@ smalltalk.method({
|
|
|
213
260
|
selector: "logErrorContext:",
|
|
214
261
|
fn: function (aContext){
|
|
215
262
|
var self=this;
|
|
216
|
-
|
|
217
|
-
|
|
263
|
+
var $1;
|
|
264
|
+
if(($receiver = aContext) == nil || $receiver == undefined){
|
|
265
|
+
aContext;
|
|
266
|
+
} else {
|
|
267
|
+
$1=smalltalk.send(aContext,"_home",[]);
|
|
268
|
+
if(($receiver = $1) == nil || $receiver == undefined){
|
|
269
|
+
$1;
|
|
270
|
+
} else {
|
|
271
|
+
smalltalk.send(self,"_logContext_",[smalltalk.send(aContext,"_home",[])]);
|
|
272
|
+
};
|
|
273
|
+
};
|
|
274
|
+
return self}
|
|
218
275
|
}),
|
|
219
276
|
smalltalk.ErrorHandler);
|
|
220
277
|
|
|
@@ -226,8 +283,15 @@ smalltalk.method({
|
|
|
226
283
|
selector: "current",
|
|
227
284
|
fn: function (){
|
|
228
285
|
var self=this;
|
|
229
|
-
|
|
230
|
-
|
|
286
|
+
var $1;
|
|
287
|
+
if(($receiver = self["@current"]) == nil || $receiver == undefined){
|
|
288
|
+
self["@current"]=smalltalk.send(self,"_new",[]);
|
|
289
|
+
$1=self["@current"];
|
|
290
|
+
} else {
|
|
291
|
+
$1=self["@current"];
|
|
292
|
+
};
|
|
293
|
+
return $1;
|
|
294
|
+
}
|
|
231
295
|
}),
|
|
232
296
|
smalltalk.ErrorHandler.klass);
|
|
233
297
|
|
|
@@ -237,8 +301,8 @@ smalltalk.method({
|
|
|
237
301
|
selector: "initialize",
|
|
238
302
|
fn: function (){
|
|
239
303
|
var self=this;
|
|
240
|
-
smalltalk.send(self,
|
|
241
|
-
return self
|
|
304
|
+
smalltalk.send(self,"_register",[]);
|
|
305
|
+
return self}
|
|
242
306
|
}),
|
|
243
307
|
smalltalk.ErrorHandler.klass);
|
|
244
308
|
|
|
@@ -248,8 +312,8 @@ smalltalk.method({
|
|
|
248
312
|
selector: "register",
|
|
249
313
|
fn: function (){
|
|
250
314
|
var self=this;
|
|
251
|
-
smalltalk.send((smalltalk.ErrorHandler || ErrorHandler),
|
|
252
|
-
return self
|
|
315
|
+
smalltalk.send((smalltalk.ErrorHandler || ErrorHandler),"_setCurrent_",[smalltalk.send(self,"_new",[])]);
|
|
316
|
+
return self}
|
|
253
317
|
}),
|
|
254
318
|
smalltalk.ErrorHandler.klass);
|
|
255
319
|
|
|
@@ -259,8 +323,8 @@ smalltalk.method({
|
|
|
259
323
|
selector: "setCurrent:",
|
|
260
324
|
fn: function (anHandler){
|
|
261
325
|
var self=this;
|
|
262
|
-
|
|
263
|
-
return self
|
|
326
|
+
self["@current"]=anHandler;
|
|
327
|
+
return self}
|
|
264
328
|
}),
|
|
265
329
|
smalltalk.ErrorHandler.klass);
|
|
266
330
|
|
|
@@ -8,7 +8,8 @@ category: 'accessing',
|
|
|
8
8
|
fn: function (){
|
|
9
9
|
var self=this;
|
|
10
10
|
return self.context;
|
|
11
|
-
|
|
11
|
+
;
|
|
12
|
+
return self},
|
|
12
13
|
args: [],
|
|
13
14
|
source: "context\x0a\x09<return self.context>",
|
|
14
15
|
messageSends: [],
|
|
@@ -24,7 +25,8 @@ category: 'testing',
|
|
|
24
25
|
fn: function (){
|
|
25
26
|
var self=this;
|
|
26
27
|
return self.smalltalkError === true;
|
|
27
|
-
|
|
28
|
+
;
|
|
29
|
+
return self},
|
|
28
30
|
args: [],
|
|
29
31
|
source: "isSmalltalkError\x0a\x09<return self.smalltalkError === true>",
|
|
30
32
|
messageSends: [],
|
|
@@ -40,7 +42,8 @@ category: 'accessing',
|
|
|
40
42
|
fn: function (){
|
|
41
43
|
var self=this;
|
|
42
44
|
return self.stack;
|
|
43
|
-
|
|
45
|
+
;
|
|
46
|
+
return self},
|
|
44
47
|
args: [],
|
|
45
48
|
source: "jsStack\x0a\x09<return self.stack>",
|
|
46
49
|
messageSends: [],
|
|
@@ -55,8 +58,8 @@ selector: "messageText",
|
|
|
55
58
|
category: 'accessing',
|
|
56
59
|
fn: function (){
|
|
57
60
|
var self=this;
|
|
58
|
-
return self[
|
|
59
|
-
|
|
61
|
+
return self["@messageText"];
|
|
62
|
+
},
|
|
60
63
|
args: [],
|
|
61
64
|
source: "messageText\x0a\x09^messageText",
|
|
62
65
|
messageSends: [],
|
|
@@ -71,8 +74,8 @@ selector: "messageText:",
|
|
|
71
74
|
category: 'accessing',
|
|
72
75
|
fn: function (aString){
|
|
73
76
|
var self=this;
|
|
74
|
-
|
|
75
|
-
return self
|
|
77
|
+
self["@messageText"]=aString;
|
|
78
|
+
return self},
|
|
76
79
|
args: ["aString"],
|
|
77
80
|
source: "messageText: aString\x0a\x09messageText := aString",
|
|
78
81
|
messageSends: [],
|
|
@@ -88,7 +91,8 @@ category: 'signaling',
|
|
|
88
91
|
fn: function (){
|
|
89
92
|
var self=this;
|
|
90
93
|
self.context = smalltalk.getThisContext(); self.smalltalkError = true; throw(self);
|
|
91
|
-
|
|
94
|
+
;
|
|
95
|
+
return self},
|
|
92
96
|
args: [],
|
|
93
97
|
source: "signal\x0a\x09<self.context = smalltalk.getThisContext(); self.smalltalkError = true; throw(self)>",
|
|
94
98
|
messageSends: [],
|
|
@@ -103,9 +107,9 @@ selector: "signal:",
|
|
|
103
107
|
category: 'signaling',
|
|
104
108
|
fn: function (aString){
|
|
105
109
|
var self=this;
|
|
106
|
-
smalltalk.send(self,
|
|
107
|
-
smalltalk.send(self,
|
|
108
|
-
return self
|
|
110
|
+
smalltalk.send(self,"_messageText_",[aString]);
|
|
111
|
+
smalltalk.send(self,"_signal",[]);
|
|
112
|
+
return self},
|
|
109
113
|
args: ["aString"],
|
|
110
114
|
source: "signal: aString\x0a\x09self messageText: aString.\x0a\x09self signal",
|
|
111
115
|
messageSends: ["messageText:", "signal"],
|
|
@@ -121,8 +125,10 @@ selector: "signal",
|
|
|
121
125
|
category: 'instance creation',
|
|
122
126
|
fn: function (){
|
|
123
127
|
var self=this;
|
|
124
|
-
|
|
125
|
-
|
|
128
|
+
var $1;
|
|
129
|
+
$1=smalltalk.send(smalltalk.send(self,"_new",[]),"_signal",[]);
|
|
130
|
+
return $1;
|
|
131
|
+
},
|
|
126
132
|
args: [],
|
|
127
133
|
source: "signal\x0a\x09^self new signal",
|
|
128
134
|
messageSends: ["signal", "new"],
|
|
@@ -137,8 +143,10 @@ selector: "signal:",
|
|
|
137
143
|
category: 'instance creation',
|
|
138
144
|
fn: function (aString){
|
|
139
145
|
var self=this;
|
|
140
|
-
|
|
141
|
-
|
|
146
|
+
var $1;
|
|
147
|
+
$1=smalltalk.send(smalltalk.send(self,"_new",[]),"_signal_",[aString]);
|
|
148
|
+
return $1;
|
|
149
|
+
},
|
|
142
150
|
args: ["aString"],
|
|
143
151
|
source: "signal: aString\x0a\x09 ^self new\x0a\x09\x09signal: aString",
|
|
144
152
|
messageSends: ["signal:", "new"],
|
|
@@ -155,8 +163,8 @@ selector: "message",
|
|
|
155
163
|
category: 'accessing',
|
|
156
164
|
fn: function (){
|
|
157
165
|
var self=this;
|
|
158
|
-
return self[
|
|
159
|
-
|
|
166
|
+
return self["@message"];
|
|
167
|
+
},
|
|
160
168
|
args: [],
|
|
161
169
|
source: "message\x0a\x09^message",
|
|
162
170
|
messageSends: [],
|
|
@@ -171,8 +179,8 @@ selector: "message:",
|
|
|
171
179
|
category: 'accessing',
|
|
172
180
|
fn: function (aMessage){
|
|
173
181
|
var self=this;
|
|
174
|
-
|
|
175
|
-
return self
|
|
182
|
+
self["@message"]=aMessage;
|
|
183
|
+
return self},
|
|
176
184
|
args: ["aMessage"],
|
|
177
185
|
source: "message: aMessage\x0a\x09message := aMessage",
|
|
178
186
|
messageSends: [],
|
|
@@ -187,11 +195,13 @@ selector: "messageText",
|
|
|
187
195
|
category: 'accessing',
|
|
188
196
|
fn: function (){
|
|
189
197
|
var self=this;
|
|
190
|
-
|
|
191
|
-
|
|
198
|
+
var $1;
|
|
199
|
+
$1=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self,"_receiver",[]),"_asString",[]),"__comma",[" does not understand #"]),"__comma",[smalltalk.send(smalltalk.send(self,"_message",[]),"_selector",[])]);
|
|
200
|
+
return $1;
|
|
201
|
+
},
|
|
192
202
|
args: [],
|
|
193
203
|
source: "messageText\x0a\x09^self receiver asString, ' does not understand #', self message selector",
|
|
194
|
-
messageSends: [",", "
|
|
204
|
+
messageSends: [",", "selector", "message", "asString", "receiver"],
|
|
195
205
|
referencedClasses: []
|
|
196
206
|
}),
|
|
197
207
|
smalltalk.MessageNotUnderstood);
|
|
@@ -203,8 +213,8 @@ selector: "receiver",
|
|
|
203
213
|
category: 'accessing',
|
|
204
214
|
fn: function (){
|
|
205
215
|
var self=this;
|
|
206
|
-
return self[
|
|
207
|
-
|
|
216
|
+
return self["@receiver"];
|
|
217
|
+
},
|
|
208
218
|
args: [],
|
|
209
219
|
source: "receiver\x0a\x09^receiver",
|
|
210
220
|
messageSends: [],
|
|
@@ -219,8 +229,8 @@ selector: "receiver:",
|
|
|
219
229
|
category: 'accessing',
|
|
220
230
|
fn: function (anObject){
|
|
221
231
|
var self=this;
|
|
222
|
-
|
|
223
|
-
return self
|
|
232
|
+
self["@receiver"]=anObject;
|
|
233
|
+
return self},
|
|
224
234
|
args: ["anObject"],
|
|
225
235
|
source: "receiver: anObject\x0a\x09receiver := anObject",
|
|
226
236
|
messageSends: [],
|
|
@@ -230,6 +240,41 @@ smalltalk.MessageNotUnderstood);
|
|
|
230
240
|
|
|
231
241
|
|
|
232
242
|
|
|
243
|
+
smalltalk.addClass('NonBooleanReceiver', smalltalk.Error, ['object'], 'Kernel-Exceptions');
|
|
244
|
+
smalltalk.addMethod(
|
|
245
|
+
"_object",
|
|
246
|
+
smalltalk.method({
|
|
247
|
+
selector: "object",
|
|
248
|
+
category: 'accessing',
|
|
249
|
+
fn: function (){
|
|
250
|
+
var self=this;
|
|
251
|
+
return self["@object"];
|
|
252
|
+
},
|
|
253
|
+
args: [],
|
|
254
|
+
source: "object\x0a\x09^ object",
|
|
255
|
+
messageSends: [],
|
|
256
|
+
referencedClasses: []
|
|
257
|
+
}),
|
|
258
|
+
smalltalk.NonBooleanReceiver);
|
|
259
|
+
|
|
260
|
+
smalltalk.addMethod(
|
|
261
|
+
"_object_",
|
|
262
|
+
smalltalk.method({
|
|
263
|
+
selector: "object:",
|
|
264
|
+
category: 'accessing',
|
|
265
|
+
fn: function (anObject){
|
|
266
|
+
var self=this;
|
|
267
|
+
self["@object"]=anObject;
|
|
268
|
+
return self},
|
|
269
|
+
args: ["anObject"],
|
|
270
|
+
source: "object: anObject\x0a\x09object := anObject",
|
|
271
|
+
messageSends: [],
|
|
272
|
+
referencedClasses: []
|
|
273
|
+
}),
|
|
274
|
+
smalltalk.NonBooleanReceiver);
|
|
275
|
+
|
|
276
|
+
|
|
277
|
+
|
|
233
278
|
smalltalk.addClass('ErrorHandler', smalltalk.Object, [], 'Kernel-Exceptions');
|
|
234
279
|
smalltalk.addMethod(
|
|
235
280
|
"_handleError_",
|
|
@@ -238,12 +283,18 @@ selector: "handleError:",
|
|
|
238
283
|
category: 'error handling',
|
|
239
284
|
fn: function (anError){
|
|
240
285
|
var self=this;
|
|
241
|
-
|
|
242
|
-
smalltalk.send(
|
|
243
|
-
|
|
286
|
+
var $1;
|
|
287
|
+
$1=smalltalk.send(anError,"_context",[]);
|
|
288
|
+
if(($receiver = $1) == nil || $receiver == undefined){
|
|
289
|
+
$1;
|
|
290
|
+
} else {
|
|
291
|
+
smalltalk.send(self,"_logErrorContext_",[smalltalk.send(anError,"_context",[])]);
|
|
292
|
+
};
|
|
293
|
+
smalltalk.send(self,"_logError_",[anError]);
|
|
294
|
+
return self},
|
|
244
295
|
args: ["anError"],
|
|
245
296
|
source: "handleError: anError\x0a\x09anError context ifNotNil: [self logErrorContext: anError context].\x0a\x09self logError: anError",
|
|
246
|
-
messageSends: ["ifNotNil:", "
|
|
297
|
+
messageSends: ["ifNotNil:", "logErrorContext:", "context", "logError:"],
|
|
247
298
|
referencedClasses: []
|
|
248
299
|
}),
|
|
249
300
|
smalltalk.ErrorHandler);
|
|
@@ -255,8 +306,8 @@ selector: "log:",
|
|
|
255
306
|
category: 'private',
|
|
256
307
|
fn: function (aString){
|
|
257
308
|
var self=this;
|
|
258
|
-
smalltalk.send(
|
|
259
|
-
return self
|
|
309
|
+
smalltalk.send(console,"_log_",[aString]);
|
|
310
|
+
return self},
|
|
260
311
|
args: ["aString"],
|
|
261
312
|
source: "log: aString\x0a\x09console log: aString",
|
|
262
313
|
messageSends: ["log:"],
|
|
@@ -271,12 +322,18 @@ selector: "logContext:",
|
|
|
271
322
|
category: 'private',
|
|
272
323
|
fn: function (aContext){
|
|
273
324
|
var self=this;
|
|
274
|
-
|
|
275
|
-
smalltalk.send(
|
|
276
|
-
|
|
325
|
+
var $1;
|
|
326
|
+
$1=smalltalk.send(aContext,"_home",[]);
|
|
327
|
+
if(($receiver = $1) == nil || $receiver == undefined){
|
|
328
|
+
$1;
|
|
329
|
+
} else {
|
|
330
|
+
smalltalk.send(self,"_logContext_",[smalltalk.send(aContext,"_home",[])]);
|
|
331
|
+
};
|
|
332
|
+
smalltalk.send(self,"_log_",[smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aContext,"_receiver",[]),"_asString",[]),"__comma",[">>"]),"__comma",[smalltalk.send(aContext,"_selector",[])])]);
|
|
333
|
+
return self},
|
|
277
334
|
args: ["aContext"],
|
|
278
335
|
source: "logContext: aContext\x0a\x09aContext home ifNotNil: [\x0a\x09\x09self logContext: aContext home].\x0a\x09self log: aContext receiver asString, '>>', aContext selector",
|
|
279
|
-
messageSends: ["ifNotNil:", "
|
|
336
|
+
messageSends: ["ifNotNil:", "logContext:", "home", "log:", ",", "selector", "asString", "receiver"],
|
|
280
337
|
referencedClasses: []
|
|
281
338
|
}),
|
|
282
339
|
smalltalk.ErrorHandler);
|
|
@@ -288,8 +345,8 @@ selector: "logError:",
|
|
|
288
345
|
category: 'private',
|
|
289
346
|
fn: function (anError){
|
|
290
347
|
var self=this;
|
|
291
|
-
smalltalk.send(self,
|
|
292
|
-
return self
|
|
348
|
+
smalltalk.send(self,"_log_",[smalltalk.send(anError,"_messageText",[])]);
|
|
349
|
+
return self},
|
|
293
350
|
args: ["anError"],
|
|
294
351
|
source: "logError: anError\x0a\x09self log: anError messageText",
|
|
295
352
|
messageSends: ["log:", "messageText"],
|
|
@@ -304,11 +361,21 @@ selector: "logErrorContext:",
|
|
|
304
361
|
category: 'private',
|
|
305
362
|
fn: function (aContext){
|
|
306
363
|
var self=this;
|
|
307
|
-
|
|
308
|
-
|
|
364
|
+
var $1;
|
|
365
|
+
if(($receiver = aContext) == nil || $receiver == undefined){
|
|
366
|
+
aContext;
|
|
367
|
+
} else {
|
|
368
|
+
$1=smalltalk.send(aContext,"_home",[]);
|
|
369
|
+
if(($receiver = $1) == nil || $receiver == undefined){
|
|
370
|
+
$1;
|
|
371
|
+
} else {
|
|
372
|
+
smalltalk.send(self,"_logContext_",[smalltalk.send(aContext,"_home",[])]);
|
|
373
|
+
};
|
|
374
|
+
};
|
|
375
|
+
return self},
|
|
309
376
|
args: ["aContext"],
|
|
310
377
|
source: "logErrorContext: aContext\x0a\x09aContext ifNotNil: [\x0a\x09\x09aContext home ifNotNil: [\x0a\x09\x09\x09self logContext: aContext home]]",
|
|
311
|
-
messageSends: ["ifNotNil:", "
|
|
378
|
+
messageSends: ["ifNotNil:", "logContext:", "home"],
|
|
312
379
|
referencedClasses: []
|
|
313
380
|
}),
|
|
314
381
|
smalltalk.ErrorHandler);
|
|
@@ -322,8 +389,15 @@ selector: "current",
|
|
|
322
389
|
category: 'accessing',
|
|
323
390
|
fn: function (){
|
|
324
391
|
var self=this;
|
|
325
|
-
|
|
326
|
-
|
|
392
|
+
var $1;
|
|
393
|
+
if(($receiver = self["@current"]) == nil || $receiver == undefined){
|
|
394
|
+
self["@current"]=smalltalk.send(self,"_new",[]);
|
|
395
|
+
$1=self["@current"];
|
|
396
|
+
} else {
|
|
397
|
+
$1=self["@current"];
|
|
398
|
+
};
|
|
399
|
+
return $1;
|
|
400
|
+
},
|
|
327
401
|
args: [],
|
|
328
402
|
source: "current\x0a\x09^current ifNil: [current := self new]",
|
|
329
403
|
messageSends: ["ifNil:", "new"],
|
|
@@ -338,8 +412,8 @@ selector: "initialize",
|
|
|
338
412
|
category: 'initialization',
|
|
339
413
|
fn: function (){
|
|
340
414
|
var self=this;
|
|
341
|
-
smalltalk.send(self,
|
|
342
|
-
return self
|
|
415
|
+
smalltalk.send(self,"_register",[]);
|
|
416
|
+
return self},
|
|
343
417
|
args: [],
|
|
344
418
|
source: "initialize\x0a\x09self register",
|
|
345
419
|
messageSends: ["register"],
|
|
@@ -354,8 +428,8 @@ selector: "register",
|
|
|
354
428
|
category: 'initialization',
|
|
355
429
|
fn: function (){
|
|
356
430
|
var self=this;
|
|
357
|
-
smalltalk.send((smalltalk.ErrorHandler || ErrorHandler),
|
|
358
|
-
return self
|
|
431
|
+
smalltalk.send((smalltalk.ErrorHandler || ErrorHandler),"_setCurrent_",[smalltalk.send(self,"_new",[])]);
|
|
432
|
+
return self},
|
|
359
433
|
args: [],
|
|
360
434
|
source: "register\x0a\x09ErrorHandler setCurrent: self new",
|
|
361
435
|
messageSends: ["setCurrent:", "new"],
|
|
@@ -370,8 +444,8 @@ selector: "setCurrent:",
|
|
|
370
444
|
category: 'accessing',
|
|
371
445
|
fn: function (anHandler){
|
|
372
446
|
var self=this;
|
|
373
|
-
|
|
374
|
-
return self
|
|
447
|
+
self["@current"]=anHandler;
|
|
448
|
+
return self},
|
|
375
449
|
args: ["anHandler"],
|
|
376
450
|
source: "setCurrent: anHandler\x0a\x09current := anHandler",
|
|
377
451
|
messageSends: [],
|