12 年之前 · c9bb32ef7a
--- a/helios.html
+++ b/helios.html
@@ -0,0 +1,20 @@
 
				+<!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> 
			
--- a/js/Helios-Announcements.deploy.js
+++ b/js/Helios-Announcements.deploy.js
@@ -0,0 +1,127 @@
 
				+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');
			
 
				+
			
 
				+
			
--- a/js/Helios-Announcements.js
+++ b/js/Helios-Announcements.js
@@ -0,0 +1,157 @@
 
				+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');
			
 
				+
			
 
				+
			
--- a/js/Helios-Browser.deploy.js
+++ b/js/Helios-Browser.deploy.js
@@ -0,0 +1,1473 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/js/Helios-Browser.js
+++ b/js/Helios-Browser.js
@@ -0,0 +1,1953 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/js/Helios-Commands.deploy.js
+++ b/js/Helios-Commands.deploy.js
@@ -0,0 +1,403 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/js/Helios-Commands.js
+++ b/js/Helios-Commands.js
@@ -0,0 +1,563 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/js/Helios-Core.deploy.js
+++ b/js/Helios-Core.deploy.js
@@ -0,0 +1,1070 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/js/Helios-Core.js
+++ b/js/Helios-Core.js
@@ -0,0 +1,1445 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/js/Helios-Environments.deploy.js
+++ b/js/Helios-Environments.deploy.js
@@ -0,0 +1,132 @@
 
				+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);
			
 
				+
			
 
				+
			
 
				+
			
--- a/js/Helios-Environments.js
+++ b/js/Helios-Environments.js
@@ -0,0 +1,179 @@
 
				+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);
			
 
				+
			
 
				+
			
 
				+
			
--- a/js/Helios-Inspector.deploy.js
+++ b/js/Helios-Inspector.deploy.js
@@ -0,0 +1,855 @@
 
				+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);
			
 
				+
			
 
				+
			
 
				+
			
--- a/js/Helios-Inspector.js
+++ b/js/Helios-Inspector.js
@@ -0,0 +1,1155 @@
 
				+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);
			
 
				+
			
 
				+
			
 
				+
			
--- a/js/Helios-KeyBindings.deploy.js
+++ b/js/Helios-KeyBindings.deploy.js
@@ -0,0 +1,753 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/js/Helios-KeyBindings.js
+++ b/js/Helios-KeyBindings.js
@@ -0,0 +1,1023 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/js/Helios-Layout.deploy.js
+++ b/js/Helios-Layout.deploy.js
@@ -0,0 +1,383 @@
 
				+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);
			
 
				+
			
--- a/js/Helios-Layout.js
+++ b/js/Helios-Layout.js
@@ -0,0 +1,523 @@
 
				+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);
			
 
				+
			
--- a/js/Helios-Workspace.deploy.js
+++ b/js/Helios-Workspace.deploy.js
@@ -0,0 +1,799 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/js/Helios-Workspace.js
+++ b/js/Helios-Workspace.js
@@ -0,0 +1,1074 @@
 
				+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);
			
 
				+
			
 
				+
			
--- a/st/Helios-Announcements.st
+++ b/st/Helios-Announcements.st
@@ -0,0 +1,104 @@
 
				+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'!
			
 
				+
			
--- a/st/Helios-Browser.st
+++ b/st/Helios-Browser.st
@@ -0,0 +1,708 @@
 
				+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
			
 
				+! !
			
 
				+
			
--- a/st/Helios-Commands.st
+++ b/st/Helios-Commands.st
@@ -0,0 +1,223 @@
 
				+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'
			
 
				+! !
			
 
				+
			
--- a/st/Helios-Core.st
+++ b/st/Helios-Core.st
@@ -0,0 +1,532 @@
 
				+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
			
 
				+! !
			
 
				+
			
--- a/st/Helios-Environments.st
+++ b/st/Helios-Environments.st
@@ -0,0 +1,98 @@
 
				+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'
			
 
				+! !
			
 
				+
			
--- a/st/Helios-Inspector.st
+++ b/st/Helios-Inspector.st
@@ -0,0 +1,367 @@
 
				+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]
			
 
				+! !
			
 
				+
			
--- a/st/Helios-KeyBindings.st
+++ b/st/Helios-KeyBindings.st
@@ -0,0 +1,337 @@
 
				+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
			
 
				+! !
			
 
				+
			
--- a/st/Helios-Layout.st
+++ b/st/Helios-Layout.st
@@ -0,0 +1,199 @@
 
				+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
			
 
				+! !
			
 
				+
			
--- a/st/Helios-Workspace.st
+++ b/st/Helios-Workspace.st
@@ -0,0 +1,367 @@
 
				+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
			
 
				+! !
			
 
				+