| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253 | 
							- define(["smalltalk","nil","_st"], function(smalltalk,nil,_st){
 
- smalltalk.addPackage('Spaces');
 
- smalltalk.addClass('ObjectSpace', smalltalk.Object, ['frame'], 'Spaces');
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "connectTo:",
 
- fn: function (aFrame){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- self._release();
 
- self["@frame"]=aFrame;
 
- return self}, function($ctx1) {$ctx1.fill(self,"connectTo:",{aFrame:aFrame},smalltalk.ObjectSpace)})},
 
- messageSends: ["release"]}),
 
- smalltalk.ObjectSpace);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "create",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- _st(_st(window)._jQuery_("body"))._append_("<iframe style=\x22display: none;\x22></iframe>");
 
- self["@frame"]=_st(_st(_st(window)._jQuery_("iframe"))._get())._last();
 
- _st(_st(self["@frame"])._contentWindow())._location_(_st(window)._location());
 
- return self}, function($ctx1) {$ctx1.fill(self,"create",{},smalltalk.ObjectSpace)})},
 
- messageSends: ["append:", "jQuery:", "last", "get", "location:", "location", "contentWindow"]}),
 
- smalltalk.ObjectSpace);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "destroy",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- var $1,$2;
 
- $1=self["@frame"];
 
- if(($receiver = $1) == nil || $receiver == undefined){
 
- $2=self;
 
- return $2;
 
- } else {
 
- $1;
 
- };
 
- _st(_st(window)._jQuery_(self["@frame"]))._remove();
 
- self._release();
 
- return self}, function($ctx1) {$ctx1.fill(self,"destroy",{},smalltalk.ObjectSpace)})},
 
- messageSends: ["ifNil:", "remove", "jQuery:", "release"]}),
 
- smalltalk.ObjectSpace);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "do:",
 
- fn: function (aBlock){
 
- var self=this;
 
- function $ObjectSpaceConnectionError(){return smalltalk.ObjectSpaceConnectionError||(typeof ObjectSpaceConnectionError=="undefined"?nil:ObjectSpaceConnectionError)}
 
- return smalltalk.withContext(function($ctx1) { 
 
- var $1,$2,$3;
 
- $1=self._isConnected();
 
- if(! smalltalk.assert($1)){
 
- $2=_st($ObjectSpaceConnectionError())._signal();
 
- return $2;
 
- };
 
- $3=_st(_st(self["@frame"])._contentWindow())._eval_(_st("(".__comma(_st(aBlock)._compiledSource())).__comma(")()"));
 
- return $3;
 
- }, function($ctx1) {$ctx1.fill(self,"do:",{aBlock:aBlock},smalltalk.ObjectSpace)})},
 
- messageSends: ["ifFalse:", "signal", "isConnected", "eval:", ",", "compiledSource", "contentWindow"]}),
 
- smalltalk.ObjectSpace);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "frame",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- var $1;
 
- $1=self["@frame"];
 
- return $1;
 
- }, function($ctx1) {$ctx1.fill(self,"frame",{},smalltalk.ObjectSpace)})},
 
- messageSends: []}),
 
- smalltalk.ObjectSpace);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "initialize",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- smalltalk.ObjectSpace.superclass.fn.prototype._initialize.apply(_st(self), []);
 
- self._create();
 
- return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.ObjectSpace)})},
 
- messageSends: ["initialize", "create"]}),
 
- smalltalk.ObjectSpace);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "isConnected",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- var $1;
 
- $1=_st(self._frame())._notNil();
 
- return $1;
 
- }, function($ctx1) {$ctx1.fill(self,"isConnected",{},smalltalk.ObjectSpace)})},
 
- messageSends: ["notNil", "frame"]}),
 
- smalltalk.ObjectSpace);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "release",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- self["@frame"]=nil;
 
- return self}, function($ctx1) {$ctx1.fill(self,"release",{},smalltalk.ObjectSpace)})},
 
- messageSends: []}),
 
- smalltalk.ObjectSpace);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "whenReadyDo:",
 
- fn: function (aBlock){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- _st(_st(window)._jQuery_(self["@frame"]))._bind_do_("load",aBlock);
 
- return self}, function($ctx1) {$ctx1.fill(self,"whenReadyDo:",{aBlock:aBlock},smalltalk.ObjectSpace)})},
 
- messageSends: ["bind:do:", "jQuery:"]}),
 
- smalltalk.ObjectSpace);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "on:",
 
- fn: function (aFrame){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- var $2,$3,$1;
 
- $2=self._basicNew();
 
- _st($2)._connectTo_(aFrame);
 
- $3=_st($2)._yourself();
 
- $1=$3;
 
- return $1;
 
- }, function($ctx1) {$ctx1.fill(self,"on:",{aFrame:aFrame},smalltalk.ObjectSpace.klass)})},
 
