225 lines
5.0 KiB
JavaScript
225 lines
5.0 KiB
JavaScript
smalltalk.addPackage('Kernel-Announcements', {});
|
|
smalltalk.addClass('AnnouncementSubscription', smalltalk.Object, ['block', 'announcementClass'], 'Kernel-Announcements');
|
|
smalltalk.addMethod(
|
|
"_announcementClass",
|
|
smalltalk.method({
|
|
selector: "announcementClass",
|
|
fn: function (){
|
|
var self=this;
|
|
return self["@announcementClass"];
|
|
}
|
|
}),
|
|
smalltalk.AnnouncementSubscription);
|
|
|
|
smalltalk.addMethod(
|
|
"_announcementClass_",
|
|
smalltalk.method({
|
|
selector: "announcementClass:",
|
|
fn: function (aClass){
|
|
var self=this;
|
|
self["@announcementClass"]=aClass;
|
|
return self}
|
|
}),
|
|
smalltalk.AnnouncementSubscription);
|
|
|
|
smalltalk.addMethod(
|
|
"_block",
|
|
smalltalk.method({
|
|
selector: "block",
|
|
fn: function (){
|
|
var self=this;
|
|
return self["@block"];
|
|
}
|
|
}),
|
|
smalltalk.AnnouncementSubscription);
|
|
|
|
smalltalk.addMethod(
|
|
"_block_",
|
|
smalltalk.method({
|
|
selector: "block:",
|
|
fn: function (aBlock){
|
|
var self=this;
|
|
self["@block"]=aBlock;
|
|
return self}
|
|
}),
|
|
smalltalk.AnnouncementSubscription);
|
|
|
|
smalltalk.addMethod(
|
|
"_deliver_",
|
|
smalltalk.method({
|
|
selector: "deliver:",
|
|
fn: function (anAnnouncement){
|
|
var self=this;
|
|
var $1;
|
|
$1=smalltalk.send(self,"_handlesAnnouncement_",[anAnnouncement]);
|
|
if(smalltalk.assert($1)){
|
|
smalltalk.send(smalltalk.send(self,"_block",[]),"_value_",[anAnnouncement]);
|
|
};
|
|
return self}
|
|
}),
|
|
smalltalk.AnnouncementSubscription);
|
|
|
|
smalltalk.addMethod(
|
|
"_handlesAnnouncement_",
|
|
smalltalk.method({
|
|
selector: "handlesAnnouncement:",
|
|
fn: function (anAnnouncement){
|
|
var self=this;
|
|
var $1;
|
|
$1=smalltalk.send(anAnnouncement,"_isKindOf_",[smalltalk.send(self,"_announcementClass",[])]);
|
|
return $1;
|
|
}
|
|
}),
|
|
smalltalk.AnnouncementSubscription);
|
|
|
|
|
|
|
|
smalltalk.addClass('Announcer', smalltalk.Object, ['registry', 'subscriptions'], 'Kernel-Announcements');
|
|
smalltalk.addMethod(
|
|
"_announce_",
|
|
smalltalk.method({
|
|
selector: "announce:",
|
|
fn: function (anAnnouncement){
|
|
var self=this;
|
|
smalltalk.send(self["@subscriptions"],"_do_",[(function(each){
|
|
return smalltalk.send(each,"_deliver_",[anAnnouncement]);
|
|
})]);
|
|
return self}
|
|
}),
|
|
smalltalk.Announcer);
|
|
|
|
smalltalk.addMethod(
|
|
"_initialize",
|
|
smalltalk.method({
|
|
selector: "initialize",
|
|
fn: function (){
|
|
var self=this;
|
|
smalltalk.send(self,"_initialize",[],smalltalk.Object);
|
|
self["@subscriptions"]=smalltalk.send((smalltalk.Array || Array),"_new",[]);
|
|
return self}
|
|
}),
|
|
smalltalk.Announcer);
|
|
|
|
smalltalk.addMethod(
|
|
"_on_do_",
|
|
smalltalk.method({
|
|
selector: "on:do:",
|
|
fn: function (aClass,aBlock){
|
|
var self=this;
|
|
var $1,$2;
|
|
$1=smalltalk.send((smalltalk.AnnouncementSubscription || AnnouncementSubscription),"_new",[]);
|
|
smalltalk.send($1,"_block_",[aBlock]);
|
|
smalltalk.send($1,"_announcementClass_",[aClass]);
|
|
$2=smalltalk.send($1,"_yourself",[]);
|
|
smalltalk.send(self["@subscriptions"],"_add_",[$2]);
|
|
return self}
|
|
}),
|
|
smalltalk.Announcer);
|
|
|
|
|
|
|
|
smalltalk.addClass('SystemAnnouncer', smalltalk.Announcer, [], 'Kernel-Announcements');
|
|
|
|
smalltalk.SystemAnnouncer.klass.iVarNames = ['current'];
|
|
smalltalk.addMethod(
|
|
"_current",
|
|
smalltalk.method({
|
|
selector: "current",
|
|
fn: function (){
|
|
var self=this;
|
|
var $1;
|
|
if(($receiver = self["@current"]) == nil || $receiver == undefined){
|
|
self["@current"]=smalltalk.send(self,"_new",[],smalltalk.Announcer.klass);
|
|
$1=self["@current"];
|
|
} else {
|
|
$1=self["@current"];
|
|
};
|
|
return $1;
|
|
}
|
|
}),
|
|
smalltalk.SystemAnnouncer.klass);
|
|
|
|
smalltalk.addMethod(
|
|
"_new",
|
|
smalltalk.method({
|
|
selector: "new",
|
|
fn: function (){
|
|
var self=this;
|
|
smalltalk.send(self,"_shouldNotImplement",[]);
|
|
return self}
|
|
}),
|
|
smalltalk.SystemAnnouncer.klass);
|
|
|
|
|
|
smalltalk.addClass('SystemAnnouncement', smalltalk.Object, ['theClass'], 'Kernel-Announcements');
|
|
smalltalk.addMethod(
|
|
"_theClass",
|
|
smalltalk.method({
|
|
selector: "theClass",
|
|
fn: function (){
|
|
var self=this;
|
|
return self["@theClass"];
|
|
}
|
|
}),
|
|
smalltalk.SystemAnnouncement);
|
|
|
|
smalltalk.addMethod(
|
|
"_theClass_",
|
|
smalltalk.method({
|
|
selector: "theClass:",
|
|
fn: function (aClass){
|
|
var self=this;
|
|
self["@theClass"]=aClass;
|
|
return self}
|
|
}),
|
|
smalltalk.SystemAnnouncement);
|
|
|
|
|
|
|
|
smalltalk.addClass('ClassAdded', smalltalk.SystemAnnouncement, [], 'Kernel-Announcements');
|
|
|
|
|
|
smalltalk.addClass('ClassCommentChanged', smalltalk.SystemAnnouncement, [], 'Kernel-Announcements');
|
|
|
|
|
|
smalltalk.addClass('ClassDefinitionChanged', smalltalk.SystemAnnouncement, [], 'Kernel-Announcements');
|
|
|
|
|
|
smalltalk.addClass('ClassRemoved', smalltalk.SystemAnnouncement, [], 'Kernel-Announcements');
|
|
|
|
|
|
smalltalk.addClass('ClassRenamed', smalltalk.SystemAnnouncement, [], 'Kernel-Announcements');
|
|
|
|
|
|
smalltalk.addClass('MethodAnnouncement', smalltalk.SystemAnnouncement, ['method'], 'Kernel-Announcements');
|
|
smalltalk.addMethod(
|
|
"_method",
|
|
smalltalk.method({
|
|
selector: "method",
|
|
fn: function (){
|
|
var self=this;
|
|
return self["@method"];
|
|
}
|
|
}),
|
|
smalltalk.MethodAnnouncement);
|
|
|
|
smalltalk.addMethod(
|
|
"_method_",
|
|
smalltalk.method({
|
|
selector: "method:",
|
|
fn: function (aCompiledMethod){
|
|
var self=this;
|
|
self["@method"]=aCompiledMethod;
|
|
return self}
|
|
}),
|
|
smalltalk.MethodAnnouncement);
|
|
|
|
|
|
|
|
smalltalk.addClass('MethodAdded', smalltalk.MethodAnnouncement, [], 'Kernel-Announcements');
|
|
|
|
|
|
smalltalk.addClass('MethodRemoved', smalltalk.MethodAnnouncement, [], 'Kernel-Announcements');
|
|
|
|
|