Trang chủ Khám phá Trợ giúp
Đăng ký Đăng nhập
Christian
/
amber
forked from amber/amber
1
0
Fork 0
Các tập tin
Browse Source

Moving Helios back to its own branch

Nicolas Petton 12 năm trước cách đây
mục cha
808f097524
commit
44beb7b666
28 tập tin đã thay đổi với 0 bổ sung và 17022 xóa
Split View Hiển thị tình trạng sai khác
  1. 0 20
      helios.html
  2. 0 127
      js/Helios-Announcements.deploy.js
  3. 0 157
      js/Helios-Announcements.js
  4. 0 1473
      js/Helios-Browser.deploy.js
  5. 0 1953
      js/Helios-Browser.js
  6. 0 403
      js/Helios-Commands.deploy.js
  7. 0 563
      js/Helios-Commands.js
  8. 0 1070
      js/Helios-Core.deploy.js
  9. 0 1445
      js/Helios-Core.js
  10. 0 132
      js/Helios-Environments.deploy.js
  11. 0 179
      js/Helios-Environments.js
  12. 0 855
      js/Helios-Inspector.deploy.js
  13. 0 1155
      js/Helios-Inspector.js
  14. 0 753
      js/Helios-KeyBindings.deploy.js
  15. 0 1023
      js/Helios-KeyBindings.js
  16. 0 383
      js/Helios-Layout.deploy.js
  17. 0 523
      js/Helios-Layout.js
  18. 0 799
      js/Helios-Workspace.deploy.js
  19. 0 1074
      js/Helios-Workspace.js
  20. 0 104
      st/Helios-Announcements.st
  21. 0 708
      st/Helios-Browser.st
  22. 0 223
      st/Helios-Commands.st
  23. 0 532
      st/Helios-Core.st
  24. 0 98
      st/Helios-Environments.st
  25. 0 367
      st/Helios-Inspector.st
  26. 0 337
      st/Helios-KeyBindings.st
  27. 0 199
      st/Helios-Layout.st
  28. 0 367
      st/Helios-Workspace.st

+ 0 - 20
helios.html
Xem Tập Tin 

@@ -1,20 +0,0 @@
 
-<!DOCTYPE html> 
-<html> 
-  <head> 
-    <title>Helios IDE</title> 
-    <meta http-equiv="content-type" content="text/html; charset=utf-8" /> 
-    <meta name="author" content="Nicolas Petton" /> 
-    <link rel="stylesheet" type="text/css" href='js/lib/bootstrap/css/bootstrap.css' /> 
-    <link rel="stylesheet" type="text/css" href='css/helios.css' /> 
-    <link type="image/x-icon" rel="shortcut icon" href="/favicon.ico"/> 
-    <script type='text/javascript' src='js/lib/jQuery/jquery-1.8.2.min.js'></script> 
-    <script type='text/javascript' src='js/lib/jQuery/jquery-ui-1.8.24.custom.min.js'></script> 
-    <script type='text/javascript' src='js/lib/bootstrap/js/bootstrap.js'></script> 
-    <script type='text/javascript' src='js/amber.js'></script> 
-  </head> 
-  <body> 
-    
-    <script type='text/javascript'> loadAmber({packages: ['Spaces', 'Helios-Core', 'Helios-Environments', 'Helios-Commands', 'Helios-Layout','Helios-KeyBindings', 'Helios-Browser', 'Helios-Workspace', 'Helios-Inspector', 'Helios-Announcements']}) </script> 
-    
-  </body> 
-</html>

+ 0 - 127
js/Helios-Announcements.deploy.js
Xem Tập Tin 

@@ -1,127 +0,0 @@
 
-smalltalk.addPackage('Helios-Announcements', {});
 
-smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
 
-smalltalk.addMethod(
 
-"_code",
 
-smalltalk.method({
 
-selector: "code",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@code'];
 
-}
 
-}),
 
-smalltalk.HLCodeHandled);
 
-
 
-smalltalk.addMethod(
 
-"_code_",
 
-smalltalk.method({
 
-selector: "code:",
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@code'] = aModel;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeHandled);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (aCodeModel) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_code_", [aCodeModel]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeHandled.klass);
 
-
 
-
 
-smalltalk.addClass('HLDoItExecuted', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLDoItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLInspectItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLPrintItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
 
-smalltalk.addMethod(
 
-"_item",
 
-smalltalk.method({
 
-selector: "item",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@item'];
 
-}
 
-}),
 
-smalltalk.HLItemSelected);
 
-
 
-smalltalk.addMethod(
 
-"_item_",
 
-smalltalk.method({
 
-selector: "item:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@item'] = anObject;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLItemSelected);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (anItem) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_item_", [anItem]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLItemSelected.klass);
 
-
 
-
 
-smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLRefreshRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
 
-
 
-

+ 0 - 157
js/Helios-Announcements.js
Xem Tập Tin 

@@ -1,157 +0,0 @@
 
-smalltalk.addPackage('Helios-Announcements', {});
 
-smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
 
-smalltalk.addMethod(
 
-"_code",
 
-smalltalk.method({
 
-selector: "code",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@code'];
 
-},
 
-args: [],
 
-source: "code\x0a\x0a\x09^ code",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeHandled);
 
-
 
-smalltalk.addMethod(
 
-"_code_",
 
-smalltalk.method({
 
-selector: "code:",
 
-category: 'accessing',
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@code'] = aModel;
 
-    return self;
 
-},
 
-args: ["aModel"],
 
-source: "code: aModel\x0a\x0a\x09code := aModel",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeHandled);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'actions',
 
-fn: function (aCodeModel) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_code_", [aCodeModel]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["aCodeModel"],
 
-source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a    \x09code: aCodeModel;\x0a        yourself",
 
-messageSends: ["code:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeHandled.klass);
 
-
 
-
 
-smalltalk.addClass('HLDoItExecuted', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLDoItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLInspectItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLPrintItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
 
-smalltalk.addMethod(
 
-"_item",
 
-smalltalk.method({
 
-selector: "item",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@item'];
 
-},
 
-args: [],
 
-source: "item\x0a\x09^ item",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLItemSelected);
 
-
 
-smalltalk.addMethod(
 
-"_item_",
 
-smalltalk.method({
 
-selector: "item:",
 
-category: 'accessing',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@item'] = anObject;
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "item: anObject\x0a\x09item := anObject",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLItemSelected);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'instance creation',
 
-fn: function (anItem) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_item_", [anItem]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["anItem"],
 
-source: "on: anItem\x0a\x09^ self new\x0a    \x09item: anItem;\x0a        yourself",
 
-messageSends: ["item:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLItemSelected.klass);
 
-
 
-
 
-smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLRefreshRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
 
-
 
-
 
-smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
 
-
 
-

+ 0 - 1473
js/Helios-Browser.deploy.js
Xem Tập Tin 

@@ -1,1473 +0,0 @@
 
-smalltalk.addPackage('Helios-Browser', {});
 
-smalltalk.addClass('HLBrowser', smalltalk.HLWidget, ['model', 'packagesListWidget', 'classesListWidget', 'protocolsListWidget', 'methodsListWidget', 'sourceWidget'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_classesListWidget",
 
-smalltalk.method({
 
-selector: "classesListWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@classesListWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@classesListWidget'] = smalltalk.send(smalltalk.HLClassesListWidget || HLClassesListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        self['@classesListWidget'];
 
-        $1 = smalltalk.send(self['@classesListWidget'], "_next_", [smalltalk.send(self, "_protocolsListWidget", [])]);
 
-    } else {
 
-        $1 = self['@classesListWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_environment", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_methodsListWidget",
 
-smalltalk.method({
 
-selector: "methodsListWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@methodsListWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@methodsListWidget'] = smalltalk.send(smalltalk.HLMethodsListWidget || HLMethodsListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        $1 = self['@methodsListWidget'];
 
-    } else {
 
-        $1 = self['@methodsListWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
 
-        self['@model'] = smalltalk.send(smalltalk.HLBrowserModel || HLBrowserModel, "_new", []);
 
-        $1 = self['@model'];
 
-    } else {
 
-        $1 = self['@model'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@model'] = aModel;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_packagesListWidget",
 
-smalltalk.method({
 
-selector: "packagesListWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@packagesListWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@packagesListWidget'] = smalltalk.send(smalltalk.HLPackagesListWidget || HLPackagesListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        self['@packagesListWidget'];
 
-        $1 = smalltalk.send(self['@packagesListWidget'], "_next_", [smalltalk.send(self, "_classesListWidget", [])]);
 
-    } else {
 
-        $1 = self['@packagesListWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_protocolsListWidget",
 
-smalltalk.method({
 
-selector: "protocolsListWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@protocolsListWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@protocolsListWidget'] = smalltalk.send(smalltalk.HLProtocolsListWidget || HLProtocolsListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        self['@protocolsListWidget'];
 
-        $1 = smalltalk.send(self['@protocolsListWidget'], "_next_", [smalltalk.send(self, "_methodsListWidget", [])]);
 
-    } else {
 
-        $1 = self['@protocolsListWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_registerBindingsOn_",
 
-smalltalk.method({
 
-selector: "registerBindingsOn:",
 
-fn: function (aBindingGroup) {
 
-    var self = this;
 
-    var $1, $2;
 
-    smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [66, "Browse"]);
 
-    smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [71, "Go to"]);
 
-    $1 = smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [84, "Toggle"]);
 
-    smalltalk.send(smalltalk.send(smalltalk.HLBrowserCommand || HLBrowserCommand, "_withAllSubclasses", []), "_do_", [function (each) {$2 = smalltalk.send(each, "_key", []);if (($receiver = $2) == nil || $receiver == undefined) {return $2;} else {return smalltalk.send(smalltalk.send(aBindingGroup, "_at_", [smalltalk.send(each, "_bindingGroup", [])]), "_add_", [smalltalk.send(smalltalk.send(each, "_on_", [smalltalk.send(self, "_model", [])]), "_asBinding", [])]);}}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(smalltalk.HLContainer || HLContainer, "_with_", [smalltalk.send(smalltalk.HLHorizontalSplitter || HLHorizontalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_packagesListWidget", []), smalltalk.send(self, "_classesListWidget", [])]), smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_protocolsListWidget", []), smalltalk.send(self, "_methodsListWidget", [])])]), smalltalk.send(self, "_sourceWidget", [])])])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_sourceWidget",
 
-smalltalk.method({
 
-selector: "sourceWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@sourceWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@sourceWidget'] = smalltalk.send(smalltalk.HLBrowserSourceWidget || HLBrowserSourceWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        $1 = self['@sourceWidget'];
 
-    } else {
 
-        $1 = self['@sourceWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-
 
-smalltalk.HLBrowser.klass.iVarNames = ['nextId'];
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-}
 
-}),
 
-smalltalk.HLBrowser.klass);
 
-
 
-smalltalk.addMethod(
 
-"_nextId",
 
-smalltalk.method({
 
-selector: "nextId",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@nextId']) == nil || $receiver == undefined) {
 
-        self['@nextId'] = 0;
 
-        self['@nextId'];
 
-    } else {
 
-        self['@nextId'];
 
-    }
 
-    $1 = smalltalk.send("browser_", "__comma", [smalltalk.send(smalltalk.send(self['@nextId'], "__plus", [1]), "_asString", [])]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowser.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-fn: function () {
 
-    var self = this;
 
-    return "Browser";
 
-}
 
-}),
 
-smalltalk.HLBrowser.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-fn: function () {
 
-    var self = this;
 
-    return 0;
 
-}
 
-}),
 
-smalltalk.HLBrowser.klass);
 
-
 
-
 
-smalltalk.addClass('HLBrowserListWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-}
 
-}),
 
-smalltalk.HLBrowserListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    self['@model'] = aBrowserModel;
 
-    smalltalk.send(self, "_observeModel", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserListWidget);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (aModel) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_model_", [aModel]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserListWidget.klass);
 
-
 
-
 
-smalltalk.addClass('HLClassesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_focusMethodsListWidget",
 
-smalltalk.method({
 
-selector: "focusMethodsListWidget",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLMethodsListFocus || HLMethodsListFocus, "_new", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focusProtocolsListWidget",
 
-smalltalk.method({
 
-selector: "focusProtocolsListWidget",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLProtocolsListFocus || HLProtocolsListFocus, "_new", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_getChildrenOf_",
 
-smalltalk.method({
 
-selector: "getChildrenOf:",
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_items", []), "_select_", [function (each) {return smalltalk.send(smalltalk.send(each, "_superclass", []), "__eq", [aClass]);}]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_getRootClassesOf_",
 
-smalltalk.method({
 
-selector: "getRootClassesOf:",
 
-fn: function (aCollection) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(aCollection, "_select_", [function (each) {return smalltalk.send(smalltalk.send(smalltalk.send(each, "_allSuperclasses", []), "_intersection_", [aCollection]), "_isEmpty", []);}]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_iconForItem_",
 
-smalltalk.method({
 
-selector: "iconForItem:",
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_theNonMetaClass", []), "_comment", []), "_isEmpty", []);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = "icon-question-sign";
 
-    } else {
 
-        $1 = "icon-none";
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
 
-    smalltalk.send($1, "_on_do_", [smalltalk.HLPackageSelected || HLPackageSelected, function (ann) {return smalltalk.send(self, "_onPackageSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send($1, "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onShowInstanceToggled", []);}]);
 
-    $2 = smalltalk.send($1, "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onClassSelected_",
 
-smalltalk.method({
 
-selector: "onClassSelected:",
 
-fn: function (aClass) {
 
-    var self = this;
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onPackageSelected_",
 
-smalltalk.method({
 
-selector: "onPackageSelected:",
 
-fn: function (aPackage) {
 
-    var self = this;
 
-    var $1;
 
-    smalltalk.send(self, "_selectedItem_", [nil]);
 
-    if (($receiver = aPackage) == nil || $receiver == undefined) {
 
-        $1 = [];
 
-    } else {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aPackage, "_classes", []), "_collect_", [function (each) {return smalltalk.send(each, "_theNonMetaClass", []);}]), "_asSet", []), "_asArray", []);
 
-    }
 
-    smalltalk.send(self, "_items_", [$1]);
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onShowInstanceToggled",
 
-smalltalk.method({
 
-selector: "onShowInstanceToggled",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderButtonsOn_",
 
-smalltalk.method({
 
-selector: "renderButtonsOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $4, $5, $6, $7, $8, $2, $9, $10;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", ["btn-group"]);
 
-    smalltalk.send($1, "_at_put_", ["data-toggle", "buttons-radio"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_button", []);smalltalk.send($3, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(str, "_nextPutAll_", ["btn"]);$4 = smalltalk.send(self, "_showInstance", []);if (smalltalk.assert($4)) {return smalltalk.send(str, "_nextPutAll_", [" active"]);}}])]);smalltalk.send($3, "_with_", ["Instance"]);$5 = smalltalk.send($3, "_onClick_", [function () {return smalltalk.send(self, "_showInstance_", [true]);}]);$5;$6 = smalltalk.send(html, "_button", []);smalltalk.send($6, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(str, "_nextPutAll_", ["btn"]);$7 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);if (!smalltalk.assert($7)) {return smalltalk.send(str, "_nextPutAll_", [" active"]);}}])]);smalltalk.send($6, "_with_", ["Class"]);$8 = smalltalk.send($6, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [false]);}]);return $8;}]);
 
-    $9 = smalltalk.send(html, "_button", []);
 
-    smalltalk.send($9, "_class_", ["btn"]);
 
-    smalltalk.send($9, "_at_put_", ["data-toggle", "button"]);
 
-    $10 = smalltalk.send($9, "_with_", ["Comment"]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItem_level_on_",
 
-smalltalk.method({
 
-selector: "renderItem:level:on:",
 
-fn: function (aClass, anInteger, html) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    var li;
 
-    li = smalltalk.send(html, "_li", []);
 
-    smalltalk.send(li, "_at_put_", ["list-data", smalltalk.send(smalltalk.send(self, "_items", []), "_indexOf_", [aClass])]);
 
-    smalltalk.send(li, "_class_", [smalltalk.send(self, "_cssClassForItem_", [aClass])]);
 
-    $1 = smalltalk.send(li, "_with_", [function () {$2 = smalltalk.send(html, "_a", []);smalltalk.send($2, "_with_", [function () {smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", [smalltalk.send(self, "_iconForItem_", [aClass])]);return smalltalk.send(self, "_renderItemLabel_level_on_", [aClass, anInteger, html]);}]);$3 = smalltalk.send($2, "_onClick_", [function () {return smalltalk.send(self, "_activateListItem_", [smalltalk.send(li, "_asJQuery", [])]);}]);return $3;}]);
 
-    smalltalk.send(smalltalk.send(self, "_getChildrenOf_", [aClass]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_level_on_", [each, smalltalk.send(anInteger, "__plus", [1]), html]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItem_on_",
 
-smalltalk.method({
 
-selector: "renderItem:on:",
 
-fn: function (aClass, html) {
 
-    var self = this;
 
-    smalltalk.send(self, "_renderItem_on_", [aClass, html], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_getChildrenOf_", [aClass]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_level_on_", [each, 1, html]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItemLabel_level_on_",
 
-smalltalk.method({
 
-selector: "renderItemLabel:level:on:",
 
-fn: function (aClass, anInteger, html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(html, "_span", []), "_asJQuery", []), "_html_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(anInteger, "_timesRepeat_", [function () {return smalltalk.send(str, "_nextPutAll_", ["&nbsp;&nbsp;&nbsp;&nbsp;"]);}]);return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(aClass, "_name", [])]);}])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItemLabel_on_",
 
-smalltalk.method({
 
-selector: "renderItemLabel:on:",
 
-fn: function (aClass, html) {
 
-    var self = this;
 
-    smalltalk.send(self, "_renderItemLabel_level_on_", [aClass, 0, html]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderListOn_",
 
-smalltalk.method({
 
-selector: "renderListOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_getRootClassesOf_", [smalltalk.send(self, "_items", [])]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_on_", [each, html]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-fn: function (aClass) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [aClass], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass_", [aClass]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_showInstance",
 
-smalltalk.method({
 
-selector: "showInstance",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_showInstance_",
 
-smalltalk.method({
 
-selector: "showInstance:",
 
-fn: function (aBoolean) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [aBoolean]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLMethodsListWidget', smalltalk.HLBrowserListWidget, ['selectorsCache'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_allProtocol",
 
-smalltalk.method({
 
-selector: "allProtocol",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_allProtocol", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_flushSelectorsCache",
 
-smalltalk.method({
 
-selector: "flushSelectorsCache",
 
-fn: function () {
 
-    var self = this;
 
-    self['@selectorsCache'] = smalltalk.send(smalltalk.Dictionary || Dictionary, "_new", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_iconForItem_",
 
-smalltalk.method({
 
-selector: "iconForItem:",
 
-fn: function (aCompiledMethod) {
 
-    var self = this;
 
-    var $1;
 
-    var override;
 
-    var overriden;
 
-    override = smalltalk.send(self, "_isOverride_", [aCompiledMethod]);
 
-    overriden = smalltalk.send(self, "_isOverriden_", [aCompiledMethod]);
 
-    if (smalltalk.assert(override)) {
 
-        if (smalltalk.assert(overriden)) {
 
-            $1 = "icon-resize-vertical";
 
-        } else {
 
-            $1 = "icon-arrow-up";
 
-        }
 
-    } else {
 
-        if (smalltalk.assert(overriden)) {
 
-            $1 = "icon-arrow-down";
 
-        } else {
 
-            $1 = "icon-none";
 
-        }
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_initialize",
 
-smalltalk.method({
 
-selector: "initialize",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_initialize", [], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(self, "_flushSelectorsCache", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_isOverride_",
 
-smalltalk.method({
 
-selector: "isOverride:",
 
-fn: function (aMethod) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_overrideSelectors", []), "_includes_", [smalltalk.send(aMethod, "_selector", [])]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_isOverriden_",
 
-smalltalk.method({
 
-selector: "isOverriden:",
 
-fn: function (aMethod) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_overridenSelectors", []), "_includes_", [smalltalk.send(aMethod, "_selector", [])]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_methodsInProtocol_",
 
-smalltalk.method({
 
-selector: "methodsInProtocol:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(aString, "__eq", [smalltalk.send(self, "_allProtocol", [])]);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_methods", []);
 
-    } else {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_methodsInProtocol_", [aString]);
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [nil]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLMethodSelected || HLMethodSelected, function (ann) {return smalltalk.send(self, "_onMethodSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onMethodSelected_",
 
-smalltalk.method({
 
-selector: "onMethodSelected:",
 
-fn: function (aMethod) {
 
-    var self = this;
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onProtocolSelected_",
 
-smalltalk.method({
 
-selector: "onProtocolSelected:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $2, $1;
 
-    smalltalk.send(self, "_selectedItem_", [nil]);
 
-    $2 = smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []);
 
-    if (($receiver = $2) == nil || $receiver == undefined) {
 
-        $1 = [];
 
-    } else {
 
-        if (($receiver = aString) == nil || $receiver == undefined) {
 
-            $1 = [];
 
-        } else {
 
-            $1 = smalltalk.send(self, "_methodsInProtocol_", [aString]);
 
-        }
 
-    }
 
-    smalltalk.send(self, "_items_", [$1]);
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_overrideSelectors",
 
-smalltalk.method({
 
-selector: "overrideSelectors",
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_selectorsCache", []), "_at_ifAbsentPut_", ["override", function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_allSuperclasses", []), "_inject_into_", [smalltalk.send(smalltalk.Set || Set, "_new", []), function (acc, each) {smalltalk.send(acc, "_addAll_", [smalltalk.send(each, "_selectors", [])]);$2 = smalltalk.send(acc, "_yourself", []);return $2;}]);}]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_overridenSelectors",
 
-smalltalk.method({
 
-selector: "overridenSelectors",
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_selectorsCache", []), "_at_ifAbsentPut_", ["overriden", function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_allSubclasses", []), "_inject_into_", [smalltalk.send(smalltalk.Set || Set, "_new", []), function (acc, each) {smalltalk.send(acc, "_addAll_", [smalltalk.send(each, "_selectors", [])]);$2 = smalltalk.send(acc, "_yourself", []);return $2;}]);}]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
 
-    if (smalltalk.assert($1)) {
 
-        smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);
 
-    } else {
 
-        $2 = smalltalk.send(html, "_div", []);
 
-        smalltalk.send($2, "_class_", ["class_side"]);
 
-        $3 = smalltalk.send($2, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);}]);
 
-    }
 
-    smalltalk.send(self, "_flushSelectorsCache", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItemLabel_on_",
 
-smalltalk.method({
 
-selector: "renderItemLabel:on:",
 
-fn: function (aCompiledMethod, html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(aCompiledMethod, "_selector", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-fn: function (aCompiledMethod) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [aCompiledMethod], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod_", [aCompiledMethod]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectorsCache",
 
-smalltalk.method({
 
-selector: "selectorsCache",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectorsCache'];
 
-}
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLPackagesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_focusClassesListWidget",
 
-smalltalk.method({
 
-selector: "focusClassesListWidget",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLClassesListFocus || HLClassesListFocus, "_new", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_initializeItems",
 
-smalltalk.method({
 
-selector: "initializeItems",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    self['@items'] = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_packages", []), "_sort_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_name", []), "__lt", [smalltalk.send(b, "_name", [])]);}]);
 
-    $1 = self['@items'];
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_items",
 
-smalltalk.method({
 
-selector: "items",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(self, "_initializeItems", []);
 
-    } else {
 
-        $1 = self['@items'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLPackageSelected || HLPackageSelected, function (ann) {return smalltalk.send(self, "_onPackageSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onPackageSelected_",
 
-smalltalk.method({
 
-selector: "onPackageSelected:",
 
-fn: function (aPackage) {
 
-    var self = this;
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderButtonsOn_",
 
-smalltalk.method({
 
-selector: "renderButtonsOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3, $5, $6, $7, $8, $4, $9, $10;
 
-    $1 = smalltalk.send(html, "_span", []);
 
-    smalltalk.send($1, "_class_", ["info"]);
 
-    $2 = smalltalk.send($1, "_with_", ["Auto commit"]);
 
-    $3 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($3, "_class_", ["btn-group switch"]);
 
-    smalltalk.send($3, "_at_put_", ["data-toggle", "buttons-radio"]);
 
-    $4 = smalltalk.send($3, "_with_", [function () {$5 = smalltalk.send(html, "_button", []);smalltalk.send($5, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {return smalltalk.send(str, "_nextPutAll_", ["btn"]);}])]);$6 = smalltalk.send($5, "_with_", ["On"]);$6;$7 = smalltalk.send(html, "_button", []);smalltalk.send($7, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {return smalltalk.send(str, "_nextPutAll_", ["btn active"]);}])]);$8 = smalltalk.send($7, "_with_", ["Off"]);return $8;}]);
 
-    $9 = smalltalk.send(html, "_a", []);
 
-    smalltalk.send($9, "_class_", ["btn"]);
 
-    $10 = smalltalk.send($9, "_with_", ["Commit"]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-fn: function (aPackage) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [aPackage], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage_", [aPackage]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLProtocolsListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_allProtocol",
 
-smalltalk.method({
 
-selector: "allProtocol",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_allProtocol", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onClassSelected_",
 
-smalltalk.method({
 
-selector: "onClassSelected:",
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    smalltalk.send(self, "_selectedItem_", [nil]);
 
-    if (($receiver = aClass) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.Array || Array, "_with_", [smalltalk.send(self, "_allProtocol", [])]);
 
-    } else {
 
-        $2 = smalltalk.send(smalltalk.Array || Array, "_with_", [smalltalk.send(self, "_allProtocol", [])]);
 
-        smalltalk.send($2, "_addAll_", [smalltalk.send(aClass, "_protocols", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        $1 = $3;
 
-    }
 
-    smalltalk.send(self, "_items_", [$1]);
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onProtocolSelected_",
 
-smalltalk.method({
 
-selector: "onProtocolSelected:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
 
-    if (smalltalk.assert($1)) {
 
-        smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);
 
-    } else {
 
-        $2 = smalltalk.send(html, "_div", []);
 
-        smalltalk.send($2, "_class_", ["class_side"]);
 
-        $3 = smalltalk.send($2, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);}]);
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [aString], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol_", [aString]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectedItem",
 
-smalltalk.method({
 
-selector: "selectedItem",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_selectedItem", [], smalltalk.HLBrowserListWidget);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLBrowserModel', smalltalk.Object, ['announcer', 'environment', 'selectedPackage', 'selectedClass', 'selectedProtocol', 'selectedMethod', 'showInstance', 'showComment'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_allProtocol",
 
-smalltalk.method({
 
-selector: "allProtocol",
 
-fn: function () {
 
-    var self = this;
 
-    return "-- All --";
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_packages",
 
-smalltalk.method({
 
-selector: "packages",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_environment", []), "_packages", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedClass",
 
-smalltalk.method({
 
-selector: "selectedClass",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedClass'];
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedClass_",
 
-smalltalk.method({
 
-selector: "selectedClass:",
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    $1 = smalltalk.send(self['@selectedClass'], "__eq", [aClass]);
 
-    if (!smalltalk.assert($1)) {
 
-        if (($receiver = aClass) == nil || $receiver == undefined) {
 
-            self['@selectedClass'] = nil;
 
-            self['@selectedClass'];
 
-        } else {
 
-            $2 = smalltalk.send(self, "_showInstance", []);
 
-            if (smalltalk.assert($2)) {
 
-                self['@selectedClass'] = smalltalk.send(aClass, "_theNonMetaClass", []);
 
-                self['@selectedClass'];
 
-            } else {
 
-                self['@selectedClass'] = smalltalk.send(aClass, "_theMetaClass", []);
 
-                self['@selectedClass'];
 
-            }
 
-        }
 
-        smalltalk.send(self, "_selectedMethod_", [nil]);
 
-        $3 = smalltalk.send(self, "_selectedProtocol_", [nil]);
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLClassSelected || HLClassSelected, "_on_", [smalltalk.send(self, "_selectedClass", [])])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedMethod",
 
-smalltalk.method({
 
-selector: "selectedMethod",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedMethod'];
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedMethod_",
 
-smalltalk.method({
 
-selector: "selectedMethod:",
 
-fn: function (aCompiledMethod) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@selectedMethod'], "__eq", [aCompiledMethod]);
 
-    if (!smalltalk.assert($1)) {
 
-        self['@selectedMethod'] = aCompiledMethod;
 
-        self['@selectedMethod'];
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLMethodSelected || HLMethodSelected, "_on_", [aCompiledMethod])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedPackage",
 
-smalltalk.method({
 
-selector: "selectedPackage",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedPackage'];
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedPackage_",
 
-smalltalk.method({
 
-selector: "selectedPackage:",
 
-fn: function (aPackage) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@selectedPackage'], "__eq", [aPackage]);
 
-    if (!smalltalk.assert($1)) {
 
-        self['@selectedPackage'] = aPackage;
 
-        self['@selectedPackage'];
 
-        smalltalk.send(self, "_selectedClass_", [nil]);
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLPackageSelected || HLPackageSelected, "_on_", [aPackage])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedProtocol",
 
-smalltalk.method({
 
-selector: "selectedProtocol",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedProtocol'];
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedProtocol_",
 
-smalltalk.method({
 
-selector: "selectedProtocol:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@selectedProtocol'], "__eq", [aString]);
 
-    if (!smalltalk.assert($1)) {
 
-        self['@selectedProtocol'] = aString;
 
-        self['@selectedProtocol'];
 
-        smalltalk.send(self, "_selectedMethod_", [nil]);
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLProtocolSelected || HLProtocolSelected, "_on_", [aString])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_showComment",
 
-smalltalk.method({
 
-selector: "showComment",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@showComment']) == nil || $receiver == undefined) {
 
-        $1 = false;
 
-    } else {
 
-        $1 = self['@showComment'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_showComment_",
 
-smalltalk.method({
 
-selector: "showComment:",
 
-fn: function (aBoolean) {
 
-    var self = this;
 
-    self['@showComment'] = aBoolean;
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLShowCommentToggled || HLShowCommentToggled, "_new", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_showInstance",
 
-smalltalk.method({
 
-selector: "showInstance",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@showInstance']) == nil ||
 
-        $receiver == undefined) {
 
-        $1 = true;
 
-    } else {
 
-        $1 = self['@showInstance'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_showInstance_",
 
-smalltalk.method({
 
-selector: "showInstance:",
 
-fn: function (aBoolean) {
 
-    var self = this;
 
-    var $1, $2;
 
-    self['@showInstance'] = aBoolean;
 
-    $1 = smalltalk.send(self, "_selectedClass", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-    } else {
 
-        if (smalltalk.assert(aBoolean)) {
 
-            $2 = smalltalk.send(smalltalk.send(self, "_selectedClass", []), "_theNonMetaClass", []);
 
-        } else {
 
-            $2 = smalltalk.send(smalltalk.send(self, "_selectedClass", []), "_theMetaClass", []);
 
-        }
 
-        smalltalk.send(self, "_selectedClass_", [$2]);
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, "_new", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_environment_", [anEnvironment]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserModel.klass);
 
-
 
-
 
-smalltalk.addClass('HLBrowserSourceWidget', smalltalk.HLWidget, ['model', 'codeWidget'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_codeWidget",
 
-smalltalk.method({
 
-selector: "codeWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
 
-        self['@codeWidget'] = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
 
-        $1 = self['@codeWidget'];
 
-    } else {
 
-        $1 = self['@codeWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_contents",
 
-smalltalk.method({
 
-selector: "contents",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_sourceArea", []), "_contents", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_contents_",
 
-smalltalk.method({
 
-selector: "contents:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_contents_", [aString]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    self['@model'] = aBrowserModel;
 
-    smalltalk.send(self, "_observeModel", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLMethodSelected || HLMethodSelected, function (ann) {return smalltalk.send(self, "_onMethodSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onClassSelected_",
 
-smalltalk.method({
 
-selector: "onClassSelected:",
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = aClass) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(self, "_contents_", [""]);
 
-        return $1;
 
-    } else {
 
-    }
 
-    smalltalk.send(self, "_contents_", [smalltalk.send(aClass, "_definition", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onMethodSelected_",
 
-smalltalk.method({
 
-selector: "onMethodSelected:",
 
-fn: function (aCompiledMethod) {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = aCompiledMethod) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(self, "_contents_", [""]);
 
-        return $1;
 
-    } else {
 
-    }
 
-    smalltalk.send(self, "_contents_", [smalltalk.send(aCompiledMethod, "_source", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onProtocolSelected_",
 
-smalltalk.method({
 
-selector: "onProtocolSelected:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-        $2 = smalltalk.send(self, "_contents_", [""]);
 
-        return $2;
 
-    } else {
 
-    }
 
-    smalltalk.send(self, "_contents_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_definition", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_renderOn_", [html]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_model_", [aBrowserModel]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserSourceWidget.klass);
 
-
 
-

+ 0 - 1953
js/Helios-Browser.js
Xem Tập Tin 

@@ -1,1953 +0,0 @@
 
-smalltalk.addPackage('Helios-Browser', {});
 
-smalltalk.addClass('HLBrowser', smalltalk.HLWidget, ['model', 'packagesListWidget', 'classesListWidget', 'protocolsListWidget', 'methodsListWidget', 'sourceWidget'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "announcer\x0a\x09^ self model announcer",
 
-messageSends: ["announcer", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_classesListWidget",
 
-smalltalk.method({
 
-selector: "classesListWidget",
 
-category: 'widgets',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@classesListWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@classesListWidget'] = smalltalk.send(smalltalk.HLClassesListWidget || HLClassesListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        self['@classesListWidget'];
 
-        $1 = smalltalk.send(self['@classesListWidget'], "_next_", [smalltalk.send(self, "_protocolsListWidget", [])]);
 
-    } else {
 
-        $1 = self['@classesListWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "classesListWidget\x0a\x09^ classesListWidget ifNil: [\x0a      \x09classesListWidget := HLClassesListWidget on: self model.\x0a\x09\x09classesListWidget next: self protocolsListWidget ]",
 
-messageSends: ["ifNil:", "on:", "model", "next:", "protocolsListWidget"],
 
-referencedClasses: ["HLClassesListWidget"]
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_environment", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "environment\x0a\x09^ self model environment",
 
-messageSends: ["environment", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_methodsListWidget",
 
-smalltalk.method({
 
-selector: "methodsListWidget",
 
-category: 'widgets',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@methodsListWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@methodsListWidget'] = smalltalk.send(smalltalk.HLMethodsListWidget || HLMethodsListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        $1 = self['@methodsListWidget'];
 
-    } else {
 
-        $1 = self['@methodsListWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "methodsListWidget\x0a\x09^ methodsListWidget ifNil: [\x0a      \x09methodsListWidget := HLMethodsListWidget on: self model ]",
 
-messageSends: ["ifNil:", "on:", "model"],
 
-referencedClasses: ["HLMethodsListWidget"]
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
 
-        self['@model'] = smalltalk.send(smalltalk.HLBrowserModel || HLBrowserModel, "_new", []);
 
-        $1 = self['@model'];
 
-    } else {
 
-        $1 = self['@model'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "model\x0a\x09^ model ifNil: [ model := HLBrowserModel new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["HLBrowserModel"]
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-category: 'accessing',
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@model'] = aModel;
 
-    return self;
 
-},
 
-args: ["aModel"],
 
-source: "model: aModel\x0a\x09model := aModel",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_packagesListWidget",
 
-smalltalk.method({
 
-selector: "packagesListWidget",
 
-category: 'widgets',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@packagesListWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@packagesListWidget'] = smalltalk.send(smalltalk.HLPackagesListWidget || HLPackagesListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        self['@packagesListWidget'];
 
-        $1 = smalltalk.send(self['@packagesListWidget'], "_next_", [smalltalk.send(self, "_classesListWidget", [])]);
 
-    } else {
 
-        $1 = self['@packagesListWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "packagesListWidget\x0a\x09^ packagesListWidget ifNil: [\x0a      \x09packagesListWidget := HLPackagesListWidget on: self model.\x0a\x09\x09packagesListWidget next: self classesListWidget ]",
 
-messageSends: ["ifNil:", "on:", "model", "next:", "classesListWidget"],
 
-referencedClasses: ["HLPackagesListWidget"]
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_protocolsListWidget",
 
-smalltalk.method({
 
-selector: "protocolsListWidget",
 
-category: 'widgets',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@protocolsListWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@protocolsListWidget'] = smalltalk.send(smalltalk.HLProtocolsListWidget || HLProtocolsListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        self['@protocolsListWidget'];
 
-        $1 = smalltalk.send(self['@protocolsListWidget'], "_next_", [smalltalk.send(self, "_methodsListWidget", [])]);
 
-    } else {
 
-        $1 = self['@protocolsListWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "protocolsListWidget\x0a\x09^ protocolsListWidget ifNil: [\x0a      \x09protocolsListWidget := HLProtocolsListWidget on: self model.\x0a\x09\x09protocolsListWidget next: self methodsListWidget ]",
 
-messageSends: ["ifNil:", "on:", "model", "next:", "methodsListWidget"],
 
-referencedClasses: ["HLProtocolsListWidget"]
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_registerBindingsOn_",
 
-smalltalk.method({
 
-selector: "registerBindingsOn:",
 
-category: 'keybindings',
 
-fn: function (aBindingGroup) {
 
-    var self = this;
 
-    var $1, $2;
 
-    smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [66, "Browse"]);
 
-    smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [71, "Go to"]);
 
-    $1 = smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [84, "Toggle"]);
 
-    smalltalk.send(smalltalk.send(smalltalk.HLBrowserCommand || HLBrowserCommand, "_withAllSubclasses", []), "_do_", [function (each) {$2 = smalltalk.send(each, "_key", []);if (($receiver = $2) == nil || $receiver == undefined) {return $2;} else {return smalltalk.send(smalltalk.send(aBindingGroup, "_at_", [smalltalk.send(each, "_bindingGroup", [])]), "_add_", [smalltalk.send(smalltalk.send(each, "_on_", [smalltalk.send(self, "_model", [])]), "_asBinding", [])]);}}]);
 
-    return self;
 
-},
 
-args: ["aBindingGroup"],
 
-source: "registerBindingsOn: aBindingGroup\x0a\x09aBindingGroup \x0a    \x09addGroupKey: 66 labelled: 'Browse';\x0a        addGroupKey: 71 labelled: 'Go to';\x0a        addGroupKey: 84 labelled: 'Toggle'.\x0a        \x0a   \x09HLBrowserCommand withAllSubclasses do: [ :each |\x0a   \x09\x09each key ifNotNil: [\x0a  \x09\x09\x09(aBindingGroup at: each bindingGroup) \x0a  \x09\x09\x09\x09add: (each on: self model) asBinding ] ]",
 
-messageSends: ["addGroupKey:labelled:", "do:", "ifNotNil:", "add:", "asBinding", "on:", "model", "at:", "bindingGroup", "key", "withAllSubclasses"],
 
-referencedClasses: ["HLBrowserCommand"]
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(smalltalk.HLContainer || HLContainer, "_with_", [smalltalk.send(smalltalk.HLHorizontalSplitter || HLHorizontalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_packagesListWidget", []), smalltalk.send(self, "_classesListWidget", [])]), smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_protocolsListWidget", []), smalltalk.send(self, "_methodsListWidget", [])])]), smalltalk.send(self, "_sourceWidget", [])])])]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a\x09html with: (HLContainer with: (HLHorizontalSplitter \x0a    \x09with: (HLVerticalSplitter\x0a        \x09with: (HLVerticalSplitter\x0a            \x09with: self packagesListWidget\x0a                with: self classesListWidget)\x0a            with: (HLVerticalSplitter\x0a            \x09with: self protocolsListWidget\x0a                with: self methodsListWidget)) \x0a        with: self sourceWidget))",
 
-messageSends: ["with:", "with:with:", "packagesListWidget", "classesListWidget", "protocolsListWidget", "methodsListWidget", "sourceWidget"],
 
-referencedClasses: ["HLVerticalSplitter", "HLHorizontalSplitter", "HLContainer"]
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-smalltalk.addMethod(
 
-"_sourceWidget",
 
-smalltalk.method({
 
-selector: "sourceWidget",
 
-category: 'widgets',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@sourceWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        self['@sourceWidget'] = smalltalk.send(smalltalk.HLBrowserSourceWidget || HLBrowserSourceWidget, "_on_", [smalltalk.send(self, "_model", [])]);
 
-        $1 = self['@sourceWidget'];
 
-    } else {
 
-        $1 = self['@sourceWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "sourceWidget\x0a\x09^ sourceWidget ifNil: [\x0a      \x09sourceWidget := HLBrowserSourceWidget on: self model ]",
 
-messageSends: ["ifNil:", "on:", "model"],
 
-referencedClasses: ["HLBrowserSourceWidget"]
 
-}),
 
-smalltalk.HLBrowser);
 
-
 
-
 
-smalltalk.HLBrowser.klass.iVarNames = ['nextId'];
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-},
 
-args: [],
 
-source: "canBeOpenAsTab\x0a\x09^ true",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowser.klass);
 
-
 
-smalltalk.addMethod(
 
-"_nextId",
 
-smalltalk.method({
 
-selector: "nextId",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@nextId']) == nil || $receiver == undefined) {
 
-        self['@nextId'] = 0;
 
-        self['@nextId'];
 
-    } else {
 
-        self['@nextId'];
 
-    }
 
-    $1 = smalltalk.send("browser_", "__comma", [smalltalk.send(smalltalk.send(self['@nextId'], "__plus", [1]), "_asString", [])]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "nextId\x0a\x09nextId ifNil: [ nextId := 0 ].\x0a    ^ 'browser_', (nextId + 1) asString",
 
-messageSends: ["ifNil:", ",", "asString", "+"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowser.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Browser";
 
-},
 
-args: [],
 
-source: "tabLabel\x0a\x09^ 'Browser'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowser.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 0;
 
-},
 
-args: [],
 
-source: "tabPriority\x0a\x09^ 0",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowser.klass);
 
-
 
-
 
-smalltalk.addClass('HLBrowserListWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-},
 
-args: [],
 
-source: "model\x0a\x09^ model",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-category: 'accessing',
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    self['@model'] = aBrowserModel;
 
-    smalltalk.send(self, "_observeModel", []);
 
-    return self;
 
-},
 
-args: ["aBrowserModel"],
 
-source: "model: aBrowserModel\x0a\x09model := aBrowserModel.\x0a    \x0a    self observeModel",
 
-messageSends: ["observeModel"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeModel",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserListWidget);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'instance creation',
 
-fn: function (aModel) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_model_", [aModel]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["aModel"],
 
-source: "on: aModel\x0a\x09^ self new \x0a    \x09model: aModel;\x0a        yourself",
 
-messageSends: ["model:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserListWidget.klass);
 
-
 
-
 
-smalltalk.addClass('HLClassesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_focusMethodsListWidget",
 
-smalltalk.method({
 
-selector: "focusMethodsListWidget",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLMethodsListFocus || HLMethodsListFocus, "_new", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "focusMethodsListWidget\x0a\x09self model announcer announce: HLMethodsListFocus new",
 
-messageSends: ["announce:", "new", "announcer", "model"],
 
-referencedClasses: ["HLMethodsListFocus"]
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focusProtocolsListWidget",
 
-smalltalk.method({
 
-selector: "focusProtocolsListWidget",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLProtocolsListFocus || HLProtocolsListFocus, "_new", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "focusProtocolsListWidget\x0a\x09self model announcer announce: HLProtocolsListFocus new",
 
-messageSends: ["announce:", "new", "announcer", "model"],
 
-referencedClasses: ["HLProtocolsListFocus"]
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_getChildrenOf_",
 
-smalltalk.method({
 
-selector: "getChildrenOf:",
 
-category: 'accessing',
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_items", []), "_select_", [function (each) {return smalltalk.send(smalltalk.send(each, "_superclass", []), "__eq", [aClass]);}]);
 
-    return $1;
 
-},
 
-args: ["aClass"],
 
-source: "getChildrenOf: aClass\x0a\x09^ self items select: [ :each | each superclass = aClass ]",
 
-messageSends: ["select:", "=", "superclass", "items"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_getRootClassesOf_",
 
-smalltalk.method({
 
-selector: "getRootClassesOf:",
 
-category: 'accessing',
 
-fn: function (aCollection) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(aCollection, "_select_", [function (each) {return smalltalk.send(smalltalk.send(smalltalk.send(each, "_allSuperclasses", []), "_intersection_", [aCollection]), "_isEmpty", []);}]);
 
-    return $1;
 
-},
 
-args: ["aCollection"],
 
-source: "getRootClassesOf: aCollection\x0a\x09^ aCollection select: [ :each |\x0a    \x09(each allSuperclasses intersection: aCollection) isEmpty ]",
 
-messageSends: ["select:", "isEmpty", "intersection:", "allSuperclasses"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_iconForItem_",
 
-smalltalk.method({
 
-selector: "iconForItem:",
 
-category: 'accessing',
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_theNonMetaClass", []), "_comment", []), "_isEmpty", []);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = "icon-question-sign";
 
-    } else {
 
-        $1 = "icon-none";
 
-    }
 
-    return $1;
 
-},
 
-args: ["aClass"],
 
-source: "iconForItem: aClass\x0a\x09^ aClass theNonMetaClass comment isEmpty\x0a    \x09ifFalse: [ 'icon-none' ]\x0a      \x09ifTrue: [ 'icon-question-sign' ]",
 
-messageSends: ["ifFalse:ifTrue:", "isEmpty", "comment", "theNonMetaClass"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
 
-    smalltalk.send($1, "_on_do_", [smalltalk.HLPackageSelected || HLPackageSelected, function (ann) {return smalltalk.send(self, "_onPackageSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send($1, "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onShowInstanceToggled", []);}]);
 
-    $2 = smalltalk.send($1, "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeModel\x0a\x09self model announcer \x0a    \x09on: HLPackageSelected do: [ :ann | self onPackageSelected: ann item ];\x0a    \x09on: HLShowInstanceToggled do: [ :ann | self onShowInstanceToggled ];\x0a\x09\x09on: HLClassSelected do: [ :ann | self onClassSelected: ann item ]",
 
-messageSends: ["on:do:", "onPackageSelected:", "item", "announcer", "model", "onShowInstanceToggled", "onClassSelected:"],
 
-referencedClasses: ["HLPackageSelected", "HLShowInstanceToggled", "HLClassSelected"]
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onClassSelected_",
 
-smalltalk.method({
 
-selector: "onClassSelected:",
 
-category: 'reactions',
 
-fn: function (aClass) {
 
-    var self = this;
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-},
 
-args: ["aClass"],
 
-source: "onClassSelected: aClass\x0a\x09self focus",
 
-messageSends: ["focus"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onPackageSelected_",
 
-smalltalk.method({
 
-selector: "onPackageSelected:",
 
-category: 'reactions',
 
-fn: function (aPackage) {
 
-    var self = this;
 
-    var $1;
 
-    smalltalk.send(self, "_selectedItem_", [nil]);
 
-    if (($receiver = aPackage) == nil || $receiver == undefined) {
 
-        $1 = [];
 
-    } else {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aPackage, "_classes", []), "_collect_", [function (each) {return smalltalk.send(each, "_theNonMetaClass", []);}]), "_asSet", []), "_asArray", []);
 
-    }
 
-    smalltalk.send(self, "_items_", [$1]);
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-},
 
-args: ["aPackage"],
 
-source: "onPackageSelected: aPackage\x0a    self selectedItem: nil.\x0a    \x0a    self items: (aPackage \x0a    \x09ifNil: [ #() ]\x0a  \x09\x09ifNotNil: [ (aPackage classes \x0a        \x09collect: [ :each | each theNonMetaClass ]) asSet asArray ]).\x0a\x0a    self refresh",
 
-messageSends: ["selectedItem:", "items:", "ifNil:ifNotNil:", "asArray", "asSet", "collect:", "theNonMetaClass", "classes", "refresh"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onShowInstanceToggled",
 
-smalltalk.method({
 
-selector: "onShowInstanceToggled",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "onShowInstanceToggled\x0a\x09self refresh",
 
-messageSends: ["refresh"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderButtonsOn_",
 
-smalltalk.method({
 
-selector: "renderButtonsOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $4, $5, $6, $7, $8, $2, $9, $10;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", ["btn-group"]);
 
-    smalltalk.send($1, "_at_put_", ["data-toggle", "buttons-radio"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_button", []);smalltalk.send($3, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(str, "_nextPutAll_", ["btn"]);$4 = smalltalk.send(self, "_showInstance", []);if (smalltalk.assert($4)) {return smalltalk.send(str, "_nextPutAll_", [" active"]);}}])]);smalltalk.send($3, "_with_", ["Instance"]);$5 = smalltalk.send($3, "_onClick_", [function () {return smalltalk.send(self, "_showInstance_", [true]);}]);$5;$6 = smalltalk.send(html, "_button", []);smalltalk.send($6, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(str, "_nextPutAll_", ["btn"]);$7 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);if (!smalltalk.assert($7)) {return smalltalk.send(str, "_nextPutAll_", [" active"]);}}])]);smalltalk.send($6, "_with_", ["Class"]);$8 = smalltalk.send($6, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [false]);}]);return $8;}]);
 
-    $9 = smalltalk.send(html, "_button", []);
 
-    smalltalk.send($9, "_class_", ["btn"]);
 
-    smalltalk.send($9, "_at_put_", ["data-toggle", "button"]);
 
-    $10 = smalltalk.send($9, "_with_", ["Comment"]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderButtonsOn: html\x0a\x09html div \x0a        class: 'btn-group';\x0a\x09\x09at: 'data-toggle' put: 'buttons-radio';\x0a\x09\x09with: [ \x0a           \x09html button \x0a                class: (String streamContents: [ :str |\x0a                \x09str nextPutAll: 'btn'.\x0a                    self showInstance ifTrue: [ \x0a                    \x09str nextPutAll: ' active'] ]);\x0a  \x09\x09\x09\x09with: 'Instance';\x0a                onClick: [ self showInstance: true ].\x0a  \x09\x09\x09html button\x0a  \x09\x09\x09\x09class: (String streamContents: [ :str |\x0a                \x09str nextPutAll: 'btn'.\x0a                    self model showInstance ifFalse: [ \x0a                    \x09str nextPutAll: ' active'] ]);\x0a  \x09\x09\x09\x09with: 'Class';\x0a\x09\x09\x09\x09onClick: [ self model showInstance: false ] ].\x0a                 \x0a  \x09html button \x0a           \x09class: 'btn';\x0a            at: 'data-toggle' put: 'button';\x0a  \x09\x09\x09with: 'Comment'",
 
-messageSends: ["class:", "div", "at:put:", "with:", "streamContents:", "nextPutAll:", "ifTrue:", "showInstance", "button", "onClick:", "showInstance:", "ifFalse:", "model"],
 
-referencedClasses: ["String"]
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItem_level_on_",
 
-smalltalk.method({
 
-selector: "renderItem:level:on:",
 
-category: 'rendering',
 
-fn: function (aClass, anInteger, html) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    var li;
 
-    li = smalltalk.send(html, "_li", []);
 
-    smalltalk.send(li, "_at_put_", ["list-data", smalltalk.send(smalltalk.send(self, "_items", []), "_indexOf_", [aClass])]);
 
-    smalltalk.send(li, "_class_", [smalltalk.send(self, "_cssClassForItem_", [aClass])]);
 
-    $1 = smalltalk.send(li, "_with_", [function () {$2 = smalltalk.send(html, "_a", []);smalltalk.send($2, "_with_", [function () {smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", [smalltalk.send(self, "_iconForItem_", [aClass])]);return smalltalk.send(self, "_renderItemLabel_level_on_", [aClass, anInteger, html]);}]);$3 = smalltalk.send($2, "_onClick_", [function () {return smalltalk.send(self, "_activateListItem_", [smalltalk.send(li, "_asJQuery", [])]);}]);return $3;}]);
 
-    smalltalk.send(smalltalk.send(self, "_getChildrenOf_", [aClass]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_level_on_", [each, smalltalk.send(anInteger, "__plus", [1]), html]);}]);
 
-    return self;
 
-},
 
-args: ["aClass", "anInteger", "html"],
 
-source: "renderItem: aClass level: anInteger on: html\x0a\x09| li |\x0a    \x0a\x09li := html li.\x0a    li\x0a    \x09at: 'list-data' put: (self items indexOf: aClass);\x0a    \x09class: (self cssClassForItem: aClass);\x0a        with: [ \x0a        \x09html a\x0a            \x09with: [ \x0a            \x09\x09(html tag: 'i') class: (self iconForItem: aClass).\x0a  \x09\x09\x09\x09\x09self renderItemLabel: aClass level: anInteger on: html ];\x0a\x09\x09\x09\x09onClick: [\x0a                  \x09self activateListItem: li asJQuery ] ].\x0a                    \x0a    (self getChildrenOf: aClass) do: [ :each |\x0a    \x09self renderItem: each level: anInteger + 1 on: html ]",
 
-messageSends: ["li", "at:put:", "indexOf:", "items", "class:", "cssClassForItem:", "with:", "iconForItem:", "tag:", "renderItemLabel:level:on:", "a", "onClick:", "activateListItem:", "asJQuery", "do:", "renderItem:level:on:", "+", "getChildrenOf:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItem_on_",
 
-smalltalk.method({
 
-selector: "renderItem:on:",
 
-category: 'rendering',
 
-fn: function (aClass, html) {
 
-    var self = this;
 
-    smalltalk.send(self, "_renderItem_on_", [aClass, html], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_getChildrenOf_", [aClass]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_level_on_", [each, 1, html]);}]);
 
-    return self;
 
-},
 
-args: ["aClass", "html"],
 
-source: "renderItem: aClass on: html\x0a\x09super renderItem: aClass on: html.\x0a    \x09(self getChildrenOf: aClass) do: [ :each |\x0a    \x09\x09self renderItem: each level: 1 on: html ]",
 
-messageSends: ["renderItem:on:", "do:", "renderItem:level:on:", "getChildrenOf:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItemLabel_level_on_",
 
-smalltalk.method({
 
-selector: "renderItemLabel:level:on:",
 
-category: 'rendering',
 
-fn: function (aClass, anInteger, html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(html, "_span", []), "_asJQuery", []), "_html_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(anInteger, "_timesRepeat_", [function () {return smalltalk.send(str, "_nextPutAll_", ["&nbsp;&nbsp;&nbsp;&nbsp;"]);}]);return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(aClass, "_name", [])]);}])]);
 
-    return self;
 
-},
 
-args: ["aClass", "anInteger", "html"],
 
-source: "renderItemLabel: aClass level: anInteger on: html\x0a\x09html span asJQuery html: (String streamContents: [ :str |\x0a\x09\x09anInteger timesRepeat: [\x0a\x09\x09\x09str nextPutAll: '&nbsp;&nbsp;&nbsp;&nbsp;'].\x0a\x09\x09\x09str nextPutAll: aClass name ])",
 
-messageSends: ["html:", "streamContents:", "timesRepeat:", "nextPutAll:", "name", "asJQuery", "span"],
 
-referencedClasses: ["String"]
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItemLabel_on_",
 
-smalltalk.method({
 
-selector: "renderItemLabel:on:",
 
-category: 'rendering',
 
-fn: function (aClass, html) {
 
-    var self = this;
 
-    smalltalk.send(self, "_renderItemLabel_level_on_", [aClass, 0, html]);
 
-    return self;
 
-},
 
-args: ["aClass", "html"],
 
-source: "renderItemLabel: aClass on: html\x0a\x09self renderItemLabel: aClass level: 0 on: html",
 
-messageSends: ["renderItemLabel:level:on:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderListOn_",
 
-smalltalk.method({
 
-selector: "renderListOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_getRootClassesOf_", [smalltalk.send(self, "_items", [])]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_on_", [each, html]);}]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderListOn: html\x0a\x09(self getRootClassesOf: self items)\x0a    \x09do: [ :each | self renderItem: each on: html ]",
 
-messageSends: ["do:", "renderItem:on:", "getRootClassesOf:", "items"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-category: 'actions',
 
-fn: function (aClass) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [aClass], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass_", [aClass]);
 
-    return self;
 
-},
 
-args: ["aClass"],
 
-source: "selectItem: aClass\x0a\x09super selectItem: aClass.\x0a    self model selectedClass: aClass",
 
-messageSends: ["selectItem:", "selectedClass:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_showInstance",
 
-smalltalk.method({
 
-selector: "showInstance",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "showInstance\x0a\x09^ self model showInstance",
 
-messageSends: ["showInstance", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_showInstance_",
 
-smalltalk.method({
 
-selector: "showInstance:",
 
-category: 'actions',
 
-fn: function (aBoolean) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [aBoolean]);
 
-    return self;
 
-},
 
-args: ["aBoolean"],
 
-source: "showInstance: aBoolean\x0a\x09self model showInstance: aBoolean",
 
-messageSends: ["showInstance:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLClassesListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLMethodsListWidget', smalltalk.HLBrowserListWidget, ['selectorsCache'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_allProtocol",
 
-smalltalk.method({
 
-selector: "allProtocol",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_allProtocol", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "allProtocol\x0a\x09^ self model allProtocol",
 
-messageSends: ["allProtocol", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_flushSelectorsCache",
 
-smalltalk.method({
 
-selector: "flushSelectorsCache",
 
-category: 'cache',
 
-fn: function () {
 
-    var self = this;
 
-    self['@selectorsCache'] = smalltalk.send(smalltalk.Dictionary || Dictionary, "_new", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "flushSelectorsCache\x0a\x09selectorsCache := Dictionary new",
 
-messageSends: ["new"],
 
-referencedClasses: ["Dictionary"]
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_iconForItem_",
 
-smalltalk.method({
 
-selector: "iconForItem:",
 
-category: 'accessing',
 
-fn: function (aCompiledMethod) {
 
-    var self = this;
 
-    var $1;
 
-    var override;
 
-    var overriden;
 
-    override = smalltalk.send(self, "_isOverride_", [aCompiledMethod]);
 
-    overriden = smalltalk.send(self, "_isOverriden_", [aCompiledMethod]);
 
-    if (smalltalk.assert(override)) {
 
-        if (smalltalk.assert(overriden)) {
 
-            $1 = "icon-resize-vertical";
 
-        } else {
 
-            $1 = "icon-arrow-up";
 
-        }
 
-    } else {
 
-        if (smalltalk.assert(overriden)) {
 
-            $1 = "icon-arrow-down";
 
-        } else {
 
-            $1 = "icon-none";
 
-        }
 
-    }
 
-    return $1;
 
-},
 
-args: ["aCompiledMethod"],
 
-source: "iconForItem: aCompiledMethod\x0a\x09| override overriden |\x0a    \x0a    override := self isOverride: aCompiledMethod.\x0a    overriden := self isOverriden: aCompiledMethod.\x0a    \x0a\x09^ override\x0a    \x09ifTrue: [ overriden\x0a\x09\x09\x09ifTrue: [ 'icon-resize-vertical' ]\x0a\x09\x09\x09ifFalse: [ 'icon-arrow-up' ] ]\x0a\x09\x09ifFalse: [\x0a\x09\x09\x09overriden\x0a\x09\x09\x09ifTrue: [ 'icon-arrow-down' ]\x0a\x09\x09\x09ifFalse: [ 'icon-none' ] ]",
 
-messageSends: ["isOverride:", "isOverriden:", "ifTrue:ifFalse:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_initialize",
 
-smalltalk.method({
 
-selector: "initialize",
 
-category: 'initialization',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_initialize", [], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(self, "_flushSelectorsCache", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "initialize\x0a\x09super initialize.\x0a    self flushSelectorsCache",
 
-messageSends: ["initialize", "flushSelectorsCache"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_isOverride_",
 
-smalltalk.method({
 
-selector: "isOverride:",
 
-category: 'testing',
 
-fn: function (aMethod) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_overrideSelectors", []), "_includes_", [smalltalk.send(aMethod, "_selector", [])]);
 
-    return $1;
 
-},
 
-args: ["aMethod"],
 
-source: "isOverride: aMethod\x0a\x0a   ^ self overrideSelectors includes: aMethod selector",
 
-messageSends: ["includes:", "selector", "overrideSelectors"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_isOverriden_",
 
-smalltalk.method({
 
-selector: "isOverriden:",
 
-category: 'testing',
 
-fn: function (aMethod) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_overridenSelectors", []), "_includes_", [smalltalk.send(aMethod, "_selector", [])]);
 
-    return $1;
 
-},
 
-args: ["aMethod"],
 
-source: "isOverriden: aMethod\x0a\x0a   ^ self overridenSelectors includes: aMethod selector",
 
-messageSends: ["includes:", "selector", "overridenSelectors"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_methodsInProtocol_",
 
-smalltalk.method({
 
-selector: "methodsInProtocol:",
 
-category: 'accessing',
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(aString, "__eq", [smalltalk.send(self, "_allProtocol", [])]);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_methods", []);
 
-    } else {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_methodsInProtocol_", [aString]);
 
-    }
 
-    return $1;
 
-},
 
-args: ["aString"],
 
-source: "methodsInProtocol: aString\x0a\x09^ aString = self allProtocol\x0a    \x09ifTrue: [ self model selectedClass methods ]\x0a      \x09ifFalse: [ self model selectedClass methodsInProtocol: aString ]",
 
-messageSends: ["ifTrue:ifFalse:", "methods", "selectedClass", "model", "methodsInProtocol:", "=", "allProtocol"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [nil]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLMethodSelected || HLMethodSelected, function (ann) {return smalltalk.send(self, "_onMethodSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeModel\x0a\x09self model announcer on: HLProtocolSelected do: [ :ann |\x0a    \x09self onProtocolSelected: ann item ].\x0a    self model announcer on: HLShowInstanceToggled do: [ :ann |\x0a    \x09self onProtocolSelected: nil ].\x0a    self model announcer on: HLMethodSelected do: [ :ann |\x0a    \x09self onMethodSelected: ann item ]",
 
-messageSends: ["on:do:", "onProtocolSelected:", "item", "announcer", "model", "onMethodSelected:"],
 
-referencedClasses: ["HLProtocolSelected", "HLShowInstanceToggled", "HLMethodSelected"]
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onMethodSelected_",
 
-smalltalk.method({
 
-selector: "onMethodSelected:",
 
-category: 'reactions',
 
-fn: function (aMethod) {
 
-    var self = this;
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-},
 
-args: ["aMethod"],
 
-source: "onMethodSelected: aMethod\x0a\x09self focus",
 
-messageSends: ["focus"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onProtocolSelected_",
 
-smalltalk.method({
 
-selector: "onProtocolSelected:",
 
-category: 'reactions',
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $2, $1;
 
-    smalltalk.send(self, "_selectedItem_", [nil]);
 
-    $2 = smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []);
 
-    if (($receiver = $2) == nil || $receiver == undefined) {
 
-        $1 = [];
 
-    } else {
 
-        if (($receiver = aString) == nil || $receiver == undefined) {
 
-            $1 = [];
 
-        } else {
 
-            $1 = smalltalk.send(self, "_methodsInProtocol_", [aString]);
 
-        }
 
-    }
 
-    smalltalk.send(self, "_items_", [$1]);
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "onProtocolSelected: aString\x0a    self selectedItem: nil.\x0a    \x0a    self items: (self model selectedClass \x0a    \x09ifNil: [ #() ]\x0a      \x09ifNotNil: [ aString\x0a    \x09\x09ifNil: [ #() ]\x0a      \x09\x09ifNotNil: [ self methodsInProtocol: aString ] ]).\x0a        \x0a    self refresh",
 
-messageSends: ["selectedItem:", "items:", "ifNil:ifNotNil:", "methodsInProtocol:", "selectedClass", "model", "refresh"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_overrideSelectors",
 
-smalltalk.method({
 
-selector: "overrideSelectors",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_selectorsCache", []), "_at_ifAbsentPut_", ["override", function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_allSuperclasses", []), "_inject_into_", [smalltalk.send(smalltalk.Set || Set, "_new", []), function (acc, each) {smalltalk.send(acc, "_addAll_", [smalltalk.send(each, "_selectors", [])]);$2 = smalltalk.send(acc, "_yourself", []);return $2;}]);}]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "overrideSelectors\x0a\x09^ self selectorsCache \x0a    \x09at: 'override'\x0a        ifAbsentPut: [ \x0a        \x09self model selectedClass allSuperclasses\x0a\x09\x09\x09\x09inject: Set new into: [ :acc :each | acc addAll: each selectors; yourself ] ]",
 
-messageSends: ["at:ifAbsentPut:", "inject:into:", "new", "addAll:", "selectors", "yourself", "allSuperclasses", "selectedClass", "model", "selectorsCache"],
 
-referencedClasses: ["Set"]
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_overridenSelectors",
 
-smalltalk.method({
 
-selector: "overridenSelectors",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_selectorsCache", []), "_at_ifAbsentPut_", ["overriden", function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_allSubclasses", []), "_inject_into_", [smalltalk.send(smalltalk.Set || Set, "_new", []), function (acc, each) {smalltalk.send(acc, "_addAll_", [smalltalk.send(each, "_selectors", [])]);$2 = smalltalk.send(acc, "_yourself", []);return $2;}]);}]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "overridenSelectors\x0a\x09^ self selectorsCache \x0a    \x09at: 'overriden'\x0a        ifAbsentPut: [ \x0a        \x09self model selectedClass allSubclasses\x0a\x09\x09\x09\x09inject: Set new into: [ :acc :each | acc addAll: each selectors; yourself ] ]",
 
-messageSends: ["at:ifAbsentPut:", "inject:into:", "new", "addAll:", "selectors", "yourself", "allSubclasses", "selectedClass", "model", "selectorsCache"],
 
-referencedClasses: ["Set"]
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
 
-    if (smalltalk.assert($1)) {
 
-        smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);
 
-    } else {
 
-        $2 = smalltalk.send(html, "_div", []);
 
-        smalltalk.send($2, "_class_", ["class_side"]);
 
-        $3 = smalltalk.send($2, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);}]);
 
-    }
 
-    smalltalk.send(self, "_flushSelectorsCache", []);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a\x09self model showInstance\x0a    \x09ifFalse: [ html div \x0a        \x09class: 'class_side'; \x0a            with: [ super renderContentOn: html ] ]\x0a      \x09ifTrue: [ super renderContentOn: html ].\x0a        \x0a    self flushSelectorsCache",
 
-messageSends: ["ifFalse:ifTrue:", "class:", "div", "with:", "renderContentOn:", "showInstance", "model", "flushSelectorsCache"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItemLabel_on_",
 
-smalltalk.method({
 
-selector: "renderItemLabel:on:",
 
-category: 'rendering',
 
-fn: function (aCompiledMethod, html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(aCompiledMethod, "_selector", [])]);
 
-    return self;
 
-},
 
-args: ["aCompiledMethod", "html"],
 
-source: "renderItemLabel: aCompiledMethod on: html\x0a\x09html with: aCompiledMethod selector",
 
-messageSends: ["with:", "selector"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-category: 'actions',
 
-fn: function (aCompiledMethod) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [aCompiledMethod], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod_", [aCompiledMethod]);
 
-    return self;
 
-},
 
-args: ["aCompiledMethod"],
 
-source: "selectItem: aCompiledMethod\x0a\x09super selectItem: aCompiledMethod.\x0a   \x09self model selectedMethod: aCompiledMethod",
 
-messageSends: ["selectItem:", "selectedMethod:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectorsCache",
 
-smalltalk.method({
 
-selector: "selectorsCache",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectorsCache'];
 
-},
 
-args: [],
 
-source: "selectorsCache\x0a\x09^ selectorsCache",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLMethodsListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLPackagesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_focusClassesListWidget",
 
-smalltalk.method({
 
-selector: "focusClassesListWidget",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLClassesListFocus || HLClassesListFocus, "_new", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "focusClassesListWidget\x0a\x09self model announcer announce: HLClassesListFocus new",
 
-messageSends: ["announce:", "new", "announcer", "model"],
 
-referencedClasses: ["HLClassesListFocus"]
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_initializeItems",
 
-smalltalk.method({
 
-selector: "initializeItems",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    self['@items'] = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_packages", []), "_sort_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_name", []), "__lt", [smalltalk.send(b, "_name", [])]);}]);
 
-    $1 = self['@items'];
 
-    return $1;
 
-},
 
-args: [],
 
-source: "initializeItems\x0a\x09^ items := self model packages sort:[:a :b|\x0a\x09\x09\x09\x09\x09\x09a name < b name]",
 
-messageSends: ["sort:", "<", "name", "packages", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_items",
 
-smalltalk.method({
 
-selector: "items",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(self, "_initializeItems", []);
 
-    } else {
 
-        $1 = self['@items'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "items\x0a\x09^ items ifNil: [self initializeItems]",
 
-messageSends: ["ifNil:", "initializeItems"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLPackageSelected || HLPackageSelected, function (ann) {return smalltalk.send(self, "_onPackageSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeModel\x0a    self model announcer on: HLPackageSelected do: [ :ann |\x0a    \x09self onPackageSelected: ann item ]",
 
-messageSends: ["on:do:", "onPackageSelected:", "item", "announcer", "model"],
 
-referencedClasses: ["HLPackageSelected"]
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onPackageSelected_",
 
-smalltalk.method({
 
-selector: "onPackageSelected:",
 
-category: 'reactions',
 
-fn: function (aPackage) {
 
-    var self = this;
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-},
 
-args: ["aPackage"],
 
-source: "onPackageSelected: aPackage\x0a\x09self focus",
 
-messageSends: ["focus"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderButtonsOn_",
 
-smalltalk.method({
 
-selector: "renderButtonsOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3, $5, $6, $7, $8, $4, $9, $10;
 
-    $1 = smalltalk.send(html, "_span", []);
 
-    smalltalk.send($1, "_class_", ["info"]);
 
-    $2 = smalltalk.send($1, "_with_", ["Auto commit"]);
 
-    $3 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($3, "_class_", ["btn-group switch"]);
 
-    smalltalk.send($3, "_at_put_", ["data-toggle", "buttons-radio"]);
 
-    $4 = smalltalk.send($3, "_with_", [function () {$5 = smalltalk.send(html, "_button", []);smalltalk.send($5, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {return smalltalk.send(str, "_nextPutAll_", ["btn"]);}])]);$6 = smalltalk.send($5, "_with_", ["On"]);$6;$7 = smalltalk.send(html, "_button", []);smalltalk.send($7, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {return smalltalk.send(str, "_nextPutAll_", ["btn active"]);}])]);$8 = smalltalk.send($7, "_with_", ["Off"]);return $8;}]);
 
-    $9 = smalltalk.send(html, "_a", []);
 
-    smalltalk.send($9, "_class_", ["btn"]);
 
-    $10 = smalltalk.send($9, "_with_", ["Commit"]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderButtonsOn: html\x0a\x0a\x09html span class: 'info'; with: 'Auto commit'.\x0a\x09html div \x0a        class: 'btn-group switch';\x0a\x09\x09at: 'data-toggle' put: 'buttons-radio';\x0a\x09\x09with: [ \x0a           \x09html button \x0a                class: (String streamContents: [ :str |\x0a                \x09str nextPutAll: 'btn' ]);\x0a  \x09\x09\x09\x09with: 'On'.\x0a  \x09\x09\x09html button\x0a  \x09\x09\x09\x09class: (String streamContents: [ :str |\x0a                \x09str nextPutAll: 'btn active' ]);\x0a  \x09\x09\x09\x09with: 'Off' ].\x0a                \x0a    html a \x0a         \x09class: 'btn';\x0a\x09\x09\x09with: 'Commit'.",
 
-messageSends: ["class:", "span", "with:", "div", "at:put:", "streamContents:", "nextPutAll:", "button", "a"],
 
-referencedClasses: ["String"]
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-category: 'actions',
 
-fn: function (aPackage) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [aPackage], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage_", [aPackage]);
 
-    return self;
 
-},
 
-args: ["aPackage"],
 
-source: "selectItem: aPackage\x0a\x09super selectItem: aPackage.\x0a    self model selectedPackage: aPackage",
 
-messageSends: ["selectItem:", "selectedPackage:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLPackagesListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLProtocolsListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_allProtocol",
 
-smalltalk.method({
 
-selector: "allProtocol",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_allProtocol", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "allProtocol\x0a\x09^ self model allProtocol",
 
-messageSends: ["allProtocol", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeModel\x0a\x09self model announcer on: HLClassSelected do: [ :ann |\x0a    \x09self onClassSelected: ann item ].\x0a    self model announcer on: HLShowInstanceToggled do: [ :ann |\x0a    \x09self onClassSelected: self model selectedClass ].\x0a    self model announcer on: HLProtocolSelected do: [ :ann |\x0a    \x09self onProtocolSelected: ann item ]",
 
-messageSends: ["on:do:", "onClassSelected:", "item", "announcer", "model", "selectedClass", "onProtocolSelected:"],
 
-referencedClasses: ["HLClassSelected", "HLShowInstanceToggled", "HLProtocolSelected"]
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onClassSelected_",
 
-smalltalk.method({
 
-selector: "onClassSelected:",
 
-category: 'reactions',
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    smalltalk.send(self, "_selectedItem_", [nil]);
 
-    if (($receiver = aClass) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.Array || Array, "_with_", [smalltalk.send(self, "_allProtocol", [])]);
 
-    } else {
 
-        $2 = smalltalk.send(smalltalk.Array || Array, "_with_", [smalltalk.send(self, "_allProtocol", [])]);
 
-        smalltalk.send($2, "_addAll_", [smalltalk.send(aClass, "_protocols", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        $1 = $3;
 
-    }
 
-    smalltalk.send(self, "_items_", [$1]);
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-},
 
-args: ["aClass"],
 
-source: "onClassSelected: aClass\x0a    self selectedItem: nil.\x0a    \x0a    self items: (aClass\x0a    \x09ifNil: [ Array with: self allProtocol ]\x0a      \x09ifNotNil: [ \x0a        \x09(Array with: self allProtocol) \x0a            \x09addAll: aClass protocols; \x0a                yourself ]).\x0a\x0a    self refresh",
 
-messageSends: ["selectedItem:", "items:", "ifNil:ifNotNil:", "with:", "allProtocol", "addAll:", "protocols", "yourself", "refresh"],
 
-referencedClasses: ["Array"]
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onProtocolSelected_",
 
-smalltalk.method({
 
-selector: "onProtocolSelected:",
 
-category: 'reactions',
 
-fn: function (aString) {
 
-    var self = this;
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "onProtocolSelected: aString\x0a\x09self focus",
 
-messageSends: ["focus"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
 
-    if (smalltalk.assert($1)) {
 
-        smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);
 
-    } else {
 
-        $2 = smalltalk.send(html, "_div", []);
 
-        smalltalk.send($2, "_class_", ["class_side"]);
 
-        $3 = smalltalk.send($2, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);}]);
 
-    }
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a\x09self model showInstance\x0a    \x09ifFalse: [ html div \x0a        \x09class: 'class_side'; \x0a            with: [ super renderContentOn: html ] ]\x0a      \x09ifTrue: [ super renderContentOn: html ]",
 
-messageSends: ["ifFalse:ifTrue:", "class:", "div", "with:", "renderContentOn:", "showInstance", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-category: 'actions',
 
-fn: function (aString) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [aString], smalltalk.HLBrowserListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol_", [aString]);
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "selectItem: aString\x0a\x09super selectItem: aString.\x0a    self model selectedProtocol: aString",
 
-messageSends: ["selectItem:", "selectedProtocol:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectedItem",
 
-smalltalk.method({
 
-selector: "selectedItem",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_selectedItem", [], smalltalk.HLBrowserListWidget);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selectedItem\x0a\x09^ super selectedItem\x22 ifNil: [ self allProtocol ]\x22",
 
-messageSends: ["selectedItem"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLProtocolsListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLBrowserModel', smalltalk.Object, ['announcer', 'environment', 'selectedPackage', 'selectedClass', 'selectedProtocol', 'selectedMethod', 'showInstance', 'showComment'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_allProtocol",
 
-smalltalk.method({
 
-selector: "allProtocol",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "-- All --";
 
-},
 
-args: [],
 
-source: "allProtocol\x0a\x09^ '-- All --'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "announcer\x0a\x09^ announcer ifNil: [ announcer := Announcer new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["Announcer"]
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
 
-messageSends: ["ifNil:", "environment", "current"],
 
-referencedClasses: ["HLManager"]
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-category: 'accessing',
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-},
 
-args: ["anEnvironment"],
 
-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_packages",
 
-smalltalk.method({
 
-selector: "packages",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_environment", []), "_packages", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "packages\x0a\x09^ self environment packages",
 
-messageSends: ["packages", "environment"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedClass",
 
-smalltalk.method({
 
-selector: "selectedClass",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedClass'];
 
-},
 
-args: [],
 
-source: "selectedClass\x0a\x09^ selectedClass",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedClass_",
 
-smalltalk.method({
 
-selector: "selectedClass:",
 
-category: 'accessing',
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    $1 = smalltalk.send(self['@selectedClass'], "__eq", [aClass]);
 
-    if (!smalltalk.assert($1)) {
 
-        if (($receiver = aClass) == nil || $receiver == undefined) {
 
-            self['@selectedClass'] = nil;
 
-            self['@selectedClass'];
 
-        } else {
 
-            $2 = smalltalk.send(self, "_showInstance", []);
 
-            if (smalltalk.assert($2)) {
 
-                self['@selectedClass'] = smalltalk.send(aClass, "_theNonMetaClass", []);
 
-                self['@selectedClass'];
 
-            } else {
 
-                self['@selectedClass'] = smalltalk.send(aClass, "_theMetaClass", []);
 
-                self['@selectedClass'];
 
-            }
 
-        }
 
-        smalltalk.send(self, "_selectedMethod_", [nil]);
 
-        $3 = smalltalk.send(self, "_selectedProtocol_", [nil]);
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLClassSelected || HLClassSelected, "_on_", [smalltalk.send(self, "_selectedClass", [])])]);
 
-    return self;
 
-},
 
-args: ["aClass"],
 
-source: "selectedClass: aClass\x0a\x09selectedClass = aClass ifFalse: [\x0a\x09\x09aClass \x0a    \x09\x09ifNil: [ selectedClass := nil ]\x0a      \x09\x09ifNotNil: [\x0a\x09\x09\x09\x09self showInstance \x0a    \x09\x09\x09\x09ifTrue: [ selectedClass := aClass theNonMetaClass ]\x0a      \x09\x09\x09\x09ifFalse: [ selectedClass := aClass theMetaClass ] ].\x0a    \x0a   \x09\x09self \x0a    \x09\x09selectedMethod: nil;\x0a       \x09 \x09selectedProtocol: nil ].\x0a        \x0a   self announcer announce: (HLClassSelected on: self selectedClass)",
 
-messageSends: ["ifFalse:", "ifNil:ifNotNil:", "ifTrue:ifFalse:", "theNonMetaClass", "theMetaClass", "showInstance", "selectedMethod:", "selectedProtocol:", "=", "announce:", "on:", "selectedClass", "announcer"],
 
-referencedClasses: ["HLClassSelected"]
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedMethod",
 
-smalltalk.method({
 
-selector: "selectedMethod",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedMethod'];
 
-},
 
-args: [],
 
-source: "selectedMethod\x0a\x09^ selectedMethod",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedMethod_",
 
-smalltalk.method({
 
-selector: "selectedMethod:",
 
-category: 'accessing',
 
-fn: function (aCompiledMethod) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@selectedMethod'], "__eq", [aCompiledMethod]);
 
-    if (!smalltalk.assert($1)) {
 
-        self['@selectedMethod'] = aCompiledMethod;
 
-        self['@selectedMethod'];
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLMethodSelected || HLMethodSelected, "_on_", [aCompiledMethod])]);
 
-    return self;
 
-},
 
-args: ["aCompiledMethod"],
 
-source: "selectedMethod: aCompiledMethod\x0a\x09selectedMethod = aCompiledMethod ifFalse: [\x0a\x09\x09selectedMethod := aCompiledMethod ].\x0a    \x0a    self announcer announce: (HLMethodSelected on: aCompiledMethod)",
 
-messageSends: ["ifFalse:", "=", "announce:", "on:", "announcer"],
 
-referencedClasses: ["HLMethodSelected"]
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedPackage",
 
-smalltalk.method({
 
-selector: "selectedPackage",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedPackage'];
 
-},
 
-args: [],
 
-source: "selectedPackage\x0a\x09^ selectedPackage",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedPackage_",
 
-smalltalk.method({
 
-selector: "selectedPackage:",
 
-category: 'accessing',
 
-fn: function (aPackage) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@selectedPackage'], "__eq", [aPackage]);
 
-    if (!smalltalk.assert($1)) {
 
-        self['@selectedPackage'] = aPackage;
 
-        self['@selectedPackage'];
 
-        smalltalk.send(self, "_selectedClass_", [nil]);
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLPackageSelected || HLPackageSelected, "_on_", [aPackage])]);
 
-    return self;
 
-},
 
-args: ["aPackage"],
 
-source: "selectedPackage: aPackage\x0a\x09selectedPackage = aPackage ifFalse: [\x0a\x09\x09selectedPackage := aPackage.\x0a    \x09self selectedClass: nil ].\x0a    \x0a    self announcer announce: (HLPackageSelected on: aPackage)",
 
-messageSends: ["ifFalse:", "selectedClass:", "=", "announce:", "on:", "announcer"],
 
-referencedClasses: ["HLPackageSelected"]
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedProtocol",
 
-smalltalk.method({
 
-selector: "selectedProtocol",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedProtocol'];
 
-},
 
-args: [],
 
-source: "selectedProtocol\x0a\x09^ selectedProtocol",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedProtocol_",
 
-smalltalk.method({
 
-selector: "selectedProtocol:",
 
-category: 'accessing',
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@selectedProtocol'], "__eq", [aString]);
 
-    if (!smalltalk.assert($1)) {
 
-        self['@selectedProtocol'] = aString;
 
-        self['@selectedProtocol'];
 
-        smalltalk.send(self, "_selectedMethod_", [nil]);
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLProtocolSelected || HLProtocolSelected, "_on_", [aString])]);
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "selectedProtocol: aString\x0a\x09selectedProtocol = aString ifFalse: [\x0a      \x09selectedProtocol := aString.\x0a    \x09self selectedMethod: nil ].\x0a    \x0a    self announcer announce: (HLProtocolSelected on: aString)",
 
-messageSends: ["ifFalse:", "selectedMethod:", "=", "announce:", "on:", "announcer"],
 
-referencedClasses: ["HLProtocolSelected"]
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_showComment",
 
-smalltalk.method({
 
-selector: "showComment",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@showComment']) == nil || $receiver == undefined) {
 
-        $1 = false;
 
-    } else {
 
-        $1 = self['@showComment'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "showComment\x0a\x09^ showComment ifNil: [ false ]",
 
-messageSends: ["ifNil:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_showComment_",
 
-smalltalk.method({
 
-selector: "showComment:",
 
-category: 'accessing',
 
-fn: function (aBoolean) {
 
-    var self = this;
 
-    self['@showComment'] = aBoolean;
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLShowCommentToggled || HLShowCommentToggled, "_new", [])]);
 
-    return self;
 
-},
 
-args: ["aBoolean"],
 
-source: "showComment: aBoolean\x0a\x09showComment := aBoolean.\x0a    \x0a    self announcer announce: HLShowCommentToggled new",
 
-messageSends: ["announce:", "new", "announcer"],
 
-referencedClasses: ["HLShowCommentToggled"]
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_showInstance",
 
-smalltalk.method({
 
-selector: "showInstance",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@showInstance']) == nil ||
 
-        $receiver == undefined) {
 
-        $1 = true;
 
-    } else {
 
-        $1 = self['@showInstance'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "showInstance\x0a\x09^ showInstance ifNil: [ true ]",
 
-messageSends: ["ifNil:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-smalltalk.addMethod(
 
-"_showInstance_",
 
-smalltalk.method({
 
-selector: "showInstance:",
 
-category: 'accessing',
 
-fn: function (aBoolean) {
 
-    var self = this;
 
-    var $1, $2;
 
-    self['@showInstance'] = aBoolean;
 
-    $1 = smalltalk.send(self, "_selectedClass", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-    } else {
 
-        if (smalltalk.assert(aBoolean)) {
 
-            $2 = smalltalk.send(smalltalk.send(self, "_selectedClass", []), "_theNonMetaClass", []);
 
-        } else {
 
-            $2 = smalltalk.send(smalltalk.send(self, "_selectedClass", []), "_theMetaClass", []);
 
-        }
 
-        smalltalk.send(self, "_selectedClass_", [$2]);
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, "_new", [])]);
 
-    return self;
 
-},
 
-args: ["aBoolean"],
 
-source: "showInstance: aBoolean\x0a\x09showInstance := aBoolean.\x0a    \x0a    self selectedClass ifNotNil: [\x0a    \x09self selectedClass: (aBoolean\x0a    \x09\x09ifTrue: [self selectedClass theNonMetaClass ]\x0a    \x09  \x09ifFalse: [ self selectedClass theMetaClass ]) ].\x0a    \x0a    self announcer announce: HLShowInstanceToggled new",
 
-messageSends: ["ifNotNil:", "selectedClass:", "ifTrue:ifFalse:", "theNonMetaClass", "selectedClass", "theMetaClass", "announce:", "new", "announcer"],
 
-referencedClasses: ["HLShowInstanceToggled"]
 
-}),
 
-smalltalk.HLBrowserModel);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'actions',
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_environment_", [anEnvironment]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["anEnvironment"],
 
-source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
 
-messageSends: ["environment:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserModel.klass);
 
-
 
-
 
-smalltalk.addClass('HLBrowserSourceWidget', smalltalk.HLWidget, ['model', 'codeWidget'], 'Helios-Browser');
 
-smalltalk.addMethod(
 
-"_codeWidget",
 
-smalltalk.method({
 
-selector: "codeWidget",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
 
-        self['@codeWidget'] = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
 
-        $1 = self['@codeWidget'];
 
-    } else {
 
-        $1 = self['@codeWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "codeWidget\x0a\x09^ codeWidget ifNil: [ codeWidget := HLCodeWidget new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["HLCodeWidget"]
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_contents",
 
-smalltalk.method({
 
-selector: "contents",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_sourceArea", []), "_contents", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "contents\x0a\x09^ self sourceArea contents",
 
-messageSends: ["contents", "sourceArea"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_contents_",
 
-smalltalk.method({
 
-selector: "contents:",
 
-category: 'accessing',
 
-fn: function (aString) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_contents_", [aString]);
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "contents: aString\x0a\x09self codeWidget contents: aString",
 
-messageSends: ["contents:", "codeWidget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-},
 
-args: [],
 
-source: "model\x0a\x09^ model",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-category: 'accessing',
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    self['@model'] = aBrowserModel;
 
-    smalltalk.send(self, "_observeModel", []);
 
-    return self;
 
-},
 
-args: ["aBrowserModel"],
 
-source: "model: aBrowserModel\x0a\x09model := aBrowserModel.\x0a    \x0a    self observeModel",
 
-messageSends: ["observeModel"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLMethodSelected || HLMethodSelected, function (ann) {return smalltalk.send(self, "_onMethodSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeModel\x0a\x09self model announcer on: HLMethodSelected do: [ :ann |\x0a    \x09self onMethodSelected: ann item ].\x0a    self model announcer on: HLClassSelected do: [ :ann |\x0a    \x09self onClassSelected: ann item ].\x0a    self model announcer on: HLProtocolSelected do: [ :ann |\x0a    \x09self onProtocolSelected: ann item ]",
 
-messageSends: ["on:do:", "onMethodSelected:", "item", "announcer", "model", "onClassSelected:", "onProtocolSelected:"],
 
-referencedClasses: ["HLMethodSelected", "HLClassSelected", "HLProtocolSelected"]
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onClassSelected_",
 
-smalltalk.method({
 
-selector: "onClassSelected:",
 
-category: 'reactions',
 
-fn: function (aClass) {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = aClass) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(self, "_contents_", [""]);
 
-        return $1;
 
-    } else {
 
-    }
 
-    smalltalk.send(self, "_contents_", [smalltalk.send(aClass, "_definition", [])]);
 
-    return self;
 
-},
 
-args: ["aClass"],
 
-source: "onClassSelected: aClass\x0a\x09aClass ifNil: [ ^ self contents: '' ].\x0a    \x0a    self contents: aClass definition",
 
-messageSends: ["ifNil:", "contents:", "definition"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onMethodSelected_",
 
-smalltalk.method({
 
-selector: "onMethodSelected:",
 
-category: 'reactions',
 
-fn: function (aCompiledMethod) {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = aCompiledMethod) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(self, "_contents_", [""]);
 
-        return $1;
 
-    } else {
 
-    }
 
-    smalltalk.send(self, "_contents_", [smalltalk.send(aCompiledMethod, "_source", [])]);
 
-    return self;
 
-},
 
-args: ["aCompiledMethod"],
 
-source: "onMethodSelected: aCompiledMethod\x0a\x09aCompiledMethod ifNil: [ ^ self contents: '' ].\x0a    \x0a    self contents: aCompiledMethod source",
 
-messageSends: ["ifNil:", "contents:", "source"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onProtocolSelected_",
 
-smalltalk.method({
 
-selector: "onProtocolSelected:",
 
-category: 'reactions',
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-        $2 = smalltalk.send(self, "_contents_", [""]);
 
-        return $2;
 
-    } else {
 
-    }
 
-    smalltalk.send(self, "_contents_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_definition", [])]);
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "onProtocolSelected: aString\x0a\x09self model selectedClass ifNil: [ ^ self contents: '' ].\x0a    \x0a    self contents: self model selectedClass definition",
 
-messageSends: ["ifNil:", "contents:", "selectedClass", "model", "definition"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_renderOn_", [html]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a\x09self codeWidget renderOn: html",
 
-messageSends: ["renderOn:", "codeWidget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserSourceWidget);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'instance creation',
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_model_", [aBrowserModel]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["aBrowserModel"],
 
-source: "on: aBrowserModel\x0a\x09^ self new\x0a    \x09model: aBrowserModel;\x0a        yourself",
 
-messageSends: ["model:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserSourceWidget.klass);
 
-
 
-

+ 0 - 403
js/Helios-Commands.deploy.js
Xem Tập Tin 

@@ -1,403 +0,0 @@
 
-smalltalk.addPackage('Helios-Commands', {});
 
-smalltalk.addClass('HLCommand', smalltalk.Object, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_asBinding",
 
-smalltalk.method({
 
-selector: "asBinding",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [smalltalk.send(self, "_key", []), smalltalk.send(self, "_label", [])]), "_callback_", [function () {return smalltalk.send(self, "_execute", []);}]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-smalltalk.addMethod(
 
-"_documentation",
 
-smalltalk.method({
 
-selector: "documentation",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_documentation", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_key", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_label", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_bindingGroup",
 
-smalltalk.method({
 
-selector: "bindingGroup",
 
-fn: function () {
 
-    var self = this;
 
-    return nil;
 
-}
 
-}),
 
-smalltalk.HLCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_documentation",
 
-smalltalk.method({
 
-selector: "documentation",
 
-fn: function () {
 
-    var self = this;
 
-    return "";
 
-}
 
-}),
 
-smalltalk.HLCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function () {
 
-    var self = this;
 
-    return nil;
 
-}
 
-}),
 
-smalltalk.HLCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    return "";
 
-}
 
-}),
 
-smalltalk.HLCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLBrowserCommand', smalltalk.HLCommand, ['model'], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-}
 
-}),
 
-smalltalk.HLBrowserCommand);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    self['@model'] = aBrowserModel;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBrowserCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_model_", [aBrowserModel]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBrowserCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
 
-
 
-smalltalk.addMethod(
 
-"_bindingGroup",
 
-smalltalk.method({
 
-selector: "bindingGroup",
 
-fn: function () {
 
-    var self = this;
 
-    return "Go to";
 
-}
 
-}),
 
-smalltalk.HLGoToCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLGoToClassesCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function () {
 
-    var self = this;
 
-    return 67;
 
-}
 
-}),
 
-smalltalk.HLGoToClassesCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    return "Classes";
 
-}
 
-}),
 
-smalltalk.HLGoToClassesCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLGoToMethodsCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function () {
 
-    var self = this;
 
-    return 77;
 
-}
 
-}),
 
-smalltalk.HLGoToMethodsCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    return "Methods";
 
-}
 
-}),
 
-smalltalk.HLGoToMethodsCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLGoToPackagesCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function () {
 
-    var self = this;
 
-    return 80;
 
-}
 
-}),
 
-smalltalk.HLGoToPackagesCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    return "Packages";
 
-}
 
-}),
 
-smalltalk.HLGoToPackagesCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLGoToProtocolsCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function () {
 
-    var self = this;
 
-    return 84;
 
-}
 
-}),
 
-smalltalk.HLGoToProtocolsCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    return "Protocols";
 
-}
 
-}),
 
-smalltalk.HLGoToProtocolsCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
 
-
 
-smalltalk.addMethod(
 
-"_bindingGroup",
 
-smalltalk.method({
 
-selector: "bindingGroup",
 
-fn: function () {
 
-    var self = this;
 
-    return "Toggle";
 
-}
 
-}),
 
-smalltalk.HLToggleCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [false]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLToggleClassSideCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function () {
 
-    var self = this;
 
-    return 67;
 
-}
 
-}),
 
-smalltalk.HLToggleClassSideCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    return "Class side";
 
-}
 
-}),
 
-smalltalk.HLToggleClassSideCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [true]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLToggleInstanceSideCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function () {
 
-    var self = this;
 
-    return 73;
 
-}
 
-}),
 
-smalltalk.HLToggleInstanceSideCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    return "Instance side";
 
-}
 
-}),
 
-smalltalk.HLToggleInstanceSideCommand.klass);
 
-
 
-

+ 0 - 563
js/Helios-Commands.js
Xem Tập Tin 

@@ -1,563 +0,0 @@
 
-smalltalk.addPackage('Helios-Commands', {});
 
-smalltalk.addClass('HLCommand', smalltalk.Object, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_asBinding",
 
-smalltalk.method({
 
-selector: "asBinding",
 
-category: 'converting',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [smalltalk.send(self, "_key", []), smalltalk.send(self, "_label", [])]), "_callback_", [function () {return smalltalk.send(self, "_execute", []);}]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "asBinding\x0a\x09^ (HLBindingAction on: self key labelled: self label)\x0a    \x09callback: [ self execute ]",
 
-messageSends: ["callback:", "execute", "on:labelled:", "key", "label"],
 
-referencedClasses: ["HLBindingAction"]
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-smalltalk.addMethod(
 
-"_documentation",
 
-smalltalk.method({
 
-selector: "documentation",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_documentation", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "documentation\x0a\x09^ self class documentation",
 
-messageSends: ["documentation", "class"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "execute\x0a\x09",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_key", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "key\x0a\x09^ self class key",
 
-messageSends: ["key", "class"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_label", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ self class label",
 
-messageSends: ["label", "class"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_bindingGroup",
 
-smalltalk.method({
 
-selector: "bindingGroup",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return nil;
 
-},
 
-args: [],
 
-source: "bindingGroup\x0a\x09^ nil",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_documentation",
 
-smalltalk.method({
 
-selector: "documentation",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "";
 
-},
 
-args: [],
 
-source: "documentation\x0a\x09^ ''",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return nil;
 
-},
 
-args: [],
 
-source: "key\x0a\x09^ nil",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "";
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ ''",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLBrowserCommand', smalltalk.HLCommand, ['model'], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-},
 
-args: [],
 
-source: "model\x0a\x09^ model",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserCommand);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-category: 'accessing',
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    self['@model'] = aBrowserModel;
 
-    return self;
 
-},
 
-args: ["aBrowserModel"],
 
-source: "model: aBrowserModel\x0a\x09model := aBrowserModel",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'instance creation',
 
-fn: function (aBrowserModel) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_model_", [aBrowserModel]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["aBrowserModel"],
 
-source: "on: aBrowserModel\x0a\x09^ self new\x0a    \x09model: aBrowserModel;\x0a        yourself",
 
-messageSends: ["model:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBrowserCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
 
-
 
-smalltalk.addMethod(
 
-"_bindingGroup",
 
-smalltalk.method({
 
-selector: "bindingGroup",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Go to";
 
-},
 
-args: [],
 
-source: "bindingGroup\x0a\x09^ 'Go to'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "execute\x0a\x09self model selectedClass: self model selectedClass",
 
-messageSends: ["selectedClass:", "selectedClass", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToClassesCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 67;
 
-},
 
-args: [],
 
-source: "key\x0a\x09\x22c\x22\x0a    \x0a\x09^ 67",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToClassesCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Classes";
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ 'Classes'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToClassesCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "execute\x0a\x09self model selectedMethod: self model selectedMethod",
 
-messageSends: ["selectedMethod:", "selectedMethod", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToMethodsCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 77;
 
-},
 
-args: [],
 
-source: "key\x0a\x09\x22m\x22\x0a    \x0a\x09^ 77",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToMethodsCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Methods";
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ 'Methods'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToMethodsCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "execute\x0a\x09self model selectedPackage: self model selectedPackage",
 
-messageSends: ["selectedPackage:", "selectedPackage", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToPackagesCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 80;
 
-},
 
-args: [],
 
-source: "key\x0a\x09\x22p\x22\x0a    \x0a\x09^ 80",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToPackagesCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Packages";
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ 'Packages'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToPackagesCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "execute\x0a\x09self model selectedProtocol: self model selectedProtocol",
 
-messageSends: ["selectedProtocol:", "selectedProtocol", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToProtocolsCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 84;
 
-},
 
-args: [],
 
-source: "key\x0a\x09\x22p\x22\x0a    \x0a\x09^ 84",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToProtocolsCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Protocols";
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ 'Protocols'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLGoToProtocolsCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
 
-
 
-smalltalk.addMethod(
 
-"_bindingGroup",
 
-smalltalk.method({
 
-selector: "bindingGroup",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Toggle";
 
-},
 
-args: [],
 
-source: "bindingGroup\x0a\x09^ 'Toggle'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [false]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "execute\x0a\x09self model showInstance: false",
 
-messageSends: ["showInstance:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleClassSideCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 67;
 
-},
 
-args: [],
 
-source: "key\x0a\x09\x22c\x22\x0a    \x0a\x09^ 67",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleClassSideCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Class side";
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ 'Class side'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleClassSideCommand.klass);
 
-
 
-
 
-smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
 
-smalltalk.addMethod(
 
-"_execute",
 
-smalltalk.method({
 
-selector: "execute",
 
-category: 'executing',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [true]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "execute\x0a\x09self model showInstance: true",
 
-messageSends: ["showInstance:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleInstanceSideCommand);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 73;
 
-},
 
-args: [],
 
-source: "key\x0a\x09\x22i\x22\x0a    \x0a\x09^ 73",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleInstanceSideCommand.klass);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Instance side";
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ 'Instance side'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLToggleInstanceSideCommand.klass);
 
-
 
-

+ 0 - 1070
js/Helios-Core.deploy.js
Xem Tập Tin 

@@ -1,1070 +0,0 @@
 
-smalltalk.addPackage('Helios-Core', {});
 
-smalltalk.addClass('HLTab', smalltalk.Object, ['widget', 'label'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_activate",
 
-smalltalk.method({
 
-selector: "activate",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_manager", []), "_activate_", [self]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_add",
 
-smalltalk.method({
 
-selector: "add",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_manager", []), "_addTab_", [self]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_isActive",
 
-smalltalk.method({
 
-selector: "isActive",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_manager", []), "_activeTab", []), "__eq", [self]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@label']) == nil || $receiver == undefined) {
 
-        $1 = "";
 
-    } else {
 
-        $1 = self['@label'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_label_",
 
-smalltalk.method({
 
-selector: "label:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    self['@label'] = aString;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_manager",
 
-smalltalk.method({
 
-selector: "manager",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.HLManager || HLManager, "_current", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_widget",
 
-smalltalk.method({
 
-selector: "widget",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@widget'];
 
-}
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_widget_",
 
-smalltalk.method({
 
-selector: "widget:",
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    self['@widget'] = aWidget;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLTab);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_labelled_",
 
-smalltalk.method({
 
-selector: "on:labelled:",
 
-fn: function (aWidget, aString) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_widget_", [aWidget]);
 
-    smalltalk.send($2, "_label_", [aString]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLTab.klass);
 
-
 
-
 
-smalltalk.addClass('HLWidget', smalltalk.Widget, ['wrapper'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_manager",
 
-smalltalk.method({
 
-selector: "manager",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.HLManager || HLManager, "_current", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_refresh",
 
-smalltalk.method({
 
-selector: "refresh",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_wrapper", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-        return self;
 
-    } else {
 
-    }
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_empty", []);
 
-    smalltalk.send(function (html) {return smalltalk.send(self, "_renderContentOn_", [html]);}, "_appendToJQuery_", [smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_registerBindings",
 
-smalltalk.method({
 
-selector: "registerBindings",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_registerBindingsOn_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_manager", []), "_keyBinder", []), "_bindings", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_registerBindingsOn_",
 
-smalltalk.method({
 
-selector: "registerBindingsOn:",
 
-fn: function (aBindingGroup) {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_",
 
-smalltalk.method({
 
-selector: "renderOn:",
 
-fn: function (html){
 
-var self=this;
 
-smalltalk.send(self,"_registerBindings",[]);
 
-self["@wrapper"]=smalltalk.send(html,"_div",[]);
 
-smalltalk.send((function(renderer){
 
-return smalltalk.send(self,"_renderContentOn_",[renderer]);
 
-}),"_appendToJQuery_",[smalltalk.send(self["@wrapper"],"_asJQuery",[])]);
 
-return self}
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_wrapper",
 
-smalltalk.method({
 
-selector: "wrapper",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@wrapper'];
 
-}
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-}
 
-}),
 
-smalltalk.HLWidget.klass);
 
-
 
-smalltalk.addMethod(
 
-"_openAsTab",
 
-smalltalk.method({
 
-selector: "openAsTab",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_addTab_", [smalltalk.send(smalltalk.HLTab || HLTab, "_on_labelled_", [smalltalk.send(self, "_new", []), smalltalk.send(self, "_tabLabel", [])])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWidget.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-fn: function () {
 
-    var self = this;
 
-    return "Tab";
 
-}
 
-}),
 
-smalltalk.HLWidget.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-fn: function () {
 
-    var self = this;
 
-    return 500;
 
-}
 
-}),
 
-smalltalk.HLWidget.klass);
 
-
 
-
 
-smalltalk.addClass('HLDebugger', smalltalk.HLWidget, [], 'Helios-Core');
 
-
 
-
 
-smalltalk.addClass('HLFocusableWidget', smalltalk.HLWidget, ['hiddenInput'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_blur",
 
-smalltalk.method({
 
-selector: "blur",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_blur", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focus",
 
-smalltalk.method({
 
-selector: "focus",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_focus", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focusClass",
 
-smalltalk.method({
 
-selector: "focusClass",
 
-fn: function () {
 
-    var self = this;
 
-    return "focused";
 
-}
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_hasFocus",
 
-smalltalk.method({
 
-selector: "hasFocus",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_notNil", []), "_and_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_hasClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderHiddenInputOn_",
 
-smalltalk.method({
 
-selector: "renderHiddenInputOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(html, "_input", []);
 
-    smalltalk.send($1, "_style_", ["position: absolute; left: -100000px;"]);
 
-    smalltalk.send($1, "_onBlur_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_removeClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
 
-    $2 = smalltalk.send($1, "_onFocus_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_addClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
 
-    self['@hiddenInput'] = $2;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_",
 
-smalltalk.method({
 
-selector: "renderOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2;
 
-    smalltalk.send(self, "_registerBindings", []);
 
-    smalltalk.send(self, "_renderHiddenInputOn_", [html]);
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", ["hl_widget"]);
 
-    smalltalk.send($1, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_focus", []);}]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html]);}]);
 
-    self['@wrapper'] = $2;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLListWidget', smalltalk.HLFocusableWidget, ['items', 'selectedItem'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_activateFirstListItem",
 
-smalltalk.method({
 
-selector: "activateFirstListItem",
 
-fn: function (){
 
-var self=this;
 
-smalltalk.send(self,"_activateListItem_",[smalltalk.send(window,"_jQuery_",[smalltalk.send(smalltalk.send(smalltalk.send(self["@wrapper"],"_asJQuery",[]),"_find_",["li"]),"_get_",[(0)])])]);
 
-return self}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_activateListItem_",
 
-smalltalk.method({
 
-selector: "activateListItem:",
 
-fn: function (aListItem) {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    var parent;
 
-    var position;
 
-    $1 = smalltalk.send(aListItem, "_get_", [0]);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-        return self;
 
-    } else {
 
-    }
 
-    position = aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1;
 
-    parent = smalltalk.send(aListItem, "_parent", []);
 
-    smalltalk.send(smalltalk.send(parent, "_children", []), "_removeClass_", ["active"]);
 
-    smalltalk.send(aListItem, "_addClass_", ["active"]);
 
-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", []), "__lt", [0]);
 
-    if (smalltalk.assert($2)) {
 
-        smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop", []), "__plus", [smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", [])]), "__minus", [10])]);
 
-    }
 
-    $3 = smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", []), "__plus", [smalltalk.send(aListItem, "_height", [])]), "__gt", [smalltalk.send(parent, "_height", [])]);
 
-    if (smalltalk.assert($3)) {
 
-        smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop", []), "__plus", [smalltalk.send(aListItem, "_height", [])]), "__minus", [smalltalk.send(smalltalk.send(parent, "_height", []), "__minus", [smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", [])])]), "__plus", [10])]);
 
-    }
 
-    smalltalk.send(self, "_selectItem_", [smalltalk.send(smalltalk.send(self, "_items", []), "_at_", [smalltalk.send(smalltalk.send(aListItem, "_attr_", ["list-data"]), "_asNumber", [])])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_cssClassForItem_",
 
-smalltalk.method({
 
-selector: "cssClassForItem:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(smalltalk.send(self, "_selectedItem", []), "__eq", [anObject]);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = "active";
 
-    } else {
 
-        $1 = "inactive";
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_defaultItems",
 
-smalltalk.method({
 
-selector: "defaultItems",
 
-fn: function () {
 
-    var self = this;
 
-    return [];
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focus",
 
-smalltalk.method({
 
-selector: "focus",
 
-fn: function (){
 
-var self=this;
 
-var $1,$2;
 
-smalltalk.send(self,"_focus",[],smalltalk.HLFocusableWidget);
 
-$1=smalltalk.send(smalltalk.send(self,"_items",[]),"_isEmpty",[]);
 
-if(! smalltalk.assert($1)){
 
-$2=smalltalk.send(self,"_selectedItem",[]);
 
-if(($receiver = $2) == nil || $receiver == undefined){
 
-smalltalk.send(self,"_activateFirstListItem",[]);
 
-} else {
 
-$2;
 
-};
 
-};
 
-return self}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_iconForItem_",
 
-smalltalk.method({
 
-selector: "iconForItem:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    return "";
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_items",
 
-smalltalk.method({
 
-selector: "items",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
 
-        self['@items'] = smalltalk.send(self, "_defaultItems", []);
 
-        $1 = self['@items'];
 
-    } else {
 
-        $1 = self['@items'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_items_",
 
-smalltalk.method({
 
-selector: "items:",
 
-fn: function (aCollection) {
 
-    var self = this;
 
-    self['@items'] = aCollection;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderButtonsOn_",
 
-smalltalk.method({
 
-selector: "renderButtonsOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3, $4;
 
-    $1 = smalltalk.send(html, "_ul", []);
 
-    smalltalk.send($1, "_class_", ["nav nav-pills nav-stacked"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {return smalltalk.send(self, "_renderListOn_", [html]);}]);
 
-    $3 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($3, "_class_", ["pane_actions form-actions"]);
 
-    $4 = smalltalk.send($3, "_with_", [function () {return smalltalk.send(self, "_renderButtonsOn_", [html]);}]);
 
-    smalltalk.send(self, "_setupKeyBindings", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItem_on_",
 
-smalltalk.method({
 
-selector: "renderItem:on:",
 
-fn: function (anObject, html) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    var li;
 
-    li = smalltalk.send(html, "_li", []);
 
-    smalltalk.send(li, "_class_", [smalltalk.send(self, "_cssClassForItem_", [anObject])]);
 
-    smalltalk.send(li, "_at_put_", ["list-data", smalltalk.send(smalltalk.send(smalltalk.send(self, "_items", []), "_indexOf_", [anObject]), "_asString", [])]);
 
-    $1 = smalltalk.send(li, "_with_", [function () {$2 = smalltalk.send(html, "_a", []);smalltalk.send($2, "_with_", [function () {smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", [smalltalk.send(self, "_iconForItem_", [anObject])]);return smalltalk.send(self, "_renderItemLabel_on_", [anObject, html]);}]);$3 = smalltalk.send($2, "_onClick_", [function () {return smalltalk.send(self, "_activateListItem_", [smalltalk.send(li, "_asJQuery", [])]);}]);return $3;}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItemLabel_on_",
 
-smalltalk.method({
 
-selector: "renderItemLabel:on:",
 
-fn: function (anObject, html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(anObject, "_asString", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderListOn_",
 
-smalltalk.method({
 
-selector: "renderListOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_items", []), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_on_", [each, html]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectedItem_", [anObject]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectedItem",
 
-smalltalk.method({
 
-selector: "selectedItem",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedItem'];
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectedItem_",
 
-smalltalk.method({
 
-selector: "selectedItem:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@selectedItem'] = anObject;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_setupKeyBindings",
 
-smalltalk.method({
 
-selector: "setupKeyBindings",
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    var next;
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_unbind_", ["keydown"]);
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_keydown_", [function (e) {var selected;selected = smalltalk.send(window, "_jQuery_", [".focused .nav-pills .active"]);$1 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [38]);if (smalltalk.assert($1)) {smalltalk.send(self, "_activateListItem_", [smalltalk.send(selected, "_prev", [])]);}$2 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [40]);if (smalltalk.assert($2)) {next = smalltalk.send(selected, "_next", []);next;$3 = smalltalk.send(next, "_get_", [0]);if (($receiver = $3) == nil || $receiver == undefined) {next = smalltalk.send(window, "_jQuery_", [".focused .nav-pills li:first-child"]);next;} else {$3;}return smalltalk.send(self, "_activateListItem_", [next]);}}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLNavigationListWidget', smalltalk.HLListWidget, ['previous', 'next'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_next",
 
-smalltalk.method({
 
-selector: "next",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@next'];
 
-}
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_next_",
 
-smalltalk.method({
 
-selector: "next:",
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    var $1;
 
-    self['@next'] = aWidget;
 
-    $1 = smalltalk.send(smalltalk.send(aWidget, "_previous", []), "__eq", [self]);
 
-    if (!smalltalk.assert($1)) {
 
-        smalltalk.send(aWidget, "_previous_", [self]);
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_nextFocus",
 
-smalltalk.method({
 
-selector: "nextFocus",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_next", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-    } else {
 
-        smalltalk.send(smalltalk.send(self, "_next", []), "_focus", []);
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_previous",
 
-smalltalk.method({
 
-selector: "previous",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@previous'];
 
-}
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_previous_",
 
-smalltalk.method({
 
-selector: "previous:",
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    var $1;
 
-    self['@previous'] = aWidget;
 
-    $1 = smalltalk.send(smalltalk.send(aWidget, "_next", []), "__eq", [self]);
 
-    if (!smalltalk.assert($1)) {
 
-        smalltalk.send(aWidget, "_next_", [self]);
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_previousFocus",
 
-smalltalk.method({
 
-selector: "previousFocus",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_previous", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-    } else {
 
-        smalltalk.send(smalltalk.send(self, "_previous", []), "_focus", []);
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_setupKeyBindings",
 
-smalltalk.method({
 
-selector: "setupKeyBindings",
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2;
 
-    smalltalk.send(self, "_setupKeyBindings", [], smalltalk.HLListWidget);
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_keydown_", [function (e) {$1 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [39]);if (smalltalk.assert($1)) {smalltalk.send(self, "_nextFocus", []);}$2 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [37]);if (smalltalk.assert($2)) {return smalltalk.send(self, "_previousFocus", []);}}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLManager', smalltalk.HLWidget, ['tabs', 'activeTab', 'keyBinder', 'environment'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_activate_",
 
-smalltalk.method({
 
-selector: "activate:",
 
-fn: function (aTab) {
 
-    var self = this;
 
-    var $1;
 
-    smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_flushBindings", []);
 
-    self['@activeTab'] = aTab;
 
-    smalltalk.send(self, "_refresh", []);
 
-    $1 = smalltalk.send(self, "_show_", [aTab]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_activeTab",
 
-smalltalk.method({
 
-selector: "activeTab",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@activeTab'];
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_addTab_",
 
-smalltalk.method({
 
-selector: "addTab:",
 
-fn: function (aTab) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_tabs", []), "_add_", [aTab]);
 
-    smalltalk.send(self, "_activate_", [aTab]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_defaultEnvironment",
 
-smalltalk.method({
 
-selector: "defaultEnvironment",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.HLLocalEnvironment || HLLocalEnvironment, "_new", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        self['@environment'] = smalltalk.send(self, "_defaultEnvironment", []);
 
-        $1 = self['@environment'];
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_initialize",
 
-smalltalk.method({
 
-selector: "initialize",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_initialize", [], smalltalk.HLWidget);
 
-    smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_setupEvents", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_keyBinder",
 
-smalltalk.method({
 
-selector: "keyBinder",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@keyBinder']) == nil || $receiver == undefined) {
 
-        self['@keyBinder'] = smalltalk.send(smalltalk.HLKeyBinder || HLKeyBinder, "_new", []);
 
-        $1 = self['@keyBinder'];
 
-    } else {
 
-        $1 = self['@keyBinder'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_refresh",
 
-smalltalk.method({
 
-selector: "refresh",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", [".navbar"]), "_remove", []);
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["#container"]), "_remove", []);
 
-    smalltalk.send(self, "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_removeTab_",
 
-smalltalk.method({
 
-selector: "removeTab:",
 
-fn: function (aTab) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_tabs", []), "_includes_", [aTab]);
 
-    if (!smalltalk.assert($1)) {
 
-        return self;
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_tabs", []), "_remove_", [aTab]);
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_renderAddOn_",
 
-smalltalk.method({
 
-selector: "renderAddOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $4, $5, $7, $8, $6, $2;
 
-    $1 = smalltalk.send(html, "_li", []);
 
-    smalltalk.send($1, "_class_", ["dropdown"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_a", []);smalltalk.send($3, "_class_", ["dropdown-toggle"]);smalltalk.send($3, "_at_put_", ["data-toggle", "dropdown"]);$4 = smalltalk.send($3, "_with_", [function () {smalltalk.send(html, "_with_", ["Open..."]);return smalltalk.send(smalltalk.send(html, "_tag_", ["b"]), "_class_", ["caret"]);}]);$4;$5 = smalltalk.send(html, "_ul", []);smalltalk.send($5, "_class_", ["dropdown-menu"]);$6 = smalltalk.send($5, "_with_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.HLWidget || HLWidget, "_withAllSubclasses", []), "_select_", [function (each) {return smalltalk.send(each, "_canBeOpenAsTab", []);}]), "_sorted_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_tabPriority", []), "__lt", [smalltalk.send(b, "_tabPriority", [])]);}]), "_do_", [function (each) {return smalltalk.send(smalltalk.send(html, "_li", []), "_with_", [function () {$7 = smalltalk.send(html, "_a", []);smalltalk.send($7, "_with_", [smalltalk.send(each, "_tabLabel", [])]);$8 = smalltalk.send($7, "_onClick_", [function () {return smalltalk.send(each, "_openAsTab", []);}]);return $8;}]);}]);}]);return $6;}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $4, $2;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", ["navbar navbar-fixed-top"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_div", []);smalltalk.send($3, "_class_", ["navbar-inner"]);$4 = smalltalk.send($3, "_with_", [function () {return smalltalk.send(self, "_renderTabsOn_", [html]);}]);return $4;}]);
 
-    smalltalk.send(smalltalk.send(html, "_div", []), "_id_", ["container"]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_renderTabsOn_",
 
-smalltalk.method({
 
-selector: "renderTabsOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $5, $4, $7, $8, $6, $2;
 
-    $1 = smalltalk.send(html, "_ul", []);
 
-    smalltalk.send($1, "_class_", ["nav"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {smalltalk.send(smalltalk.send(self, "_tabs", []), "_do_", [function (each) {$3 = smalltalk.send(html, "_li", []);$5 = smalltalk.send(each, "_isActive", []);if (smalltalk.assert($5)) {$4 = "active";} else {$4 = "inactive";}smalltalk.send($3, "_class_", [$4]);$6 = smalltalk.send($3, "_with_", [function () {$7 = smalltalk.send(html, "_a", []);smalltalk.send($7, "_with_", [function () {smalltalk.send(smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", ["icon-remove-circle"]), "_onClick_", [function () {return smalltalk.send(self, "_removeTab_", [each]);}]);return smalltalk.send(html, "_with_", [smalltalk.send(each, "_label", [])]);}]);$8 = smalltalk.send($7, "_onClick_", [function () {return smalltalk.send(each, "_activate", []);}]);return $8;}]);return $6;}]);return smalltalk.send(self, "_renderAddOn_", [html]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_show_",
 
-smalltalk.method({
 
-selector: "show:",
 
-fn: function (aTab) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["#container"]), "_empty", []);
 
-    smalltalk.send(smalltalk.send(aTab, "_widget", []), "_appendToJQuery_", [smalltalk.send("#container", "_asJQuery", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_tabs",
 
-smalltalk.method({
 
-selector: "tabs",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@tabs']) == nil || $receiver == undefined) {
 
-        self['@tabs'] = smalltalk.send(smalltalk.OrderedCollection || OrderedCollection, "_new", []);
 
-        $1 = self['@tabs'];
 
-    } else {
 
-        $1 = self['@tabs'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLManager);
 
-
 
-
 
-smalltalk.HLManager.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(smalltalk.send(self, "_basicNew", []), "_initialize", []);
 
-        $1 = self['@current'];
 
-    } else {
 
-        $1 = self['@current'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLManager.klass);
 
-
 
-smalltalk.addMethod(
 
-"_initialize",
 
-smalltalk.method({
 
-selector: "initialize",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_current", []), "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager.klass);
 
-
 
-smalltalk.addMethod(
 
-"_new",
 
-smalltalk.method({
 
-selector: "new",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_shouldNotImplement", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLManager.klass);
 
-
 
-
 
-smalltalk.addClass('HLSUnit', smalltalk.HLWidget, [], 'Helios-Core');
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-}
 
-}),
 
-smalltalk.HLSUnit.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-fn: function () {
 
-    var self = this;
 
-    return "SUnit";
 
-}
 
-}),
 
-smalltalk.HLSUnit.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-fn: function () {
 
-    var self = this;
 
-    return 1000;
 
-}
 
-}),
 
-smalltalk.HLSUnit.klass);
 
-
 
-
 
-smalltalk.addClass('HLTranscript', smalltalk.HLWidget, [], 'Helios-Core');
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-}
 
-}),
 
-smalltalk.HLTranscript.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-fn: function () {
 
-    var self = this;
 
-    return "Transcript";
 
-}
 
-}),
 
-smalltalk.HLTranscript.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-fn: function () {
 
-    var self = this;
 
-    return 600;
 
-}
 
-}),
 
-smalltalk.HLTranscript.klass);
 
-
 
-

+ 0 - 1445
js/Helios-Core.js
Xem Tập Tin 

@@ -1,1445 +0,0 @@
 
-smalltalk.addPackage('Helios-Core', {});
 
-smalltalk.addClass('HLTab', smalltalk.Object, ['widget', 'label'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_activate",
 
-smalltalk.method({
 
-selector: "activate",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_manager", []), "_activate_", [self]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "activate\x0a\x09self manager activate: self",
 
-messageSends: ["activate:", "manager"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_add",
 
-smalltalk.method({
 
-selector: "add",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_manager", []), "_addTab_", [self]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "add\x0a\x09self manager addTab: self",
 
-messageSends: ["addTab:", "manager"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_isActive",
 
-smalltalk.method({
 
-selector: "isActive",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_manager", []), "_activeTab", []), "__eq", [self]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "isActive\x0a\x09^ self manager activeTab = self",
 
-messageSends: ["=", "activeTab", "manager"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@label']) == nil || $receiver == undefined) {
 
-        $1 = "";
 
-    } else {
 
-        $1 = self['@label'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ label ifNil: [ '' ]",
 
-messageSends: ["ifNil:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_label_",
 
-smalltalk.method({
 
-selector: "label:",
 
-category: 'accessing',
 
-fn: function (aString) {
 
-    var self = this;
 
-    self['@label'] = aString;
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "label: aString\x0a\x09label := aString",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_manager",
 
-smalltalk.method({
 
-selector: "manager",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.HLManager || HLManager, "_current", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "manager\x0a\x09^ HLManager current",
 
-messageSends: ["current"],
 
-referencedClasses: ["HLManager"]
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_widget",
 
-smalltalk.method({
 
-selector: "widget",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@widget'];
 
-},
 
-args: [],
 
-source: "widget\x0a\x09^ widget",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTab);
 
-
 
-smalltalk.addMethod(
 
-"_widget_",
 
-smalltalk.method({
 
-selector: "widget:",
 
-category: 'accessing',
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    self['@widget'] = aWidget;
 
-    return self;
 
-},
 
-args: ["aWidget"],
 
-source: "widget: aWidget\x0a\x09widget := aWidget",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTab);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_labelled_",
 
-smalltalk.method({
 
-selector: "on:labelled:",
 
-category: 'instance creation',
 
-fn: function (aWidget, aString) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_widget_", [aWidget]);
 
-    smalltalk.send($2, "_label_", [aString]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["aWidget", "aString"],
 
-source: "on: aWidget labelled: aString\x0a\x09^ self new\x0a\x09\x09widget: aWidget;\x0a\x09\x09label: aString;\x0a\x09\x09yourself",
 
-messageSends: ["widget:", "new", "label:", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTab.klass);
 
-
 
-
 
-smalltalk.addClass('HLWidget', smalltalk.Widget, ['wrapper'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_manager",
 
-smalltalk.method({
 
-selector: "manager",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.HLManager || HLManager, "_current", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "manager\x0a\x09^ HLManager current",
 
-messageSends: ["current"],
 
-referencedClasses: ["HLManager"]
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_refresh",
 
-smalltalk.method({
 
-selector: "refresh",
 
-category: 'updating',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_wrapper", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-        return self;
 
-    } else {
 
-    }
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_empty", []);
 
-    smalltalk.send(function (html) {return smalltalk.send(self, "_renderContentOn_", [html]);}, "_appendToJQuery_", [smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "refresh\x0a\x09self wrapper ifNil: [ ^ self ].\x0a    \x0a\x09self wrapper asJQuery empty.\x0a    [ :html | self renderContentOn: html ] appendToJQuery: self wrapper asJQuery",
 
-messageSends: ["ifNil:", "wrapper", "empty", "asJQuery", "appendToJQuery:", "renderContentOn:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_registerBindings",
 
-smalltalk.method({
 
-selector: "registerBindings",
 
-category: 'keybindings',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_registerBindingsOn_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_manager", []), "_keyBinder", []), "_bindings", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "registerBindings\x0a\x09self registerBindingsOn: self manager keyBinder bindings",
 
-messageSends: ["registerBindingsOn:", "bindings", "keyBinder", "manager"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_registerBindingsOn_",
 
-smalltalk.method({
 
-selector: "registerBindingsOn:",
 
-category: 'keybindings',
 
-fn: function (aBindingGroup) {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: ["aBindingGroup"],
 
-source: "registerBindingsOn: aBindingGroup",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_",
 
-smalltalk.method({
 
-selector: "renderOn:",
 
-category: 'rendering',
 
-fn: function (html){
 
-var self=this;
 
-smalltalk.send(self,"_registerBindings",[]);
 
-self["@wrapper"]=smalltalk.send(html,"_div",[]);
 
-smalltalk.send((function(renderer){
 
-return smalltalk.send(self,"_renderContentOn_",[renderer]);
 
-}),"_appendToJQuery_",[smalltalk.send(self["@wrapper"],"_asJQuery",[])]);
 
-return self},
 
-args: ["html"],
 
-source: "renderOn: html\x0a    self registerBindings.\x0a\x0a\x09wrapper := html div.\x0a    [ :renderer | self renderContentOn: renderer ] appendToJQuery: wrapper asJQuery",
 
-messageSends: ["registerBindings", "div", "appendToJQuery:", "asJQuery", "renderContentOn:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-smalltalk.addMethod(
 
-"_wrapper",
 
-smalltalk.method({
 
-selector: "wrapper",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@wrapper'];
 
-},
 
-args: [],
 
-source: "wrapper\x0a\x09^ wrapper",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWidget);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-},
 
-args: [],
 
-source: "canBeOpenAsTab\x0a\x09^ false",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWidget.klass);
 
-
 
-smalltalk.addMethod(
 
-"_openAsTab",
 
-smalltalk.method({
 
-selector: "openAsTab",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_addTab_", [smalltalk.send(smalltalk.HLTab || HLTab, "_on_labelled_", [smalltalk.send(self, "_new", []), smalltalk.send(self, "_tabLabel", [])])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "openAsTab\x0a\x09HLManager current addTab: (HLTab on: self new labelled: self tabLabel)",
 
-messageSends: ["addTab:", "on:labelled:", "new", "tabLabel", "current"],
 
-referencedClasses: ["HLTab", "HLManager"]
 
-}),
 
-smalltalk.HLWidget.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Tab";
 
-},
 
-args: [],
 
-source: "tabLabel\x0a\x09^ 'Tab'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWidget.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 500;
 
-},
 
-args: [],
 
-source: "tabPriority\x0a\x09^ 500",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWidget.klass);
 
-
 
-
 
-smalltalk.addClass('HLDebugger', smalltalk.HLWidget, [], 'Helios-Core');
 
-
 
-
 
-smalltalk.addClass('HLFocusableWidget', smalltalk.HLWidget, ['hiddenInput'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_blur",
 
-smalltalk.method({
 
-selector: "blur",
 
-category: 'events',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_blur", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "blur\x0a\x09hiddenInput asJQuery blur",
 
-messageSends: ["blur", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focus",
 
-smalltalk.method({
 
-selector: "focus",
 
-category: 'events',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_focus", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "focus\x0a\x09hiddenInput asJQuery focus",
 
-messageSends: ["focus", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focusClass",
 
-smalltalk.method({
 
-selector: "focusClass",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "focused";
 
-},
 
-args: [],
 
-source: "focusClass\x0a\x09^ 'focused'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_hasFocus",
 
-smalltalk.method({
 
-selector: "hasFocus",
 
-category: 'events',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_notNil", []), "_and_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_hasClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "hasFocus\x0a\x09^ self wrapper notNil and: [ self wrapper asJQuery hasClass: self focusClass ]",
 
-messageSends: ["and:", "hasClass:", "focusClass", "asJQuery", "wrapper", "notNil"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderHiddenInputOn_",
 
-smalltalk.method({
 
-selector: "renderHiddenInputOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(html, "_input", []);
 
-    smalltalk.send($1, "_style_", ["position: absolute; left: -100000px;"]);
 
-    smalltalk.send($1, "_onBlur_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_removeClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
 
-    $2 = smalltalk.send($1, "_onFocus_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_addClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
 
-    self['@hiddenInput'] = $2;
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderHiddenInputOn: html\x0a\x09hiddenInput := html input\x0a    \x09style: 'position: absolute; left: -100000px;';\x0a    \x09onBlur: [ self wrapper asJQuery removeClass: self focusClass ];\x0a        onFocus: [ self wrapper asJQuery addClass: self focusClass ]",
 
-messageSends: ["style:", "input", "onBlur:", "removeClass:", "focusClass", "asJQuery", "wrapper", "onFocus:", "addClass:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_",
 
-smalltalk.method({
 
-selector: "renderOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2;
 
-    smalltalk.send(self, "_registerBindings", []);
 
-    smalltalk.send(self, "_renderHiddenInputOn_", [html]);
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", ["hl_widget"]);
 
-    smalltalk.send($1, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_focus", []);}]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html]);}]);
 
-    self['@wrapper'] = $2;
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderOn: html\x0a\x09self registerBindings.\x0a\x09self renderHiddenInputOn: html.\x0a    \x0a    wrapper := html div \x0a    \x09class: 'hl_widget'; \x0a        onClick: [ hiddenInput asJQuery focus ];\x0a        with: [\x0a\x09\x09\x09self renderContentOn: html ]",
 
-messageSends: ["registerBindings", "renderHiddenInputOn:", "class:", "div", "onClick:", "focus", "asJQuery", "with:", "renderContentOn:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLFocusableWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLListWidget', smalltalk.HLFocusableWidget, ['items', 'selectedItem'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_activateFirstListItem",
 
-smalltalk.method({
 
-selector: "activateFirstListItem",
 
-category: 'actions',
 
-fn: function (){
 
-var self=this;
 
-smalltalk.send(self,"_activateListItem_",[smalltalk.send(window,"_jQuery_",[smalltalk.send(smalltalk.send(smalltalk.send(self["@wrapper"],"_asJQuery",[]),"_find_",["li"]),"_get_",[(0)])])]);
 
-return self},
 
-args: [],
 
-source: "activateFirstListItem\x0a\x09self activateListItem: (window jQuery: ((wrapper asJQuery find: 'li') get: 0))",
 
-messageSends: ["activateListItem:", "jQuery:", "get:", "find:", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_activateListItem_",
 
-smalltalk.method({
 
-selector: "activateListItem:",
 
-category: 'actions',
 
-fn: function (aListItem) {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    var parent;
 
-    var position;
 
-    $1 = smalltalk.send(aListItem, "_get_", [0]);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-        return self;
 
-    } else {
 
-    }
 
-    position = aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1;
 
-    parent = smalltalk.send(aListItem, "_parent", []);
 
-    smalltalk.send(smalltalk.send(parent, "_children", []), "_removeClass_", ["active"]);
 
-    smalltalk.send(aListItem, "_addClass_", ["active"]);
 
-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", []), "__lt", [0]);
 
-    if (smalltalk.assert($2)) {
 
-        smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop", []), "__plus", [smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", [])]), "__minus", [10])]);
 
-    }
 
-    $3 = smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", []), "__plus", [smalltalk.send(aListItem, "_height", [])]), "__gt", [smalltalk.send(parent, "_height", [])]);
 
-    if (smalltalk.assert($3)) {
 
-        smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop", []), "__plus", [smalltalk.send(aListItem, "_height", [])]), "__minus", [smalltalk.send(smalltalk.send(parent, "_height", []), "__minus", [smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", [])])]), "__plus", [10])]);
 
-    }
 
-    smalltalk.send(self, "_selectItem_", [smalltalk.send(smalltalk.send(self, "_items", []), "_at_", [smalltalk.send(smalltalk.send(aListItem, "_attr_", ["list-data"]), "_asNumber", [])])]);
 
-    return self;
 
-},
 
-args: ["aListItem"],
 
-source: "activateListItem: aListItem\x0a\x09| parent position |\x0a    \x0a\x09(aListItem get: 0) ifNil: [ ^self ].\x0a\x0a\x09<position = aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1>.\x0a\x0a    parent := aListItem parent.\x0a\x09parent children removeClass: 'active'.\x0a\x09aListItem addClass: 'active'.\x0a    \x0a    \x22Move the scrollbar to show the active element\x22\x0a    aListItem position top < 0 ifTrue: [\x0a\x09\x09(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem position top - 10) ].\x0a    aListItem position top + aListItem height > parent height ifTrue: [ \x0a\x09\x09(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem height - (parent height - aListItem position top)) +10 ].\x0a        \x0a   \x22Activate the corresponding item\x22\x0a   self selectItem: (self items at: (aListItem attr: 'list-data') asNumber)",
 
-messageSends: ["ifNil:", "get:", "parent", "removeClass:", "children", "addClass:", "ifTrue:", "scrollTop:", "-", "+", "top", "position", "scrollTop", "<", "height", ">", "selectItem:", "at:", "asNumber", "attr:", "items"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_cssClassForItem_",
 
-smalltalk.method({
 
-selector: "cssClassForItem:",
 
-category: 'accessing',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(smalltalk.send(self, "_selectedItem", []), "__eq", [anObject]);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = "active";
 
-    } else {
 
-        $1 = "inactive";
 
-    }
 
-    return $1;
 
-},
 
-args: ["anObject"],
 
-source: "cssClassForItem: anObject\x0a\x09^ self selectedItem = anObject\x0a\x09\x09\x09ifTrue: [ 'active' ]\x0a\x09\x09\x09ifFalse: [ 'inactive' ]",
 
-messageSends: ["ifTrue:ifFalse:", "=", "selectedItem"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_defaultItems",
 
-smalltalk.method({
 
-selector: "defaultItems",
 
-category: 'defaults',
 
-fn: function () {
 
-    var self = this;
 
-    return [];
 
-},
 
-args: [],
 
-source: "defaultItems\x0a\x09^ #()",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focus",
 
-smalltalk.method({
 
-selector: "focus",
 
-category: 'actions',
 
-fn: function (){
 
-var self=this;
 
-var $1,$2;
 
-smalltalk.send(self,"_focus",[],smalltalk.HLFocusableWidget);
 
-$1=smalltalk.send(smalltalk.send(self,"_items",[]),"_isEmpty",[]);
 
-if(! smalltalk.assert($1)){
 
-$2=smalltalk.send(self,"_selectedItem",[]);
 
-if(($receiver = $2) == nil || $receiver == undefined){
 
-smalltalk.send(self,"_activateFirstListItem",[]);
 
-} else {
 
-$2;
 
-};
 
-};
 
-return self},
 
-args: [],
 
-source: "focus\x0a\x09super focus.\x0a    self items isEmpty ifFalse: [ \x0a\x09\x09self selectedItem ifNil: [ self activateFirstListItem ] ]",
 
-messageSends: ["focus", "ifFalse:", "ifNil:", "activateFirstListItem", "selectedItem", "isEmpty", "items"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_iconForItem_",
 
-smalltalk.method({
 
-selector: "iconForItem:",
 
-category: 'accessing',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    return "";
 
-},
 
-args: ["anObject"],
 
-source: "iconForItem: anObject\x0a\x09^ ''",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_items",
 
-smalltalk.method({
 
-selector: "items",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
 
-        self['@items'] = smalltalk.send(self, "_defaultItems", []);
 
-        $1 = self['@items'];
 
-    } else {
 
-        $1 = self['@items'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "items\x0a\x09^ items ifNil: [ items := self defaultItems ]",
 
-messageSends: ["ifNil:", "defaultItems"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_items_",
 
-smalltalk.method({
 
-selector: "items:",
 
-category: 'accessing',
 
-fn: function (aCollection) {
 
-    var self = this;
 
-    self['@items'] = aCollection;
 
-    return self;
 
-},
 
-args: ["aCollection"],
 
-source: "items: aCollection\x0a\x09items := aCollection",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderButtonsOn_",
 
-smalltalk.method({
 
-selector: "renderButtonsOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderButtonsOn: html",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3, $4;
 
-    $1 = smalltalk.send(html, "_ul", []);
 
-    smalltalk.send($1, "_class_", ["nav nav-pills nav-stacked"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {return smalltalk.send(self, "_renderListOn_", [html]);}]);
 
-    $3 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($3, "_class_", ["pane_actions form-actions"]);
 
-    $4 = smalltalk.send($3, "_with_", [function () {return smalltalk.send(self, "_renderButtonsOn_", [html]);}]);
 
-    smalltalk.send(self, "_setupKeyBindings", []);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a\x09html ul \x0a    \x09class: 'nav nav-pills nav-stacked';\x0a        with: [ self renderListOn: html ].\x0a    html div class: 'pane_actions form-actions'; with: [\x0a      \x09self renderButtonsOn: html ].\x0a        \x0a   self setupKeyBindings",
 
-messageSends: ["class:", "ul", "with:", "renderListOn:", "div", "renderButtonsOn:", "setupKeyBindings"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItem_on_",
 
-smalltalk.method({
 
-selector: "renderItem:on:",
 
-category: 'rendering',
 
-fn: function (anObject, html) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    var li;
 
-    li = smalltalk.send(html, "_li", []);
 
-    smalltalk.send(li, "_class_", [smalltalk.send(self, "_cssClassForItem_", [anObject])]);
 
-    smalltalk.send(li, "_at_put_", ["list-data", smalltalk.send(smalltalk.send(smalltalk.send(self, "_items", []), "_indexOf_", [anObject]), "_asString", [])]);
 
-    $1 = smalltalk.send(li, "_with_", [function () {$2 = smalltalk.send(html, "_a", []);smalltalk.send($2, "_with_", [function () {smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", [smalltalk.send(self, "_iconForItem_", [anObject])]);return smalltalk.send(self, "_renderItemLabel_on_", [anObject, html]);}]);$3 = smalltalk.send($2, "_onClick_", [function () {return smalltalk.send(self, "_activateListItem_", [smalltalk.send(li, "_asJQuery", [])]);}]);return $3;}]);
 
-    return self;
 
-},
 
-args: ["anObject", "html"],
 
-source: "renderItem: anObject on: html\x0a\x09| li |\x0a    \x0a\x09li := html li.\x0a    li\x0a    \x09class: (self cssClassForItem: anObject);\x0a        at: 'list-data' put: (self items indexOf: anObject) asString;\x0a        with: [ \x0a        \x09html a\x0a            \x09with: [ \x0a            \x09\x09(html tag: 'i') class: (self iconForItem: anObject).\x0a  \x09\x09\x09\x09\x09self renderItemLabel: anObject on: html ];\x0a\x09\x09\x09\x09onClick: [\x0a                  \x09self activateListItem: li asJQuery ] ]",
 
-messageSends: ["li", "class:", "cssClassForItem:", "at:put:", "asString", "indexOf:", "items", "with:", "iconForItem:", "tag:", "renderItemLabel:on:", "a", "onClick:", "activateListItem:", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderItemLabel_on_",
 
-smalltalk.method({
 
-selector: "renderItemLabel:on:",
 
-category: 'rendering',
 
-fn: function (anObject, html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(anObject, "_asString", [])]);
 
-    return self;
 
-},
 
-args: ["anObject", "html"],
 
-source: "renderItemLabel: anObject on: html\x0a\x09html with: anObject asString",
 
-messageSends: ["with:", "asString"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderListOn_",
 
-smalltalk.method({
 
-selector: "renderListOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_items", []), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_on_", [each, html]);}]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderListOn: html\x0a\x09self items do: [ :each | \x0a    \x09self renderItem: each on: html ]",
 
-messageSends: ["do:", "renderItem:on:", "items"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-category: 'actions',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectedItem_", [anObject]);
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "selectItem: anObject\x0a\x09self selectedItem: anObject",
 
-messageSends: ["selectedItem:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectedItem",
 
-smalltalk.method({
 
-selector: "selectedItem",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@selectedItem'];
 
-},
 
-args: [],
 
-source: "selectedItem\x0a\x09^ selectedItem",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectedItem_",
 
-smalltalk.method({
 
-selector: "selectedItem:",
 
-category: 'accessing',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@selectedItem'] = anObject;
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "selectedItem: anObject\x0a\x09selectedItem := anObject",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_setupKeyBindings",
 
-smalltalk.method({
 
-selector: "setupKeyBindings",
 
-category: 'events',
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2, $3;
 
-    var next;
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_unbind_", ["keydown"]);
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_keydown_", [function (e) {var selected;selected = smalltalk.send(window, "_jQuery_", [".focused .nav-pills .active"]);$1 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [38]);if (smalltalk.assert($1)) {smalltalk.send(self, "_activateListItem_", [smalltalk.send(selected, "_prev", [])]);}$2 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [40]);if (smalltalk.assert($2)) {next = smalltalk.send(selected, "_next", []);next;$3 = smalltalk.send(next, "_get_", [0]);if (($receiver = $3) == nil || $receiver == undefined) {next = smalltalk.send(window, "_jQuery_", [".focused .nav-pills li:first-child"]);next;} else {$3;}return smalltalk.send(self, "_activateListItem_", [next]);}}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "setupKeyBindings\x0a\x09| next |\x0a\x09hiddenInput asJQuery unbind: 'keydown'.\x0a\x0a\x09hiddenInput asJQuery keydown: [ :e | | selected |\x0a    \x09selected := window jQuery: '.focused .nav-pills .active'.\x0a        e which = 38 ifTrue: [ \x0a        \x09self activateListItem: selected prev ].\x0a      \x09e which = 40 ifTrue: [\x0a          \x09next := selected next.\x0a            (next get: 0) ifNil: [ next := window jQuery: '.focused .nav-pills li:first-child' ].\x0a\x09\x09\x09self activateListItem: next ] ]",
 
-messageSends: ["unbind:", "asJQuery", "keydown:", "jQuery:", "ifTrue:", "activateListItem:", "prev", "=", "which", "next", "ifNil:", "get:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLNavigationListWidget', smalltalk.HLListWidget, ['previous', 'next'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_next",
 
-smalltalk.method({
 
-selector: "next",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@next'];
 
-},
 
-args: [],
 
-source: "next\x0a\x09^ next",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_next_",
 
-smalltalk.method({
 
-selector: "next:",
 
-category: 'accessing',
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    var $1;
 
-    self['@next'] = aWidget;
 
-    $1 = smalltalk.send(smalltalk.send(aWidget, "_previous", []), "__eq", [self]);
 
-    if (!smalltalk.assert($1)) {
 
-        smalltalk.send(aWidget, "_previous_", [self]);
 
-    }
 
-    return self;
 
-},
 
-args: ["aWidget"],
 
-source: "next: aWidget\x0a\x09next := aWidget.\x0a    aWidget previous = self ifFalse: [ aWidget previous: self ]",
 
-messageSends: ["ifFalse:", "previous:", "=", "previous"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_nextFocus",
 
-smalltalk.method({
 
-selector: "nextFocus",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_next", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-    } else {
 
-        smalltalk.send(smalltalk.send(self, "_next", []), "_focus", []);
 
-    }
 
-    return self;
 
-},
 
-args: [],
 
-source: "nextFocus\x0a\x09self next ifNotNil: [ self next focus ]",
 
-messageSends: ["ifNotNil:", "focus", "next"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_previous",
 
-smalltalk.method({
 
-selector: "previous",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@previous'];
 
-},
 
-args: [],
 
-source: "previous\x0a\x09^ previous",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_previous_",
 
-smalltalk.method({
 
-selector: "previous:",
 
-category: 'accessing',
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    var $1;
 
-    self['@previous'] = aWidget;
 
-    $1 = smalltalk.send(smalltalk.send(aWidget, "_next", []), "__eq", [self]);
 
-    if (!smalltalk.assert($1)) {
 
-        smalltalk.send(aWidget, "_next_", [self]);
 
-    }
 
-    return self;
 
-},
 
-args: ["aWidget"],
 
-source: "previous: aWidget\x0a\x09previous := aWidget.\x0a    aWidget next = self ifFalse: [ aWidget next: self ]",
 
-messageSends: ["ifFalse:", "next:", "=", "next"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_previousFocus",
 
-smalltalk.method({
 
-selector: "previousFocus",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_previous", []);
 
-    if (($receiver = $1) == nil || $receiver == undefined) {
 
-    } else {
 
-        smalltalk.send(smalltalk.send(self, "_previous", []), "_focus", []);
 
-    }
 
-    return self;
 
-},
 
-args: [],
 
-source: "previousFocus\x0a\x09self previous ifNotNil: [ self previous focus ]",
 
-messageSends: ["ifNotNil:", "focus", "previous"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-smalltalk.addMethod(
 
-"_setupKeyBindings",
 
-smalltalk.method({
 
-selector: "setupKeyBindings",
 
-category: 'events',
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2;
 
-    smalltalk.send(self, "_setupKeyBindings", [], smalltalk.HLListWidget);
 
-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_keydown_", [function (e) {$1 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [39]);if (smalltalk.assert($1)) {smalltalk.send(self, "_nextFocus", []);}$2 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [37]);if (smalltalk.assert($2)) {return smalltalk.send(self, "_previousFocus", []);}}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "setupKeyBindings\x0a\x09super setupKeyBindings.\x0a\x0a\x09hiddenInput asJQuery keydown: [ :e |\x0a        e which = 39 ifTrue: [ \x0a        \x09self nextFocus ].\x0a\x09\x09e which = 37 ifTrue: [ \x0a        \x09self previousFocus ] ]",
 
-messageSends: ["setupKeyBindings", "keydown:", "ifTrue:", "nextFocus", "=", "which", "previousFocus", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLNavigationListWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLManager', smalltalk.HLWidget, ['tabs', 'activeTab', 'keyBinder', 'environment'], 'Helios-Core');
 
-smalltalk.addMethod(
 
-"_activate_",
 
-smalltalk.method({
 
-selector: "activate:",
 
-category: 'actions',
 
-fn: function (aTab) {
 
-    var self = this;
 
-    var $1;
 
-    smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_flushBindings", []);
 
-    self['@activeTab'] = aTab;
 
-    smalltalk.send(self, "_refresh", []);
 
-    $1 = smalltalk.send(self, "_show_", [aTab]);
 
-    return self;
 
-},
 
-args: ["aTab"],
 
-source: "activate: aTab\x0a\x09self keyBinder flushBindings.\x0a\x09activeTab := aTab.\x0a    \x0a\x09self \x0a\x09\x09refresh;\x0a\x09\x09show: aTab",
 
-messageSends: ["flushBindings", "keyBinder", "refresh", "show:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_activeTab",
 
-smalltalk.method({
 
-selector: "activeTab",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@activeTab'];
 
-},
 
-args: [],
 
-source: "activeTab\x0a\x09^ activeTab",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_addTab_",
 
-smalltalk.method({
 
-selector: "addTab:",
 
-category: 'actions',
 
-fn: function (aTab) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_tabs", []), "_add_", [aTab]);
 
-    smalltalk.send(self, "_activate_", [aTab]);
 
-    return self;
 
-},
 
-args: ["aTab"],
 
-source: "addTab: aTab\x0a\x09self tabs add: aTab.\x0a    self activate: aTab",
 
-messageSends: ["add:", "tabs", "activate:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_defaultEnvironment",
 
-smalltalk.method({
 
-selector: "defaultEnvironment",
 
-category: 'defaults',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.HLLocalEnvironment || HLLocalEnvironment, "_new", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "defaultEnvironment\x0a\x09^ HLLocalEnvironment new",
 
-messageSends: ["new"],
 
-referencedClasses: ["HLLocalEnvironment"]
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        self['@environment'] = smalltalk.send(self, "_defaultEnvironment", []);
 
-        $1 = self['@environment'];
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "environment\x0a\x09\x22The default environment used by all Helios objects\x22\x0a    \x0a\x09^ environment ifNil: [ environment := self defaultEnvironment ]",
 
-messageSends: ["ifNil:", "defaultEnvironment"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-category: 'accessing',
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-},
 
-args: ["anEnvironment"],
 
-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_initialize",
 
-smalltalk.method({
 
-selector: "initialize",
 
-category: 'initialization',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_initialize", [], smalltalk.HLWidget);
 
-    smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_setupEvents", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "initialize\x0a\x09super initialize.\x0a    self keyBinder setupEvents",
 
-messageSends: ["initialize", "setupEvents", "keyBinder"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_keyBinder",
 
-smalltalk.method({
 
-selector: "keyBinder",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@keyBinder']) == nil || $receiver == undefined) {
 
-        self['@keyBinder'] = smalltalk.send(smalltalk.HLKeyBinder || HLKeyBinder, "_new", []);
 
-        $1 = self['@keyBinder'];
 
-    } else {
 
-        $1 = self['@keyBinder'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "keyBinder\x0a\x09^ keyBinder ifNil: [ keyBinder := HLKeyBinder new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["HLKeyBinder"]
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_refresh",
 
-smalltalk.method({
 
-selector: "refresh",
 
-category: 'rendering',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", [".navbar"]), "_remove", []);
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["#container"]), "_remove", []);
 
-    smalltalk.send(self, "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "refresh\x0a\x09(window jQuery: '.navbar') remove.\x0a\x09(window jQuery: '#container') remove.\x0a\x09self appendToJQuery: 'body' asJQuery",
 
-messageSends: ["remove", "jQuery:", "appendToJQuery:", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_removeTab_",
 
-smalltalk.method({
 
-selector: "removeTab:",
 
-category: 'actions',
 
-fn: function (aTab) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_tabs", []), "_includes_", [aTab]);
 
-    if (!smalltalk.assert($1)) {
 
-        return self;
 
-    }
 
-    smalltalk.send(smalltalk.send(self, "_tabs", []), "_remove_", [aTab]);
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-},
 
-args: ["aTab"],
 
-source: "removeTab: aTab\x0a\x09\x22Todo: activate the previously activated tab. Keep a history of tabs selection\x22\x0a\x0a\x09(self tabs includes: aTab) ifFalse: [ ^ self ].\x0a\x0a\x09self tabs remove: aTab.\x0a\x09self refresh",
 
-messageSends: ["ifFalse:", "includes:", "tabs", "remove:", "refresh"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_renderAddOn_",
 
-smalltalk.method({
 
-selector: "renderAddOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $4, $5, $7, $8, $6, $2;
 
-    $1 = smalltalk.send(html, "_li", []);
 
-    smalltalk.send($1, "_class_", ["dropdown"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_a", []);smalltalk.send($3, "_class_", ["dropdown-toggle"]);smalltalk.send($3, "_at_put_", ["data-toggle", "dropdown"]);$4 = smalltalk.send($3, "_with_", [function () {smalltalk.send(html, "_with_", ["Open..."]);return smalltalk.send(smalltalk.send(html, "_tag_", ["b"]), "_class_", ["caret"]);}]);$4;$5 = smalltalk.send(html, "_ul", []);smalltalk.send($5, "_class_", ["dropdown-menu"]);$6 = smalltalk.send($5, "_with_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.HLWidget || HLWidget, "_withAllSubclasses", []), "_select_", [function (each) {return smalltalk.send(each, "_canBeOpenAsTab", []);}]), "_sorted_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_tabPriority", []), "__lt", [smalltalk.send(b, "_tabPriority", [])]);}]), "_do_", [function (each) {return smalltalk.send(smalltalk.send(html, "_li", []), "_with_", [function () {$7 = smalltalk.send(html, "_a", []);smalltalk.send($7, "_with_", [smalltalk.send(each, "_tabLabel", [])]);$8 = smalltalk.send($7, "_onClick_", [function () {return smalltalk.send(each, "_openAsTab", []);}]);return $8;}]);}]);}]);return $6;}]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderAddOn: html\x0a    html li \x0a    \x09class: 'dropdown';\x0a        with: [ \x0a\x09\x09\x09html a \x0a        \x09\x09class: 'dropdown-toggle';\x0a           \x09 \x09at: 'data-toggle' put: 'dropdown';\x0a            \x09with: [ \x0a            \x09\x09html with: 'Open...'.\x0a  \x09\x09\x09\x09\x09(html tag: 'b') class: 'caret' ].\x0a           html ul \x0a           \x09\x09class: 'dropdown-menu';\x0a                with: [\x0a                  \x09((HLWidget withAllSubclasses\x0a                    \x09select: [ :each | each canBeOpenAsTab ])\x0a                        sorted: [ :a :b | a tabPriority < b tabPriority ])\x0a                        do: [ :each |\x0a  \x09\x09\x09\x09\x09\x09\x09html li with: [\x0a                      \x09\x09\x09html a \x0a                                \x09with: each tabLabel;\x0a      \x09\x09\x09\x09\x09\x09\x09\x09onClick: [ each openAsTab ] ] ] ] ]",
 
-messageSends: ["class:", "li", "with:", "a", "at:put:", "tag:", "ul", "do:", "tabLabel", "onClick:", "openAsTab", "sorted:", "<", "tabPriority", "select:", "canBeOpenAsTab", "withAllSubclasses"],
 
-referencedClasses: ["HLWidget"]
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $4, $2;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", ["navbar navbar-fixed-top"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_div", []);smalltalk.send($3, "_class_", ["navbar-inner"]);$4 = smalltalk.send($3, "_with_", [function () {return smalltalk.send(self, "_renderTabsOn_", [html]);}]);return $4;}]);
 
-    smalltalk.send(smalltalk.send(html, "_div", []), "_id_", ["container"]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a\x09html div \x0a\x09\x09class: 'navbar navbar-fixed-top';\x0a\x09\x09with: [ html div \x0a\x09\x09\x09class: 'navbar-inner';\x0a\x09\x09\x09with: [ self renderTabsOn: html ] ].\x0a\x09html div id: 'container'",
 
-messageSends: ["class:", "div", "with:", "renderTabsOn:", "id:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_renderTabsOn_",
 
-smalltalk.method({
 
-selector: "renderTabsOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $5, $4, $7, $8, $6, $2;
 
-    $1 = smalltalk.send(html, "_ul", []);
 
-    smalltalk.send($1, "_class_", ["nav"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {smalltalk.send(smalltalk.send(self, "_tabs", []), "_do_", [function (each) {$3 = smalltalk.send(html, "_li", []);$5 = smalltalk.send(each, "_isActive", []);if (smalltalk.assert($5)) {$4 = "active";} else {$4 = "inactive";}smalltalk.send($3, "_class_", [$4]);$6 = smalltalk.send($3, "_with_", [function () {$7 = smalltalk.send(html, "_a", []);smalltalk.send($7, "_with_", [function () {smalltalk.send(smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", ["icon-remove-circle"]), "_onClick_", [function () {return smalltalk.send(self, "_removeTab_", [each]);}]);return smalltalk.send(html, "_with_", [smalltalk.send(each, "_label", [])]);}]);$8 = smalltalk.send($7, "_onClick_", [function () {return smalltalk.send(each, "_activate", []);}]);return $8;}]);return $6;}]);return smalltalk.send(self, "_renderAddOn_", [html]);}]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderTabsOn: html\x0a\x09html ul \x0a\x09\x09class: 'nav';\x0a\x09\x09with: [ \x0a        \x09self tabs do: [ :each |\x0a\x09\x09\x09\x09html li \x0a\x09\x09\x09\x09\x09class: (each isActive ifTrue: [ 'active' ] ifFalse: [ 'inactive' ]);\x0a\x09\x09\x09\x09\x09with: [\x0a\x09\x09\x09\x09\x09\x09html a\x0a\x09\x09\x09\x09\x09\x09\x09with: [\x0a      \x09\x09\x09\x09\x09\x09\x09((html tag: 'i') class: 'icon-remove-circle')\x0a  \x09\x09\x09\x09\x09\x09\x09\x09\x09onClick: [ self removeTab: each ].\x0a                              \x09html with: each label ];\x0a\x09\x09\x09\x09\x09\x09\x09onClick: [ each activate ] ] ].\x0a\x09\x09\x09self renderAddOn: html ]",
 
-messageSends: ["class:", "ul", "with:", "do:", "ifTrue:ifFalse:", "isActive", "li", "onClick:", "removeTab:", "tag:", "label", "a", "activate", "tabs", "renderAddOn:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_show_",
 
-smalltalk.method({
 
-selector: "show:",
 
-category: 'rendering',
 
-fn: function (aTab) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["#container"]), "_empty", []);
 
-    smalltalk.send(smalltalk.send(aTab, "_widget", []), "_appendToJQuery_", [smalltalk.send("#container", "_asJQuery", [])]);
 
-    return self;
 
-},
 
-args: ["aTab"],
 
-source: "show: aTab\x0a\x09(window jQuery: '#container') empty.\x0a\x09aTab widget appendToJQuery: '#container' asJQuery",
 
-messageSends: ["empty", "jQuery:", "appendToJQuery:", "asJQuery", "widget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager);
 
-
 
-smalltalk.addMethod(
 
-"_tabs",
 
-smalltalk.method({
 
-selector: "tabs",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@tabs']) == nil || $receiver == undefined) {
 
-        self['@tabs'] = smalltalk.send(smalltalk.OrderedCollection || OrderedCollection, "_new", []);
 
-        $1 = self['@tabs'];
 
-    } else {
 
-        $1 = self['@tabs'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "tabs\x0a\x09^ tabs ifNil: [ tabs := OrderedCollection new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["OrderedCollection"]
 
-}),
 
-smalltalk.HLManager);
 
-
 
-
 
-smalltalk.HLManager.klass.iVarNames = ['current'];
 
-smalltalk.addMethod(
 
-"_current",
 
-smalltalk.method({
 
-selector: "current",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@current']) == nil || $receiver == undefined) {
 
-        self['@current'] = smalltalk.send(smalltalk.send(self, "_basicNew", []), "_initialize", []);
 
-        $1 = self['@current'];
 
-    } else {
 
-        $1 = self['@current'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "current\x0a\x09^ current ifNil: [ current := self basicNew initialize ]",
 
-messageSends: ["ifNil:", "initialize", "basicNew"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager.klass);
 
-
 
-smalltalk.addMethod(
 
-"_initialize",
 
-smalltalk.method({
 
-selector: "initialize",
 
-category: 'initialization',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_current", []), "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "initialize\x0a\x09self current appendToJQuery: 'body' asJQuery",
 
-messageSends: ["appendToJQuery:", "asJQuery", "current"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager.klass);
 
-
 
-smalltalk.addMethod(
 
-"_new",
 
-smalltalk.method({
 
-selector: "new",
 
-category: 'instance creation',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_shouldNotImplement", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "new\x0a\x09\x22Use current instead\x22\x0a\x0a\x09self shouldNotImplement",
 
-messageSends: ["shouldNotImplement"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLManager.klass);
 
-
 
-
 
-smalltalk.addClass('HLSUnit', smalltalk.HLWidget, [], 'Helios-Core');
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-},
 
-args: [],
 
-source: "canBeOpenAsTab\x0a\x09^ true",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSUnit.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "SUnit";
 
-},
 
-args: [],
 
-source: "tabLabel\x0a\x09^ 'SUnit'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSUnit.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 1000;
 
-},
 
-args: [],
 
-source: "tabPriority\x0a\x09^ 1000",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSUnit.klass);
 
-
 
-
 
-smalltalk.addClass('HLTranscript', smalltalk.HLWidget, [], 'Helios-Core');
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-},
 
-args: [],
 
-source: "canBeOpenAsTab\x0a\x09^ true",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTranscript.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Transcript";
 
-},
 
-args: [],
 
-source: "tabLabel\x0a\x09^ 'Transcript'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTranscript.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 600;
 
-},
 
-args: [],
 
-source: "tabPriority\x0a\x09^ 600",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLTranscript.klass);
 
-
 
-

+ 0 - 132
js/Helios-Environments.deploy.js
Xem Tập Tin 

@@ -1,132 +0,0 @@
 
-smalltalk.addPackage('Helios-Environments', {});
 
-smalltalk.addClass('HLEnvironment', smalltalk.Object, [], 'Helios-Environments');
 
-smalltalk.addMethod(
 
-"_eval_on_",
 
-smalltalk.method({
 
-selector: "eval:on:",
 
-fn: function (someCode, aReceiver) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_subclassResponsibility", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLEnvironment);
 
-
 
-smalltalk.addMethod(
 
-"_packages",
 
-smalltalk.method({
 
-selector: "packages",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_subclassResponsibility", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLEnvironment);
 
-
 
-
 
-
 
-smalltalk.addClass('HLLocalEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
 
-smalltalk.addMethod(
 
-"_eval_on_",
 
-smalltalk.method({
 
-selector: "eval:on:",
 
-fn: function (someCode, aReceiver) {
 
-    var self = this;
 
-    var $1, $2;
 
-    var $early = {};
 
-    try {
 
-        var compiler;
 
-        compiler = smalltalk.send(smalltalk.Compiler || Compiler, "_new", []);
 
-        smalltalk.send(function () {return smalltalk.send(compiler, "_parseExpression_", [someCode]);}, "_on_do_", [smalltalk.Error || Error, function (ex) {$1 = smalltalk.send(window, "_alert_", [smalltalk.send(ex, "_messageText", [])]);throw $early = [$1];}]);
 
-        $2 = smalltalk.send(smalltalk.send(smalltalk.send(compiler, "_eval_", [smalltalk.send(compiler, "_compile_forClass_", [smalltalk.send(smalltalk.send("doIt ^[", "__comma", [someCode]), "__comma", ["] value"]), smalltalk.DoIt || DoIt])]), "_fn", []), "_applyTo_arguments_", [aReceiver, []]);
 
-        return $2;
 
-    } catch (e) {
 
-        if (e === $early) {
 
-            return e[0];
 
-        }
 
-        throw e;
 
-    }
 
-}
 
-}),
 
-smalltalk.HLLocalEnvironment);
 
-
 
-smalltalk.addMethod(
 
-"_packages",
 
-smalltalk.method({
 
-selector: "packages",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.Smalltalk || Smalltalk, "_current", []), "_packages", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLLocalEnvironment);
 
-
 
-
 
-
 
-smalltalk.addClass('HLRemoteEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
 
-smalltalk.addMethod(
 
-"_eval_on_",
 
-smalltalk.method({
 
-selector: "eval:on:",
 
-fn: function (someCode, aReceiver) {
 
-    var self = this;
 
-    smalltalk.send(self, "_notYetImplemented", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLRemoteEnvironment);
 
-
 
-smalltalk.addMethod(
 
-"_packages",
 
-smalltalk.method({
 
-selector: "packages",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLRemoteEnvironment);
 
-
 
-
 
-
 
-smalltalk.addClass('HLRemoteObject', smalltalk.Object, [], 'Helios-Environments');
 
-smalltalk.addMethod(
 
-"_doesNotUnderstand_",
 
-smalltalk.method({
 
-selector: "doesNotUnderstand:",
 
-fn: function (aMessage) {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLRemoteObject);
 
-
 
-smalltalk.addMethod(
 
-"_inspectOn_",
 
-smalltalk.method({
 
-selector: "inspectOn:",
 
-fn: function (anInspector) {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLRemoteObject);
 
-
 
-smalltalk.addMethod(
 
-"_printString",
 
-smalltalk.method({
 
-selector: "printString",
 
-fn: function () {
 
-    var self = this;
 
-    return "this is a remote object";
 
-}
 
-}),
 
-smalltalk.HLRemoteObject);
 
-
 
-
 
-

+ 0 - 179
js/Helios-Environments.js
Xem Tập Tin 

@@ -1,179 +0,0 @@
 
-smalltalk.addPackage('Helios-Environments', {});
 
-smalltalk.addClass('HLEnvironment', smalltalk.Object, [], 'Helios-Environments');
 
-smalltalk.HLEnvironment.comment="Abstract class defining common behavior for local and remote environments"
 
-smalltalk.addMethod(
 
-"_eval_on_",
 
-smalltalk.method({
 
-selector: "eval:on:",
 
-category: 'actions',
 
-fn: function (someCode, aReceiver) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_subclassResponsibility", []);
 
-    return $1;
 
-},
 
-args: ["someCode", "aReceiver"],
 
-source: "eval: someCode on: aReceiver\x0a\x0a\x09^ self subclassResponsibility",
 
-messageSends: ["subclassResponsibility"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLEnvironment);
 
-
 
-smalltalk.addMethod(
 
-"_packages",
 
-smalltalk.method({
 
-selector: "packages",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_subclassResponsibility", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "packages\x0a\x0a\x09^ self subclassResponsibility",
 
-messageSends: ["subclassResponsibility"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLEnvironment);
 
-
 
-
 
-
 
-smalltalk.addClass('HLLocalEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
 
-smalltalk.addMethod(
 
-"_eval_on_",
 
-smalltalk.method({
 
-selector: "eval:on:",
 
-category: 'actions',
 
-fn: function (someCode, aReceiver) {
 
-    var self = this;
 
-    var $1, $2;
 
-    var $early = {};
 
-    try {
 
-        var compiler;
 
-        compiler = smalltalk.send(smalltalk.Compiler || Compiler, "_new", []);
 
-        smalltalk.send(function () {return smalltalk.send(compiler, "_parseExpression_", [someCode]);}, "_on_do_", [smalltalk.Error || Error, function (ex) {$1 = smalltalk.send(window, "_alert_", [smalltalk.send(ex, "_messageText", [])]);throw $early = [$1];}]);
 
-        $2 = smalltalk.send(smalltalk.send(smalltalk.send(compiler, "_eval_", [smalltalk.send(compiler, "_compile_forClass_", [smalltalk.send(smalltalk.send("doIt ^[", "__comma", [someCode]), "__comma", ["] value"]), smalltalk.DoIt || DoIt])]), "_fn", []), "_applyTo_arguments_", [aReceiver, []]);
 
-        return $2;
 
-    } catch (e) {
 
-        if (e === $early) {
 
-            return e[0];
 
-        }
 
-        throw e;
 
-    }
 
-},
 
-args: ["someCode", "aReceiver"],
 
-source: "eval: someCode on: aReceiver\x0a\x09| compiler  |\x0a\x09compiler := Compiler new.\x0a\x09[compiler parseExpression: someCode] on: Error do: [:ex |\x0a\x09\x09^window alert: ex messageText].\x0a\x09^(compiler eval: (compiler compile: 'doIt ^[', someCode, '] value' forClass: DoIt)) fn applyTo: aReceiver arguments: #()",
 
-messageSends: ["new", "on:do:", "alert:", "messageText", "parseExpression:", "applyTo:arguments:", "fn", "eval:", "compile:forClass:", ","],
 
-referencedClasses: ["Compiler", "Error", "DoIt"]
 
-}),
 
-smalltalk.HLLocalEnvironment);
 
-
 
-smalltalk.addMethod(
 
-"_packages",
 
-smalltalk.method({
 
-selector: "packages",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.Smalltalk || Smalltalk, "_current", []), "_packages", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "packages\x0a\x0a\x09^ Smalltalk current packages",
 
-messageSends: ["packages", "current"],
 
-referencedClasses: ["Smalltalk"]
 
-}),
 
-smalltalk.HLLocalEnvironment);
 
-
 
-
 
-
 
-smalltalk.addClass('HLRemoteEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
 
-smalltalk.addMethod(
 
-"_eval_on_",
 
-smalltalk.method({
 
-selector: "eval:on:",
 
-category: 'actions',
 
-fn: function (someCode, aReceiver) {
 
-    var self = this;
 
-    smalltalk.send(self, "_notYetImplemented", []);
 
-    return self;
 
-},
 
-args: ["someCode", "aReceiver"],
 
-source: "eval: someCode on: aReceiver\x0a\x0a\x09\x22Note for future self and friends:\x0a    whatever way this compilation happens on the other side, \x0a    it should return a proxy to the remote resulting object\x22\x0a    \x0a    self notYetImplemented",
 
-messageSends: ["notYetImplemented"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLRemoteEnvironment);
 
-
 
-smalltalk.addMethod(
 
-"_packages",
 
-smalltalk.method({
 
-selector: "packages",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "packages\x0a\x09\x22Answer the remote environment's packages\x22\x0a  \x0a\x09\x22to-do\x22\x0a    \x0a    \x22Note for future self and friends:\x0a    the problem with remote stuff is that the answers shouldn't be expected to be\x0a    received in a syncrhonous fashion. Everything network is asyc, so you *are going to deal with callbacks* here\x22",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLRemoteEnvironment);
 
-
 
-
 
-
 
-smalltalk.addClass('HLRemoteObject', smalltalk.Object, [], 'Helios-Environments');
 
-smalltalk.HLRemoteObject.comment="This is a local proxy to a remote object.\x0aTipically useful for evaluating and inspecting and interacting with instances of a remote VM.\x0a"
 
-smalltalk.addMethod(
 
-"_doesNotUnderstand_",
 
-smalltalk.method({
 
-selector: "doesNotUnderstand:",
 
-category: 'actions',
 
-fn: function (aMessage) {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: ["aMessage"],
 
-source: "doesNotUnderstand: aMessage\x0a\x0a\x09\x22to-do\x0a\x0a\x09aham, blah blah\x0a\x0a\x09super doesNotUnderstand: aMessage\x22",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLRemoteObject);
 
-
 
-smalltalk.addMethod(
 
-"_inspectOn_",
 
-smalltalk.method({
 
-selector: "inspectOn:",
 
-category: 'actions',
 
-fn: function (anInspector) {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: ["anInspector"],
 
-source: "inspectOn: anInspector\x0a\x0a\x09\x22to-do\x22\x0a\x0a\x09\x22this is a source of so much fun...\x22\x0a",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLRemoteObject);
 
-
 
-smalltalk.addMethod(
 
-"_printString",
 
-smalltalk.method({
 
-selector: "printString",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    return "this is a remote object";
 
-},
 
-args: [],
 
-source: "printString\x0a\x09^ 'this is a remote object'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLRemoteObject);
 
-
 
-
 
-

+ 0 - 855
js/Helios-Inspector.deploy.js
Xem Tập Tin 

@@ -1,855 +0,0 @@
 
-smalltalk.addPackage('Helios-Inspector', {});
 
-smalltalk.addClass('HLInspector', smalltalk.HLWidget, ['model', 'variablesWidget', 'displayWidget', 'codeWidget', 'label'], 'Helios-Inspector');
 
-smalltalk.addMethod(
 
-"_codeWidget",
 
-smalltalk.method({
 
-selector: "codeWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
 
-        $2 = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
 
-        smalltalk.send($2, "_model_", [smalltalk.send(self['@model'], "_code", [])]);
 
-        smalltalk.send($2, "_receiver_", [smalltalk.send(self['@model'], "_inspectee", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        self['@codeWidget'] = $3;
 
-        $1 = self['@codeWidget'];
 
-    } else {
 
-        $1 = self['@codeWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_displayWidget",
 
-smalltalk.method({
 
-selector: "displayWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    if (($receiver = self['@displayWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        $2 = smalltalk.send(smalltalk.HLInspectorDisplayWidget || HLInspectorDisplayWidget, "_new", []);
 
-        smalltalk.send($2, "_model_", [smalltalk.send(self, "_model", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        self['@displayWidget'] = $3;
 
-        $1 = self['@displayWidget'];
 
-    } else {
 
-        $1 = self['@displayWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_inspect_",
 
-smalltalk.method({
 
-selector: "inspect:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    var $1;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_inspect_on_", [anObject, self]);
 
-    smalltalk.send(self, "_refreshVariablesWidget", []);
 
-    $1 = smalltalk.send(self, "_refreshDisplayWidget", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_inspectee",
 
-smalltalk.method({
 
-selector: "inspectee",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_inspectee", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_inspectee_",
 
-smalltalk.method({
 
-selector: "inspectee:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_inspectee_", [anObject]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@label']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(self['@model'], "_inspectee", []), "_printString", []);
 
-    } else {
 
-        $1 = self['@label'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
 
-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLInspectorModel || HLInspectorModel, "_new", [])]);
 
-        $1 = self['@model'];
 
-    } else {
 
-        $1 = self['@model'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-fn: function (aModel) {
 
-    var self = this;
 
-    var $1;
 
-    self['@model'] = aModel;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_model_", [smalltalk.send(aModel, "_code", [])]);
 
-    smalltalk.send(self, "_observeCodeWidget", []);
 
-    smalltalk.send(self, "_observeVariablesWidget", []);
 
-    $1 = smalltalk.send(self, "_observeModel", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_observeCodeWidget",
 
-smalltalk.method({
 
-selector: "observeCodeWidget",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_announcer", []), "_on_do_", [smalltalk.HLDoItExecuted || HLDoItExecuted, function () {return smalltalk.send(self, "_onDoneIt", []);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected, function (ann) {return smalltalk.send(self, "_onInstanceVariableSelected", []);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_observeVariablesWidget",
 
-smalltalk.method({
 
-selector: "observeVariablesWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_variablesWidget", []), "_announcer", []);
 
-    smalltalk.send($1, "_on_do_", [smalltalk.HLRefreshRequested || HLRefreshRequested, function (ann) {return smalltalk.send(self, "_onRefresh", []);}]);
 
-    $2 = smalltalk.send($1, "_on_do_", [smalltalk.HLDiveRequested || HLDiveRequested, function () {return smalltalk.send(self, "_onDive", []);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onDive",
 
-smalltalk.method({
 
-selector: "onDive",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_inspect_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVarObject", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onDoneIt",
 
-smalltalk.method({
 
-selector: "onDoneIt",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onInspectIt",
 
-smalltalk.method({
 
-selector: "onInspectIt",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onInstanceVariableSelected",
 
-smalltalk.method({
 
-selector: "onInstanceVariableSelected",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_receiver_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVarObject", [])]);
 
-    smalltalk.send(self, "_refreshDisplayWidget", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onPrintIt",
 
-smalltalk.method({
 
-selector: "onPrintIt",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onRefresh",
 
-smalltalk.method({
 
-selector: "onRefresh",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_open",
 
-smalltalk.method({
 
-selector: "open",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_addTab_", [smalltalk.send(smalltalk.HLTab || HLTab, "_on_labelled_", [self, smalltalk.send(self, "_tabLabel", [])])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_refresh",
 
-smalltalk.method({
 
-selector: "refresh",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_inspect_", [smalltalk.send(self, "_inspectee", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_refreshDisplayWidget",
 
-smalltalk.method({
 
-selector: "refreshDisplayWidget",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_displayWidget", []), "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_refreshVariablesWidget",
 
-smalltalk.method({
 
-selector: "refreshVariablesWidget",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_variablesWidget", []), "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(smalltalk.HLContainer || HLContainer, "_with_", [smalltalk.send(smalltalk.HLHorizontalSplitter || HLHorizontalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_variablesWidget", []), smalltalk.send(self, "_displayWidget", [])]), smalltalk.send(self, "_codeWidget", [])])])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_setLabel_",
 
-smalltalk.method({
 
-selector: "setLabel:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    self['@label'] = aString;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_setVariables_",
 
-smalltalk.method({
 
-selector: "setVariables:",
 
-fn: function (aDictionary) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_variables_", [aDictionary]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_label", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_variablesWidget",
 
-smalltalk.method({
 
-selector: "variablesWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    if (($receiver = self['@variablesWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        $2 = smalltalk.send(smalltalk.HLInspectorVariablesWidget ||
 
-            HLInspectorVariablesWidget, "_new", []);
 
-        smalltalk.send($2, "_model_", [smalltalk.send(self, "_model", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        self['@variablesWidget'] = $3;
 
-        $1 = self['@variablesWidget'];
 
-    } else {
 
-        $1 = self['@variablesWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-}
 
-}),
 
-smalltalk.HLInspector.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-fn: function () {
 
-    var self = this;
 
-    return "Inspector";
 
-}
 
-}),
 
-smalltalk.HLInspector.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-fn: function () {
 
-    var self = this;
 
-    return 10;
 
-}
 
-}),
 
-smalltalk.HLInspector.klass);
 
-
 
-
 
-smalltalk.addClass('HLInspectorDisplayWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Inspector');
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-}
 
-}),
 
-smalltalk.HLInspectorDisplayWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@model'] = aModel;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorDisplayWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(html, "_div", []), "_with_", [smalltalk.send(self, "_selectionDisplayString", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorDisplayWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionDisplayString",
 
-smalltalk.method({
 
-selector: "selectionDisplayString",
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $1;
 
-    var selection;
 
-    selection = smalltalk.send(self['@model'], "_selection", []);
 
-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(self['@model'], "_variables", []), "_keys", []), "_includes_", [selection]);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = smalltalk.send(smalltalk.send(self['@model'], "_instVarObjectAt_", [selection]), "_printString", []);
 
-    } else {
 
-        $1 = "";
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorDisplayWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLInspectorModel', smalltalk.Object, ['announcer', 'environment', 'inspectee', 'code', 'variables', 'selection'], 'Helios-Inspector');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_code",
 
-smalltalk.method({
 
-selector: "code",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@code']) == nil || $receiver == undefined) {
 
-        self['@code'] = smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_on_", [smalltalk.send(self, "_environment", [])]);
 
-        $1 = self['@code'];
 
-    } else {
 
-        $1 = self['@code'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_inspect_on_",
 
-smalltalk.method({
 
-selector: "inspect:on:",
 
-fn: function (anObject, anInspector) {
 
-    var self = this;
 
-    self['@inspectee'] = anObject;
 
-    self['@variables'] = [];
 
-    smalltalk.send(self['@inspectee'], "_inspectOn_", [anInspector]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_inspectee",
 
-smalltalk.method({
 
-selector: "inspectee",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@inspectee'];
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_inspectee_",
 
-smalltalk.method({
 
-selector: "inspectee:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@inspectee'] = anObject;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_instVarObjectAt_",
 
-smalltalk.method({
 
-selector: "instVarObjectAt:",
 
-fn: function (anInstVarName) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_variables", []), "_at_", [anInstVarName]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_onKeyDown_",
 
-smalltalk.method({
 
-selector: "onKeyDown:",
 
-fn: function (anEvent) {
 
-    var self = this;
 
-    if (anEvent.ctrlKey) {
 
-        if (anEvent.keyCode === 80) {
 
-            self._printIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 68) {
 
-            self._doIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 73) {
 
-            self._inspectIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedInstVar_",
 
-smalltalk.method({
 
-selector: "selectedInstVar:",
 
-fn: function (anInstVarName) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selection_", [anInstVarName]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedInstVarObject",
 
-smalltalk.method({
 
-selector: "selectedInstVarObject",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_instVarObjectAt_", [smalltalk.send(self, "_selection", [])]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_selection",
 
-smalltalk.method({
 
-selector: "selection",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@selection']) == nil || $receiver == undefined) {
 
-        $1 = "";
 
-    } else {
 
-        $1 = self['@selection'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_selection_",
 
-smalltalk.method({
 
-selector: "selection:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@selection'] = anObject;
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected, "_on_", [self['@selection']])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_subscribe_",
 
-smalltalk.method({
 
-selector: "subscribe:",
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    smalltalk.send(aWidget, "_subscribeTo_", [smalltalk.send(self, "_announcer", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_variables",
 
-smalltalk.method({
 
-selector: "variables",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@variables'];
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_variables_",
 
-smalltalk.method({
 
-selector: "variables:",
 
-fn: function (aCollection) {
 
-    var self = this;
 
-    self['@variables'] = aCollection;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_environment_", [anEnvironment]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorModel.klass);
 
-
 
-
 
-smalltalk.addClass('HLInspectorVariablesWidget', smalltalk.HLNavigationListWidget, ['announcer', 'model', 'list', 'diveButton'], 'Helios-Inspector');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_defaultItems",
 
-smalltalk.method({
 
-selector: "defaultItems",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_variables", []), "_keys", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@model'] = aModel;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_refresh",
 
-smalltalk.method({
 
-selector: "refresh",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_resetItems", []);
 
-    smalltalk.send(self, "_refresh", [], smalltalk.HLNavigationListWidget);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderButtonsOn_",
 
-smalltalk.method({
 
-selector: "renderButtonsOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3, $4;
 
-    $1 = smalltalk.send(html, "_button", []);
 
-    smalltalk.send($1, "_class_", ["btn"]);
 
-    smalltalk.send($1, "_with_", ["Refresh"]);
 
-    $2 = smalltalk.send($1, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLRefreshRequested || HLRefreshRequested, "_new", [])]);}]);
 
-    $3 = smalltalk.send(html, "_button", []);
 
-    smalltalk.send($3, "_class_", ["btn"]);
 
-    smalltalk.send($3, "_with_", ["Dive"]);
 
-    $4 = smalltalk.send($3, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDiveRequested || HLDiveRequested, "_new", [])]);}]);
 
-    self['@diveButton'] = $4;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_resetItems",
 
-smalltalk.method({
 
-selector: "resetItems",
 
-fn: function () {
 
-    var self = this;
 
-    self['@items'] = nil;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [anObject], smalltalk.HLNavigationListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVar_", [anObject]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selection",
 
-smalltalk.method({
 
-selector: "selection",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@model'], "_selection", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_variables",
 
-smalltalk.method({
 
-selector: "variables",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@model'], "_variables", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-
 
-

+ 0 - 1155
js/Helios-Inspector.js
Xem Tập Tin 

@@ -1,1155 +0,0 @@
 
-smalltalk.addPackage('Helios-Inspector', {});
 
-smalltalk.addClass('HLInspector', smalltalk.HLWidget, ['model', 'variablesWidget', 'displayWidget', 'codeWidget', 'label'], 'Helios-Inspector');
 
-smalltalk.addMethod(
 
-"_codeWidget",
 
-smalltalk.method({
 
-selector: "codeWidget",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
 
-        $2 = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
 
-        smalltalk.send($2, "_model_", [smalltalk.send(self['@model'], "_code", [])]);
 
-        smalltalk.send($2, "_receiver_", [smalltalk.send(self['@model'], "_inspectee", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        self['@codeWidget'] = $3;
 
-        $1 = self['@codeWidget'];
 
-    } else {
 
-        $1 = self['@codeWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "codeWidget\x0a\x09^ codeWidget ifNil: [\x0a\x09\x09codeWidget := HLCodeWidget new\x0a    \x09\x09model: model code;\x0a        \x09receiver: model inspectee;\x0a        \x09yourself ]",
 
-messageSends: ["ifNil:", "model:", "code", "new", "receiver:", "inspectee", "yourself"],
 
-referencedClasses: ["HLCodeWidget"]
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_displayWidget",
 
-smalltalk.method({
 
-selector: "displayWidget",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    if (($receiver = self['@displayWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        $2 = smalltalk.send(smalltalk.HLInspectorDisplayWidget || HLInspectorDisplayWidget, "_new", []);
 
-        smalltalk.send($2, "_model_", [smalltalk.send(self, "_model", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        self['@displayWidget'] = $3;
 
-        $1 = self['@displayWidget'];
 
-    } else {
 
-        $1 = self['@displayWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "displayWidget\x0a\x09^ displayWidget ifNil: [\x0a\x09\x09displayWidget := HLInspectorDisplayWidget new\x0a    \x09\x09model: self model;\x0a        \x09yourself ]",
 
-messageSends: ["ifNil:", "model:", "model", "new", "yourself"],
 
-referencedClasses: ["HLInspectorDisplayWidget"]
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_inspect_",
 
-smalltalk.method({
 
-selector: "inspect:",
 
-category: 'actions',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    var $1;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_inspect_on_", [anObject, self]);
 
-    smalltalk.send(self, "_refreshVariablesWidget", []);
 
-    $1 = smalltalk.send(self, "_refreshDisplayWidget", []);
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "inspect: anObject\x0a\x09self model inspect: anObject on: self.\x0a    \x0a\x09self \x0a    \x09refreshVariablesWidget;\x0a\x09\x09refreshDisplayWidget",
 
-messageSends: ["inspect:on:", "model", "refreshVariablesWidget", "refreshDisplayWidget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_inspectee",
 
-smalltalk.method({
 
-selector: "inspectee",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_inspectee", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "inspectee\x0a\x09^ self model inspectee",
 
-messageSends: ["inspectee", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_inspectee_",
 
-smalltalk.method({
 
-selector: "inspectee:",
 
-category: 'accessing',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_inspectee_", [anObject]);
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "inspectee: anObject\x0a\x09self model inspectee: anObject",
 
-messageSends: ["inspectee:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@label']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(self['@model'], "_inspectee", []), "_printString", []);
 
-    } else {
 
-        $1 = self['@label'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "label\x0a    ^ label ifNil: [ model inspectee printString ]",
 
-messageSends: ["ifNil:", "printString", "inspectee"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
 
-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLInspectorModel || HLInspectorModel, "_new", [])]);
 
-        $1 = self['@model'];
 
-    } else {
 
-        $1 = self['@model'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "model\x0a\x09^ model ifNil: [ \x0a    \x09self model: HLInspectorModel new.\x0a\x09\x09model ]",
 
-messageSends: ["ifNil:", "model:", "new"],
 
-referencedClasses: ["HLInspectorModel"]
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-category: 'accessing',
 
-fn: function (aModel) {
 
-    var self = this;
 
-    var $1;
 
-    self['@model'] = aModel;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_model_", [smalltalk.send(aModel, "_code", [])]);
 
-    smalltalk.send(self, "_observeCodeWidget", []);
 
-    smalltalk.send(self, "_observeVariablesWidget", []);
 
-    $1 = smalltalk.send(self, "_observeModel", []);
 
-    return self;
 
-},
 
-args: ["aModel"],
 
-source: "model: aModel\x0a\x09model := aModel. \x0a    self codeWidget model: aModel code.\x0a    \x0a    self \x0a        observeCodeWidget;\x0a    \x09observeVariablesWidget;\x0a        observeModel",
 
-messageSends: ["model:", "code", "codeWidget", "observeCodeWidget", "observeVariablesWidget", "observeModel"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_observeCodeWidget",
 
-smalltalk.method({
 
-selector: "observeCodeWidget",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_announcer", []), "_on_do_", [smalltalk.HLDoItExecuted || HLDoItExecuted, function () {return smalltalk.send(self, "_onDoneIt", []);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeCodeWidget\x0a\x09self codeWidget announcer \x0a    \x09on: HLDoItExecuted \x0a        do: [ self onDoneIt ]\x0a",
 
-messageSends: ["on:do:", "onDoneIt", "announcer", "codeWidget"],
 
-referencedClasses: ["HLDoItExecuted"]
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_observeModel",
 
-smalltalk.method({
 
-selector: "observeModel",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected, function (ann) {return smalltalk.send(self, "_onInstanceVariableSelected", []);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeModel\x0a\x09self model announcer\x0a        on: HLInstanceVariableSelected do: [ :ann | self onInstanceVariableSelected ]",
 
-messageSends: ["on:do:", "onInstanceVariableSelected", "announcer", "model"],
 
-referencedClasses: ["HLInstanceVariableSelected"]
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_observeVariablesWidget",
 
-smalltalk.method({
 
-selector: "observeVariablesWidget",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_variablesWidget", []), "_announcer", []);
 
-    smalltalk.send($1, "_on_do_", [smalltalk.HLRefreshRequested || HLRefreshRequested, function (ann) {return smalltalk.send(self, "_onRefresh", []);}]);
 
-    $2 = smalltalk.send($1, "_on_do_", [smalltalk.HLDiveRequested || HLDiveRequested, function () {return smalltalk.send(self, "_onDive", []);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeVariablesWidget\x0a\x09self variablesWidget announcer \x0a    \x09on: HLRefreshRequested do: [ :ann | self onRefresh ];\x0a        on: HLDiveRequested do:[ self onDive ]\x0a        ",
 
-messageSends: ["on:do:", "onRefresh", "announcer", "variablesWidget", "onDive"],
 
-referencedClasses: ["HLRefreshRequested", "HLDiveRequested"]
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onDive",
 
-smalltalk.method({
 
-selector: "onDive",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_inspect_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVarObject", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "onDive\x0a\x0a\x09self inspect: self model selectedInstVarObject",
 
-messageSends: ["inspect:", "selectedInstVarObject", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onDoneIt",
 
-smalltalk.method({
 
-selector: "onDoneIt",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "onDoneIt\x0a\x0a\x09self refresh",
 
-messageSends: ["refresh"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onInspectIt",
 
-smalltalk.method({
 
-selector: "onInspectIt",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "onInspectIt",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onInstanceVariableSelected",
 
-smalltalk.method({
 
-selector: "onInstanceVariableSelected",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_receiver_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVarObject", [])]);
 
-    smalltalk.send(self, "_refreshDisplayWidget", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "onInstanceVariableSelected\x0a\x09self codeWidget receiver: self model selectedInstVarObject.\x0a\x09self refreshDisplayWidget",
 
-messageSends: ["receiver:", "selectedInstVarObject", "model", "codeWidget", "refreshDisplayWidget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onPrintIt",
 
-smalltalk.method({
 
-selector: "onPrintIt",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "onPrintIt",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_onRefresh",
 
-smalltalk.method({
 
-selector: "onRefresh",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_refresh", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "onRefresh\x0a\x0a\x09self refresh",
 
-messageSends: ["refresh"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_open",
 
-smalltalk.method({
 
-selector: "open",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_addTab_", [smalltalk.send(smalltalk.HLTab || HLTab, "_on_labelled_", [self, smalltalk.send(self, "_tabLabel", [])])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "open\x0a\x09HLManager current addTab: (HLTab on: self labelled: self tabLabel)\x0a",
 
-messageSends: ["addTab:", "on:labelled:", "tabLabel", "current"],
 
-referencedClasses: ["HLTab", "HLManager"]
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_refresh",
 
-smalltalk.method({
 
-selector: "refresh",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_inspect_", [smalltalk.send(self, "_inspectee", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "refresh\x0a\x09self inspect: self inspectee",
 
-messageSends: ["inspect:", "inspectee"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_refreshDisplayWidget",
 
-smalltalk.method({
 
-selector: "refreshDisplayWidget",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_displayWidget", []), "_refresh", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "refreshDisplayWidget\x0a\x09self displayWidget refresh",
 
-messageSends: ["refresh", "displayWidget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_refreshVariablesWidget",
 
-smalltalk.method({
 
-selector: "refreshVariablesWidget",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_variablesWidget", []), "_refresh", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "refreshVariablesWidget\x0a\x09self variablesWidget refresh",
 
-messageSends: ["refresh", "variablesWidget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(smalltalk.HLContainer || HLContainer, "_with_", [smalltalk.send(smalltalk.HLHorizontalSplitter || HLHorizontalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_variablesWidget", []), smalltalk.send(self, "_displayWidget", [])]), smalltalk.send(self, "_codeWidget", [])])])]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a   \x09html with: (HLContainer with: (HLHorizontalSplitter\x0a    \x09with: (HLVerticalSplitter \x0a            \x09\x09with: self variablesWidget\x0a            \x09    with: self displayWidget)\x0a        with: self codeWidget))\x0a ",
 
-messageSends: ["with:", "with:with:", "variablesWidget", "displayWidget", "codeWidget"],
 
-referencedClasses: ["HLVerticalSplitter", "HLHorizontalSplitter", "HLContainer"]
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_setLabel_",
 
-smalltalk.method({
 
-selector: "setLabel:",
 
-category: 'actions',
 
-fn: function (aString) {
 
-    var self = this;
 
-    self['@label'] = aString;
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "setLabel: aString\x0a\x09label := aString",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_setVariables_",
 
-smalltalk.method({
 
-selector: "setVariables:",
 
-category: 'actions',
 
-fn: function (aDictionary) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_variables_", [aDictionary]);
 
-    return self;
 
-},
 
-args: ["aDictionary"],
 
-source: "setVariables: aDictionary\x0a\x09self model variables: aDictionary",
 
-messageSends: ["variables:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_label", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "tabLabel\x0a    ^ self label",
 
-messageSends: ["label"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-smalltalk.addMethod(
 
-"_variablesWidget",
 
-smalltalk.method({
 
-selector: "variablesWidget",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    if (($receiver = self['@variablesWidget']) == nil ||
 
-        $receiver == undefined) {
 
-        $2 = smalltalk.send(smalltalk.HLInspectorVariablesWidget ||
 
-            HLInspectorVariablesWidget, "_new", []);
 
-        smalltalk.send($2, "_model_", [smalltalk.send(self, "_model", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        self['@variablesWidget'] = $3;
 
-        $1 = self['@variablesWidget'];
 
-    } else {
 
-        $1 = self['@variablesWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "variablesWidget\x0a\x09^ variablesWidget ifNil: [\x0a\x09\x09variablesWidget := HLInspectorVariablesWidget new\x0a    \x09\x09model: self model;\x0a        \x09yourself ]",
 
-messageSends: ["ifNil:", "model:", "model", "new", "yourself"],
 
-referencedClasses: ["HLInspectorVariablesWidget"]
 
-}),
 
-smalltalk.HLInspector);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-},
 
-args: [],
 
-source: "canBeOpenAsTab\x0a\x09^ false",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Inspector";
 
-},
 
-args: [],
 
-source: "tabLabel\x0a\x09^ 'Inspector'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 10;
 
-},
 
-args: [],
 
-source: "tabPriority\x0a\x09^ 10",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspector.klass);
 
-
 
-
 
-smalltalk.addClass('HLInspectorDisplayWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Inspector');
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-},
 
-args: [],
 
-source: "model\x0a\x0a\x09^ model",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorDisplayWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-category: 'accessing',
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@model'] = aModel;
 
-    return self;
 
-},
 
-args: ["aModel"],
 
-source: "model: aModel\x0a\x0a\x09model := aModel",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorDisplayWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(html, "_div", []), "_with_", [smalltalk.send(self, "_selectionDisplayString", [])]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a\x09\x0a    html div with: self selectionDisplayString\x0a    ",
 
-messageSends: ["with:", "selectionDisplayString", "div"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorDisplayWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionDisplayString",
 
-smalltalk.method({
 
-selector: "selectionDisplayString",
 
-category: 'rendering',
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $1;
 
-    var selection;
 
-    selection = smalltalk.send(self['@model'], "_selection", []);
 
-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(self['@model'], "_variables", []), "_keys", []), "_includes_", [selection]);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = smalltalk.send(smalltalk.send(self['@model'], "_instVarObjectAt_", [selection]), "_printString", []);
 
-    } else {
 
-        $1 = "";
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selectionDisplayString\x0a\x09|selection|\x0a\x09selection := model selection.\x0a    ^ (model variables keys includes: selection)\x0a    \x09ifTrue:[(model instVarObjectAt: selection) printString]\x0a      \x09ifFalse:['']",
 
-messageSends: ["selection", "ifTrue:ifFalse:", "printString", "instVarObjectAt:", "includes:", "keys", "variables"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorDisplayWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLInspectorModel', smalltalk.Object, ['announcer', 'environment', 'inspectee', 'code', 'variables', 'selection'], 'Helios-Inspector');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "announcer\x0a\x09^ announcer ifNil: [announcer := Announcer new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["Announcer"]
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_code",
 
-smalltalk.method({
 
-selector: "code",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@code']) == nil || $receiver == undefined) {
 
-        self['@code'] = smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_on_", [smalltalk.send(self, "_environment", [])]);
 
-        $1 = self['@code'];
 
-    } else {
 
-        $1 = self['@code'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "code\x0a\x09\x22Answers the code model working for this workspace model\x22\x0a\x09^ code ifNil:[ code := HLCodeModel on: self environment ]",
 
-messageSends: ["ifNil:", "on:", "environment"],
 
-referencedClasses: ["HLCodeModel"]
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
 
-messageSends: ["ifNil:", "environment", "current"],
 
-referencedClasses: ["HLManager"]
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-category: 'accessing',
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-},
 
-args: ["anEnvironment"],
 
-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_inspect_on_",
 
-smalltalk.method({
 
-selector: "inspect:on:",
 
-category: 'actions',
 
-fn: function (anObject, anInspector) {
 
-    var self = this;
 
-    self['@inspectee'] = anObject;
 
-    self['@variables'] = [];
 
-    smalltalk.send(self['@inspectee'], "_inspectOn_", [anInspector]);
 
-    return self;
 
-},
 
-args: ["anObject", "anInspector"],
 
-source: "inspect: anObject on: anInspector\x0a\x09inspectee := anObject.\x0a\x09variables := #().\x0a\x09inspectee inspectOn: anInspector    \x0a",
 
-messageSends: ["inspectOn:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_inspectee",
 
-smalltalk.method({
 
-selector: "inspectee",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@inspectee'];
 
-},
 
-args: [],
 
-source: "inspectee \x0a\x09^ inspectee ",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_inspectee_",
 
-smalltalk.method({
 
-selector: "inspectee:",
 
-category: 'accessing',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@inspectee'] = anObject;
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "inspectee: anObject \x0a\x09inspectee := anObject\x0a    ",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_instVarObjectAt_",
 
-smalltalk.method({
 
-selector: "instVarObjectAt:",
 
-category: 'actions',
 
-fn: function (anInstVarName) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_variables", []), "_at_", [anInstVarName]);
 
-    return $1;
 
-},
 
-args: ["anInstVarName"],
 
-source: "instVarObjectAt: anInstVarName\x0a\x09^ self variables at: anInstVarName",
 
-messageSends: ["at:", "variables"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_onKeyDown_",
 
-smalltalk.method({
 
-selector: "onKeyDown:",
 
-category: 'reactions',
 
-fn: function (anEvent) {
 
-    var self = this;
 
-    if (anEvent.ctrlKey) {
 
-        if (anEvent.keyCode === 80) {
 
-            self._printIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 68) {
 
-            self._doIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 73) {
 
-            self._inspectIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-    }
 
-    return self;
 
-},
 
-args: ["anEvent"],
 
-source: "onKeyDown: anEvent\x0a\x0a\x09<if(anEvent.ctrlKey) {\x0a\x09\x09if(anEvent.keyCode === 80) { //ctrl+p\x0a\x09\x09\x09self._printIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 68) { //ctrl+d\x0a\x09\x09\x09self._doIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 73) { //ctrl+i\x0a\x09\x09\x09self._inspectIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09}>",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedInstVar_",
 
-smalltalk.method({
 
-selector: "selectedInstVar:",
 
-category: 'actions',
 
-fn: function (anInstVarName) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selection_", [anInstVarName]);
 
-    return self;
 
-},
 
-args: ["anInstVarName"],
 
-source: "selectedInstVar: anInstVarName\x0a    self selection: anInstVarName",
 
-messageSends: ["selection:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_selectedInstVarObject",
 
-smalltalk.method({
 
-selector: "selectedInstVarObject",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self, "_instVarObjectAt_", [smalltalk.send(self, "_selection", [])]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selectedInstVarObject\x0a\x09^ self instVarObjectAt: self selection\x0a    ",
 
-messageSends: ["instVarObjectAt:", "selection"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_selection",
 
-smalltalk.method({
 
-selector: "selection",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@selection']) == nil || $receiver == undefined) {
 
-        $1 = "";
 
-    } else {
 
-        $1 = self['@selection'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selection\x0a\x09^ selection ifNil:[ '' ] ",
 
-messageSends: ["ifNil:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_selection_",
 
-smalltalk.method({
 
-selector: "selection:",
 
-category: 'accessing',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@selection'] = anObject;
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected, "_on_", [self['@selection']])]);
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "selection: anObject\x0a\x09selection := anObject.\x0a\x0a\x09self announcer announce: (HLInstanceVariableSelected on: selection)\x0a    ",
 
-messageSends: ["announce:", "on:", "announcer"],
 
-referencedClasses: ["HLInstanceVariableSelected"]
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_subscribe_",
 
-smalltalk.method({
 
-selector: "subscribe:",
 
-category: 'actions',
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    smalltalk.send(aWidget, "_subscribeTo_", [smalltalk.send(self, "_announcer", [])]);
 
-    return self;
 
-},
 
-args: ["aWidget"],
 
-source: "subscribe: aWidget\x0a\x09aWidget subscribeTo: self announcer",
 
-messageSends: ["subscribeTo:", "announcer"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_variables",
 
-smalltalk.method({
 
-selector: "variables",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@variables'];
 
-},
 
-args: [],
 
-source: "variables\x0a\x09^ variables",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-smalltalk.addMethod(
 
-"_variables_",
 
-smalltalk.method({
 
-selector: "variables:",
 
-category: 'accessing',
 
-fn: function (aCollection) {
 
-    var self = this;
 
-    self['@variables'] = aCollection;
 
-    return self;
 
-},
 
-args: ["aCollection"],
 
-source: "variables: aCollection\x0a\x09variables := aCollection\x0a    ",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'actions',
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_environment_", [anEnvironment]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["anEnvironment"],
 
-source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
 
-messageSends: ["environment:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorModel.klass);
 
-
 
-
 
-smalltalk.addClass('HLInspectorVariablesWidget', smalltalk.HLNavigationListWidget, ['announcer', 'model', 'list', 'diveButton'], 'Helios-Inspector');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "announcer\x0a\x09^ announcer ifNil:[ announcer := Announcer new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["Announcer"]
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_defaultItems",
 
-smalltalk.method({
 
-selector: "defaultItems",
 
-category: 'defaults',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_variables", []), "_keys", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "defaultItems\x0a\x09^ self model variables keys",
 
-messageSends: ["keys", "variables", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@model'];
 
-},
 
-args: [],
 
-source: "model\x0a    ^ model\x0a        ",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-category: 'accessing',
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@model'] = aModel;
 
-    return self;
 
-},
 
-args: ["aModel"],
 
-source: "model: aModel\x0a    model := aModel\x0a        ",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_refresh",
 
-smalltalk.method({
 
-selector: "refresh",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_resetItems", []);
 
-    smalltalk.send(self, "_refresh", [], smalltalk.HLNavigationListWidget);
 
-    return self;
 
-},
 
-args: [],
 
-source: "refresh\x0a\x09self resetItems.\x0a    super refresh\x0a    ",
 
-messageSends: ["resetItems", "refresh"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderButtonsOn_",
 
-smalltalk.method({
 
-selector: "renderButtonsOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2, $3, $4;
 
-    $1 = smalltalk.send(html, "_button", []);
 
-    smalltalk.send($1, "_class_", ["btn"]);
 
-    smalltalk.send($1, "_with_", ["Refresh"]);
 
-    $2 = smalltalk.send($1, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLRefreshRequested || HLRefreshRequested, "_new", [])]);}]);
 
-    $3 = smalltalk.send(html, "_button", []);
 
-    smalltalk.send($3, "_class_", ["btn"]);
 
-    smalltalk.send($3, "_with_", ["Dive"]);
 
-    $4 = smalltalk.send($3, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDiveRequested || HLDiveRequested, "_new", [])]);}]);
 
-    self['@diveButton'] = $4;
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderButtonsOn: html\x0a\x0a\x09html button\x0a\x09\x09\x09class: 'btn';\x0a\x09\x09\x09with: 'Refresh';\x0a\x09\x09\x09onClick: [self announcer announce: HLRefreshRequested new].\x0a\x0a\x09diveButton := html button \x0a\x09\x09\x09\x09class: 'btn';\x0a\x09\x09\x09\x09with: 'Dive'; \x0a\x09\x09\x09\x09onClick: [self announcer announce: HLDiveRequested new]",
 
-messageSends: ["class:", "button", "with:", "onClick:", "announce:", "new", "announcer"],
 
-referencedClasses: ["HLRefreshRequested", "HLDiveRequested"]
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_resetItems",
 
-smalltalk.method({
 
-selector: "resetItems",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    self['@items'] = nil;
 
-    return self;
 
-},
 
-args: [],
 
-source: "resetItems\x0a\x09items := nil",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectItem_",
 
-smalltalk.method({
 
-selector: "selectItem:",
 
-category: 'reactions',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    smalltalk.send(self, "_selectItem_", [anObject], smalltalk.HLNavigationListWidget);
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVar_", [anObject]);
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "selectItem: anObject\x0a\x09super selectItem: anObject.\x0a    self model selectedInstVar: anObject",
 
-messageSends: ["selectItem:", "selectedInstVar:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selection",
 
-smalltalk.method({
 
-selector: "selection",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@model'], "_selection", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selection\x0a\x09^ model selection",
 
-messageSends: ["selection"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-smalltalk.addMethod(
 
-"_variables",
 
-smalltalk.method({
 
-selector: "variables",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@model'], "_variables", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "variables\x0a\x09^ model variables",
 
-messageSends: ["variables"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLInspectorVariablesWidget);
 
-
 
-
 
-

+ 0 - 753
js/Helios-KeyBindings.deploy.js
Xem Tập Tin 

@@ -1,753 +0,0 @@
 
-smalltalk.addPackage('Helios-KeyBindings', {});
 
-smalltalk.addClass('HLBinding', smalltalk.Object, ['key', 'label'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_applyOn_",
 
-smalltalk.method({
 
-selector: "applyOn:",
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    smalltalk.send(self, "_subclassResponsibility", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_isBindingAction",
 
-smalltalk.method({
 
-selector: "isBindingAction",
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-}
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_isBindingGroup",
 
-smalltalk.method({
 
-selector: "isBindingGroup",
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-}
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@key'];
 
-}
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_key_",
 
-smalltalk.method({
 
-selector: "key:",
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    self['@key'] = anInteger;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@label'];
 
-}
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_label_",
 
-smalltalk.method({
 
-selector: "label:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    self['@label'] = aString;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_html_",
 
-smalltalk.method({
 
-selector: "renderOn:html:",
 
-fn: function (aBindingHelper, html) {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_shortcut",
 
-smalltalk.method({
 
-selector: "shortcut",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.String || String, "_fromCharCode_", [smalltalk.send(self, "_key", [])]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_labelled_",
 
-smalltalk.method({
 
-selector: "on:labelled:",
 
-fn: function (anInteger, aString) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_key_", [anInteger]);
 
-    smalltalk.send($2, "_label_", [aString]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBinding.klass);
 
-
 
-
 
-smalltalk.addClass('HLBindingAction', smalltalk.HLBinding, ['callback'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_applyOn_",
 
-smalltalk.method({
 
-selector: "applyOn:",
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    smalltalk.send(aKeyBinder, "_applyBindingAction_", [self]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBindingAction);
 
-
 
-smalltalk.addMethod(
 
-"_callback",
 
-smalltalk.method({
 
-selector: "callback",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@callback'];
 
-}
 
-}),
 
-smalltalk.HLBindingAction);
 
-
 
-smalltalk.addMethod(
 
-"_callback_",
 
-smalltalk.method({
 
-selector: "callback:",
 
-fn: function (aBlock) {
 
-    var self = this;
 
-    self['@callback'] = aBlock;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBindingAction);
 
-
 
-smalltalk.addMethod(
 
-"_isBindingAction",
 
-smalltalk.method({
 
-selector: "isBindingAction",
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-}
 
-}),
 
-smalltalk.HLBindingAction);
 
-
 
-
 
-
 
-smalltalk.addClass('HLBindingGroup', smalltalk.HLBinding, ['bindings'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_add_",
 
-smalltalk.method({
 
-selector: "add:",
 
-fn: function (aBinding) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_add_", [aBinding]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_addActionKey_labelled_callback_",
 
-smalltalk.method({
 
-selector: "addActionKey:labelled:callback:",
 
-fn: function (anInteger, aString, aBlock) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [anInteger, aString]);
 
-    smalltalk.send($1, "_callback_", [aBlock]);
 
-    $2 = smalltalk.send($1, "_yourself", []);
 
-    smalltalk.send(self, "_add_", [$2]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_addActionKey_labelled_command_",
 
-smalltalk.method({
 
-selector: "addActionKey:labelled:command:",
 
-fn: function (anInteger, aString, aCommand) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [anInteger, aString]);
 
-    smalltalk.send($1, "_command_", [aCommand]);
 
-    $2 = smalltalk.send($1, "_yourself", []);
 
-    smalltalk.send(self, "_add_", [$2]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_addGroupKey_labelled_",
 
-smalltalk.method({
 
-selector: "addGroupKey:labelled:",
 
-fn: function (anInteger, aString) {
 
-    var self = this;
 
-    smalltalk.send(self, "_add_", [smalltalk.send(smalltalk.HLBindingGroup || HLBindingGroup, "_on_labelled_", [anInteger, aString])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_applyOn_",
 
-smalltalk.method({
 
-selector: "applyOn:",
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    smalltalk.send(aKeyBinder, "_applyBindingGroup_", [self]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_at_",
 
-smalltalk.method({
 
-selector: "at:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_detect_ifNone_", [function (each) {return smalltalk.send(smalltalk.send(each, "_label", []), "__eq", [aString]);}, function () {return nil;}]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_atKey_",
 
-smalltalk.method({
 
-selector: "atKey:",
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_detect_ifNone_", [function (each) {return smalltalk.send(smalltalk.send(each, "_key", []), "__eq", [anInteger]);}, function () {return nil;}]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_bindings",
 
-smalltalk.method({
 
-selector: "bindings",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@bindings']) == nil || $receiver == undefined) {
 
-        self['@bindings'] = smalltalk.send(smalltalk.OrderedCollection || OrderedCollection, "_new", []);
 
-        $1 = self['@bindings'];
 
-    } else {
 
-        $1 = self['@bindings'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_isBindingGroup",
 
-smalltalk.method({
 
-selector: "isBindingGroup",
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_html_",
 
-smalltalk.method({
 
-selector: "renderOn:html:",
 
-fn: function (aBindingHelper, html) {
 
-    var self = this;
 
-    smalltalk.send(aBindingHelper, "_renderBindingGroup_on_", [self, html]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-
 
-
 
-smalltalk.addClass('HLKeyBinder', smalltalk.Object, ['modifierKey', 'active', 'helper', 'bindings', 'selectedBinding'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_activate",
 
-smalltalk.method({
 
-selector: "activate",
 
-fn: function () {
 
-    var self = this;
 
-    self['@active'] = true;
 
-    smalltalk.send(smalltalk.send(self, "_helper", []), "_show", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_activationKey",
 
-smalltalk.method({
 
-selector: "activationKey",
 
-fn: function () {
 
-    var self = this;
 
-    return 32;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_applyBinding_",
 
-smalltalk.method({
 
-selector: "applyBinding:",
 
-fn: function (aBinding) {
 
-    var self = this;
 
-    smalltalk.send(aBinding, "_applyOn_", [self]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_applyBindingAction_",
 
-smalltalk.method({
 
-selector: "applyBindingAction:",
 
-fn: function (aBinding) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(aBinding, "_callback", []), "_value", []);
 
-    smalltalk.send(self, "_deactivate", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_applyBindingGroup_",
 
-smalltalk.method({
 
-selector: "applyBindingGroup:",
 
-fn: function (aBinding) {
 
-    var self = this;
 
-    self['@selectedBinding'] = aBinding;
 
-    smalltalk.send(smalltalk.send(self, "_helper", []), "_refresh", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_bindings",
 
-smalltalk.method({
 
-selector: "bindings",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@bindings']) == nil || $receiver == undefined) {
 
-        self['@bindings'] = smalltalk.send(smalltalk.HLBindingGroup || HLBindingGroup, "_new", []);
 
-        $1 = self['@bindings'];
 
-    } else {
 
-        $1 = self['@bindings'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_deactivate",
 
-smalltalk.method({
 
-selector: "deactivate",
 
-fn: function () {
 
-    var self = this;
 
-    self['@active'] = false;
 
-    self['@selectedBinding'] = nil;
 
-    smalltalk.send(smalltalk.send(self, "_helper", []), "_hide", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_escapeKey",
 
-smalltalk.method({
 
-selector: "escapeKey",
 
-fn: function () {
 
-    var self = this;
 
-    return 27;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_flushBindings",
 
-smalltalk.method({
 
-selector: "flushBindings",
 
-fn: function () {
 
-    var self = this;
 
-    self['@bindings'] = nil;
 
-    self['@helper'] = nil;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_handleActiveKeyDown_",
 
-smalltalk.method({
 
-selector: "handleActiveKeyDown:",
 
-fn: function (event) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [smalltalk.send(self, "_escapeKey", [])]), "_or_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [71]), "_and_", [function () {return smalltalk.send(event, "_ctrlKey", []);}]);}]);
 
-    if (smalltalk.assert($1)) {
 
-        smalltalk.send(self, "_deactivate", []);
 
-        smalltalk.send(event, "_preventDefault", []);
 
-        return false;
 
-    }
 
-    $2 = smalltalk.send(self, "_handleBindingFor_", [event]);
 
-    return $2;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_handleBindingFor_",
 
-smalltalk.method({
 
-selector: "handleBindingFor:",
 
-fn: function (anEvent) {
 
-    var self = this;
 
-    var binding;
 
-    binding = smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_atKey_", [smalltalk.send(anEvent, "_which", [])]);
 
-    if (($receiver = binding) == nil || $receiver == undefined) {
 
-    } else {
 
-        smalltalk.send(self, "_applyBinding_", [binding]);
 
-        smalltalk.send(anEvent, "_preventDefault", []);
 
-        return false;
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_handleInactiveKeyDown_",
 
-smalltalk.method({
 
-selector: "handleInactiveKeyDown:",
 
-fn: function (event) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [smalltalk.send(self, "_activationKey", [])]);
 
-    if (smalltalk.assert($1)) {
 
-        $2 = smalltalk.send(event, "_ctrlKey", []);
 
-        if (smalltalk.assert($2)) {
 
-            smalltalk.send(self, "_activate", []);
 
-            smalltalk.send(event, "_preventDefault", []);
 
-            return false;
 
-        }
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_handleKeyDown_",
 
-smalltalk.method({
 
-selector: "handleKeyDown:",
 
-fn: function (event) {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(self, "_isActive", []);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = smalltalk.send(self, "_handleActiveKeyDown_", [event]);
 
-    } else {
 
-        $1 = smalltalk.send(self, "_handleInactiveKeyDown_", [event]);
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_helper",
 
-smalltalk.method({
 
-selector: "helper",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@helper']) == nil || $receiver == undefined) {
 
-        self['@helper'] = smalltalk.send(smalltalk.HLKeyBinderHelper || HLKeyBinderHelper, "_on_", [self]);
 
-        $1 = self['@helper'];
 
-    } else {
 
-        $1 = self['@helper'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_initialize",
 
-smalltalk.method({
 
-selector: "initialize",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_initialize", [], smalltalk.Object);
 
-    self['@active'] = false;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_isActive",
 
-smalltalk.method({
 
-selector: "isActive",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@active']) == nil || $receiver == undefined) {
 
-        $1 = false;
 
-    } else {
 
-        $1 = self['@active'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_selectedBinding",
 
-smalltalk.method({
 
-selector: "selectedBinding",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@selectedBinding']) == nil ||
 
-        $receiver == undefined) {
 
-        $1 = smalltalk.send(self, "_bindings", []);
 
-    } else {
 
-        $1 = self['@selectedBinding'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_setupEvents",
 
-smalltalk.method({
 
-selector: "setupEvents",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["body"]), "_keydown_", [function (event) {return smalltalk.send(self, "_handleKeyDown_", [event]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_systemIsMac",
 
-smalltalk.method({
 
-selector: "systemIsMac",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(navigator, "_platform", []), "_match_", ["Mac"]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-
 
-
 
-smalltalk.addClass('HLKeyBinderHelper', smalltalk.HLWidget, ['keyBinder'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_hide",
 
-smalltalk.method({
 
-selector: "hide",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@rootDiv'], "_asJQuery", []), "_remove", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_keyBinder",
 
-smalltalk.method({
 
-selector: "keyBinder",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@keyBinder'];
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_keyBinder_",
 
-smalltalk.method({
 
-selector: "keyBinder:",
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    self['@keyBinder'] = aKeyBinder;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_registerBindings",
 
-smalltalk.method({
 
-selector: "registerBindings",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_renderBindingGroup_on_",
 
-smalltalk.method({
 
-selector: "renderBindingGroup:on:",
 
-fn: function (aBindingGroup, html) {
 
-    var self = this;
 
-    var $1, $3, $4, $5, $6, $2;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(aBindingGroup, "_bindings", []), "_sorted_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_key", []), "__lt", [smalltalk.send(b, "_key", [])]);}]), "_do_", [function (each) {$1 = smalltalk.send(html, "_span", []);smalltalk.send($1, "_class_", ["command"]);$2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_span", []);smalltalk.send($3, "_class_", ["label"]);$4 = smalltalk.send($3, "_with_", [smalltalk.send(smalltalk.send(each, "_shortcut", []), "_asLowercase", [])]);$4;$5 = smalltalk.send(html, "_a", []);smalltalk.send($5, "_class_", ["action"]);smalltalk.send($5, "_with_", [smalltalk.send(each, "_label", [])]);$6 = smalltalk.send($5, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_applyBinding_", [each]);}]);return $6;}]);return $2;}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_renderBindingOn_",
 
-smalltalk.method({
 
-selector: "renderBindingOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_renderOn_html_", [self, html]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $2;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", ["key_helper"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {smalltalk.send(self, "_renderSelectionOn_", [html]);$3 = smalltalk.send(self, "_renderBindingOn_", [html]);return $3;}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_renderSelectionOn_",
 
-smalltalk.method({
 
-selector: "renderSelectionOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $4, $3, $2;
 
-    $1 = smalltalk.send(html, "_span", []);
 
-    smalltalk.send($1, "_class_", ["selected"]);
 
-    $4 = smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_label", []);
 
-    if (($receiver = $4) == nil || $receiver == undefined) {
 
-        $3 = "Action";
 
-    } else {
 
-        $3 = $4;
 
-    }
 
-    $2 = smalltalk.send($1, "_with_", [$3]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_selectedBinding",
 
-smalltalk.method({
 
-selector: "selectedBinding",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_selectedBinding", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_show",
 
-smalltalk.method({
 
-selector: "show",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_keyBinder_", [aKeyBinder]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLKeyBinderHelper.klass);
 
-
 
-

+ 0 - 1023
js/Helios-KeyBindings.js
Xem Tập Tin 

@@ -1,1023 +0,0 @@
 
-smalltalk.addPackage('Helios-KeyBindings', {});
 
-smalltalk.addClass('HLBinding', smalltalk.Object, ['key', 'label'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_applyOn_",
 
-smalltalk.method({
 
-selector: "applyOn:",
 
-category: 'actions',
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    smalltalk.send(self, "_subclassResponsibility", []);
 
-    return self;
 
-},
 
-args: ["aKeyBinder"],
 
-source: "applyOn: aKeyBinder\x0a\x09self subclassResponsibility",
 
-messageSends: ["subclassResponsibility"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_isBindingAction",
 
-smalltalk.method({
 
-selector: "isBindingAction",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-},
 
-args: [],
 
-source: "isBindingAction\x0a\x09^ false",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_isBindingGroup",
 
-smalltalk.method({
 
-selector: "isBindingGroup",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-},
 
-args: [],
 
-source: "isBindingGroup\x0a\x09^ false",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_key",
 
-smalltalk.method({
 
-selector: "key",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@key'];
 
-},
 
-args: [],
 
-source: "key\x0a\x09^ key",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_key_",
 
-smalltalk.method({
 
-selector: "key:",
 
-category: 'accessing',
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    self['@key'] = anInteger;
 
-    return self;
 
-},
 
-args: ["anInteger"],
 
-source: "key: anInteger\x0a\x09key := anInteger",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_label",
 
-smalltalk.method({
 
-selector: "label",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@label'];
 
-},
 
-args: [],
 
-source: "label\x0a\x09^ label",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_label_",
 
-smalltalk.method({
 
-selector: "label:",
 
-category: 'accessing',
 
-fn: function (aString) {
 
-    var self = this;
 
-    self['@label'] = aString;
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "label: aString\x0a\x09label := aString",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_html_",
 
-smalltalk.method({
 
-selector: "renderOn:html:",
 
-category: 'rendering',
 
-fn: function (aBindingHelper, html) {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: ["aBindingHelper", "html"],
 
-source: "renderOn: aBindingHelper html: html",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-smalltalk.addMethod(
 
-"_shortcut",
 
-smalltalk.method({
 
-selector: "shortcut",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.String || String, "_fromCharCode_", [smalltalk.send(self, "_key", [])]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "shortcut\x0a\x09^ String fromCharCode: self key",
 
-messageSends: ["fromCharCode:", "key"],
 
-referencedClasses: ["String"]
 
-}),
 
-smalltalk.HLBinding);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_labelled_",
 
-smalltalk.method({
 
-selector: "on:labelled:",
 
-category: 'instance creation',
 
-fn: function (anInteger, aString) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_key_", [anInteger]);
 
-    smalltalk.send($2, "_label_", [aString]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["anInteger", "aString"],
 
-source: "on: anInteger labelled: aString\x0a\x09^ self new\x0a    \x09key: anInteger;\x0a        label: aString;\x0a        yourself",
 
-messageSends: ["key:", "new", "label:", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBinding.klass);
 
-
 
-
 
-smalltalk.addClass('HLBindingAction', smalltalk.HLBinding, ['callback'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_applyOn_",
 
-smalltalk.method({
 
-selector: "applyOn:",
 
-category: 'actions',
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    smalltalk.send(aKeyBinder, "_applyBindingAction_", [self]);
 
-    return self;
 
-},
 
-args: ["aKeyBinder"],
 
-source: "applyOn: aKeyBinder\x0a\x09aKeyBinder applyBindingAction: self",
 
-messageSends: ["applyBindingAction:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingAction);
 
-
 
-smalltalk.addMethod(
 
-"_callback",
 
-smalltalk.method({
 
-selector: "callback",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@callback'];
 
-},
 
-args: [],
 
-source: "callback\x0a\x09^ callback",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingAction);
 
-
 
-smalltalk.addMethod(
 
-"_callback_",
 
-smalltalk.method({
 
-selector: "callback:",
 
-category: 'accessing',
 
-fn: function (aBlock) {
 
-    var self = this;
 
-    self['@callback'] = aBlock;
 
-    return self;
 
-},
 
-args: ["aBlock"],
 
-source: "callback: aBlock\x0a\x09callback := aBlock",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingAction);
 
-
 
-smalltalk.addMethod(
 
-"_isBindingAction",
 
-smalltalk.method({
 
-selector: "isBindingAction",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-},
 
-args: [],
 
-source: "isBindingAction\x0a\x09^ true",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingAction);
 
-
 
-
 
-
 
-smalltalk.addClass('HLBindingGroup', smalltalk.HLBinding, ['bindings'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_add_",
 
-smalltalk.method({
 
-selector: "add:",
 
-category: 'accessing',
 
-fn: function (aBinding) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_add_", [aBinding]);
 
-    return $1;
 
-},
 
-args: ["aBinding"],
 
-source: "add: aBinding\x0a\x09^ self bindings add: aBinding",
 
-messageSends: ["add:", "bindings"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_addActionKey_labelled_callback_",
 
-smalltalk.method({
 
-selector: "addActionKey:labelled:callback:",
 
-category: 'accessing',
 
-fn: function (anInteger, aString, aBlock) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [anInteger, aString]);
 
-    smalltalk.send($1, "_callback_", [aBlock]);
 
-    $2 = smalltalk.send($1, "_yourself", []);
 
-    smalltalk.send(self, "_add_", [$2]);
 
-    return self;
 
-},
 
-args: ["anInteger", "aString", "aBlock"],
 
-source: "addActionKey: anInteger labelled: aString callback: aBlock\x0a\x09self add: ((HLBindingAction on: anInteger labelled: aString)\x0a    \x09callback: aBlock;\x0a        yourself)",
 
-messageSends: ["add:", "callback:", "on:labelled:", "yourself"],
 
-referencedClasses: ["HLBindingAction"]
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_addActionKey_labelled_command_",
 
-smalltalk.method({
 
-selector: "addActionKey:labelled:command:",
 
-category: 'accessing',
 
-fn: function (anInteger, aString, aCommand) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [anInteger, aString]);
 
-    smalltalk.send($1, "_command_", [aCommand]);
 
-    $2 = smalltalk.send($1, "_yourself", []);
 
-    smalltalk.send(self, "_add_", [$2]);
 
-    return self;
 
-},
 
-args: ["anInteger", "aString", "aCommand"],
 
-source: "addActionKey: anInteger labelled: aString command: aCommand\x0a\x09self add: ((HLBindingAction on: anInteger labelled: aString)\x0a    \x09command: aCommand;\x0a        yourself)",
 
-messageSends: ["add:", "command:", "on:labelled:", "yourself"],
 
-referencedClasses: ["HLBindingAction"]
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_addGroupKey_labelled_",
 
-smalltalk.method({
 
-selector: "addGroupKey:labelled:",
 
-category: 'accessing',
 
-fn: function (anInteger, aString) {
 
-    var self = this;
 
-    smalltalk.send(self, "_add_", [smalltalk.send(smalltalk.HLBindingGroup || HLBindingGroup, "_on_labelled_", [anInteger, aString])]);
 
-    return self;
 
-},
 
-args: ["anInteger", "aString"],
 
-source: "addGroupKey: anInteger labelled: aString\x0a\x09self add: (HLBindingGroup on: anInteger labelled: aString)",
 
-messageSends: ["add:", "on:labelled:"],
 
-referencedClasses: ["HLBindingGroup"]
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_applyOn_",
 
-smalltalk.method({
 
-selector: "applyOn:",
 
-category: 'actions',
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    smalltalk.send(aKeyBinder, "_applyBindingGroup_", [self]);
 
-    return self;
 
-},
 
-args: ["aKeyBinder"],
 
-source: "applyOn: aKeyBinder\x0a\x09aKeyBinder applyBindingGroup: self",
 
-messageSends: ["applyBindingGroup:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_at_",
 
-smalltalk.method({
 
-selector: "at:",
 
-category: 'accessing',
 
-fn: function (aString) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_detect_ifNone_", [function (each) {return smalltalk.send(smalltalk.send(each, "_label", []), "__eq", [aString]);}, function () {return nil;}]);
 
-    return $1;
 
-},
 
-args: ["aString"],
 
-source: "at: aString\x0a\x09^ self bindings \x0a    \x09detect: [ :each | each label = aString ]\x0a      \x09ifNone: [ nil ]",
 
-messageSends: ["detect:ifNone:", "=", "label", "bindings"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_atKey_",
 
-smalltalk.method({
 
-selector: "atKey:",
 
-category: 'accessing',
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_detect_ifNone_", [function (each) {return smalltalk.send(smalltalk.send(each, "_key", []), "__eq", [anInteger]);}, function () {return nil;}]);
 
-    return $1;
 
-},
 
-args: ["anInteger"],
 
-source: "atKey: anInteger\x0a\x09^ self bindings \x0a    \x09detect: [ :each | each key = anInteger ]\x0a      \x09ifNone: [ nil ]",
 
-messageSends: ["detect:ifNone:", "=", "key", "bindings"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_bindings",
 
-smalltalk.method({
 
-selector: "bindings",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@bindings']) == nil || $receiver == undefined) {
 
-        self['@bindings'] = smalltalk.send(smalltalk.OrderedCollection || OrderedCollection, "_new", []);
 
-        $1 = self['@bindings'];
 
-    } else {
 
-        $1 = self['@bindings'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "bindings\x0a\x09^ bindings ifNil: [ bindings := OrderedCollection new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["OrderedCollection"]
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_isBindingGroup",
 
-smalltalk.method({
 
-selector: "isBindingGroup",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-},
 
-args: [],
 
-source: "isBindingGroup\x0a\x09^ true",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_html_",
 
-smalltalk.method({
 
-selector: "renderOn:html:",
 
-category: 'rendering',
 
-fn: function (aBindingHelper, html) {
 
-    var self = this;
 
-    smalltalk.send(aBindingHelper, "_renderBindingGroup_on_", [self, html]);
 
-    return self;
 
-},
 
-args: ["aBindingHelper", "html"],
 
-source: "renderOn: aBindingHelper html: html\x0a\x09aBindingHelper renderBindingGroup: self on: html",
 
-messageSends: ["renderBindingGroup:on:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLBindingGroup);
 
-
 
-
 
-
 
-smalltalk.addClass('HLKeyBinder', smalltalk.Object, ['modifierKey', 'active', 'helper', 'bindings', 'selectedBinding'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_activate",
 
-smalltalk.method({
 
-selector: "activate",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    self['@active'] = true;
 
-    smalltalk.send(smalltalk.send(self, "_helper", []), "_show", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "activate\x0a\x09active := true.\x0a\x09self helper show",
 
-messageSends: ["show", "helper"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_activationKey",
 
-smalltalk.method({
 
-selector: "activationKey",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 32;
 
-},
 
-args: [],
 
-source: "activationKey\x0a\x09\x22SPACE\x22\x0a\x09^ 32",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_applyBinding_",
 
-smalltalk.method({
 
-selector: "applyBinding:",
 
-category: 'actions',
 
-fn: function (aBinding) {
 
-    var self = this;
 
-    smalltalk.send(aBinding, "_applyOn_", [self]);
 
-    return self;
 
-},
 
-args: ["aBinding"],
 
-source: "applyBinding: aBinding\x0a    aBinding applyOn: self",
 
-messageSends: ["applyOn:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_applyBindingAction_",
 
-smalltalk.method({
 
-selector: "applyBindingAction:",
 
-category: 'actions',
 
-fn: function (aBinding) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(aBinding, "_callback", []), "_value", []);
 
-    smalltalk.send(self, "_deactivate", []);
 
-    return self;
 
-},
 
-args: ["aBinding"],
 
-source: "applyBindingAction: aBinding\x0a    aBinding callback value.\x0a\x09self deactivate",
 
-messageSends: ["value", "callback", "deactivate"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_applyBindingGroup_",
 
-smalltalk.method({
 
-selector: "applyBindingGroup:",
 
-category: 'actions',
 
-fn: function (aBinding) {
 
-    var self = this;
 
-    self['@selectedBinding'] = aBinding;
 
-    smalltalk.send(smalltalk.send(self, "_helper", []), "_refresh", []);
 
-    return self;
 
-},
 
-args: ["aBinding"],
 
-source: "applyBindingGroup: aBinding\x0a    selectedBinding := aBinding.\x0a    self helper refresh",
 
-messageSends: ["refresh", "helper"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_bindings",
 
-smalltalk.method({
 
-selector: "bindings",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@bindings']) == nil || $receiver == undefined) {
 
-        self['@bindings'] = smalltalk.send(smalltalk.HLBindingGroup || HLBindingGroup, "_new", []);
 
-        $1 = self['@bindings'];
 
-    } else {
 
-        $1 = self['@bindings'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "bindings\x0a\x09^ bindings ifNil: [ bindings := HLBindingGroup new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["HLBindingGroup"]
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_deactivate",
 
-smalltalk.method({
 
-selector: "deactivate",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    self['@active'] = false;
 
-    self['@selectedBinding'] = nil;
 
-    smalltalk.send(smalltalk.send(self, "_helper", []), "_hide", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "deactivate\x0a\x09active := false.\x0a    selectedBinding := nil.\x0a\x09self helper hide",
 
-messageSends: ["hide", "helper"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_escapeKey",
 
-smalltalk.method({
 
-selector: "escapeKey",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 27;
 
-},
 
-args: [],
 
-source: "escapeKey\x0a\x09\x22ESC\x22\x0a\x09^ 27",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_flushBindings",
 
-smalltalk.method({
 
-selector: "flushBindings",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    self['@bindings'] = nil;
 
-    self['@helper'] = nil;
 
-    return self;
 
-},
 
-args: [],
 
-source: "flushBindings\x0a\x09bindings := nil.\x0a    helper := nil",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_handleActiveKeyDown_",
 
-smalltalk.method({
 
-selector: "handleActiveKeyDown:",
 
-category: 'events',
 
-fn: function (event) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [smalltalk.send(self, "_escapeKey", [])]), "_or_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [71]), "_and_", [function () {return smalltalk.send(event, "_ctrlKey", []);}]);}]);
 
-    if (smalltalk.assert($1)) {
 
-        smalltalk.send(self, "_deactivate", []);
 
-        smalltalk.send(event, "_preventDefault", []);
 
-        return false;
 
-    }
 
-    $2 = smalltalk.send(self, "_handleBindingFor_", [event]);
 
-    return $2;
 
-},
 
-args: ["event"],
 
-source: "handleActiveKeyDown: event\x0a\x0a\x09\x22ESC or ctrl+g deactivate the keyBinder\x22\x0a\x09(event which = self escapeKey or: [\x0a\x09\x09event which = 71 and: [ event ctrlKey ] ])\x0a        \x09ifTrue: [ \x0a            \x09self deactivate.\x0a\x09\x09\x09\x09event preventDefault.\x0a\x09\x09\x09\x09^ false ].\x0a            \x0a    \x22Handle the keybinding\x22\x0a    ^ self handleBindingFor: event",
 
-messageSends: ["ifTrue:", "deactivate", "preventDefault", "or:", "and:", "ctrlKey", "=", "which", "escapeKey", "handleBindingFor:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_handleBindingFor_",
 
-smalltalk.method({
 
-selector: "handleBindingFor:",
 
-category: 'events',
 
-fn: function (anEvent) {
 
-    var self = this;
 
-    var binding;
 
-    binding = smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_atKey_", [smalltalk.send(anEvent, "_which", [])]);
 
-    if (($receiver = binding) == nil || $receiver == undefined) {
 
-    } else {
 
-        smalltalk.send(self, "_applyBinding_", [binding]);
 
-        smalltalk.send(anEvent, "_preventDefault", []);
 
-        return false;
 
-    }
 
-    return self;
 
-},
 
-args: ["anEvent"],
 
-source: "handleBindingFor: anEvent\x0a\x09| binding |\x0a    binding := self selectedBinding atKey: anEvent which.\x0a    \x0a    binding ifNotNil: [ \x0a    \x09self applyBinding: binding.\x0a\x09\x09anEvent preventDefault.\x0a\x09\x09^ false ]",
 
-messageSends: ["atKey:", "which", "selectedBinding", "ifNotNil:", "applyBinding:", "preventDefault"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_handleInactiveKeyDown_",
 
-smalltalk.method({
 
-selector: "handleInactiveKeyDown:",
 
-category: 'events',
 
-fn: function (event) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [smalltalk.send(self, "_activationKey", [])]);
 
-    if (smalltalk.assert($1)) {
 
-        $2 = smalltalk.send(event, "_ctrlKey", []);
 
-        if (smalltalk.assert($2)) {
 
-            smalltalk.send(self, "_activate", []);
 
-            smalltalk.send(event, "_preventDefault", []);
 
-            return false;
 
-        }
 
-    }
 
-    return self;
 
-},
 
-args: ["event"],
 
-source: "handleInactiveKeyDown: event\x0a      event which = self activationKey ifTrue: [\x0a      \x09\x09event ctrlKey  ifTrue: [\x0a\x09\x09\x09\x09\x09self activate. \x0a               \x09\x09 event preventDefault. \x0a                \x09^ false ] ]",
 
-messageSends: ["ifTrue:", "activate", "preventDefault", "ctrlKey", "=", "activationKey", "which"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_handleKeyDown_",
 
-smalltalk.method({
 
-selector: "handleKeyDown:",
 
-category: 'events',
 
-fn: function (event) {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(self, "_isActive", []);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = smalltalk.send(self, "_handleActiveKeyDown_", [event]);
 
-    } else {
 
-        $1 = smalltalk.send(self, "_handleInactiveKeyDown_", [event]);
 
-    }
 
-    return $1;
 
-},
 
-args: ["event"],
 
-source: "handleKeyDown: event\x0a\x09^ self isActive\x0a    \x09ifTrue: [ self handleActiveKeyDown: event ]\x0a      \x09ifFalse: [ self handleInactiveKeyDown: event ]",
 
-messageSends: ["ifTrue:ifFalse:", "handleActiveKeyDown:", "handleInactiveKeyDown:", "isActive"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_helper",
 
-smalltalk.method({
 
-selector: "helper",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@helper']) == nil || $receiver == undefined) {
 
-        self['@helper'] = smalltalk.send(smalltalk.HLKeyBinderHelper || HLKeyBinderHelper, "_on_", [self]);
 
-        $1 = self['@helper'];
 
-    } else {
 
-        $1 = self['@helper'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "helper\x0a\x09^ helper ifNil: [ helper := HLKeyBinderHelper on: self ]",
 
-messageSends: ["ifNil:", "on:"],
 
-referencedClasses: ["HLKeyBinderHelper"]
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_initialize",
 
-smalltalk.method({
 
-selector: "initialize",
 
-category: 'initialization',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_initialize", [], smalltalk.Object);
 
-    self['@active'] = false;
 
-    return self;
 
-},
 
-args: [],
 
-source: "initialize\x0a\x09super initialize.\x0a    active := false",
 
-messageSends: ["initialize"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_isActive",
 
-smalltalk.method({
 
-selector: "isActive",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@active']) == nil || $receiver == undefined) {
 
-        $1 = false;
 
-    } else {
 
-        $1 = self['@active'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "isActive\x0a\x09^ active ifNil: [ false ]",
 
-messageSends: ["ifNil:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_selectedBinding",
 
-smalltalk.method({
 
-selector: "selectedBinding",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@selectedBinding']) == nil ||
 
-        $receiver == undefined) {
 
-        $1 = smalltalk.send(self, "_bindings", []);
 
-    } else {
 
-        $1 = self['@selectedBinding'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selectedBinding\x0a\x09^ selectedBinding ifNil: [ self bindings ]",
 
-messageSends: ["ifNil:", "bindings"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_setupEvents",
 
-smalltalk.method({
 
-selector: "setupEvents",
 
-category: 'events',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["body"]), "_keydown_", [function (event) {return smalltalk.send(self, "_handleKeyDown_", [event]);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "setupEvents\x0a\x09(window jQuery: 'body') keydown: [ :event | self handleKeyDown: event ]",
 
-messageSends: ["keydown:", "handleKeyDown:", "jQuery:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-smalltalk.addMethod(
 
-"_systemIsMac",
 
-smalltalk.method({
 
-selector: "systemIsMac",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(navigator, "_platform", []), "_match_", ["Mac"]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "systemIsMac\x0a\x09^ navigator platform match: 'Mac'",
 
-messageSends: ["match:", "platform"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinder);
 
-
 
-
 
-
 
-smalltalk.addClass('HLKeyBinderHelper', smalltalk.HLWidget, ['keyBinder'], 'Helios-KeyBindings');
 
-smalltalk.addMethod(
 
-"_hide",
 
-smalltalk.method({
 
-selector: "hide",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@rootDiv'], "_asJQuery", []), "_remove", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "hide\x0a\x09rootDiv asJQuery remove",
 
-messageSends: ["remove", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_keyBinder",
 
-smalltalk.method({
 
-selector: "keyBinder",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@keyBinder'];
 
-},
 
-args: [],
 
-source: "keyBinder\x0a\x09^ keyBinder",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_keyBinder_",
 
-smalltalk.method({
 
-selector: "keyBinder:",
 
-category: 'accessing',
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    self['@keyBinder'] = aKeyBinder;
 
-    return self;
 
-},
 
-args: ["aKeyBinder"],
 
-source: "keyBinder: aKeyBinder\x0a\x09keyBinder := aKeyBinder",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_registerBindings",
 
-smalltalk.method({
 
-selector: "registerBindings",
 
-category: 'keyBindings',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "registerBindings\x0a\x09\x22Do nothing\x22",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_renderBindingGroup_on_",
 
-smalltalk.method({
 
-selector: "renderBindingGroup:on:",
 
-category: 'rendering',
 
-fn: function (aBindingGroup, html) {
 
-    var self = this;
 
-    var $1, $3, $4, $5, $6, $2;
 
-    smalltalk.send(smalltalk.send(smalltalk.send(aBindingGroup, "_bindings", []), "_sorted_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_key", []), "__lt", [smalltalk.send(b, "_key", [])]);}]), "_do_", [function (each) {$1 = smalltalk.send(html, "_span", []);smalltalk.send($1, "_class_", ["command"]);$2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_span", []);smalltalk.send($3, "_class_", ["label"]);$4 = smalltalk.send($3, "_with_", [smalltalk.send(smalltalk.send(each, "_shortcut", []), "_asLowercase", [])]);$4;$5 = smalltalk.send(html, "_a", []);smalltalk.send($5, "_class_", ["action"]);smalltalk.send($5, "_with_", [smalltalk.send(each, "_label", [])]);$6 = smalltalk.send($5, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_applyBinding_", [each]);}]);return $6;}]);return $2;}]);
 
-    return self;
 
-},
 
-args: ["aBindingGroup", "html"],
 
-source: "renderBindingGroup: aBindingGroup on: html\x0a\x09(aBindingGroup bindings \x0a    \x09sorted: [ :a :b | a key < b key ])\x0a        do: [ :each |\x0a\x09\x09\x09html span class: 'command'; with: [\x0a\x09\x09\x09\x09html span class: 'label'; with: each shortcut asLowercase.\x0a  \x09\x09\x09\x09html a \x0a                \x09class: 'action'; \x0a                    with: each label;\x0a  \x09\x09\x09\x09\x09onClick: [ self keyBinder applyBinding: each ] ] ]",
 
-messageSends: ["do:", "class:", "span", "with:", "asLowercase", "shortcut", "a", "label", "onClick:", "applyBinding:", "keyBinder", "sorted:", "<", "key", "bindings"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_renderBindingOn_",
 
-smalltalk.method({
 
-selector: "renderBindingOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_renderOn_html_", [self, html]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderBindingOn: html\x0a\x09self selectedBinding renderOn: self html: html",
 
-messageSends: ["renderOn:html:", "selectedBinding"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $2;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", ["key_helper"]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {smalltalk.send(self, "_renderSelectionOn_", [html]);$3 = smalltalk.send(self, "_renderBindingOn_", [html]);return $3;}]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a\x09html div class: 'key_helper'; with: [\x0a      \x09self \x0a        \x09renderSelectionOn:html;\x0a          \x09renderBindingOn: html ]",
 
-messageSends: ["class:", "div", "with:", "renderSelectionOn:", "renderBindingOn:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_renderSelectionOn_",
 
-smalltalk.method({
 
-selector: "renderSelectionOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $4, $3, $2;
 
-    $1 = smalltalk.send(html, "_span", []);
 
-    smalltalk.send($1, "_class_", ["selected"]);
 
-    $4 = smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_label", []);
 
-    if (($receiver = $4) == nil || $receiver == undefined) {
 
-        $3 = "Action";
 
-    } else {
 
-        $3 = $4;
 
-    }
 
-    $2 = smalltalk.send($1, "_with_", [$3]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderSelectionOn: html\x0a\x09\x09html span \x0a        \x09class: 'selected'; \x0a            with: (self selectedBinding label ifNil: [ 'Action' ])",
 
-messageSends: ["class:", "span", "with:", "ifNil:", "label", "selectedBinding"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_selectedBinding",
 
-smalltalk.method({
 
-selector: "selectedBinding",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_selectedBinding", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selectedBinding\x0a\x09^ self keyBinder selectedBinding",
 
-messageSends: ["selectedBinding", "keyBinder"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-smalltalk.addMethod(
 
-"_show",
 
-smalltalk.method({
 
-selector: "show",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "show\x0a\x09self appendToJQuery: 'body' asJQuery",
 
-messageSends: ["appendToJQuery:", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'instance creation',
 
-fn: function (aKeyBinder) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_keyBinder_", [aKeyBinder]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["aKeyBinder"],
 
-source: "on: aKeyBinder\x0a\x09^ self new\x0a    \x09keyBinder: aKeyBinder;\x0a        yourself",
 
-messageSends: ["keyBinder:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLKeyBinderHelper.klass);
 
-
 
-

+ 0 - 383
js/Helios-Layout.deploy.js
Xem Tập Tin 

@@ -1,383 +0,0 @@
 
-smalltalk.addPackage('Helios-Layout', {});
 
-smalltalk.addClass('HLContainer', smalltalk.Widget, ['splitter'], 'Helios-Layout');
 
-smalltalk.addMethod(
 
-"_renderOn_",
 
-smalltalk.method({
 
-selector: "renderOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_id_", ["container"]);
 
-    $2 = smalltalk.send($1, "_with_", [smalltalk.send(self, "_splitter", [])]);
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", [window]), "_bind_do_", ["resize", function () {return smalltalk.send(smalltalk.send(self, "_splitter", []), "_resize", []);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLContainer);
 
-
 
-smalltalk.addMethod(
 
-"_splitter",
 
-smalltalk.method({
 
-selector: "splitter",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@splitter'];
 
-}
 
-}),
 
-smalltalk.HLContainer);
 
-
 
-smalltalk.addMethod(
 
-"_splitter_",
 
-smalltalk.method({
 
-selector: "splitter:",
 
-fn: function (aSplitter) {
 
-    var self = this;
 
-    self['@splitter'] = aSplitter;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLContainer);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_with_",
 
-smalltalk.method({
 
-selector: "with:",
 
-fn: function (aSplitter) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_splitter_", [aSplitter]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLContainer.klass);
 
-
 
-
 
-smalltalk.addClass('HLSplitter', smalltalk.Widget, ['firstWidget', 'secondWidget', 'firstPane', 'secondPane', 'splitter'], 'Helios-Layout');
 
-smalltalk.addMethod(
 
-"_cssClass",
 
-smalltalk.method({
 
-selector: "cssClass",
 
-fn: function () {
 
-    var self = this;
 
-    return "splitter";
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_firstWidget",
 
-smalltalk.method({
 
-selector: "firstWidget",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@firstWidget'];
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_firstWidget_",
 
-smalltalk.method({
 
-selector: "firstWidget:",
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    self['@firstWidget'] = aWidget;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_isHeliosSplitter",
 
-smalltalk.method({
 
-selector: "isHeliosSplitter",
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_panesCssClass",
 
-smalltalk.method({
 
-selector: "panesCssClass",
 
-fn: function () {
 
-    var self = this;
 
-    return "panes";
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_",
 
-smalltalk.method({
 
-selector: "renderOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $4, $5, $6, $2, $7;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", [smalltalk.send(self, "_panesCssClass", [])]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_div", []);smalltalk.send($3, "_class_", ["pane"]);$4 = smalltalk.send($3, "_with_", [smalltalk.send(self, "_firstWidget", [])]);self['@firstPane'] = $4;self['@firstPane'];self['@splitter'] = smalltalk.send(smalltalk.send(html, "_div", []), "_class_", [smalltalk.send(self, "_cssClass", [])]);self['@splitter'];$5 = smalltalk.send(html, "_div", []);smalltalk.send($5, "_class_", ["pane"]);$6 = smalltalk.send($5, "_with_", [smalltalk.send(self, "_secondWidget", [])]);self['@secondPane'] = $6;return self['@secondPane'];}]);
 
-    smalltalk.send(self, "_setupSplitter", []);
 
-    $7 = smalltalk.send(self, "_resize", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize",
 
-smalltalk.method({
 
-selector: "resize",
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_firstWidget", []), "_isHeliosSplitter", []);
 
-    if (smalltalk.assert($1)) {
 
-        smalltalk.send(smalltalk.send(self, "_firstWidget", []), "_resize", []);
 
-    }
 
-    $2 = smalltalk.send(smalltalk.send(self, "_secondWidget", []), "_isHeliosSplitter", []);
 
-    if (smalltalk.assert($2)) {
 
-        smalltalk.send(smalltalk.send(self, "_secondWidget", []), "_resize", []);
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_secondWidget",
 
-smalltalk.method({
 
-selector: "secondWidget",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@secondWidget'];
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_secondWidget_",
 
-smalltalk.method({
 
-selector: "secondWidget:",
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    self['@secondWidget'] = aWidget;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_setupSplitter",
 
-smalltalk.method({
 
-selector: "setupSplitter",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_with_with_",
 
-smalltalk.method({
 
-selector: "with:with:",
 
-fn: function (aWidget, anotherWidget) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_firstWidget_", [aWidget]);
 
-    smalltalk.send($2, "_secondWidget_", [anotherWidget]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLSplitter.klass);
 
-
 
-
 
-smalltalk.addClass('HLHorizontalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
 
-smalltalk.addMethod(
 
-"_cssClass",
 
-smalltalk.method({
 
-selector: "cssClass",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_cssClass", [], smalltalk.HLSplitter), "__comma", [" horizontal"]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_panesCssClass",
 
-smalltalk.method({
 
-selector: "panesCssClass",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_panesCssClass", [], smalltalk.HLSplitter), "__comma", [" horizontal"]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize",
 
-smalltalk.method({
 
-selector: "resize",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_offset", []), "_top", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize_",
 
-smalltalk.method({
 
-selector: "resize:",
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    var container;
 
-    var position;
 
-    container = smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_parent", []);
 
-    position = smalltalk.send(anInteger, "__minus", [smalltalk.send(smalltalk.send(container, "_offset", []), "_top", [])]);
 
-    smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_height_", [smalltalk.send(smalltalk.send(position, "_min_", [smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [100])]), "_max_", [100])]);
 
-    smalltalk.send(smalltalk.send(self['@secondPane'], "_asJQuery", []), "_height_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [position]), "_min_", [smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [100])]), "_max_", [100]), "__minus", [6])]);
 
-    smalltalk.send(self, "_resize", [], smalltalk.HLSplitter);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_setupSplitter",
 
-smalltalk.method({
 
-selector: "setupSplitter",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_draggable_", [smalltalk.HashedCollection._fromPairs_([smalltalk.send("axis", "__minus_gt", ["y"]), smalltalk.send("containment", "__minus_gt", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_parent", [])]), smalltalk.send("helper", "__minus_gt", ["clone"]), smalltalk.send("start", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_startResizing_", [smalltalk.send(ui, "_helper", [])]);}]), smalltalk.send("drag", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(ui, "_offset", []), "_top", [])]);}])])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_startResizing_",
 
-smalltalk.method({
 
-selector: "startResizing:",
 
-fn: function (aSplitter) {
 
-    var self = this;
 
-    smalltalk.send(aSplitter, "_width_", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_width", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-
 
-
 
-smalltalk.addClass('HLVerticalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
 
-smalltalk.addMethod(
 
-"_cssClass",
 
-smalltalk.method({
 
-selector: "cssClass",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_cssClass", [], smalltalk.HLSplitter), "__comma", [" vertical"]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_panesCssClass",
 
-smalltalk.method({
 
-selector: "panesCssClass",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_panesCssClass", [], smalltalk.HLSplitter), "__comma", [" vertical"]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize",
 
-smalltalk.method({
 
-selector: "resize",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_offset", []), "_left", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize_",
 
-smalltalk.method({
 
-selector: "resize:",
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    var container;
 
-    var position;
 
-    container = smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_parent", []);
 
-    position = smalltalk.send(anInteger, "__minus", [smalltalk.send(smalltalk.send(container, "_offset", []), "_left", [])]);
 
-    smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_width_", [smalltalk.send(smalltalk.send(position, "_min_", [smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [100])]), "_max_", [100])]);
 
-    smalltalk.send(smalltalk.send(self['@secondPane'], "_asJQuery", []), "_width_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [position]), "_min_", [smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [100])]), "_max_", [100]), "__minus", [6])]);
 
-    smalltalk.send(self, "_resize", [], smalltalk.HLSplitter);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_setupSplitter",
 
-smalltalk.method({
 
-selector: "setupSplitter",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_draggable_", [smalltalk.HashedCollection._fromPairs_([smalltalk.send("axis", "__minus_gt", ["x"]), smalltalk.send("containment", "__minus_gt", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_parent", [])]), smalltalk.send("helper", "__minus_gt", ["clone"]), smalltalk.send("start", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_startResizing_", [smalltalk.send(ui, "_helper", [])]);}]), smalltalk.send("drag", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(ui, "_offset", []), "_left", [])]);}])])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_startResizing_",
 
-smalltalk.method({
 
-selector: "startResizing:",
 
-fn: function (aSplitter) {
 
-    var self = this;
 
-    smalltalk.send(aSplitter, "_height_", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_height", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-
 
-
 
-smalltalk.addMethod(
 
-"_isHeliosSplitter",
 
-smalltalk.method({
 
-selector: "isHeliosSplitter",
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-}
 
-}),
 
-smalltalk.Object);
 
-

+ 0 - 523
js/Helios-Layout.js
Xem Tập Tin 

@@ -1,523 +0,0 @@
 
-smalltalk.addPackage('Helios-Layout', {});
 
-smalltalk.addClass('HLContainer', smalltalk.Widget, ['splitter'], 'Helios-Layout');
 
-smalltalk.addMethod(
 
-"_renderOn_",
 
-smalltalk.method({
 
-selector: "renderOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_id_", ["container"]);
 
-    $2 = smalltalk.send($1, "_with_", [smalltalk.send(self, "_splitter", [])]);
 
-    smalltalk.send(smalltalk.send(window, "_jQuery_", [window]), "_bind_do_", ["resize", function () {return smalltalk.send(smalltalk.send(self, "_splitter", []), "_resize", []);}]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderOn: html\x0a\x09html div \x0a    \x09id: 'container'; \x0a        with: self splitter.\x0a        \x0a   (window jQuery: window) bind: 'resize' do: [ self splitter resize ]",
 
-messageSends: ["id:", "div", "with:", "splitter", "bind:do:", "resize", "jQuery:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLContainer);
 
-
 
-smalltalk.addMethod(
 
-"_splitter",
 
-smalltalk.method({
 
-selector: "splitter",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@splitter'];
 
-},
 
-args: [],
 
-source: "splitter\x0a\x09^ splitter",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLContainer);
 
-
 
-smalltalk.addMethod(
 
-"_splitter_",
 
-smalltalk.method({
 
-selector: "splitter:",
 
-category: 'accessing',
 
-fn: function (aSplitter) {
 
-    var self = this;
 
-    self['@splitter'] = aSplitter;
 
-    return self;
 
-},
 
-args: ["aSplitter"],
 
-source: "splitter: aSplitter\x0a\x09splitter := aSplitter",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLContainer);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_with_",
 
-smalltalk.method({
 
-selector: "with:",
 
-category: 'instance creation',
 
-fn: function (aSplitter) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_splitter_", [aSplitter]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["aSplitter"],
 
-source: "with: aSplitter\x0a\x09^ self new \x0a    \x09splitter: aSplitter; \x0a        yourself",
 
-messageSends: ["splitter:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLContainer.klass);
 
-
 
-
 
-smalltalk.addClass('HLSplitter', smalltalk.Widget, ['firstWidget', 'secondWidget', 'firstPane', 'secondPane', 'splitter'], 'Helios-Layout');
 
-smalltalk.addMethod(
 
-"_cssClass",
 
-smalltalk.method({
 
-selector: "cssClass",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "splitter";
 
-},
 
-args: [],
 
-source: "cssClass\x0a\x09^ 'splitter'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_firstWidget",
 
-smalltalk.method({
 
-selector: "firstWidget",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@firstWidget'];
 
-},
 
-args: [],
 
-source: "firstWidget\x0a\x09^ firstWidget",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_firstWidget_",
 
-smalltalk.method({
 
-selector: "firstWidget:",
 
-category: 'accessing',
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    self['@firstWidget'] = aWidget;
 
-    return self;
 
-},
 
-args: ["aWidget"],
 
-source: "firstWidget: aWidget\x0a\x09firstWidget := aWidget",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_isHeliosSplitter",
 
-smalltalk.method({
 
-selector: "isHeliosSplitter",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-},
 
-args: [],
 
-source: "isHeliosSplitter\x0a\x09^ true",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_panesCssClass",
 
-smalltalk.method({
 
-selector: "panesCssClass",
 
-category: 'rendering',
 
-fn: function () {
 
-    var self = this;
 
-    return "panes";
 
-},
 
-args: [],
 
-source: "panesCssClass\x0a\x09^ 'panes'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_renderOn_",
 
-smalltalk.method({
 
-selector: "renderOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    var $1, $3, $4, $5, $6, $2, $7;
 
-    $1 = smalltalk.send(html, "_div", []);
 
-    smalltalk.send($1, "_class_", [smalltalk.send(self, "_panesCssClass", [])]);
 
-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_div", []);smalltalk.send($3, "_class_", ["pane"]);$4 = smalltalk.send($3, "_with_", [smalltalk.send(self, "_firstWidget", [])]);self['@firstPane'] = $4;self['@firstPane'];self['@splitter'] = smalltalk.send(smalltalk.send(html, "_div", []), "_class_", [smalltalk.send(self, "_cssClass", [])]);self['@splitter'];$5 = smalltalk.send(html, "_div", []);smalltalk.send($5, "_class_", ["pane"]);$6 = smalltalk.send($5, "_with_", [smalltalk.send(self, "_secondWidget", [])]);self['@secondPane'] = $6;return self['@secondPane'];}]);
 
-    smalltalk.send(self, "_setupSplitter", []);
 
-    $7 = smalltalk.send(self, "_resize", []);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderOn: html\x0a\x09html div class: self panesCssClass; with: [\x0a\x09\x09firstPane := html div class: 'pane'; with: self firstWidget.\x0a    \x09splitter := html div class: self cssClass.\x0a    \x09secondPane := html div class: 'pane'; with: self secondWidget ].\x0a        \x0a\x09self \x0a    \x09setupSplitter;\x0a        resize",
 
-messageSends: ["class:", "panesCssClass", "div", "with:", "firstWidget", "cssClass", "secondWidget", "setupSplitter", "resize"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize",
 
-smalltalk.method({
 
-selector: "resize",
 
-category: 'rendering',
 
-fn: function () {
 
-    var self = this;
 
-    var $1, $2;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_firstWidget", []), "_isHeliosSplitter", []);
 
-    if (smalltalk.assert($1)) {
 
-        smalltalk.send(smalltalk.send(self, "_firstWidget", []), "_resize", []);
 
-    }
 
-    $2 = smalltalk.send(smalltalk.send(self, "_secondWidget", []), "_isHeliosSplitter", []);
 
-    if (smalltalk.assert($2)) {
 
-        smalltalk.send(smalltalk.send(self, "_secondWidget", []), "_resize", []);
 
-    }
 
-    return self;
 
-},
 
-args: [],
 
-source: "resize\x0a\x09self firstWidget isHeliosSplitter ifTrue: [ self firstWidget resize ].\x0a    self secondWidget isHeliosSplitter ifTrue: [ self secondWidget resize ]",
 
-messageSends: ["ifTrue:", "resize", "firstWidget", "isHeliosSplitter", "secondWidget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_secondWidget",
 
-smalltalk.method({
 
-selector: "secondWidget",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@secondWidget'];
 
-},
 
-args: [],
 
-source: "secondWidget\x0a\x09^ secondWidget",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_secondWidget_",
 
-smalltalk.method({
 
-selector: "secondWidget:",
 
-category: 'accessing',
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    self['@secondWidget'] = aWidget;
 
-    return self;
 
-},
 
-args: ["aWidget"],
 
-source: "secondWidget: aWidget\x0a\x09secondWidget := aWidget",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_setupSplitter",
 
-smalltalk.method({
 
-selector: "setupSplitter",
 
-category: 'rendering',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "setupSplitter",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_with_with_",
 
-smalltalk.method({
 
-selector: "with:with:",
 
-category: 'instance creation',
 
-fn: function (aWidget, anotherWidget) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_firstWidget_", [aWidget]);
 
-    smalltalk.send($2, "_secondWidget_", [anotherWidget]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["aWidget", "anotherWidget"],
 
-source: "with: aWidget with: anotherWidget\x0a\x09^ self new\x0a    \x09\x09firstWidget: aWidget;\x0a            secondWidget: anotherWidget;\x0a            yourself",
 
-messageSends: ["firstWidget:", "new", "secondWidget:", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLSplitter.klass);
 
-
 
-
 
-smalltalk.addClass('HLHorizontalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
 
-smalltalk.addMethod(
 
-"_cssClass",
 
-smalltalk.method({
 
-selector: "cssClass",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_cssClass", [], smalltalk.HLSplitter), "__comma", [" horizontal"]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "cssClass\x0a\x09^ super cssClass, ' horizontal'",
 
-messageSends: [",", "cssClass"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_panesCssClass",
 
-smalltalk.method({
 
-selector: "panesCssClass",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_panesCssClass", [], smalltalk.HLSplitter), "__comma", [" horizontal"]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "panesCssClass\x0a\x09^ super panesCssClass, ' horizontal'",
 
-messageSends: [",", "panesCssClass"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize",
 
-smalltalk.method({
 
-selector: "resize",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_offset", []), "_top", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "resize\x0a\x09self resize: splitter asJQuery offset top",
 
-messageSends: ["resize:", "top", "offset", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize_",
 
-smalltalk.method({
 
-selector: "resize:",
 
-category: 'actions',
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    var container;
 
-    var position;
 
-    container = smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_parent", []);
 
-    position = smalltalk.send(anInteger, "__minus", [smalltalk.send(smalltalk.send(container, "_offset", []), "_top", [])]);
 
-    smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_height_", [smalltalk.send(smalltalk.send(position, "_min_", [smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [100])]), "_max_", [100])]);
 
-    smalltalk.send(smalltalk.send(self['@secondPane'], "_asJQuery", []), "_height_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [position]), "_min_", [smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [100])]), "_max_", [100]), "__minus", [6])]);
 
-    smalltalk.send(self, "_resize", [], smalltalk.HLSplitter);
 
-    return self;
 
-},
 
-args: ["anInteger"],
 
-source: "resize: anInteger\x0a\x09| container position |\x0a    \x0a    container := firstPane asJQuery parent.\x0a    position := anInteger - container offset top.\x0a    \x0a\x09firstPane asJQuery height: ((position min: container height - 100) max: 100).\x0a    secondPane asJQuery height: (((container height - position) min: container height - 100) max: 100) - 6.\x0a    \x0a    super resize",
 
-messageSends: ["parent", "asJQuery", "-", "top", "offset", "height:", "max:", "min:", "height", "resize"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_setupSplitter",
 
-smalltalk.method({
 
-selector: "setupSplitter",
 
-category: 'rendering',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_draggable_", [smalltalk.HashedCollection._fromPairs_([smalltalk.send("axis", "__minus_gt", ["y"]), smalltalk.send("containment", "__minus_gt", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_parent", [])]), smalltalk.send("helper", "__minus_gt", ["clone"]), smalltalk.send("start", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_startResizing_", [smalltalk.send(ui, "_helper", [])]);}]), smalltalk.send("drag", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(ui, "_offset", []), "_top", [])]);}])])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "setupSplitter\x0a\x09splitter asJQuery draggable: #{ \x0a    \x09'axis' -> 'y'. \x0a        'containment' -> splitter asJQuery parent.\x0a        'helper' -> 'clone'.\x0a        'start' -> [ :e :ui | self startResizing: ui helper ].\x0a        'drag' -> [ :e :ui | self resize: ui offset top ] }",
 
-messageSends: ["draggable:", "->", "parent", "asJQuery", "startResizing:", "helper", "resize:", "top", "offset"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_startResizing_",
 
-smalltalk.method({
 
-selector: "startResizing:",
 
-category: 'actions',
 
-fn: function (aSplitter) {
 
-    var self = this;
 
-    smalltalk.send(aSplitter, "_width_", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_width", [])]);
 
-    return self;
 
-},
 
-args: ["aSplitter"],
 
-source: "startResizing: aSplitter\x0a\x09aSplitter width: splitter asJQuery width",
 
-messageSends: ["width:", "width", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLHorizontalSplitter);
 
-
 
-
 
-
 
-smalltalk.addClass('HLVerticalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
 
-smalltalk.addMethod(
 
-"_cssClass",
 
-smalltalk.method({
 
-selector: "cssClass",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_cssClass", [], smalltalk.HLSplitter), "__comma", [" vertical"]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "cssClass\x0a\x09^ super cssClass, ' vertical'",
 
-messageSends: [",", "cssClass"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_panesCssClass",
 
-smalltalk.method({
 
-selector: "panesCssClass",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_panesCssClass", [], smalltalk.HLSplitter), "__comma", [" vertical"]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "panesCssClass\x0a\x09^ super panesCssClass, ' vertical'",
 
-messageSends: [",", "panesCssClass"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize",
 
-smalltalk.method({
 
-selector: "resize",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_offset", []), "_left", [])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "resize\x0a\x09self resize: splitter asJQuery offset left",
 
-messageSends: ["resize:", "left", "offset", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_resize_",
 
-smalltalk.method({
 
-selector: "resize:",
 
-category: 'actions',
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    var container;
 
-    var position;
 
-    container = smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_parent", []);
 
-    position = smalltalk.send(anInteger, "__minus", [smalltalk.send(smalltalk.send(container, "_offset", []), "_left", [])]);
 
-    smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_width_", [smalltalk.send(smalltalk.send(position, "_min_", [smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [100])]), "_max_", [100])]);
 
-    smalltalk.send(smalltalk.send(self['@secondPane'], "_asJQuery", []), "_width_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [position]), "_min_", [smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [100])]), "_max_", [100]), "__minus", [6])]);
 
-    smalltalk.send(self, "_resize", [], smalltalk.HLSplitter);
 
-    return self;
 
-},
 
-args: ["anInteger"],
 
-source: "resize: anInteger\x0a\x09| container position |\x0a    \x0a    container := firstPane asJQuery parent.\x0a    position := anInteger - container offset left.\x0a    \x0a\x09firstPane asJQuery width: ((position min: container width - 100) max: 100).\x0a    secondPane asJQuery width: (((container width - position) min: container width - 100) max: 100) - 6.\x0a    \x0a    super resize",
 
-messageSends: ["parent", "asJQuery", "-", "left", "offset", "width:", "max:", "min:", "width", "resize"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_setupSplitter",
 
-smalltalk.method({
 
-selector: "setupSplitter",
 
-category: 'rendering',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_draggable_", [smalltalk.HashedCollection._fromPairs_([smalltalk.send("axis", "__minus_gt", ["x"]), smalltalk.send("containment", "__minus_gt", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_parent", [])]), smalltalk.send("helper", "__minus_gt", ["clone"]), smalltalk.send("start", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_startResizing_", [smalltalk.send(ui, "_helper", [])]);}]), smalltalk.send("drag", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(ui, "_offset", []), "_left", [])]);}])])]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "setupSplitter\x0a\x09splitter asJQuery draggable: #{ \x0a    \x09'axis' -> 'x'. \x0a        'containment' -> splitter asJQuery parent.\x0a        'helper' -> 'clone'.\x0a        'start' -> [ :e :ui | self startResizing: ui helper ].\x0a        'drag' -> [ :e :ui | self resize: ui offset left ] }",
 
-messageSends: ["draggable:", "->", "parent", "asJQuery", "startResizing:", "helper", "resize:", "left", "offset"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-smalltalk.addMethod(
 
-"_startResizing_",
 
-smalltalk.method({
 
-selector: "startResizing:",
 
-category: 'actions',
 
-fn: function (aSplitter) {
 
-    var self = this;
 
-    smalltalk.send(aSplitter, "_height_", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_height", [])]);
 
-    return self;
 
-},
 
-args: ["aSplitter"],
 
-source: "startResizing: aSplitter\x0a\x09aSplitter height: splitter asJQuery height",
 
-messageSends: ["height:", "height", "asJQuery"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLVerticalSplitter);
 
-
 
-
 
-
 
-smalltalk.addMethod(
 
-"_isHeliosSplitter",
 
-smalltalk.method({
 
-selector: "isHeliosSplitter",
 
-category: '*Helios-Layout',
 
-fn: function () {
 
-    var self = this;
 
-    return false;
 
-},
 
-args: [],
 
-source: "isHeliosSplitter\x0a\x09^ false",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.Object);
 
-

+ 0 - 799
js/Helios-Workspace.deploy.js
Xem Tập Tin 

@@ -1,799 +0,0 @@
 
-smalltalk.addPackage('Helios-Workspace', {});
 
-smalltalk.addClass('HLCodeModel', smalltalk.Object, ['announcer', 'environment', 'receiver'], 'Helios-Workspace');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_defaultReceiver",
 
-smalltalk.method({
 
-selector: "defaultReceiver",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.DoIt || DoIt, "_new", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_doIt_",
 
-smalltalk.method({
 
-selector: "doIt:",
 
-fn: function (someCode) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_environment", []), "_eval_on_", [someCode, smalltalk.send(self, "_receiver", [])]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_receiver",
 
-smalltalk.method({
 
-selector: "receiver",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@receiver']) == nil || $receiver == undefined) {
 
-        self['@receiver'] = smalltalk.send(self, "_defaultReceiver", []);
 
-        $1 = self['@receiver'];
 
-    } else {
 
-        $1 = self['@receiver'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_receiver_",
 
-smalltalk.method({
 
-selector: "receiver:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@receiver'] = anObject;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_subscribe_",
 
-smalltalk.method({
 
-selector: "subscribe:",
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    smalltalk.send(aWidget, "_subscribeTo_", [smalltalk.send(self, "_announcer", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_environment_", [anEnvironment]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeModel.klass);
 
-
 
-
 
-smalltalk.addClass('HLCodeWidget', smalltalk.HLWidget, ['model', 'wrapper', 'code', 'editor'], 'Helios-Workspace');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_clear",
 
-smalltalk.method({
 
-selector: "clear",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_contents_", [""]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_contents",
 
-smalltalk.method({
 
-selector: "contents",
 
-fn: function (){
 
-var self=this;
 
-var $1;
 
-$1=smalltalk.send(self["@editor"],"_getValue",[]);
 
-return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_contents_",
 
-smalltalk.method({
 
-selector: "contents:",
 
-fn: function (aString){
 
-var self=this;
 
-smalltalk.send(self["@editor"],"_setValue_",[aString]);
 
-return self}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_currentLine",
 
-smalltalk.method({
 
-selector: "currentLine",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@editor'], "_getLine_", [smalltalk.send(smalltalk.send(self['@editor'], "_getCursor", []), "_line", [])]);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_currentLineOrSelection",
 
-smalltalk.method({
 
-selector: "currentLineOrSelection",
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(self['@editor'], "_somethingSelected", []);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = smalltalk.send(self, "_selection", []);
 
-    } else {
 
-        $1 = smalltalk.send(self, "_currentLine", []);
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_doIt",
 
-smalltalk.method({
 
-selector: "doIt",
 
-fn: function () {
 
-    var self = this;
 
-    var result;
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDoItRequested || HLDoItRequested, "_on_", [self['@model']])]);
 
-    result = smalltalk.send(self['@model'], "_doIt_", [smalltalk.send(self, "_currentLineOrSelection", [])]);
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDoItExecuted || HLDoItExecuted, "_on_", [self['@model']])]);
 
-    return result;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_editor",
 
-smalltalk.method({
 
-selector: "editor",
 
-fn: function () {
 
-    var self = this;
 
-    return self['@editor'];
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focus",
 
-smalltalk.method({
 
-selector: "focus",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_editor", []), "_focus", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_inspectIt",
 
-smalltalk.method({
 
-selector: "inspectIt",
 
-fn: function () {
 
-    var self = this;
 
-    var newInspector;
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLInspectItRequested || HLInspectItRequested, "_on_", [self['@model']])]);
 
-    newInspector = smalltalk.send(self, "_makeInspectorOn_", [smalltalk.send(self, "_doIt", [])]);
 
-    smalltalk.send(newInspector, "_open", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_makeInspectorOn_",
 
-smalltalk.method({
 
-selector: "makeInspectorOn:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(smalltalk.HLInspector || HLInspector, "_new", []);
 
-    smalltalk.send($2, "_inspect_", [anObject]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
 
-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_new", [])]);
 
-        $1 = self['@model'];
 
-    } else {
 
-        $1 = self['@model'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-fn: function (aModel){
 
-var self=this;
 
-self["@model"]=aModel;
 
-return self}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeWrapper",
 
-smalltalk.method({
 
-selector: "observeWrapper",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self['@wrapper'], "_onKeyDown_", [function (e) {return smalltalk.send(self, "_onKeyDown_", [e]);}]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onDoIt",
 
-smalltalk.method({
 
-selector: "onDoIt",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_doIt", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onInspectIt",
 
-smalltalk.method({
 
-selector: "onInspectIt",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_inspectIt", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onKeyDown_",
 
-smalltalk.method({
 
-selector: "onKeyDown:",
 
-fn: function (anEvent) {
 
-    var self = this;
 
-    if (anEvent.ctrlKey) {
 
-        if (anEvent.keyCode === 80) {
 
-            self._onPrintIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 68) {
 
-            self._onDoIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 73) {
 
-            self._onInspectIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onPrintIt",
 
-smalltalk.method({
 
-selector: "onPrintIt",
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_printIt", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_print_",
 
-smalltalk.method({
 
-selector: "print:",
 
-fn: function (aString) {
 
-    var self = this;
 
-    var start;
 
-    var stop;
 
-    start = smalltalk.send(smalltalk.HashedCollection || HashedCollection, "_new", []);
 
-    stop = smalltalk.send(smalltalk.HashedCollection || HashedCollection, "_new", []);
 
-    smalltalk.send(start, "_at_put_", ["line", smalltalk.send(smalltalk.send(self['@editor'], "_getCursor_", [false]), "_line", [])]);
 
-    smalltalk.send(start, "_at_put_", ["ch", smalltalk.send(smalltalk.send(self['@editor'], "_getCursor_", [false]), "_ch", [])]);
 
-    smalltalk.send(stop, "_at_put_", ["line", smalltalk.send(start, "_at_", ["line"])]);
 
-    smalltalk.send(stop, "_at_put_", ["ch", smalltalk.send(smalltalk.send(smalltalk.send(start, "_at_", ["ch"]), "__plus", [smalltalk.send(aString, "_size", [])]), "__plus", [2])]);
 
-    smalltalk.send(self['@editor'], "_replaceSelection_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self['@editor'], "_getSelection", []), "__comma", [" "]), "__comma", [aString]), "__comma", [" "])]);
 
-    smalltalk.send(self['@editor'], "_setCursor_", [smalltalk.send(self['@editor'], "_getCursor_", [true])]);
 
-    smalltalk.send(self['@editor'], "_setSelection_end_", [stop, start]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_printIt",
 
-smalltalk.method({
 
-selector: "printIt",
 
-fn: function () {
 
-    var self = this;
 
-    var result;
 
-    result = smalltalk.send(self, "_doIt", []);
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLPrintItRequested || HLPrintItRequested, "_on_", [self['@model']])]);
 
-    smalltalk.send(self, "_print_", [smalltalk.send(result, "_printString", [])]);
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_receiver",
 
-smalltalk.method({
 
-selector: "receiver",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_receiver", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_receiver_",
 
-smalltalk.method({
 
-selector: "receiver:",
 
-fn: function (anObject) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_receiver_", [anObject]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html){
 
-var self=this;
 
-self["@code"]=smalltalk.send(html,"_textarea",[]);
 
-smalltalk.send(self,"_setEditorOn_",[smalltalk.send(self["@code"],"_element",[])]);
 
-smalltalk.send(self,"_observeWrapper",[]);
 
-return self}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selection",
 
-smalltalk.method({
 
-selector: "selection",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@editor'], "_getSelection", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionEnd",
 
-smalltalk.method({
 
-selector: "selectionEnd",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionEnd", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionEnd_",
 
-smalltalk.method({
 
-selector: "selectionEnd:",
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionEnd_", [anInteger]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionStart",
 
-smalltalk.method({
 
-selector: "selectionStart",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionStart", []);
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionStart_",
 
-smalltalk.method({
 
-selector: "selectionStart:",
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionStart_", [anInteger]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_setEditorOn_",
 
-smalltalk.method({
 
-selector: "setEditorOn:",
 
-fn: function (aTextarea) {
 
-    var self = this;
 
-    self['@editor'] = CodeMirror.fromTextArea(aTextarea, {theme: "amber", lineNumbers: true, enterMode: "flat", matchBrackets: true, electricChars: false});
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLWorkspace', smalltalk.HLWidget, ['model', 'codeWidget'], 'Helios-Workspace');
 
-smalltalk.addMethod(
 
-"_codeWidget",
 
-smalltalk.method({
 
-selector: "codeWidget",
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
 
-        $2 = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
 
-        smalltalk.send($2, "_model_", [smalltalk.send(smalltalk.send(self, "_model", []), "_code", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        self['@codeWidget'] = $3;
 
-        $1 = self['@codeWidget'];
 
-    } else {
 
-        $1 = self['@codeWidget'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
 
-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLWorkspaceModel || HLWorkspaceModel, "_new", [])]);
 
-        $1 = self['@model'];
 
-    } else {
 
-        $1 = self['@model'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@model'] = aModel;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_model_", [smalltalk.send(aModel, "_code", [])]);
 
-    smalltalk.send(self, "_observeCodeWidget", []);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_observeCodeWidget",
 
-smalltalk.method({
 
-selector: "observeCodeWidget",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_onDoIt",
 
-smalltalk.method({
 
-selector: "onDoIt",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_onInspectIt",
 
-smalltalk.method({
 
-selector: "onInspectIt",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_onPrintIt",
 
-smalltalk.method({
 
-selector: "onPrintIt",
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(self, "_codeWidget", [])]);
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-}
 
-}),
 
-smalltalk.HLWorkspace.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-fn: function () {
 
-    var self = this;
 
-    return "Workspace";
 
-}
 
-}),
 
-smalltalk.HLWorkspace.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-fn: function () {
 
-    var self = this;
 
-    return 10;
 
-}
 
-}),
 
-smalltalk.HLWorkspace.klass);
 
-
 
-
 
-smalltalk.addClass('HLWorkspaceModel', smalltalk.Object, ['announcer', 'environment', 'code'], 'Helios-Workspace');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-smalltalk.addMethod(
 
-"_code",
 
-smalltalk.method({
 
-selector: "code",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@code']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_on_", [smalltalk.send(self, "_environment", [])]);
 
-    } else {
 
-        $1 = self['@code'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-smalltalk.addMethod(
 
-"_onKeyDown_",
 
-smalltalk.method({
 
-selector: "onKeyDown:",
 
-fn: function (anEvent) {
 
-    var self = this;
 
-    if (anEvent.ctrlKey) {
 
-        if (anEvent.keyCode === 80) {
 
-            self._printIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 68) {
 
-            self._doIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 73) {
 
-            self._inspectIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-    }
 
-    return self;
 
-}
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_environment_", [anEnvironment]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-}
 
-}),
 
-smalltalk.HLWorkspaceModel.klass);
 
-
 
-

+ 0 - 1074
js/Helios-Workspace.js
Xem Tập Tin 

@@ -1,1074 +0,0 @@
 
-smalltalk.addPackage('Helios-Workspace', {});
 
-smalltalk.addClass('HLCodeModel', smalltalk.Object, ['announcer', 'environment', 'receiver'], 'Helios-Workspace');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "announcer\x0a\x09^ announcer ifNil: [ announcer := Announcer new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["Announcer"]
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_defaultReceiver",
 
-smalltalk.method({
 
-selector: "defaultReceiver",
 
-category: 'defaults',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.DoIt || DoIt, "_new", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "defaultReceiver\x0a\x09^ DoIt new",
 
-messageSends: ["new"],
 
-referencedClasses: ["DoIt"]
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_doIt_",
 
-smalltalk.method({
 
-selector: "doIt:",
 
-category: 'actions',
 
-fn: function (someCode) {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_environment", []), "_eval_on_", [someCode, smalltalk.send(self, "_receiver", [])]);
 
-    return $1;
 
-},
 
-args: ["someCode"],
 
-source: "doIt: someCode\x0a\x0a\x09^ self environment eval: someCode on: self receiver",
 
-messageSends: ["eval:on:", "receiver", "environment"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
 
-messageSends: ["ifNil:", "environment", "current"],
 
-referencedClasses: ["HLManager"]
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-category: 'accessing',
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-},
 
-args: ["anEnvironment"],
 
-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_receiver",
 
-smalltalk.method({
 
-selector: "receiver",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@receiver']) == nil || $receiver == undefined) {
 
-        self['@receiver'] = smalltalk.send(self, "_defaultReceiver", []);
 
-        $1 = self['@receiver'];
 
-    } else {
 
-        $1 = self['@receiver'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "receiver\x0a\x09^ receiver ifNil: [ receiver := self defaultReceiver ]",
 
-messageSends: ["ifNil:", "defaultReceiver"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_receiver_",
 
-smalltalk.method({
 
-selector: "receiver:",
 
-category: 'accessing',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    self['@receiver'] = anObject;
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "receiver: anObject\x0a\x09receiver := anObject",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-smalltalk.addMethod(
 
-"_subscribe_",
 
-smalltalk.method({
 
-selector: "subscribe:",
 
-category: 'actions',
 
-fn: function (aWidget) {
 
-    var self = this;
 
-    smalltalk.send(aWidget, "_subscribeTo_", [smalltalk.send(self, "_announcer", [])]);
 
-    return self;
 
-},
 
-args: ["aWidget"],
 
-source: "subscribe: aWidget\x0a\x09aWidget subscribeTo: self announcer",
 
-messageSends: ["subscribeTo:", "announcer"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeModel);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'actions',
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_environment_", [anEnvironment]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["anEnvironment"],
 
-source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
 
-messageSends: ["environment:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeModel.klass);
 
-
 
-
 
-smalltalk.addClass('HLCodeWidget', smalltalk.HLWidget, ['model', 'wrapper', 'code', 'editor'], 'Helios-Workspace');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "announcer\x0a\x09^ self model announcer",
 
-messageSends: ["announcer", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_clear",
 
-smalltalk.method({
 
-selector: "clear",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_contents_", [""]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "clear\x0a      self contents: ''",
 
-messageSends: ["contents:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_contents",
 
-smalltalk.method({
 
-selector: "contents",
 
-category: 'accessing',
 
-fn: function (){
 
-var self=this;
 
-var $1;
 
-$1=smalltalk.send(self["@editor"],"_getValue",[]);
 
-return $1;
 
-},
 
-args: [],
 
-source: "contents\x0a\x09^ editor getValue",
 
-messageSends: ["getValue"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_contents_",
 
-smalltalk.method({
 
-selector: "contents:",
 
-category: 'accessing',
 
-fn: function (aString){
 
-var self=this;
 
-smalltalk.send(self["@editor"],"_setValue_",[aString]);
 
-return self},
 
-args: ["aString"],
 
-source: "contents: aString\x0a\x09editor setValue: aString",
 
-messageSends: ["setValue:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_currentLine",
 
-smalltalk.method({
 
-selector: "currentLine",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@editor'], "_getLine_", [smalltalk.send(smalltalk.send(self['@editor'], "_getCursor", []), "_line", [])]);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "currentLine\x0a    ^editor getLine: (editor getCursor line)",
 
-messageSends: ["getLine:", "line", "getCursor"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_currentLineOrSelection",
 
-smalltalk.method({
 
-selector: "currentLineOrSelection",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $1;
 
-    $2 = smalltalk.send(self['@editor'], "_somethingSelected", []);
 
-    if (smalltalk.assert($2)) {
 
-        $1 = smalltalk.send(self, "_selection", []);
 
-    } else {
 
-        $1 = smalltalk.send(self, "_currentLine", []);
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "currentLineOrSelection\x0a    ^editor somethingSelected\x0a\x09\x09ifFalse: [self currentLine]\x0a\x09\x09ifTrue: [self selection]",
 
-messageSends: ["ifFalse:ifTrue:", "currentLine", "selection", "somethingSelected"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_doIt",
 
-smalltalk.method({
 
-selector: "doIt",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    var result;
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDoItRequested || HLDoItRequested, "_on_", [self['@model']])]);
 
-    result = smalltalk.send(self['@model'], "_doIt_", [smalltalk.send(self, "_currentLineOrSelection", [])]);
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDoItExecuted || HLDoItExecuted, "_on_", [self['@model']])]);
 
-    return result;
 
-},
 
-args: [],
 
-source: "doIt\x0a\x09| result |\x0a\x0a\x09self announcer announce: (HLDoItRequested on: model).\x0a\x0a\x09result:=  model doIt: self currentLineOrSelection.\x0a\x0a\x09self announcer announce: (HLDoItExecuted on: model).\x0a\x0a\x09^ result        ",
 
-messageSends: ["announce:", "on:", "announcer", "doIt:", "currentLineOrSelection"],
 
-referencedClasses: ["HLDoItRequested", "HLDoItExecuted"]
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_editor",
 
-smalltalk.method({
 
-selector: "editor",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    return self['@editor'];
 
-},
 
-args: [],
 
-source: "editor\x0a\x09^editor",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_focus",
 
-smalltalk.method({
 
-selector: "focus",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_editor", []), "_focus", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "focus\x0a      self editor focus",
 
-messageSends: ["focus", "editor"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_inspectIt",
 
-smalltalk.method({
 
-selector: "inspectIt",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    var newInspector;
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLInspectItRequested || HLInspectItRequested, "_on_", [self['@model']])]);
 
-    newInspector = smalltalk.send(self, "_makeInspectorOn_", [smalltalk.send(self, "_doIt", [])]);
 
-    smalltalk.send(newInspector, "_open", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "inspectIt\x0a\x0a\x09| newInspector |\x0a       \x0a\x09self announcer announce: (HLInspectItRequested on: model).\x0a\x09newInspector := self makeInspectorOn: self doIt.\x0a\x09newInspector open",
 
-messageSends: ["announce:", "on:", "announcer", "makeInspectorOn:", "doIt", "open"],
 
-referencedClasses: ["HLInspectItRequested"]
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_makeInspectorOn_",
 
-smalltalk.method({
 
-selector: "makeInspectorOn:",
 
-category: 'actions',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(smalltalk.HLInspector || HLInspector, "_new", []);
 
-    smalltalk.send($2, "_inspect_", [anObject]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["anObject"],
 
-source: "makeInspectorOn: anObject\x0a\x0a\x09^ HLInspector new \x0a\x09\x09inspect: anObject;\x0a\x09\x09yourself",
 
-messageSends: ["inspect:", "new", "yourself"],
 
-referencedClasses: ["HLInspector"]
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
 
-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_new", [])]);
 
-        $1 = self['@model'];
 
-    } else {
 
-        $1 = self['@model'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "model\x0a\x09^ model ifNil: [ \x0a    \x09self model: HLCodeModel new.\x0a\x09\x09model ]",
 
-messageSends: ["ifNil:", "model:", "new"],
 
-referencedClasses: ["HLCodeModel"]
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-category: 'accessing',
 
-fn: function (aModel){
 
-var self=this;
 
-self["@model"]=aModel;
 
-return self},
 
-args: ["aModel"],
 
-source: "model: aModel\x0a\x09model := aModel",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_observeWrapper",
 
-smalltalk.method({
 
-selector: "observeWrapper",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self['@wrapper'], "_onKeyDown_", [function (e) {return smalltalk.send(self, "_onKeyDown_", [e]);}]);
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeWrapper\x0a\x0a    wrapper onKeyDown: [ :e | self onKeyDown: e ]\x0a",
 
-messageSends: ["onKeyDown:"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onDoIt",
 
-smalltalk.method({
 
-selector: "onDoIt",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_doIt", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "onDoIt\x0a\x09\x0a    self doIt",
 
-messageSends: ["doIt"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onInspectIt",
 
-smalltalk.method({
 
-selector: "onInspectIt",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_inspectIt", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "onInspectIt\x0a\x0a\x09self inspectIt",
 
-messageSends: ["inspectIt"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onKeyDown_",
 
-smalltalk.method({
 
-selector: "onKeyDown:",
 
-category: 'reactions',
 
-fn: function (anEvent) {
 
-    var self = this;
 
-    if (anEvent.ctrlKey) {
 
-        if (anEvent.keyCode === 80) {
 
-            self._onPrintIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 68) {
 
-            self._onDoIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 73) {
 
-            self._onInspectIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-    }
 
-    return self;
 
-},
 
-args: ["anEvent"],
 
-source: "onKeyDown: anEvent\x0a\x0a    <if(anEvent.ctrlKey) {\x0a\x09\x09if(anEvent.keyCode === 80) { //ctrl+p\x0a\x09\x09\x09self._onPrintIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 68) { //ctrl+d\x0a\x09\x09\x09self._onDoIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 73) { //ctrl+i\x0a\x09\x09\x09self._onInspectIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09}>\x09",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_onPrintIt",
 
-smalltalk.method({
 
-selector: "onPrintIt",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    smalltalk.send(self, "_printIt", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "onPrintIt\x0a\x0a\x09self printIt",
 
-messageSends: ["printIt"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_print_",
 
-smalltalk.method({
 
-selector: "print:",
 
-category: 'actions',
 
-fn: function (aString) {
 
-    var self = this;
 
-    var start;
 
-    var stop;
 
-    start = smalltalk.send(smalltalk.HashedCollection || HashedCollection, "_new", []);
 
-    stop = smalltalk.send(smalltalk.HashedCollection || HashedCollection, "_new", []);
 
-    smalltalk.send(start, "_at_put_", ["line", smalltalk.send(smalltalk.send(self['@editor'], "_getCursor_", [false]), "_line", [])]);
 
-    smalltalk.send(start, "_at_put_", ["ch", smalltalk.send(smalltalk.send(self['@editor'], "_getCursor_", [false]), "_ch", [])]);
 
-    smalltalk.send(stop, "_at_put_", ["line", smalltalk.send(start, "_at_", ["line"])]);
 
-    smalltalk.send(stop, "_at_put_", ["ch", smalltalk.send(smalltalk.send(smalltalk.send(start, "_at_", ["ch"]), "__plus", [smalltalk.send(aString, "_size", [])]), "__plus", [2])]);
 
-    smalltalk.send(self['@editor'], "_replaceSelection_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self['@editor'], "_getSelection", []), "__comma", [" "]), "__comma", [aString]), "__comma", [" "])]);
 
-    smalltalk.send(self['@editor'], "_setCursor_", [smalltalk.send(self['@editor'], "_getCursor_", [true])]);
 
-    smalltalk.send(self['@editor'], "_setSelection_end_", [stop, start]);
 
-    return self;
 
-},
 
-args: ["aString"],
 
-source: "print: aString\x0a\x09| start stop |\x0a\x09start := HashedCollection new.\x0a\x09stop := HashedCollection new.\x0a\x09start at: 'line' put: (editor getCursor: false) line.\x0a\x09start at: 'ch' put: (editor getCursor: false) ch.\x0a\x09stop at: 'line' put: (start at: 'line').\x0a\x09stop at: 'ch' put: ((start at: 'ch') + aString size + 2).\x0a\x09editor replaceSelection: (editor getSelection, ' ', aString, ' ').\x0a\x09editor setCursor: (editor getCursor: true).\x0a\x09editor setSelection: stop end: start",
 
-messageSends: ["new", "at:put:", "line", "getCursor:", "ch", "at:", "+", "size", "replaceSelection:", ",", "getSelection", "setCursor:", "setSelection:end:"],
 
-referencedClasses: ["HashedCollection"]
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_printIt",
 
-smalltalk.method({
 
-selector: "printIt",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    var result;
 
-    result = smalltalk.send(self, "_doIt", []);
 
-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLPrintItRequested || HLPrintItRequested, "_on_", [self['@model']])]);
 
-    smalltalk.send(self, "_print_", [smalltalk.send(result, "_printString", [])]);
 
-    smalltalk.send(self, "_focus", []);
 
-    return self;
 
-},
 
-args: [],
 
-source: "printIt\x0a\x0a\x09| result |\x0a\x0a\x09result:=  self doIt.\x0a       \x0a\x09self announcer announce: (HLPrintItRequested on: model).\x0a\x0a    self print: result printString.\x0a\x09self focus.",
 
-messageSends: ["doIt", "announce:", "on:", "announcer", "print:", "printString", "focus"],
 
-referencedClasses: ["HLPrintItRequested"]
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_receiver",
 
-smalltalk.method({
 
-selector: "receiver",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_receiver", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "receiver\x0a\x09^ self model receiver",
 
-messageSends: ["receiver", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_receiver_",
 
-smalltalk.method({
 
-selector: "receiver:",
 
-category: 'accessing',
 
-fn: function (anObject) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self, "_model", []), "_receiver_", [anObject]);
 
-    return self;
 
-},
 
-args: ["anObject"],
 
-source: "receiver: anObject\x0a\x09self model receiver: anObject",
 
-messageSends: ["receiver:", "model"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html){
 
-var self=this;
 
-self["@code"]=smalltalk.send(html,"_textarea",[]);
 
-smalltalk.send(self,"_setEditorOn_",[smalltalk.send(self["@code"],"_element",[])]);
 
-smalltalk.send(self,"_observeWrapper",[]);
 
-return self},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a    code := html textarea.\x0a    self setEditorOn: code element.\x0a    \x0a    self observeWrapper",
 
-messageSends: ["textarea", "setEditorOn:", "element", "observeWrapper"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selection",
 
-smalltalk.method({
 
-selector: "selection",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(self['@editor'], "_getSelection", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selection\x0a\x09^editor getSelection",
 
-messageSends: ["getSelection"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionEnd",
 
-smalltalk.method({
 
-selector: "selectionEnd",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionEnd", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selectionEnd\x0a   ^code element selectionEnd",
 
-messageSends: ["selectionEnd", "element"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionEnd_",
 
-smalltalk.method({
 
-selector: "selectionEnd:",
 
-category: 'accessing',
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionEnd_", [anInteger]);
 
-    return self;
 
-},
 
-args: ["anInteger"],
 
-source: "selectionEnd: anInteger\x0a   code element selectionEnd: anInteger",
 
-messageSends: ["selectionEnd:", "element"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionStart",
 
-smalltalk.method({
 
-selector: "selectionStart",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    $1 = smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionStart", []);
 
-    return $1;
 
-},
 
-args: [],
 
-source: "selectionStart\x0a   ^code element selectionStart",
 
-messageSends: ["selectionStart", "element"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_selectionStart_",
 
-smalltalk.method({
 
-selector: "selectionStart:",
 
-category: 'accessing',
 
-fn: function (anInteger) {
 
-    var self = this;
 
-    smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionStart_", [anInteger]);
 
-    return self;
 
-},
 
-args: ["anInteger"],
 
-source: "selectionStart: anInteger\x0a   code element selectionStart: anInteger",
 
-messageSends: ["selectionStart:", "element"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-smalltalk.addMethod(
 
-"_setEditorOn_",
 
-smalltalk.method({
 
-selector: "setEditorOn:",
 
-category: 'actions',
 
-fn: function (aTextarea) {
 
-    var self = this;
 
-    self['@editor'] = CodeMirror.fromTextArea(aTextarea, {theme: "amber", lineNumbers: true, enterMode: "flat", matchBrackets: true, electricChars: false});
 
-    return self;
 
-},
 
-args: ["aTextarea"],
 
-source: "setEditorOn: aTextarea\x0a\x09<self['@editor'] = CodeMirror.fromTextArea(aTextarea, {\x0a\x09\x09theme: 'amber',\x0a                lineNumbers: true,\x0a                enterMode: 'flat',\x0a                matchBrackets: true,\x0a                electricChars: false\x0a\x09})>",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLCodeWidget);
 
-
 
-
 
-
 
-smalltalk.addClass('HLWorkspace', smalltalk.HLWidget, ['model', 'codeWidget'], 'Helios-Workspace');
 
-smalltalk.addMethod(
 
-"_codeWidget",
 
-smalltalk.method({
 
-selector: "codeWidget",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
 
-        $2 = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
 
-        smalltalk.send($2, "_model_", [smalltalk.send(smalltalk.send(self, "_model", []), "_code", [])]);
 
-        $3 = smalltalk.send($2, "_yourself", []);
 
-        self['@codeWidget'] = $3;
 
-        $1 = self['@codeWidget'];
 
-    } else {
 
-        $1 = self['@codeWidget'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "codeWidget\x0a\x09^ codeWidget ifNil: [\x0a\x09\x09codeWidget := HLCodeWidget new\x0a    \x09\x09model: self model code;\x0a        \x09yourself ]",
 
-messageSends: ["ifNil:", "model:", "code", "model", "new", "yourself"],
 
-referencedClasses: ["HLCodeWidget"]
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_model",
 
-smalltalk.method({
 
-selector: "model",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
 
-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLWorkspaceModel || HLWorkspaceModel, "_new", [])]);
 
-        $1 = self['@model'];
 
-    } else {
 
-        $1 = self['@model'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "model\x0a\x09^ model ifNil: [ \x0a    \x09self model: HLWorkspaceModel new.\x0a\x09\x09model ]",
 
-messageSends: ["ifNil:", "model:", "new"],
 
-referencedClasses: ["HLWorkspaceModel"]
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_model_",
 
-smalltalk.method({
 
-selector: "model:",
 
-category: 'accessing',
 
-fn: function (aModel) {
 
-    var self = this;
 
-    self['@model'] = aModel;
 
-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_model_", [smalltalk.send(aModel, "_code", [])]);
 
-    smalltalk.send(self, "_observeCodeWidget", []);
 
-    return self;
 
-},
 
-args: ["aModel"],
 
-source: "model: aModel\x0a\x09model := aModel.\x0a     \x0a    self codeWidget model: aModel code.\x0a    self observeCodeWidget.\x0a    ",
 
-messageSends: ["model:", "code", "codeWidget", "observeCodeWidget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_observeCodeWidget",
 
-smalltalk.method({
 
-selector: "observeCodeWidget",
 
-category: 'actions',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "observeCodeWidget\x0a\x0a",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_onDoIt",
 
-smalltalk.method({
 
-selector: "onDoIt",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "onDoIt",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_onInspectIt",
 
-smalltalk.method({
 
-selector: "onInspectIt",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "onInspectIt",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_onPrintIt",
 
-smalltalk.method({
 
-selector: "onPrintIt",
 
-category: 'reactions',
 
-fn: function () {
 
-    var self = this;
 
-    return self;
 
-},
 
-args: [],
 
-source: "onPrintIt",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-smalltalk.addMethod(
 
-"_renderContentOn_",
 
-smalltalk.method({
 
-selector: "renderContentOn:",
 
-category: 'rendering',
 
-fn: function (html) {
 
-    var self = this;
 
-    smalltalk.send(html, "_with_", [smalltalk.send(self, "_codeWidget", [])]);
 
-    return self;
 
-},
 
-args: ["html"],
 
-source: "renderContentOn: html\x0a\x09html with: self codeWidget\x0a    ",
 
-messageSends: ["with:", "codeWidget"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspace);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_canBeOpenAsTab",
 
-smalltalk.method({
 
-selector: "canBeOpenAsTab",
 
-category: 'testing',
 
-fn: function () {
 
-    var self = this;
 
-    return true;
 
-},
 
-args: [],
 
-source: "canBeOpenAsTab\x0a\x09^ true",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspace.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabLabel",
 
-smalltalk.method({
 
-selector: "tabLabel",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return "Workspace";
 
-},
 
-args: [],
 
-source: "tabLabel\x0a\x09^ 'Workspace'",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspace.klass);
 
-
 
-smalltalk.addMethod(
 
-"_tabPriority",
 
-smalltalk.method({
 
-selector: "tabPriority",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    return 10;
 
-},
 
-args: [],
 
-source: "tabPriority\x0a\x09^ 10",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspace.klass);
 
-
 
-
 
-smalltalk.addClass('HLWorkspaceModel', smalltalk.Object, ['announcer', 'environment', 'code'], 'Helios-Workspace');
 
-smalltalk.addMethod(
 
-"_announcer",
 
-smalltalk.method({
 
-selector: "announcer",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
 
-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
 
-        $1 = self['@announcer'];
 
-    } else {
 
-        $1 = self['@announcer'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "announcer\x0a\x09^ announcer ifNil: [ announcer := Announcer new ]",
 
-messageSends: ["ifNil:", "new"],
 
-referencedClasses: ["Announcer"]
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-smalltalk.addMethod(
 
-"_code",
 
-smalltalk.method({
 
-selector: "code",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@code']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_on_", [smalltalk.send(self, "_environment", [])]);
 
-    } else {
 
-        $1 = self['@code'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "code\x0a\x09\x22Answers the code model working for this workspace model\x22\x0a\x09^ code ifNil:[ HLCodeModel on: self environment ]",
 
-messageSends: ["ifNil:", "on:", "environment"],
 
-referencedClasses: ["HLCodeModel"]
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment",
 
-smalltalk.method({
 
-selector: "environment",
 
-category: 'accessing',
 
-fn: function () {
 
-    var self = this;
 
-    var $1;
 
-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
 
-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
 
-    } else {
 
-        $1 = self['@environment'];
 
-    }
 
-    return $1;
 
-},
 
-args: [],
 
-source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
 
-messageSends: ["ifNil:", "environment", "current"],
 
-referencedClasses: ["HLManager"]
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-smalltalk.addMethod(
 
-"_environment_",
 
-smalltalk.method({
 
-selector: "environment:",
 
-category: 'accessing',
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    self['@environment'] = anEnvironment;
 
-    return self;
 
-},
 
-args: ["anEnvironment"],
 
-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-smalltalk.addMethod(
 
-"_onKeyDown_",
 
-smalltalk.method({
 
-selector: "onKeyDown:",
 
-category: 'reactions',
 
-fn: function (anEvent) {
 
-    var self = this;
 
-    if (anEvent.ctrlKey) {
 
-        if (anEvent.keyCode === 80) {
 
-            self._printIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 68) {
 
-            self._doIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-        if (anEvent.keyCode === 73) {
 
-            self._inspectIt();
 
-            anEvent.preventDefault();
 
-            return false;
 
-        }
 
-    }
 
-    return self;
 
-},
 
-args: ["anEvent"],
 
-source: "onKeyDown: anEvent\x0a\x0a\x09<if(anEvent.ctrlKey) {\x0a\x09\x09if(anEvent.keyCode === 80) { //ctrl+p\x0a\x09\x09\x09self._printIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 68) { //ctrl+d\x0a\x09\x09\x09self._doIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 73) { //ctrl+i\x0a\x09\x09\x09self._inspectIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09}>",
 
-messageSends: [],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspaceModel);
 
-
 
-
 
-smalltalk.addMethod(
 
-"_on_",
 
-smalltalk.method({
 
-selector: "on:",
 
-category: 'actions',
 
-fn: function (anEnvironment) {
 
-    var self = this;
 
-    var $2, $3, $1;
 
-    $2 = smalltalk.send(self, "_new", []);
 
-    smalltalk.send($2, "_environment_", [anEnvironment]);
 
-    $3 = smalltalk.send($2, "_yourself", []);
 
-    $1 = $3;
 
-    return $1;
 
-},
 
-args: ["anEnvironment"],
 
-source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
 
-messageSends: ["environment:", "new", "yourself"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.HLWorkspaceModel.klass);
 
-
 
-

+ 0 - 104
st/Helios-Announcements.st
Xem Tập Tin 

@@ -1,104 +0,0 @@
 
-Smalltalk current createPackage: 'Helios-Announcements' properties: #{}!
 
-Object subclass: #HLAnnouncement
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLAnnouncement subclass: #HLCodeHandled
 
-	instanceVariableNames: 'code'
 
-	package: 'Helios-Announcements'!
 
-
 
-!HLCodeHandled methodsFor: 'accessing'!
 
-
 
-code
 
-
 
-	^ code
 
-!
 
-
 
-code: aModel
 
-
 
-	code := aModel
 
-! !
 
-
 
-!HLCodeHandled class methodsFor: 'actions'!
 
-
 
-on: aCodeModel
 
-
 
-	^ self new 
-    	code: aCodeModel;
 
-        yourself
 
-! !
 
-
 
-HLCodeHandled subclass: #HLDoItExecuted
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLCodeHandled subclass: #HLDoItRequested
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLCodeHandled subclass: #HLInspectItRequested
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLCodeHandled subclass: #HLPrintItRequested
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLAnnouncement subclass: #HLDiveRequested
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLAnnouncement subclass: #HLItemSelected
 
-	instanceVariableNames: 'item'
 
-	package: 'Helios-Announcements'!
 
-
 
-!HLItemSelected methodsFor: 'accessing'!
 
-
 
-item
 
-	^ item
 
-!
 
-
 
-item: anObject
 
-	item := anObject
 
-! !
 
-
 
-!HLItemSelected class methodsFor: 'instance creation'!
 
-
 
-on: anItem
 
-	^ self new
 
-    	item: anItem;
 
-        yourself
 
-! !
 
-
 
-HLItemSelected subclass: #HLClassSelected
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLItemSelected subclass: #HLInstanceVariableSelected
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLItemSelected subclass: #HLMethodSelected
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLItemSelected subclass: #HLPackageSelected
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLItemSelected subclass: #HLProtocolSelected
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLAnnouncement subclass: #HLRefreshRequested
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLAnnouncement subclass: #HLShowCommentToggled
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-
 
-HLAnnouncement subclass: #HLShowInstanceToggled
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Announcements'!
 
-

+ 0 - 708
st/Helios-Browser.st
Xem Tập Tin 

@@ -1,708 +0,0 @@
 
-Smalltalk current createPackage: 'Helios-Browser' properties: #{}!
 
-HLWidget subclass: #HLBrowser
 
-	instanceVariableNames: 'model packagesListWidget classesListWidget protocolsListWidget methodsListWidget sourceWidget'
 
-	package: 'Helios-Browser'!
 
-
 
-!HLBrowser methodsFor: 'accessing'!
 
-
 
-announcer
 
-	^ self model announcer
 
-!
 
-
 
-environment
 
-	^ self model environment
 
-!
 
-
 
-model
 
-	^ model ifNil: [ model := HLBrowserModel new ]
 
-!
 
-
 
-model: aModel
 
-	model := aModel
 
-! !
 
-
 
-!HLBrowser methodsFor: 'keybindings'!
 
-
 
-registerBindingsOn: aBindingGroup
 
-	aBindingGroup 
-    	addGroupKey: 66 labelled: 'Browse';
 
-        addGroupKey: 71 labelled: 'Go to';
 
-        addGroupKey: 84 labelled: 'Toggle'.
 
-        
-   	HLBrowserCommand withAllSubclasses do: [ :each |
 
-   		each key ifNotNil: [
 
-  			(aBindingGroup at: each bindingGroup) 
-  				add: (each on: self model) asBinding ] ]
 
-! !
 
-
 
-!HLBrowser methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-	html with: (HLContainer with: (HLHorizontalSplitter 
-    	with: (HLVerticalSplitter
 
-        	with: (HLVerticalSplitter
 
-            	with: self packagesListWidget
 
-                with: self classesListWidget)
 
-            with: (HLVerticalSplitter
 
-            	with: self protocolsListWidget
 
-                with: self methodsListWidget)) 
-        with: self sourceWidget))
 
-! !
 
-
 
-!HLBrowser methodsFor: 'widgets'!
 
-
 
-classesListWidget
 
-	^ classesListWidget ifNil: [
 
-      	classesListWidget := HLClassesListWidget on: self model.
 
-		classesListWidget next: self protocolsListWidget ]
 
-!
 
-
 
-methodsListWidget
 
-	^ methodsListWidget ifNil: [
 
-      	methodsListWidget := HLMethodsListWidget on: self model ]
 
-!
 
-
 
-packagesListWidget
 
-	^ packagesListWidget ifNil: [
 
-      	packagesListWidget := HLPackagesListWidget on: self model.
 
-		packagesListWidget next: self classesListWidget ]
 
-!
 
-
 
-protocolsListWidget
 
-	^ protocolsListWidget ifNil: [
 
-      	protocolsListWidget := HLProtocolsListWidget on: self model.
 
-		protocolsListWidget next: self methodsListWidget ]
 
-!
 
-
 
-sourceWidget
 
-	^ sourceWidget ifNil: [
 
-      	sourceWidget := HLBrowserSourceWidget on: self model ]
 
-! !
 
-
 
-HLBrowser class instanceVariableNames: 'nextId'!
 
-
 
-!HLBrowser class methodsFor: 'accessing'!
 
-
 
-nextId
 
-	nextId ifNil: [ nextId := 0 ].
 
-    ^ 'browser_', (nextId + 1) asString
 
-!
 
-
 
-tabLabel
 
-	^ 'Browser'
 
-!
 
-
 
-tabPriority
 
-	^ 0
 
-! !
 
-
 
-!HLBrowser class methodsFor: 'testing'!
 
-
 
-canBeOpenAsTab
 
-	^ true
 
-! !
 
-
 
-HLNavigationListWidget subclass: #HLBrowserListWidget
 
-	instanceVariableNames: 'model'
 
-	package: 'Helios-Browser'!
 
-
 
-!HLBrowserListWidget methodsFor: 'accessing'!
 
-
 
-model
 
-	^ model
 
-!
 
-
 
-model: aBrowserModel
 
-	model := aBrowserModel.
 
-    
-    self observeModel
 
-! !
 
-
 
-!HLBrowserListWidget methodsFor: 'actions'!
 
-
 
-observeModel
 
-! !
 
-
 
-!HLBrowserListWidget class methodsFor: 'instance creation'!
 
-
 
-on: aModel
 
-	^ self new 
-    	model: aModel;
 
-        yourself
 
-! !
 
-
 
-HLBrowserListWidget subclass: #HLClassesListWidget
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Browser'!
 
-
 
-!HLClassesListWidget methodsFor: 'accessing'!
 
-
 
-getChildrenOf: aClass
 
-	^ self items select: [ :each | each superclass = aClass ]
 
-!
 
-
 
-getRootClassesOf: aCollection
 
-	^ aCollection select: [ :each |
 
-    	(each allSuperclasses intersection: aCollection) isEmpty ]
 
-!
 
-
 
-iconForItem: aClass
 
-	^ aClass theNonMetaClass comment isEmpty
 
-    	ifFalse: [ 'icon-none' ]
 
-      	ifTrue: [ 'icon-question-sign' ]
 
-!
 
-
 
-showInstance
 
-	^ self model showInstance
 
-! !
 
-
 
-!HLClassesListWidget methodsFor: 'actions'!
 
-
 
-focusMethodsListWidget
 
-	self model announcer announce: HLMethodsListFocus new
 
-!
 
-
 
-focusProtocolsListWidget
 
-	self model announcer announce: HLProtocolsListFocus new
 
-!
 
-
 
-observeModel
 
-	self model announcer 
-    	on: HLPackageSelected do: [ :ann | self onPackageSelected: ann item ];
 
-    	on: HLShowInstanceToggled do: [ :ann | self onShowInstanceToggled ];
 
-		on: HLClassSelected do: [ :ann | self onClassSelected: ann item ]
 
-!
 
-
 
-selectItem: aClass
 
-	super selectItem: aClass.
 
-    self model selectedClass: aClass
 
-!
 
-
 
-showInstance: aBoolean
 
-	self model showInstance: aBoolean
 
-! !
 
-
 
-!HLClassesListWidget methodsFor: 'reactions'!
 
-
 
-onClassSelected: aClass
 
-	self focus
 
-!
 
-
 
-onPackageSelected: aPackage
 
-    self selectedItem: nil.
 
-    
-    self items: (aPackage 
-    	ifNil: [ #() ]
 
-  		ifNotNil: [ (aPackage classes 
-        	collect: [ :each | each theNonMetaClass ]) asSet asArray ]).
 
-
 
-    self refresh
 
-!
 
-
 
-onShowInstanceToggled
 
-	self refresh
 
-! !
 
-
 
-!HLClassesListWidget methodsFor: 'rendering'!
 
-
 
-renderButtonsOn: html
 
-	html div 
-        class: 'btn-group';
 
-		at: 'data-toggle' put: 'buttons-radio';
 
-		with: [ 
-           	html button 
-                class: (String streamContents: [ :str |
 
-                	str nextPutAll: 'btn'.
 
-                    self showInstance ifTrue: [ 
-                    	str nextPutAll: ' active'] ]);
 
-  				with: 'Instance';
 
-                onClick: [ self showInstance: true ].
 
-  			html button
 
-  				class: (String streamContents: [ :str |
 
-                	str nextPutAll: 'btn'.
 
-                    self model showInstance ifFalse: [ 
-                    	str nextPutAll: ' active'] ]);
 
-  				with: 'Class';
 
-				onClick: [ self model showInstance: false ] ].
 
-                 
-  	html button 
-           	class: 'btn';
 
-            at: 'data-toggle' put: 'button';
 
-  			with: 'Comment'
 
-!
 
-
 
-renderItem: aClass level: anInteger on: html
 
-	| li |
 
-    
-	li := html li.
 
-    li
 
-    	at: 'list-data' put: (self items indexOf: aClass);
 
-    	class: (self cssClassForItem: aClass);
 
-        with: [ 
-        	html a
 
-            	with: [ 
-            		(html tag: 'i') class: (self iconForItem: aClass).
 
-  					self renderItemLabel: aClass level: anInteger on: html ];
 
-				onClick: [
 
-                  	self activateListItem: li asJQuery ] ].
 
-                    
-    (self getChildrenOf: aClass) do: [ :each |
 
-    	self renderItem: each level: anInteger + 1 on: html ]
 
-!
 
-
 
-renderItem: aClass on: html
 
-	super renderItem: aClass on: html.
 
-    	(self getChildrenOf: aClass) do: [ :each |
 
-    		self renderItem: each level: 1 on: html ]
 
-!
 
-
 
-renderItemLabel: aClass level: anInteger on: html
 
-	html span asJQuery html: (String streamContents: [ :str |
 
-		anInteger timesRepeat: [
 
-			str nextPutAll: '&nbsp;&nbsp;&nbsp;&nbsp;'].
 
-			str nextPutAll: aClass name ])
 
-!
 
-
 
-renderItemLabel: aClass on: html
 
-	self renderItemLabel: aClass level: 0 on: html
 
-!
 
-
 
-renderListOn: html
 
-	(self getRootClassesOf: self items)
 
-    	do: [ :each | self renderItem: each on: html ]
 
-! !
 
-
 
-HLBrowserListWidget subclass: #HLMethodsListWidget
 
-	instanceVariableNames: 'selectorsCache'
 
-	package: 'Helios-Browser'!
 
-
 
-!HLMethodsListWidget methodsFor: 'accessing'!
 
-
 
-allProtocol
 
-	^ self model allProtocol
 
-!
 
-
 
-iconForItem: aCompiledMethod
 
-	| override overriden |
 
-    
-    override := self isOverride: aCompiledMethod.
 
-    overriden := self isOverriden: aCompiledMethod.
 
-    
-	^ override
 
-    	ifTrue: [ overriden
 
-			ifTrue: [ 'icon-resize-vertical' ]
 
-			ifFalse: [ 'icon-arrow-up' ] ]
 
-		ifFalse: [
 
-			overriden
 
-			ifTrue: [ 'icon-arrow-down' ]
 
-			ifFalse: [ 'icon-none' ] ]
 
-!
 
-
 
-methodsInProtocol: aString
 
-	^ aString = self allProtocol
 
-    	ifTrue: [ self model selectedClass methods ]
 
-      	ifFalse: [ self model selectedClass methodsInProtocol: aString ]
 
-!
 
-
 
-overrideSelectors
 
-	^ self selectorsCache 
-    	at: 'override'
 
-        ifAbsentPut: [ 
-        	self model selectedClass allSuperclasses
 
-				inject: Set new into: [ :acc :each | acc addAll: each selectors; yourself ] ]
 
-!
 
-
 
-overridenSelectors
 
-	^ self selectorsCache 
-    	at: 'overriden'
 
-        ifAbsentPut: [ 
-        	self model selectedClass allSubclasses
 
-				inject: Set new into: [ :acc :each | acc addAll: each selectors; yourself ] ]
 
-!
 
-
 
-selectorsCache
 
-	^ selectorsCache
 
-! !
 
-
 
-!HLMethodsListWidget methodsFor: 'actions'!
 
-
 
-observeModel
 
-	self model announcer on: HLProtocolSelected do: [ :ann |
 
-    	self onProtocolSelected: ann item ].
 
-    self model announcer on: HLShowInstanceToggled do: [ :ann |
 
-    	self onProtocolSelected: nil ].
 
-    self model announcer on: HLMethodSelected do: [ :ann |
 
-    	self onMethodSelected: ann item ]
 
-!
 
-
 
-selectItem: aCompiledMethod
 
-	super selectItem: aCompiledMethod.
 
-   	self model selectedMethod: aCompiledMethod
 
-! !
 
-
 
-!HLMethodsListWidget methodsFor: 'cache'!
 
-
 
-flushSelectorsCache
 
-	selectorsCache := Dictionary new
 
-! !
 
-
 
-!HLMethodsListWidget methodsFor: 'initialization'!
 
-
 
-initialize
 
-	super initialize.
 
-    self flushSelectorsCache
 
-! !
 
-
 
-!HLMethodsListWidget methodsFor: 'reactions'!
 
-
 
-onMethodSelected: aMethod
 
-	self focus
 
-!
 
-
 
-onProtocolSelected: aString
 
-    self selectedItem: nil.
 
-    
-    self items: (self model selectedClass 
-    	ifNil: [ #() ]
 
-      	ifNotNil: [ aString
 
-    		ifNil: [ #() ]
 
-      		ifNotNil: [ self methodsInProtocol: aString ] ]).
 
-        
-    self refresh
 
-! !
 
-
 
-!HLMethodsListWidget methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-	self model showInstance
 
-    	ifFalse: [ html div 
-        	class: 'class_side'; 
-            with: [ super renderContentOn: html ] ]
 
-      	ifTrue: [ super renderContentOn: html ].
 
-        
-    self flushSelectorsCache
 
-!
 
-
 
-renderItemLabel: aCompiledMethod on: html
 
-	html with: aCompiledMethod selector
 
-! !
 
-
 
-!HLMethodsListWidget methodsFor: 'testing'!
 
-
 
-isOverride: aMethod
 
-
 
-   ^ self overrideSelectors includes: aMethod selector
 
-!
 
-
 
-isOverriden: aMethod
 
-
 
-   ^ self overridenSelectors includes: aMethod selector
 
-! !
 
-
 
-HLBrowserListWidget subclass: #HLPackagesListWidget
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Browser'!
 
-
 
-!HLPackagesListWidget methodsFor: 'accessing'!
 
-
 
-initializeItems
 
-	^ items := self model packages sort:[:a :b|
 
-						a name < b name]
 
-!
 
-
 
-items
 
-	^ items ifNil: [self initializeItems]
 
-! !
 
-
 
-!HLPackagesListWidget methodsFor: 'actions'!
 
-
 
-focusClassesListWidget
 
-	self model announcer announce: HLClassesListFocus new
 
-!
 
-
 
-observeModel
 
-    self model announcer on: HLPackageSelected do: [ :ann |
 
-    	self onPackageSelected: ann item ]
 
-!
 
-
 
-selectItem: aPackage
 
-	super selectItem: aPackage.
 
-    self model selectedPackage: aPackage
 
-! !
 
-
 
-!HLPackagesListWidget methodsFor: 'reactions'!
 
-
 
-onPackageSelected: aPackage
 
-	self focus
 
-! !
 
-
 
-!HLPackagesListWidget methodsFor: 'rendering'!
 
-
 
-renderButtonsOn: html
 
-
 
-	html span class: 'info'; with: 'Auto commit'.
 
-	html div 
-        class: 'btn-group switch';
 
-		at: 'data-toggle' put: 'buttons-radio';
 
-		with: [ 
-           	html button 
-                class: (String streamContents: [ :str |
 
-                	str nextPutAll: 'btn' ]);
 
-  				with: 'On'.
 
-  			html button
 
-  				class: (String streamContents: [ :str |
 
-                	str nextPutAll: 'btn active' ]);
 
-  				with: 'Off' ].
 
-                
-    html a 
-         	class: 'btn';
 
-			with: 'Commit'.
 
-! !
 
-
 
-HLBrowserListWidget subclass: #HLProtocolsListWidget
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Browser'!
 
-
 
-!HLProtocolsListWidget methodsFor: 'accessing'!
 
-
 
-allProtocol
 
-	^ self model allProtocol
 
-!
 
-
 
-selectedItem
 
-	^ super selectedItem" ifNil: [ self allProtocol ]"
 
-! !
 
-
 
-!HLProtocolsListWidget methodsFor: 'actions'!
 
-
 
-observeModel
 
-	self model announcer on: HLClassSelected do: [ :ann |
 
-    	self onClassSelected: ann item ].
 
-    self model announcer on: HLShowInstanceToggled do: [ :ann |
 
-    	self onClassSelected: self model selectedClass ].
 
-    self model announcer on: HLProtocolSelected do: [ :ann |
 
-    	self onProtocolSelected: ann item ]
 
-!
 
-
 
-selectItem: aString
 
-	super selectItem: aString.
 
-    self model selectedProtocol: aString
 
-! !
 
-
 
-!HLProtocolsListWidget methodsFor: 'reactions'!
 
-
 
-onClassSelected: aClass
 
-    self selectedItem: nil.
 
-    
-    self items: (aClass
 
-    	ifNil: [ Array with: self allProtocol ]
 
-      	ifNotNil: [ 
-        	(Array with: self allProtocol) 
-            	addAll: aClass protocols; 
-                yourself ]).
 
-
 
-    self refresh
 
-!
 
-
 
-onProtocolSelected: aString
 
-	self focus
 
-! !
 
-
 
-!HLProtocolsListWidget methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-	self model showInstance
 
-    	ifFalse: [ html div 
-        	class: 'class_side'; 
-            with: [ super renderContentOn: html ] ]
 
-      	ifTrue: [ super renderContentOn: html ]
 
-! !
 
-
 
-Object subclass: #HLBrowserModel
 
-	instanceVariableNames: 'announcer environment selectedPackage selectedClass selectedProtocol selectedMethod showInstance showComment'
 
-	package: 'Helios-Browser'!
 
-
 
-!HLBrowserModel methodsFor: 'accessing'!
 
-
 
-allProtocol
 
-	^ '-- All --'
 
-!
 
-
 
-announcer
 
-	^ announcer ifNil: [ announcer := Announcer new ]
 
-!
 
-
 
-environment
 
-	^ environment ifNil: [ HLManager current environment ]
 
-!
 
-
 
-environment: anEnvironment
 
-	environment := anEnvironment
 
-!
 
-
 
-packages
 
-	^ self environment packages
 
-!
 
-
 
-selectedClass
 
-	^ selectedClass
 
-!
 
-
 
-selectedClass: aClass
 
-	selectedClass = aClass ifFalse: [
 
-		aClass 
-    		ifNil: [ selectedClass := nil ]
 
-      		ifNotNil: [
 
-				self showInstance 
-    				ifTrue: [ selectedClass := aClass theNonMetaClass ]
 
-      				ifFalse: [ selectedClass := aClass theMetaClass ] ].
 
-    
-   		self 
-    		selectedMethod: nil;
 
-       	 	selectedProtocol: nil ].
 
-        
-   self announcer announce: (HLClassSelected on: self selectedClass)
 
-!
 
-
 
-selectedMethod
 
-	^ selectedMethod
 
-!
 
-
 
-selectedMethod: aCompiledMethod
 
-	selectedMethod = aCompiledMethod ifFalse: [
 
-		selectedMethod := aCompiledMethod ].
 
-    
-    self announcer announce: (HLMethodSelected on: aCompiledMethod)
 
-!
 
-
 
-selectedPackage
 
-	^ selectedPackage
 
-!
 
-
 
-selectedPackage: aPackage
 
-	selectedPackage = aPackage ifFalse: [
 
-		selectedPackage := aPackage.
 
-    	self selectedClass: nil ].
 
-    
-    self announcer announce: (HLPackageSelected on: aPackage)
 
-!
 
-
 
-selectedProtocol
 
-	^ selectedProtocol
 
-!
 
-
 
-selectedProtocol: aString
 
-	selectedProtocol = aString ifFalse: [
 
-      	selectedProtocol := aString.
 
-    	self selectedMethod: nil ].
 
-    
-    self announcer announce: (HLProtocolSelected on: aString)
 
-!
 
-
 
-showComment
 
-	^ showComment ifNil: [ false ]
 
-!
 
-
 
-showComment: aBoolean
 
-	showComment := aBoolean.
 
-    
-    self announcer announce: HLShowCommentToggled new
 
-!
 
-
 
-showInstance
 
-	^ showInstance ifNil: [ true ]
 
-!
 
-
 
-showInstance: aBoolean
 
-	showInstance := aBoolean.
 
-    
-    self selectedClass ifNotNil: [
 
-    	self selectedClass: (aBoolean
 
-    		ifTrue: [self selectedClass theNonMetaClass ]
 
-    	  	ifFalse: [ self selectedClass theMetaClass ]) ].
 
-    
-    self announcer announce: HLShowInstanceToggled new
 
-! !
 
-
 
-!HLBrowserModel class methodsFor: 'actions'!
 
-
 
-on: anEnvironment
 
-
 
-	^ self new
 
-    	environment: anEnvironment;
 
-        yourself
 
-! !
 
-
 
-HLWidget subclass: #HLBrowserSourceWidget
 
-	instanceVariableNames: 'model codeWidget'
 
-	package: 'Helios-Browser'!
 
-
 
-!HLBrowserSourceWidget methodsFor: 'accessing'!
 
-
 
-codeWidget
 
-	^ codeWidget ifNil: [ codeWidget := HLCodeWidget new ]
 
-!
 
-
 
-contents
 
-	^ self sourceArea contents
 
-!
 
-
 
-contents: aString
 
-	self codeWidget contents: aString
 
-!
 
-
 
-model
 
-	^ model
 
-!
 
-
 
-model: aBrowserModel
 
-	model := aBrowserModel.
 
-    
-    self observeModel
 
-! !
 
-
 
-!HLBrowserSourceWidget methodsFor: 'actions'!
 
-
 
-observeModel
 
-	self model announcer on: HLMethodSelected do: [ :ann |
 
-    	self onMethodSelected: ann item ].
 
-    self model announcer on: HLClassSelected do: [ :ann |
 
-    	self onClassSelected: ann item ].
 
-    self model announcer on: HLProtocolSelected do: [ :ann |
 
-    	self onProtocolSelected: ann item ]
 
-! !
 
-
 
-!HLBrowserSourceWidget methodsFor: 'reactions'!
 
-
 
-onClassSelected: aClass
 
-	aClass ifNil: [ ^ self contents: '' ].
 
-    
-    self contents: aClass definition
 
-!
 
-
 
-onMethodSelected: aCompiledMethod
 
-	aCompiledMethod ifNil: [ ^ self contents: '' ].
 
-    
-    self contents: aCompiledMethod source
 
-!
 
-
 
-onProtocolSelected: aString
 
-	self model selectedClass ifNil: [ ^ self contents: '' ].
 
-    
-    self contents: self model selectedClass definition
 
-! !
 
-
 
-!HLBrowserSourceWidget methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-	self codeWidget renderOn: html
 
-! !
 
-
 
-!HLBrowserSourceWidget class methodsFor: 'instance creation'!
 
-
 
-on: aBrowserModel
 
-	^ self new
 
-    	model: aBrowserModel;
 
-        yourself
 
-! !
 
-

+ 0 - 223
st/Helios-Commands.st
Xem Tập Tin 

@@ -1,223 +0,0 @@
 
-Smalltalk current createPackage: 'Helios-Commands' properties: #{}!
 
-Object subclass: #HLCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands'!
 
-
 
-!HLCommand methodsFor: 'accessing'!
 
-
 
-documentation
 
-	^ self class documentation
 
-!
 
-
 
-key
 
-	^ self class key
 
-!
 
-
 
-label
 
-	^ self class label
 
-! !
 
-
 
-!HLCommand methodsFor: 'converting'!
 
-
 
-asBinding
 
-	^ (HLBindingAction on: self key labelled: self label)
 
-    	callback: [ self execute ]
 
-! !
 
-
 
-!HLCommand methodsFor: 'executing'!
 
-
 
-execute
 
-! !
 
-
 
-!HLCommand class methodsFor: 'accessing'!
 
-
 
-bindingGroup
 
-	^ nil
 
-!
 
-
 
-documentation
 
-	^ ''
 
-!
 
-
 
-key
 
-	^ nil
 
-!
 
-
 
-label
 
-	^ ''
 
-! !
 
-
 
-HLCommand subclass: #HLBrowserCommand
 
-	instanceVariableNames: 'model'
 
-	package: 'Helios-Commands'!
 
-
 
-!HLBrowserCommand methodsFor: 'accessing'!
 
-
 
-model
 
-	^ model
 
-!
 
-
 
-model: aBrowserModel
 
-	model := aBrowserModel
 
-! !
 
-
 
-!HLBrowserCommand class methodsFor: 'instance creation'!
 
-
 
-on: aBrowserModel
 
-	^ self new
 
-    	model: aBrowserModel;
 
-        yourself
 
-! !
 
-
 
-HLBrowserCommand subclass: #HLGoToCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands'!
 
-
 
-!HLGoToCommand class methodsFor: 'accessing'!
 
-
 
-bindingGroup
 
-	^ 'Go to'
 
-! !
 
-
 
-HLGoToCommand subclass: #HLGoToClassesCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands'!
 
-
 
-!HLGoToClassesCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model selectedClass: self model selectedClass
 
-! !
 
-
 
-!HLGoToClassesCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	"c"
 
-    
-	^ 67
 
-!
 
-
 
-label
 
-	^ 'Classes'
 
-! !
 
-
 
-HLGoToCommand subclass: #HLGoToMethodsCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands'!
 
-
 
-!HLGoToMethodsCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model selectedMethod: self model selectedMethod
 
-! !
 
-
 
-!HLGoToMethodsCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	"m"
 
-    
-	^ 77
 
-!
 
-
 
-label
 
-	^ 'Methods'
 
-! !
 
-
 
-HLGoToCommand subclass: #HLGoToPackagesCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands'!
 
-
 
-!HLGoToPackagesCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model selectedPackage: self model selectedPackage
 
-! !
 
-
 
-!HLGoToPackagesCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	"p"
 
-    
-	^ 80
 
-!
 
-
 
-label
 
-	^ 'Packages'
 
-! !
 
-
 
-HLGoToCommand subclass: #HLGoToProtocolsCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands'!
 
-
 
-!HLGoToProtocolsCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model selectedProtocol: self model selectedProtocol
 
-! !
 
-
 
-!HLGoToProtocolsCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	"p"
 
-    
-	^ 84
 
-!
 
-
 
-label
 
-	^ 'Protocols'
 
-! !
 
-
 
-HLBrowserCommand subclass: #HLToggleCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands'!
 
-
 
-!HLToggleCommand class methodsFor: 'accessing'!
 
-
 
-bindingGroup
 
-	^ 'Toggle'
 
-! !
 
-
 
-HLToggleCommand subclass: #HLToggleClassSideCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands'!
 
-
 
-!HLToggleClassSideCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model showInstance: false
 
-! !
 
-
 
-!HLToggleClassSideCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	"c"
 
-    
-	^ 67
 
-!
 
-
 
-label
 
-	^ 'Class side'
 
-! !
 
-
 
-HLToggleCommand subclass: #HLToggleInstanceSideCommand
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Commands'!
 
-
 
-!HLToggleInstanceSideCommand methodsFor: 'executing'!
 
-
 
-execute
 
-	self model showInstance: true
 
-! !
 
-
 
-!HLToggleInstanceSideCommand class methodsFor: 'accessing'!
 
-
 
-key
 
-	"i"
 
-    
-	^ 73
 
-!
 
-
 
-label
 
-	^ 'Instance side'
 
-! !
 
-

+ 0 - 532
st/Helios-Core.st
Xem Tập Tin 

@@ -1,532 +0,0 @@
 
-Smalltalk current createPackage: 'Helios-Core' properties: #{}!
 
-Object subclass: #HLTab
 
-	instanceVariableNames: 'widget label'
 
-	package: 'Helios-Core'!
 
-
 
-!HLTab methodsFor: 'accessing'!
 
-
 
-activate
 
-	self manager activate: self
 
-!
 
-
 
-add
 
-	self manager addTab: self
 
-!
 
-
 
-label
 
-	^ label ifNil: [ '' ]
 
-!
 
-
 
-label: aString
 
-	label := aString
 
-!
 
-
 
-manager
 
-	^ HLManager current
 
-!
 
-
 
-widget
 
-	^ widget
 
-!
 
-
 
-widget: aWidget
 
-	widget := aWidget
 
-! !
 
-
 
-!HLTab methodsFor: 'testing'!
 
-
 
-isActive
 
-	^ self manager activeTab = self
 
-! !
 
-
 
-!HLTab class methodsFor: 'instance creation'!
 
-
 
-on: aWidget labelled: aString
 
-	^ self new
 
-		widget: aWidget;
 
-		label: aString;
 
-		yourself
 
-! !
 
-
 
-Widget subclass: #HLWidget
 
-	instanceVariableNames: 'wrapper'
 
-	package: 'Helios-Core'!
 
-
 
-!HLWidget methodsFor: 'accessing'!
 
-
 
-manager
 
-	^ HLManager current
 
-!
 
-
 
-wrapper
 
-	^ wrapper
 
-! !
 
-
 
-!HLWidget methodsFor: 'keybindings'!
 
-
 
-registerBindings
 
-	self registerBindingsOn: self manager keyBinder bindings
 
-!
 
-
 
-registerBindingsOn: aBindingGroup
 
-! !
 
-
 
-!HLWidget methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-!
 
-
 
-renderOn: html
 
-    self registerBindings.
 
-
 
-	wrapper := html div.
 
-    [ :renderer | self renderContentOn: renderer ] appendToJQuery: wrapper asJQuery
 
-! !
 
-
 
-!HLWidget methodsFor: 'updating'!
 
-
 
-refresh
 
-	self wrapper ifNil: [ ^ self ].
 
-    
-	self wrapper asJQuery empty.
 
-    [ :html | self renderContentOn: html ] appendToJQuery: self wrapper asJQuery
 
-! !
 
-
 
-!HLWidget class methodsFor: 'accessing'!
 
-
 
-openAsTab
 
-	HLManager current addTab: (HLTab on: self new labelled: self tabLabel)
 
-!
 
-
 
-tabLabel
 
-	^ 'Tab'
 
-!
 
-
 
-tabPriority
 
-	^ 500
 
-! !
 
-
 
-!HLWidget class methodsFor: 'testing'!
 
-
 
-canBeOpenAsTab
 
-	^ false
 
-! !
 
-
 
-HLWidget subclass: #HLDebugger
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Core'!
 
-
 
-HLWidget subclass: #HLFocusableWidget
 
-	instanceVariableNames: 'hiddenInput'
 
-	package: 'Helios-Core'!
 
-
 
-!HLFocusableWidget methodsFor: 'accessing'!
 
-
 
-focusClass
 
-	^ 'focused'
 
-! !
 
-
 
-!HLFocusableWidget methodsFor: 'events'!
 
-
 
-blur
 
-	hiddenInput asJQuery blur
 
-!
 
-
 
-focus
 
-	hiddenInput asJQuery focus
 
-!
 
-
 
-hasFocus
 
-	^ self wrapper notNil and: [ self wrapper asJQuery hasClass: self focusClass ]
 
-! !
 
-
 
-!HLFocusableWidget methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-!
 
-
 
-renderHiddenInputOn: html
 
-	hiddenInput := html input
 
-    	style: 'position: absolute; left: -100000px;';
 
-    	onBlur: [ self wrapper asJQuery removeClass: self focusClass ];
 
-        onFocus: [ self wrapper asJQuery addClass: self focusClass ]
 
-!
 
-
 
-renderOn: html
 
-	self registerBindings.
 
-	self renderHiddenInputOn: html.
 
-    
-    wrapper := html div 
-    	class: 'hl_widget'; 
-        onClick: [ hiddenInput asJQuery focus ];
 
-        with: [
 
-			self renderContentOn: html ]
 
-! !
 
-
 
-HLFocusableWidget subclass: #HLListWidget
 
-	instanceVariableNames: 'items selectedItem'
 
-	package: 'Helios-Core'!
 
-
 
-!HLListWidget methodsFor: 'accessing'!
 
-
 
-cssClassForItem: anObject
 
-	^ self selectedItem = anObject
 
-			ifTrue: [ 'active' ]
 
-			ifFalse: [ 'inactive' ]
 
-!
 
-
 
-iconForItem: anObject
 
-	^ ''
 
-!
 
-
 
-items
 
-	^ items ifNil: [ items := self defaultItems ]
 
-!
 
-
 
-items: aCollection
 
-	items := aCollection
 
-!
 
-
 
-selectedItem
 
-	^ selectedItem
 
-!
 
-
 
-selectedItem: anObject
 
-	selectedItem := anObject
 
-! !
 
-
 
-!HLListWidget methodsFor: 'actions'!
 
-
 
-activateFirstListItem
 
-	self activateListItem: (window jQuery: ((wrapper asJQuery find: 'li') get: 0))
 
-!
 
-
 
-activateListItem: aListItem
 
-	| parent position |
 
-    
-	(aListItem get: 0) ifNil: [ ^self ].
 
-
 
-	<position = aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1>.
 
-
 
-    parent := aListItem parent.
 
-	parent children removeClass: 'active'.
 
-	aListItem addClass: 'active'.
 
-    
-    "Move the scrollbar to show the active element"
 
-    aListItem position top < 0 ifTrue: [
 
-		(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem position top - 10) ].
 
-    aListItem position top + aListItem height > parent height ifTrue: [ 
-		(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem height - (parent height - aListItem position top)) +10 ].
 
-        
-   "Activate the corresponding item"
 
-   self selectItem: (self items at: (aListItem attr: 'list-data') asNumber)
 
-!
 
-
 
-focus
 
-	super focus.
 
-    self items isEmpty ifFalse: [ 
-		self selectedItem ifNil: [ self activateFirstListItem ] ]
 
-!
 
-
 
-selectItem: anObject
 
-	self selectedItem: anObject
 
-! !
 
-
 
-!HLListWidget methodsFor: 'defaults'!
 
-
 
-defaultItems
 
-	^ #()
 
-! !
 
-
 
-!HLListWidget methodsFor: 'events'!
 
-
 
-setupKeyBindings
 
-	| next |
 
-	hiddenInput asJQuery unbind: 'keydown'.
 
-
 
-	hiddenInput asJQuery keydown: [ :e | | selected |
 
-    	selected := window jQuery: '.focused .nav-pills .active'.
 
-        e which = 38 ifTrue: [ 
-        	self activateListItem: selected prev ].
 
-      	e which = 40 ifTrue: [
 
-          	next := selected next.
 
-            (next get: 0) ifNil: [ next := window jQuery: '.focused .nav-pills li:first-child' ].
 
-			self activateListItem: next ] ]
 
-! !
 
-
 
-!HLListWidget methodsFor: 'rendering'!
 
-
 
-renderButtonsOn: html
 
-!
 
-
 
-renderContentOn: html
 
-	html ul 
-    	class: 'nav nav-pills nav-stacked';
 
-        with: [ self renderListOn: html ].
 
-    html div class: 'pane_actions form-actions'; with: [
 
-      	self renderButtonsOn: html ].
 
-        
-   self setupKeyBindings
 
-!
 
-
 
-renderItem: anObject on: html
 
-	| li |
 
-    
-	li := html li.
 
-    li
 
-    	class: (self cssClassForItem: anObject);
 
-        at: 'list-data' put: (self items indexOf: anObject) asString;
 
-        with: [ 
-        	html a
 
-            	with: [ 
-            		(html tag: 'i') class: (self iconForItem: anObject).
 
-  					self renderItemLabel: anObject on: html ];
 
-				onClick: [
 
-                  	self activateListItem: li asJQuery ] ]
 
-!
 
-
 
-renderItemLabel: anObject on: html
 
-	html with: anObject asString
 
-!
 
-
 
-renderListOn: html
 
-	self items do: [ :each | 
-    	self renderItem: each on: html ]
 
-! !
 
-
 
-HLListWidget subclass: #HLNavigationListWidget
 
-	instanceVariableNames: 'previous next'
 
-	package: 'Helios-Core'!
 
-
 
-!HLNavigationListWidget methodsFor: 'accessing'!
 
-
 
-next
 
-	^ next
 
-!
 
-
 
-next: aWidget
 
-	next := aWidget.
 
-    aWidget previous = self ifFalse: [ aWidget previous: self ]
 
-!
 
-
 
-previous
 
-	^ previous
 
-!
 
-
 
-previous: aWidget
 
-	previous := aWidget.
 
-    aWidget next = self ifFalse: [ aWidget next: self ]
 
-! !
 
-
 
-!HLNavigationListWidget methodsFor: 'actions'!
 
-
 
-nextFocus
 
-	self next ifNotNil: [ self next focus ]
 
-!
 
-
 
-previousFocus
 
-	self previous ifNotNil: [ self previous focus ]
 
-! !
 
-
 
-!HLNavigationListWidget methodsFor: 'events'!
 
-
 
-setupKeyBindings
 
-	super setupKeyBindings.
 
-
 
-	hiddenInput asJQuery keydown: [ :e |
 
-        e which = 39 ifTrue: [ 
-        	self nextFocus ].
 
-		e which = 37 ifTrue: [ 
-        	self previousFocus ] ]
 
-! !
 
-
 
-HLWidget subclass: #HLManager
 
-	instanceVariableNames: 'tabs activeTab keyBinder environment'
 
-	package: 'Helios-Core'!
 
-
 
-!HLManager methodsFor: 'accessing'!
 
-
 
-activeTab
 
-	^ activeTab
 
-!
 
-
 
-environment
 
-	"The default environment used by all Helios objects"
 
-    
-	^ environment ifNil: [ environment := self defaultEnvironment ]
 
-!
 
-
 
-environment: anEnvironment
 
-	environment := anEnvironment
 
-!
 
-
 
-keyBinder
 
-	^ keyBinder ifNil: [ keyBinder := HLKeyBinder new ]
 
-!
 
-
 
-tabs
 
-	^ tabs ifNil: [ tabs := OrderedCollection new ]
 
-! !
 
-
 
-!HLManager methodsFor: 'actions'!
 
-
 
-activate: aTab
 
-	self keyBinder flushBindings.
 
-	activeTab := aTab.
 
-    
-	self 
-		refresh;
 
-		show: aTab
 
-!
 
-
 
-addTab: aTab
 
-	self tabs add: aTab.
 
-    self activate: aTab
 
-!
 
-
 
-removeTab: aTab
 
-	"Todo: activate the previously activated tab. Keep a history of tabs selection"
 
-
 
-	(self tabs includes: aTab) ifFalse: [ ^ self ].
 
-
 
-	self tabs remove: aTab.
 
-	self refresh
 
-! !
 
-
 
-!HLManager methodsFor: 'defaults'!
 
-
 
-defaultEnvironment
 
-	^ HLLocalEnvironment new
 
-! !
 
-
 
-!HLManager methodsFor: 'initialization'!
 
-
 
-initialize
 
-	super initialize.
 
-    self keyBinder setupEvents
 
-! !
 
-
 
-!HLManager methodsFor: 'rendering'!
 
-
 
-refresh
 
-	(window jQuery: '.navbar') remove.
 
-	(window jQuery: '#container') remove.
 
-	self appendToJQuery: 'body' asJQuery
 
-!
 
-
 
-renderAddOn: html
 
-    html li 
-    	class: 'dropdown';
 
-        with: [ 
-			html a 
-        		class: 'dropdown-toggle';
 
-           	 	at: 'data-toggle' put: 'dropdown';
 
-            	with: [ 
-            		html with: 'Open...'.
 
-  					(html tag: 'b') class: 'caret' ].
 
-           html ul 
-           		class: 'dropdown-menu';
 
-                with: [
 
-                  	((HLWidget withAllSubclasses
 
-                    	select: [ :each | each canBeOpenAsTab ])
 
-                        sorted: [ :a :b | a tabPriority < b tabPriority ])
 
-                        do: [ :each |
 
-  							html li with: [
 
-                      			html a 
-                                	with: each tabLabel;
 
-      								onClick: [ each openAsTab ] ] ] ] ]
 
-!
 
-
 
-renderContentOn: html
 
-	html div 
-		class: 'navbar navbar-fixed-top';
 
-		with: [ html div 
-			class: 'navbar-inner';
 
-			with: [ self renderTabsOn: html ] ].
 
-	html div id: 'container'
 
-!
 
-
 
-renderTabsOn: html
 
-	html ul 
-		class: 'nav';
 
-		with: [ 
-        	self tabs do: [ :each |
 
-				html li 
-					class: (each isActive ifTrue: [ 'active' ] ifFalse: [ 'inactive' ]);
 
-					with: [
 
-						html a
 
-							with: [
 
-      							((html tag: 'i') class: 'icon-remove-circle')
 
-  									onClick: [ self removeTab: each ].
 
-                              	html with: each label ];
 
-							onClick: [ each activate ] ] ].
 
-			self renderAddOn: html ]
 
-!
 
-
 
-show: aTab
 
-	(window jQuery: '#container') empty.
 
-	aTab widget appendToJQuery: '#container' asJQuery
 
-! !
 
-
 
-HLManager class instanceVariableNames: 'current'!
 
-
 
-!HLManager class methodsFor: 'accessing'!
 
-
 
-current
 
-	^ current ifNil: [ current := self basicNew initialize ]
 
-! !
 
-
 
-!HLManager class methodsFor: 'initialization'!
 
-
 
-initialize
 
-	self current appendToJQuery: 'body' asJQuery
 
-! !
 
-
 
-!HLManager class methodsFor: 'instance creation'!
 
-
 
-new
 
-	"Use current instead"
 
-
 
-	self shouldNotImplement
 
-! !
 
-
 
-HLWidget subclass: #HLSUnit
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Core'!
 
-
 
-!HLSUnit class methodsFor: 'accessing'!
 
-
 
-tabLabel
 
-	^ 'SUnit'
 
-!
 
-
 
-tabPriority
 
-	^ 1000
 
-! !
 
-
 
-!HLSUnit class methodsFor: 'testing'!
 
-
 
-canBeOpenAsTab
 
-	^ true
 
-! !
 
-
 
-HLWidget subclass: #HLTranscript
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Core'!
 
-
 
-!HLTranscript class methodsFor: 'accessing'!
 
-
 
-tabLabel
 
-	^ 'Transcript'
 
-!
 
-
 
-tabPriority
 
-	^ 600
 
-! !
 
-
 
-!HLTranscript class methodsFor: 'testing'!
 
-
 
-canBeOpenAsTab
 
-	^ true
 
-! !
 
-

+ 0 - 98
st/Helios-Environments.st
Xem Tập Tin 

@@ -1,98 +0,0 @@
 
-Smalltalk current createPackage: 'Helios-Environments' properties: #{}!
 
-Object subclass: #HLEnvironment
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Environments'!
 
-!HLEnvironment commentStamp!
 
-Abstract class defining common behavior for local and remote environments!
 
-
 
-!HLEnvironment methodsFor: 'accessing'!
 
-
 
-packages
 
-
 
-	^ self subclassResponsibility
 
-! !
 
-
 
-!HLEnvironment methodsFor: 'actions'!
 
-
 
-eval: someCode on: aReceiver
 
-
 
-	^ self subclassResponsibility
 
-! !
 
-
 
-HLEnvironment subclass: #HLLocalEnvironment
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Environments'!
 
-
 
-!HLLocalEnvironment methodsFor: 'accessing'!
 
-
 
-packages
 
-
 
-	^ Smalltalk current packages
 
-! !
 
-
 
-!HLLocalEnvironment methodsFor: 'actions'!
 
-
 
-eval: someCode on: aReceiver
 
-	| compiler  |
 
-	compiler := Compiler new.
 
-	[compiler parseExpression: someCode] on: Error do: [:ex |
 
-		^window alert: ex messageText].
 
-	^(compiler eval: (compiler compile: 'doIt ^[', someCode, '] value' forClass: DoIt)) fn applyTo: aReceiver arguments: #()
 
-! !
 
-
 
-HLEnvironment subclass: #HLRemoteEnvironment
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Environments'!
 
-
 
-!HLRemoteEnvironment methodsFor: 'accessing'!
 
-
 
-packages
 
-	"Answer the remote environment's packages"
 
-  
-	"to-do"
 
-    
-    "Note for future self and friends:
 
-    the problem with remote stuff is that the answers shouldn't be expected to be
 
-    received in a syncrhonous fashion. Everything network is asyc, so you *are going to deal with callbacks* here"
 
-! !
 
-
 
-!HLRemoteEnvironment methodsFor: 'actions'!
 
-
 
-eval: someCode on: aReceiver
 
-
 
-	"Note for future self and friends:
 
-    whatever way this compilation happens on the other side, 
-    it should return a proxy to the remote resulting object"
 
-    
-    self notYetImplemented
 
-! !
 
-
 
-Object subclass: #HLRemoteObject
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Environments'!
 
-!HLRemoteObject commentStamp!
 
-This is a local proxy to a remote object.
 
-Tipically useful for evaluating and inspecting and interacting with instances of a remote VM.!
 
-
 
-!HLRemoteObject methodsFor: 'actions'!
 
-
 
-doesNotUnderstand: aMessage
 
-
 
-	"to-do
 
-
 
-	aham, blah blah
 
-
 
-	super doesNotUnderstand: aMessage"
 
-!
 
-
 
-inspectOn: anInspector
 
-
 
-	"to-do"
 
-
 
-	"this is a source of so much fun..."
 
-!
 
-
 
-printString
 
-	^ 'this is a remote object'
 
-! !
 
-

+ 0 - 367
st/Helios-Inspector.st
Xem Tập Tin 

@@ -1,367 +0,0 @@
 
-Smalltalk current createPackage: 'Helios-Inspector' properties: #{}!
 
-HLWidget subclass: #HLInspector
 
-	instanceVariableNames: 'model variablesWidget displayWidget codeWidget label'
 
-	package: 'Helios-Inspector'!
 
-
 
-!HLInspector methodsFor: 'accessing'!
 
-
 
-codeWidget
 
-	^ codeWidget ifNil: [
 
-		codeWidget := HLCodeWidget new
 
-    		model: model code;
 
-        	receiver: model inspectee;
 
-        	yourself ]
 
-!
 
-
 
-displayWidget
 
-	^ displayWidget ifNil: [
 
-		displayWidget := HLInspectorDisplayWidget new
 
-    		model: self model;
 
-        	yourself ]
 
-!
 
-
 
-inspectee
 
-	^ self model inspectee
 
-!
 
-
 
-inspectee: anObject
 
-	self model inspectee: anObject
 
-!
 
-
 
-label
 
-    ^ label ifNil: [ model inspectee printString ]
 
-!
 
-
 
-model
 
-	^ model ifNil: [ 
-    	self model: HLInspectorModel new.
 
-		model ]
 
-!
 
-
 
-model: aModel
 
-	model := aModel. 
-    self codeWidget model: aModel code.
 
-    
-    self 
-        observeCodeWidget;
 
-    	observeVariablesWidget;
 
-        observeModel
 
-!
 
-
 
-tabLabel
 
-    ^ self label
 
-!
 
-
 
-variablesWidget
 
-	^ variablesWidget ifNil: [
 
-		variablesWidget := HLInspectorVariablesWidget new
 
-    		model: self model;
 
-        	yourself ]
 
-! !
 
-
 
-!HLInspector methodsFor: 'actions'!
 
-
 
-inspect: anObject
 
-	self model inspect: anObject on: self.
 
-    
-	self 
-    	refreshVariablesWidget;
 
-		refreshDisplayWidget
 
-!
 
-
 
-observeCodeWidget
 
-	self codeWidget announcer 
-    	on: HLDoItExecuted 
-        do: [ self onDoneIt ]
 
-!
 
-
 
-observeModel
 
-	self model announcer
 
-        on: HLInstanceVariableSelected do: [ :ann | self onInstanceVariableSelected ]
 
-!
 
-
 
-observeVariablesWidget
 
-	self variablesWidget announcer 
-    	on: HLRefreshRequested do: [ :ann | self onRefresh ];
 
-        on: HLDiveRequested do:[ self onDive ]
 
-!
 
-
 
-open
 
-	HLManager current addTab: (HLTab on: self labelled: self tabLabel)
 
-!
 
-
 
-refresh
 
-	self inspect: self inspectee
 
-!
 
-
 
-refreshDisplayWidget
 
-	self displayWidget refresh
 
-!
 
-
 
-refreshVariablesWidget
 
-	self variablesWidget refresh
 
-!
 
-
 
-setLabel: aString
 
-	label := aString
 
-!
 
-
 
-setVariables: aDictionary
 
-	self model variables: aDictionary
 
-! !
 
-
 
-!HLInspector methodsFor: 'reactions'!
 
-
 
-onDive
 
-
 
-	self inspect: self model selectedInstVarObject
 
-!
 
-
 
-onDoneIt
 
-
 
-	self refresh
 
-!
 
-
 
-onInspectIt
 
-!
 
-
 
-onInstanceVariableSelected
 
-	self codeWidget receiver: self model selectedInstVarObject.
 
-	self refreshDisplayWidget
 
-!
 
-
 
-onPrintIt
 
-!
 
-
 
-onRefresh
 
-
 
-	self refresh
 
-! !
 
-
 
-!HLInspector methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-   	html with: (HLContainer with: (HLHorizontalSplitter
 
-    	with: (HLVerticalSplitter 
-            		with: self variablesWidget
 
-            	    with: self displayWidget)
 
-        with: self codeWidget))
 
-! !
 
-
 
-!HLInspector class methodsFor: 'accessing'!
 
-
 
-tabLabel
 
-	^ 'Inspector'
 
-!
 
-
 
-tabPriority
 
-	^ 10
 
-! !
 
-
 
-!HLInspector class methodsFor: 'testing'!
 
-
 
-canBeOpenAsTab
 
-	^ false
 
-! !
 
-
 
-HLNavigationListWidget subclass: #HLInspectorDisplayWidget
 
-	instanceVariableNames: 'model'
 
-	package: 'Helios-Inspector'!
 
-
 
-!HLInspectorDisplayWidget methodsFor: 'accessing'!
 
-
 
-model
 
-
 
-	^ model
 
-!
 
-
 
-model: aModel
 
-
 
-	model := aModel
 
-! !
 
-
 
-!HLInspectorDisplayWidget methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-	
-    html div with: self selectionDisplayString
 
-!
 
-
 
-selectionDisplayString
 
-	|selection|
 
-	selection := model selection.
 
-    ^ (model variables keys includes: selection)
 
-    	ifTrue:[(model instVarObjectAt: selection) printString]
 
-      	ifFalse:['']
 
-! !
 
-
 
-Object subclass: #HLInspectorModel
 
-	instanceVariableNames: 'announcer environment inspectee code variables selection'
 
-	package: 'Helios-Inspector'!
 
-
 
-!HLInspectorModel methodsFor: 'accessing'!
 
-
 
-announcer
 
-	^ announcer ifNil: [announcer := Announcer new ]
 
-!
 
-
 
-code
 
-	"Answers the code model working for this workspace model"
 
-	^ code ifNil:[ code := HLCodeModel on: self environment ]
 
-!
 
-
 
-environment
 
-	^ environment ifNil: [ HLManager current environment ]
 
-!
 
-
 
-environment: anEnvironment
 
-	environment := anEnvironment
 
-!
 
-
 
-inspectee 
-	^ inspectee
 
-!
 
-
 
-inspectee: anObject 
-	inspectee := anObject
 
-!
 
-
 
-selectedInstVarObject
 
-	^ self instVarObjectAt: self selection
 
-!
 
-
 
-selection
 
-	^ selection ifNil:[ '' ]
 
-!
 
-
 
-selection: anObject
 
-	selection := anObject.
 
-
 
-	self announcer announce: (HLInstanceVariableSelected on: selection)
 
-!
 
-
 
-variables
 
-	^ variables
 
-!
 
-
 
-variables: aCollection
 
-	variables := aCollection
 
-! !
 
-
 
-!HLInspectorModel methodsFor: 'actions'!
 
-
 
-inspect: anObject on: anInspector
 
-	inspectee := anObject.
 
-	variables := #().
 
-	inspectee inspectOn: anInspector
 
-!
 
-
 
-instVarObjectAt: anInstVarName
 
-	^ self variables at: anInstVarName
 
-!
 
-
 
-selectedInstVar: anInstVarName
 
-    self selection: anInstVarName
 
-!
 
-
 
-subscribe: aWidget
 
-	aWidget subscribeTo: self announcer
 
-! !
 
-
 
-!HLInspectorModel methodsFor: 'reactions'!
 
-
 
-onKeyDown: anEvent
 
-
 
-	<if(anEvent.ctrlKey) {
 
-		if(anEvent.keyCode === 80) { //ctrl+p
 
-			self._printIt();
 
-			anEvent.preventDefault();
 
-			return false;
 
-		}
 
-		if(anEvent.keyCode === 68) { //ctrl+d
 
-			self._doIt();
 
-			anEvent.preventDefault();
 
-			return false;
 
-		}
 
-		if(anEvent.keyCode === 73) { //ctrl+i
 
-			self._inspectIt();
 
-			anEvent.preventDefault();
 
-			return false;
 
-		}
 
-	}>
 
-! !
 
-
 
-!HLInspectorModel class methodsFor: 'actions'!
 
-
 
-on: anEnvironment
 
-
 
-	^ self new
 
-    	environment: anEnvironment;
 
-        yourself
 
-! !
 
-
 
-HLNavigationListWidget subclass: #HLInspectorVariablesWidget
 
-	instanceVariableNames: 'announcer model list diveButton'
 
-	package: 'Helios-Inspector'!
 
-
 
-!HLInspectorVariablesWidget methodsFor: 'accessing'!
 
-
 
-announcer
 
-	^ announcer ifNil:[ announcer := Announcer new ]
 
-!
 
-
 
-model
 
-    ^ model
 
-!
 
-
 
-model: aModel
 
-    model := aModel
 
-!
 
-
 
-selection
 
-	^ model selection
 
-!
 
-
 
-variables
 
-	^ model variables
 
-! !
 
-
 
-!HLInspectorVariablesWidget methodsFor: 'actions'!
 
-
 
-refresh
 
-	self resetItems.
 
-    super refresh
 
-!
 
-
 
-resetItems
 
-	items := nil
 
-! !
 
-
 
-!HLInspectorVariablesWidget methodsFor: 'defaults'!
 
-
 
-defaultItems
 
-	^ self model variables keys
 
-! !
 
-
 
-!HLInspectorVariablesWidget methodsFor: 'reactions'!
 
-
 
-selectItem: anObject
 
-	super selectItem: anObject.
 
-    self model selectedInstVar: anObject
 
-! !
 
-
 
-!HLInspectorVariablesWidget methodsFor: 'rendering'!
 
-
 
-renderButtonsOn: html
 
-
 
-	html button
 
-			class: 'btn';
 
-			with: 'Refresh';
 
-			onClick: [self announcer announce: HLRefreshRequested new].
 
-
 
-	diveButton := html button 
-				class: 'btn';
 
-				with: 'Dive'; 
-				onClick: [self announcer announce: HLDiveRequested new]
 
-! !
 
-

+ 0 - 337
st/Helios-KeyBindings.st
Xem Tập Tin 

@@ -1,337 +0,0 @@
 
-Smalltalk current createPackage: 'Helios-KeyBindings' properties: #{}!
 
-Object subclass: #HLBinding
 
-	instanceVariableNames: 'key label'
 
-	package: 'Helios-KeyBindings'!
 
-
 
-!HLBinding methodsFor: 'accessing'!
 
-
 
-key
 
-	^ key
 
-!
 
-
 
-key: anInteger
 
-	key := anInteger
 
-!
 
-
 
-label
 
-	^ label
 
-!
 
-
 
-label: aString
 
-	label := aString
 
-!
 
-
 
-shortcut
 
-	^ String fromCharCode: self key
 
-! !
 
-
 
-!HLBinding methodsFor: 'actions'!
 
-
 
-applyOn: aKeyBinder
 
-	self subclassResponsibility
 
-! !
 
-
 
-!HLBinding methodsFor: 'rendering'!
 
-
 
-renderOn: aBindingHelper html: html
 
-! !
 
-
 
-!HLBinding methodsFor: 'testing'!
 
-
 
-isBindingAction
 
-	^ false
 
-!
 
-
 
-isBindingGroup
 
-	^ false
 
-! !
 
-
 
-!HLBinding class methodsFor: 'instance creation'!
 
-
 
-on: anInteger labelled: aString
 
-	^ self new
 
-    	key: anInteger;
 
-        label: aString;
 
-        yourself
 
-! !
 
-
 
-HLBinding subclass: #HLBindingAction
 
-	instanceVariableNames: 'callback'
 
-	package: 'Helios-KeyBindings'!
 
-
 
-!HLBindingAction methodsFor: 'accessing'!
 
-
 
-callback
 
-	^ callback
 
-!
 
-
 
-callback: aBlock
 
-	callback := aBlock
 
-! !
 
-
 
-!HLBindingAction methodsFor: 'actions'!
 
-
 
-applyOn: aKeyBinder
 
-	aKeyBinder applyBindingAction: self
 
-! !
 
-
 
-!HLBindingAction methodsFor: 'testing'!
 
-
 
-isBindingAction
 
-	^ true
 
-! !
 
-
 
-HLBinding subclass: #HLBindingGroup
 
-	instanceVariableNames: 'bindings'
 
-	package: 'Helios-KeyBindings'!
 
-
 
-!HLBindingGroup methodsFor: 'accessing'!
 
-
 
-add: aBinding
 
-	^ self bindings add: aBinding
 
-!
 
-
 
-addActionKey: anInteger labelled: aString callback: aBlock
 
-	self add: ((HLBindingAction on: anInteger labelled: aString)
 
-    	callback: aBlock;
 
-        yourself)
 
-!
 
-
 
-addActionKey: anInteger labelled: aString command: aCommand
 
-	self add: ((HLBindingAction on: anInteger labelled: aString)
 
-    	command: aCommand;
 
-        yourself)
 
-!
 
-
 
-addGroupKey: anInteger labelled: aString
 
-	self add: (HLBindingGroup on: anInteger labelled: aString)
 
-!
 
-
 
-at: aString
 
-	^ self bindings 
-    	detect: [ :each | each label = aString ]
 
-      	ifNone: [ nil ]
 
-!
 
-
 
-atKey: anInteger
 
-	^ self bindings 
-    	detect: [ :each | each key = anInteger ]
 
-      	ifNone: [ nil ]
 
-!
 
-
 
-bindings
 
-	^ bindings ifNil: [ bindings := OrderedCollection new ]
 
-! !
 
-
 
-!HLBindingGroup methodsFor: 'actions'!
 
-
 
-applyOn: aKeyBinder
 
-	aKeyBinder applyBindingGroup: self
 
-! !
 
-
 
-!HLBindingGroup methodsFor: 'rendering'!
 
-
 
-renderOn: aBindingHelper html: html
 
-	aBindingHelper renderBindingGroup: self on: html
 
-! !
 
-
 
-!HLBindingGroup methodsFor: 'testing'!
 
-
 
-isBindingGroup
 
-	^ true
 
-! !
 
-
 
-Object subclass: #HLKeyBinder
 
-	instanceVariableNames: 'modifierKey active helper bindings selectedBinding'
 
-	package: 'Helios-KeyBindings'!
 
-
 
-!HLKeyBinder methodsFor: 'accessing'!
 
-
 
-activationKey
 
-	"SPACE"
 
-	^ 32
 
-!
 
-
 
-bindings
 
-	^ bindings ifNil: [ bindings := HLBindingGroup new ]
 
-!
 
-
 
-escapeKey
 
-	"ESC"
 
-	^ 27
 
-!
 
-
 
-helper
 
-	^ helper ifNil: [ helper := HLKeyBinderHelper on: self ]
 
-!
 
-
 
-selectedBinding
 
-	^ selectedBinding ifNil: [ self bindings ]
 
-! !
 
-
 
-!HLKeyBinder methodsFor: 'actions'!
 
-
 
-activate
 
-	active := true.
 
-	self helper show
 
-!
 
-
 
-applyBinding: aBinding
 
-    aBinding applyOn: self
 
-!
 
-
 
-applyBindingAction: aBinding
 
-    aBinding callback value.
 
-	self deactivate
 
-!
 
-
 
-applyBindingGroup: aBinding
 
-    selectedBinding := aBinding.
 
-    self helper refresh
 
-!
 
-
 
-deactivate
 
-	active := false.
 
-    selectedBinding := nil.
 
-	self helper hide
 
-!
 
-
 
-flushBindings
 
-	bindings := nil.
 
-    helper := nil
 
-! !
 
-
 
-!HLKeyBinder methodsFor: 'events'!
 
-
 
-handleActiveKeyDown: event
 
-
 
-	"ESC or ctrl+g deactivate the keyBinder"
 
-	(event which = self escapeKey or: [
 
-		event which = 71 and: [ event ctrlKey ] ])
 
-        	ifTrue: [ 
-            	self deactivate.
 
-				event preventDefault.
 
-				^ false ].
 
-            
-    "Handle the keybinding"
 
-    ^ self handleBindingFor: event
 
-!
 
-
 
-handleBindingFor: anEvent
 
-	| binding |
 
-    binding := self selectedBinding atKey: anEvent which.
 
-    
-    binding ifNotNil: [ 
-    	self applyBinding: binding.
 
-		anEvent preventDefault.
 
-		^ false ]
 
-!
 
-
 
-handleInactiveKeyDown: event
 
-      event which = self activationKey ifTrue: [
 
-      		event ctrlKey  ifTrue: [
 
-					self activate. 
-               		 event preventDefault. 
-                	^ false ] ]
 
-!
 
-
 
-handleKeyDown: event
 
-	^ self isActive
 
-    	ifTrue: [ self handleActiveKeyDown: event ]
 
-      	ifFalse: [ self handleInactiveKeyDown: event ]
 
-!
 
-
 
-setupEvents
 
-	(window jQuery: 'body') keydown: [ :event | self handleKeyDown: event ]
 
-! !
 
-
 
-!HLKeyBinder methodsFor: 'initialization'!
 
-
 
-initialize
 
-	super initialize.
 
-    active := false
 
-! !
 
-
 
-!HLKeyBinder methodsFor: 'testing'!
 
-
 
-isActive
 
-	^ active ifNil: [ false ]
 
-!
 
-
 
-systemIsMac
 
-	^ navigator platform match: 'Mac'
 
-! !
 
-
 
-HLWidget subclass: #HLKeyBinderHelper
 
-	instanceVariableNames: 'keyBinder'
 
-	package: 'Helios-KeyBindings'!
 
-
 
-!HLKeyBinderHelper methodsFor: 'accessing'!
 
-
 
-keyBinder
 
-	^ keyBinder
 
-!
 
-
 
-keyBinder: aKeyBinder
 
-	keyBinder := aKeyBinder
 
-!
 
-
 
-selectedBinding
 
-	^ self keyBinder selectedBinding
 
-! !
 
-
 
-!HLKeyBinderHelper methodsFor: 'actions'!
 
-
 
-hide
 
-	rootDiv asJQuery remove
 
-!
 
-
 
-show
 
-	self appendToJQuery: 'body' asJQuery
 
-! !
 
-
 
-!HLKeyBinderHelper methodsFor: 'keyBindings'!
 
-
 
-registerBindings
 
-	"Do nothing"
 
-! !
 
-
 
-!HLKeyBinderHelper methodsFor: 'rendering'!
 
-
 
-renderBindingGroup: aBindingGroup on: html
 
-	(aBindingGroup bindings 
-    	sorted: [ :a :b | a key < b key ])
 
-        do: [ :each |
 
-			html span class: 'command'; with: [
 
-				html span class: 'label'; with: each shortcut asLowercase.
 
-  				html a 
-                	class: 'action'; 
-                    with: each label;
 
-  					onClick: [ self keyBinder applyBinding: each ] ] ]
 
-!
 
-
 
-renderBindingOn: html
 
-	self selectedBinding renderOn: self html: html
 
-!
 
-
 
-renderContentOn: html
 
-	html div class: 'key_helper'; with: [
 
-      	self 
-        	renderSelectionOn:html;
 
-          	renderBindingOn: html ]
 
-!
 
-
 
-renderSelectionOn: html
 
-		html span 
-        	class: 'selected'; 
-            with: (self selectedBinding label ifNil: [ 'Action' ])
 
-! !
 
-
 
-!HLKeyBinderHelper class methodsFor: 'instance creation'!
 
-
 
-on: aKeyBinder
 
-	^ self new
 
-    	keyBinder: aKeyBinder;
 
-        yourself
 
-! !
 
-

+ 0 - 199
st/Helios-Layout.st
Xem Tập Tin 

@@ -1,199 +0,0 @@
 
-Smalltalk current createPackage: 'Helios-Layout' properties: #{}!
 
-Widget subclass: #HLContainer
 
-	instanceVariableNames: 'splitter'
 
-	package: 'Helios-Layout'!
 
-
 
-!HLContainer methodsFor: 'accessing'!
 
-
 
-splitter
 
-	^ splitter
 
-!
 
-
 
-splitter: aSplitter
 
-	splitter := aSplitter
 
-! !
 
-
 
-!HLContainer methodsFor: 'rendering'!
 
-
 
-renderOn: html
 
-	html div 
-    	id: 'container'; 
-        with: self splitter.
 
-        
-   (window jQuery: window) bind: 'resize' do: [ self splitter resize ]
 
-! !
 
-
 
-!HLContainer class methodsFor: 'instance creation'!
 
-
 
-with: aSplitter
 
-	^ self new 
-    	splitter: aSplitter; 
-        yourself
 
-! !
 
-
 
-Widget subclass: #HLSplitter
 
-	instanceVariableNames: 'firstWidget secondWidget firstPane secondPane splitter'
 
-	package: 'Helios-Layout'!
 
-
 
-!HLSplitter methodsFor: 'accessing'!
 
-
 
-cssClass
 
-	^ 'splitter'
 
-!
 
-
 
-firstWidget
 
-	^ firstWidget
 
-!
 
-
 
-firstWidget: aWidget
 
-	firstWidget := aWidget
 
-!
 
-
 
-secondWidget
 
-	^ secondWidget
 
-!
 
-
 
-secondWidget: aWidget
 
-	secondWidget := aWidget
 
-! !
 
-
 
-!HLSplitter methodsFor: 'rendering'!
 
-
 
-panesCssClass
 
-	^ 'panes'
 
-!
 
-
 
-renderOn: html
 
-	html div class: self panesCssClass; with: [
 
-		firstPane := html div class: 'pane'; with: self firstWidget.
 
-    	splitter := html div class: self cssClass.
 
-    	secondPane := html div class: 'pane'; with: self secondWidget ].
 
-        
-	self 
-    	setupSplitter;
 
-        resize
 
-!
 
-
 
-resize
 
-	self firstWidget isHeliosSplitter ifTrue: [ self firstWidget resize ].
 
-    self secondWidget isHeliosSplitter ifTrue: [ self secondWidget resize ]
 
-!
 
-
 
-setupSplitter
 
-! !
 
-
 
-!HLSplitter methodsFor: 'testing'!
 
-
 
-isHeliosSplitter
 
-	^ true
 
-! !
 
-
 
-!HLSplitter class methodsFor: 'instance creation'!
 
-
 
-with: aWidget with: anotherWidget
 
-	^ self new
 
-    		firstWidget: aWidget;
 
-            secondWidget: anotherWidget;
 
-            yourself
 
-! !
 
-
 
-HLSplitter subclass: #HLHorizontalSplitter
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Layout'!
 
-
 
-!HLHorizontalSplitter methodsFor: 'accessing'!
 
-
 
-cssClass
 
-	^ super cssClass, ' horizontal'
 
-!
 
-
 
-panesCssClass
 
-	^ super panesCssClass, ' horizontal'
 
-! !
 
-
 
-!HLHorizontalSplitter methodsFor: 'actions'!
 
-
 
-resize
 
-	self resize: splitter asJQuery offset top
 
-!
 
-
 
-resize: anInteger
 
-	| container position |
 
-    
-    container := firstPane asJQuery parent.
 
-    position := anInteger - container offset top.
 
-    
-	firstPane asJQuery height: ((position min: container height - 100) max: 100).
 
-    secondPane asJQuery height: (((container height - position) min: container height - 100) max: 100) - 6.
 
-    
-    super resize
 
-!
 
-
 
-startResizing: aSplitter
 
-	aSplitter width: splitter asJQuery width
 
-! !
 
-
 
-!HLHorizontalSplitter methodsFor: 'rendering'!
 
-
 
-setupSplitter
 
-	splitter asJQuery draggable: #{ 
-    	'axis' -> 'y'. 
-        'containment' -> splitter asJQuery parent.
 
-        'helper' -> 'clone'.
 
-        'start' -> [ :e :ui | self startResizing: ui helper ].
 
-        'drag' -> [ :e :ui | self resize: ui offset top ] }
 
-! !
 
-
 
-HLSplitter subclass: #HLVerticalSplitter
 
-	instanceVariableNames: ''
 
-	package: 'Helios-Layout'!
 
-
 
-!HLVerticalSplitter methodsFor: 'accessing'!
 
-
 
-cssClass
 
-	^ super cssClass, ' vertical'
 
-!
 
-
 
-panesCssClass
 
-	^ super panesCssClass, ' vertical'
 
-! !
 
-
 
-!HLVerticalSplitter methodsFor: 'actions'!
 
-
 
-resize
 
-	self resize: splitter asJQuery offset left
 
-!
 
-
 
-resize: anInteger
 
-	| container position |
 
-    
-    container := firstPane asJQuery parent.
 
-    position := anInteger - container offset left.
 
-    
-	firstPane asJQuery width: ((position min: container width - 100) max: 100).
 
-    secondPane asJQuery width: (((container width - position) min: container width - 100) max: 100) - 6.
 
-    
-    super resize
 
-!
 
-
 
-startResizing: aSplitter
 
-	aSplitter height: splitter asJQuery height
 
-! !
 
-
 
-!HLVerticalSplitter methodsFor: 'rendering'!
 
-
 
-setupSplitter
 
-	splitter asJQuery draggable: #{ 
-    	'axis' -> 'x'. 
-        'containment' -> splitter asJQuery parent.
 
-        'helper' -> 'clone'.
 
-        'start' -> [ :e :ui | self startResizing: ui helper ].
 
-        'drag' -> [ :e :ui | self resize: ui offset left ] }
 
-! !
 
-
 
-!Object methodsFor: '*Helios-Layout'!
 
-
 
-isHeliosSplitter
 
-	^ false
 
-! !
 
-

+ 0 - 367
st/Helios-Workspace.st
Xem Tập Tin 

@@ -1,367 +0,0 @@
 
-Smalltalk current createPackage: 'Helios-Workspace' properties: #{}!
 
-Object subclass: #HLCodeModel
 
-	instanceVariableNames: 'announcer environment receiver'
 
-	package: 'Helios-Workspace'!
 
-
 
-!HLCodeModel methodsFor: 'accessing'!
 
-
 
-announcer
 
-	^ announcer ifNil: [ announcer := Announcer new ]
 
-!
 
-
 
-environment
 
-	^ environment ifNil: [ HLManager current environment ]
 
-!
 
-
 
-environment: anEnvironment
 
-	environment := anEnvironment
 
-!
 
-
 
-receiver
 
-	^ receiver ifNil: [ receiver := self defaultReceiver ]
 
-!
 
-
 
-receiver: anObject
 
-	receiver := anObject
 
-! !
 
-
 
-!HLCodeModel methodsFor: 'actions'!
 
-
 
-doIt: someCode
 
-
 
-	^ self environment eval: someCode on: self receiver
 
-!
 
-
 
-subscribe: aWidget
 
-	aWidget subscribeTo: self announcer
 
-! !
 
-
 
-!HLCodeModel methodsFor: 'defaults'!
 
-
 
-defaultReceiver
 
-	^ DoIt new
 
-! !
 
-
 
-!HLCodeModel class methodsFor: 'actions'!
 
-
 
-on: anEnvironment
 
-
 
-	^ self new
 
-    	environment: anEnvironment;
 
-        yourself
 
-! !
 
-
 
-HLWidget subclass: #HLCodeWidget
 
-	instanceVariableNames: 'model wrapper code editor'
 
-	package: 'Helios-Workspace'!
 
-
 
-!HLCodeWidget methodsFor: 'accessing'!
 
-
 
-announcer
 
-	^ self model announcer
 
-!
 
-
 
-contents
 
-	^ editor getValue
 
-!
 
-
 
-contents: aString
 
-	editor setValue: aString
 
-!
 
-
 
-currentLine
 
-    ^editor getLine: (editor getCursor line)
 
-!
 
-
 
-currentLineOrSelection
 
-    ^editor somethingSelected
 
-		ifFalse: [self currentLine]
 
-		ifTrue: [self selection]
 
-!
 
-
 
-model
 
-	^ model ifNil: [ 
-    	self model: HLCodeModel new.
 
-		model ]
 
-!
 
-
 
-model: aModel
 
-	model := aModel
 
-!
 
-
 
-receiver
 
-	^ self model receiver
 
-!
 
-
 
-receiver: anObject
 
-	self model receiver: anObject
 
-!
 
-
 
-selection
 
-	^editor getSelection
 
-!
 
-
 
-selectionEnd
 
-   ^code element selectionEnd
 
-!
 
-
 
-selectionEnd: anInteger
 
-   code element selectionEnd: anInteger
 
-!
 
-
 
-selectionStart
 
-   ^code element selectionStart
 
-!
 
-
 
-selectionStart: anInteger
 
-   code element selectionStart: anInteger
 
-! !
 
-
 
-!HLCodeWidget methodsFor: 'actions'!
 
-
 
-clear
 
-      self contents: ''
 
-!
 
-
 
-doIt
 
-	| result |
 
-
 
-	self announcer announce: (HLDoItRequested on: model).
 
-
 
-	result:=  model doIt: self currentLineOrSelection.
 
-
 
-	self announcer announce: (HLDoItExecuted on: model).
 
-
 
-	^ result
 
-!
 
-
 
-editor
 
-	^editor
 
-!
 
-
 
-focus
 
-      self editor focus
 
-!
 
-
 
-inspectIt
 
-
 
-	| newInspector |
 
-       
-	self announcer announce: (HLInspectItRequested on: model).
 
-	newInspector := self makeInspectorOn: self doIt.
 
-	newInspector open
 
-!
 
-
 
-makeInspectorOn: anObject
 
-
 
-	^ HLInspector new 
-		inspect: anObject;
 
-		yourself
 
-!
 
-
 
-observeWrapper
 
-
 
-    wrapper onKeyDown: [ :e | self onKeyDown: e ]
 
-!
 
-
 
-print: aString
 
-	| start stop |
 
-	start := HashedCollection new.
 
-	stop := HashedCollection new.
 
-	start at: 'line' put: (editor getCursor: false) line.
 
-	start at: 'ch' put: (editor getCursor: false) ch.
 
-	stop at: 'line' put: (start at: 'line').
 
-	stop at: 'ch' put: ((start at: 'ch') + aString size + 2).
 
-	editor replaceSelection: (editor getSelection, ' ', aString, ' ').
 
-	editor setCursor: (editor getCursor: true).
 
-	editor setSelection: stop end: start
 
-!
 
-
 
-printIt
 
-
 
-	| result |
 
-
 
-	result:=  self doIt.
 
-       
-	self announcer announce: (HLPrintItRequested on: model).
 
-
 
-    self print: result printString.
 
-	self focus.
 
-!
 
-
 
-setEditorOn: aTextarea
 
-	<self['@editor'] = CodeMirror.fromTextArea(aTextarea, {
 
-		theme: 'amber',
 
-                lineNumbers: true,
 
-                enterMode: 'flat',
 
-                matchBrackets: true,
 
-                electricChars: false
 
-	})>
 
-! !
 
-
 
-!HLCodeWidget methodsFor: 'reactions'!
 
-
 
-onDoIt
 
-	
-    self doIt
 
-!
 
-
 
-onInspectIt
 
-
 
-	self inspectIt
 
-!
 
-
 
-onKeyDown: anEvent
 
-
 
-    <if(anEvent.ctrlKey) {
 
-		if(anEvent.keyCode === 80) { //ctrl+p
 
-			self._onPrintIt();
 
-			anEvent.preventDefault();
 
-			return false;
 
-		}
 
-		if(anEvent.keyCode === 68) { //ctrl+d
 
-			self._onDoIt();
 
-			anEvent.preventDefault();
 
-			return false;
 
-		}
 
-		if(anEvent.keyCode === 73) { //ctrl+i
 
-			self._onInspectIt();
 
-			anEvent.preventDefault();
 
-			return false;
 
-		}
 
-	}>
 
-!
 
-
 
-onPrintIt
 
-
 
-	self printIt
 
-! !
 
-
 
-!HLCodeWidget methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-    code := html textarea.
 
-    self setEditorOn: code element.
 
-    
-    self observeWrapper
 
-! !
 
-
 
-HLWidget subclass: #HLWorkspace
 
-	instanceVariableNames: 'model codeWidget'
 
-	package: 'Helios-Workspace'!
 
-
 
-!HLWorkspace methodsFor: 'accessing'!
 
-
 
-codeWidget
 
-	^ codeWidget ifNil: [
 
-		codeWidget := HLCodeWidget new
 
-    		model: self model code;
 
-        	yourself ]
 
-!
 
-
 
-model
 
-	^ model ifNil: [ 
-    	self model: HLWorkspaceModel new.
 
-		model ]
 
-!
 
-
 
-model: aModel
 
-	model := aModel.
 
-     
-    self codeWidget model: aModel code.
 
-    self observeCodeWidget.
 
-! !
 
-
 
-!HLWorkspace methodsFor: 'actions'!
 
-
 
-observeCodeWidget
 
-! !
 
-
 
-!HLWorkspace methodsFor: 'reactions'!
 
-
 
-onDoIt
 
-!
 
-
 
-onInspectIt
 
-!
 
-
 
-onPrintIt
 
-! !
 
-
 
-!HLWorkspace methodsFor: 'rendering'!
 
-
 
-renderContentOn: html
 
-	html with: self codeWidget
 
-! !
 
-
 
-!HLWorkspace class methodsFor: 'accessing'!
 
-
 
-tabLabel
 
-	^ 'Workspace'
 
-!
 
-
 
-tabPriority
 
-	^ 10
 
-! !
 
-
 
-!HLWorkspace class methodsFor: 'testing'!
 
-
 
-canBeOpenAsTab
 
-	^ true
 
-! !
 
-
 
-Object subclass: #HLWorkspaceModel
 
-	instanceVariableNames: 'announcer environment code'
 
-	package: 'Helios-Workspace'!
 
-
 
-!HLWorkspaceModel methodsFor: 'accessing'!
 
-
 
-announcer
 
-	^ announcer ifNil: [ announcer := Announcer new ]
 
-!
 
-
 
-code
 
-	"Answers the code model working for this workspace model"
 
-	^ code ifNil:[ HLCodeModel on: self environment ]
 
-!
 
-
 
-environment
 
-	^ environment ifNil: [ HLManager current environment ]
 
-!
 
-
 
-environment: anEnvironment
 
-	environment := anEnvironment
 
-! !
 
-
 
-!HLWorkspaceModel methodsFor: 'reactions'!
 
-
 
-onKeyDown: anEvent
 
-
 
-	<if(anEvent.ctrlKey) {
 
-		if(anEvent.keyCode === 80) { //ctrl+p
 
-			self._printIt();
 
-			anEvent.preventDefault();
 
-			return false;
 
-		}
 
-		if(anEvent.keyCode === 68) { //ctrl+d
 
-			self._doIt();
 
-			anEvent.preventDefault();
 
-			return false;
 
-		}
 
-		if(anEvent.keyCode === 73) { //ctrl+i
 
-			self._inspectIt();
 
-			anEvent.preventDefault();
 
-			return false;
 
-		}
 
-	}>
 
-! !
 
-
 
-!HLWorkspaceModel class methodsFor: 'actions'!
 
-
 
-on: anEnvironment
 
-
 
-	^ self new
 
-    	environment: anEnvironment;
 
-        yourself
 
-! !
 
-