- messageSends: ["connectTo:", "basicNew", "yourself"]}),
 
- smalltalk.ObjectSpace.klass);
 
- smalltalk.addClass('ObjectSpaceConnectionError', smalltalk.Error, [], 'Spaces');
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "messageText",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- return "The ObjectSpace is not connected";
 
- }, function($ctx1) {$ctx1.fill(self,"messageText",{},smalltalk.ObjectSpaceConnectionError)})},
 
- messageSends: []}),
 
- smalltalk.ObjectSpaceConnectionError);
 
- smalltalk.addClass('ObjectSpaceTest', smalltalk.TestCase, ['space'], 'Spaces');
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "setUp",
 
- fn: function (){
 
- var self=this;
 
- function $ObjectSpace(){return smalltalk.ObjectSpace||(typeof ObjectSpace=="undefined"?nil:ObjectSpace)}
 
- return smalltalk.withContext(function($ctx1) { 
 
- self["@space"]=_st($ObjectSpace())._new();
 
- return self}, function($ctx1) {$ctx1.fill(self,"setUp",{},smalltalk.ObjectSpaceTest)})},
 
- messageSends: ["new"]}),
 
- smalltalk.ObjectSpaceTest);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "tearDown",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- _st(self["@space"])._destroy();
 
- return self}, function($ctx1) {$ctx1.fill(self,"tearDown",{},smalltalk.ObjectSpaceTest)})},
 
- messageSends: ["destroy"]}),
 
- smalltalk.ObjectSpaceTest);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "testConnection",
 
- fn: function (){
 
- var self=this;
 
- function $ObjectSpaceConnectionError(){return smalltalk.ObjectSpaceConnectionError||(typeof ObjectSpaceConnectionError=="undefined"?nil:ObjectSpaceConnectionError)}
 
- return smalltalk.withContext(function($ctx1) { 
 
- _st(self["@space"])._destroy();
 
- self._deny_(_st(self["@space"])._isConnected());
 
- self._should_raise_((function(){
 
- return smalltalk.withContext(function($ctx2) {
 
- return _st(self["@space"])._do_((function(){
 
- return smalltalk.withContext(function($ctx3) {
 
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2)})}));
 
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}),$ObjectSpaceConnectionError());
 
- return self}, function($ctx1) {$ctx1.fill(self,"testConnection",{},smalltalk.ObjectSpaceTest)})},
 
- messageSends: ["destroy", "deny:", "isConnected", "should:raise:", "do:"]}),
 
- smalltalk.ObjectSpaceTest);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "testCreate",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- self._assert_(_st(_st(self["@space"])._frame())._notNil());
 
- self._assert_(_st(self["@space"])._isConnected());
 
- return self}, function($ctx1) {$ctx1.fill(self,"testCreate",{},smalltalk.ObjectSpaceTest)})},
 
- messageSends: ["assert:", "notNil", "frame", "isConnected"]}),
 
- smalltalk.ObjectSpaceTest);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "testEvaluation",
 
- fn: function (){
 
- var self=this;
 
- var result;
 
- function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
 
- return smalltalk.withContext(function($ctx1) { 
 
- _st(self["@space"])._whenReadyDo_((function(){
 
- return smalltalk.withContext(function($ctx2) {
 
- result=_st(self["@space"])._do_((function(){
 
- return smalltalk.withContext(function($ctx3) {
 
- return smalltalk;
 
- }, function($ctx3) {$ctx3.fillBlock({},$ctx2)})}));
 
- result;
 
- self._assert_equals_(_st(_st(result)._class())._name(),"Smalltalk");
 
- self._deny_(_st(_st(result)._class()).__eq($Smalltalk()));
 
- return self._deny_(_st(result).__eq_eq(smalltalk));
 
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
 
- return self}, function($ctx1) {$ctx1.fill(self,"testEvaluation",{result:result},smalltalk.ObjectSpaceTest)})},
 
- messageSends: ["whenReadyDo:", "do:", "assert:equals:", "name", "class", "deny:", "=", "=="]}),
 
- smalltalk.ObjectSpaceTest);
 
- smalltalk.addMethod(
 
- smalltalk.method({
 
- selector: "testRelease",
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx1) { 
 
- self._deny_(_st(_st(self["@space"])._frame())._isNil());
 
- _st(self["@space"])._release();
 
- self._assert_(_st(_st(self["@space"])._frame())._isNil());
 
- return self}, function($ctx1) {$ctx1.fill(self,"testRelease",{},smalltalk.ObjectSpaceTest)})},
 
- messageSends: ["deny:", "isNil", "frame", "release", "assert:"]}),
 
- smalltalk.ObjectSpaceTest);
 
- });
 
 
  |