resin 0.2.2 → 0.2.3
Sign up to get free protection for your applications and to get access to all the features.
- 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: [],
|