@@ -33,16 +33,15 @@ selector: "defaultReceiver",
category: 'defaults',
fn: function (){
var self=this;
-function $DoIt(){return smalltalk.DoIt||(typeof DoIt=="undefined"?nil:DoIt)}
return smalltalk.withContext(function($ctx1) {
var $1;
-$1=_st($DoIt())._new();
+$1=_st(self._environment())._doItReceiver();
return $1;
}, function($ctx1) {$ctx1.fill(self,"defaultReceiver",{},smalltalk.HLCodeModel)})},
args: [],
-source: "defaultReceiver\x0a\x09^ DoIt new",
-messageSends: ["new"],
-referencedClasses: ["DoIt"]
+source: "defaultReceiver\x0a\x09^ self environment doItReceiver",
+messageSends: ["doItReceiver", "environment"],
+referencedClasses: []
}),
smalltalk.HLCodeModel);
@@ -421,6 +421,25 @@ referencedClasses: ["Smalltalk", "ClassBuilder"]
smalltalk.Environment);
+smalltalk.addMethod(
+smalltalk.method({
+selector: "doItReceiver",
+category: 'accessing',
+fn: function (){
+var self=this;
+function $DoIt(){return smalltalk.DoIt||(typeof DoIt=="undefined"?nil:DoIt)}
+return smalltalk.withContext(function($ctx1) {
+var $1;
+$1=_st($DoIt())._new();
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"doItReceiver",{},smalltalk.Environment)})},
+args: [],
+source: "doItReceiver\x0a\x09^ DoIt new",
+messageSends: ["new"],
+referencedClasses: ["DoIt"]
+}),
+smalltalk.Environment);
+
smalltalk.addMethod(
smalltalk.method({
selector: "eval:on:",
@@ -39,7 +39,7 @@ inspect: anObject
!HLCodeModel methodsFor: 'defaults'!
defaultReceiver
- ^ DoIt new
+ ^ self environment doItReceiver
! !
!HLCodeModel class methodsFor: 'actions'!
@@ -106,6 +106,10 @@ classes
^ Smalltalk current classes
!
+doItReceiver
+ ^ DoIt new
+!
packages
^ Smalltalk current packages