12 years ago · b203de5bb8
--- a/helios.html
+++ b/helios.html
@@ -1,20 +0,0 @@
 
				-<!DOCTYPE html> 
			
 
				-<html> 
			
 
				-  <head> 
			
 
				-    <title>Helios IDE</title> 
			
 
				-    <meta http-equiv="content-type" content="text/html; charset=utf-8" /> 
			
 
				-    <meta name="author" content="Nicolas Petton" /> 
			
 
				-    <link rel="stylesheet" type="text/css" href='js/lib/bootstrap/css/bootstrap.css' /> 
			
 
				-    <link rel="stylesheet" type="text/css" href='css/helios.css' /> 
			
 
				-    <link type="image/x-icon" rel="shortcut icon" href="/favicon.ico"/> 
			
 
				-    <script type='text/javascript' src='js/lib/jQuery/jquery-1.8.2.min.js'></script> 
			
 
				-    <script type='text/javascript' src='js/lib/jQuery/jquery-ui-1.8.24.custom.min.js'></script> 
			
 
				-    <script type='text/javascript' src='js/lib/bootstrap/js/bootstrap.js'></script> 
			
 
				-    <script type='text/javascript' src='js/amber.js'></script> 
			
 
				-  </head> 
			
 
				-  <body> 
			
 
				-    
			
 
				-    <script type='text/javascript'> loadAmber({packages: ['Spaces', 'Helios-Core', 'Helios-Environments', 'Helios-Commands', 'Helios-Layout','Helios-KeyBindings', 'Helios-Browser', 'Helios-Workspace', 'Helios-Inspector', 'Helios-Announcements']}) </script> 
			
 
				-    
			
 
				-  </body> 
			
 
				-</html> 
			
--- a/js/Helios-Announcements.deploy.js
+++ b/js/Helios-Announcements.deploy.js
@@ -1,127 +0,0 @@
 
				-smalltalk.addPackage('Helios-Announcements', {});
			
 
				-smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
			
 
				-smalltalk.addMethod(
			
 
				-"_code",
			
 
				-smalltalk.method({
			
 
				-selector: "code",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@code'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeHandled);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_code_",
			
 
				-smalltalk.method({
			
 
				-selector: "code:",
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@code'] = aModel;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeHandled);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (aCodeModel) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_code_", [aCodeModel]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeHandled.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLDoItExecuted', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLDoItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInspectItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLPrintItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
			
 
				-smalltalk.addMethod(
			
 
				-"_item",
			
 
				-smalltalk.method({
			
 
				-selector: "item",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@item'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLItemSelected);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_item_",
			
 
				-smalltalk.method({
			
 
				-selector: "item:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@item'] = anObject;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLItemSelected);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (anItem) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_item_", [anItem]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLItemSelected.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLRefreshRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
--- a/js/Helios-Announcements.js
+++ b/js/Helios-Announcements.js
@@ -1,157 +0,0 @@
 
				-smalltalk.addPackage('Helios-Announcements', {});
			
 
				-smalltalk.addClass('HLAnnouncement', smalltalk.Object, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLCodeHandled', smalltalk.HLAnnouncement, ['code'], 'Helios-Announcements');
			
 
				-smalltalk.addMethod(
			
 
				-"_code",
			
 
				-smalltalk.method({
			
 
				-selector: "code",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@code'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "code\x0a\x0a\x09^ code",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeHandled);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_code_",
			
 
				-smalltalk.method({
			
 
				-selector: "code:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@code'] = aModel;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aModel"],
			
 
				-source: "code: aModel\x0a\x0a\x09code := aModel",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeHandled);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'actions',
			
 
				-fn: function (aCodeModel) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_code_", [aCodeModel]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aCodeModel"],
			
 
				-source: "on: aCodeModel\x0a\x0a\x09^ self new \x0a    \x09code: aCodeModel;\x0a        yourself",
			
 
				-messageSends: ["code:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeHandled.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLDoItExecuted', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLDoItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInspectItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLPrintItRequested', smalltalk.HLCodeHandled, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLDiveRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLItemSelected', smalltalk.HLAnnouncement, ['item'], 'Helios-Announcements');
			
 
				-smalltalk.addMethod(
			
 
				-"_item",
			
 
				-smalltalk.method({
			
 
				-selector: "item",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@item'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "item\x0a\x09^ item",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLItemSelected);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_item_",
			
 
				-smalltalk.method({
			
 
				-selector: "item:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@item'] = anObject;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "item: anObject\x0a\x09item := anObject",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLItemSelected);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'instance creation',
			
 
				-fn: function (anItem) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_item_", [anItem]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anItem"],
			
 
				-source: "on: anItem\x0a\x09^ self new\x0a    \x09item: anItem;\x0a        yourself",
			
 
				-messageSends: ["item:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLItemSelected.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLClassSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInstanceVariableSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLMethodSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLPackageSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLProtocolSelected', smalltalk.HLItemSelected, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLRefreshRequested', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLShowCommentToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLShowInstanceToggled', smalltalk.HLAnnouncement, [], 'Helios-Announcements');
			
 
				-
			
 
				-
			
--- a/js/Helios-Browser.deploy.js
+++ b/js/Helios-Browser.deploy.js
@@ -1,1473 +0,0 @@
 
				-smalltalk.addPackage('Helios-Browser', {});
			
 
				-smalltalk.addClass('HLBrowser', smalltalk.HLWidget, ['model', 'packagesListWidget', 'classesListWidget', 'protocolsListWidget', 'methodsListWidget', 'sourceWidget'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_classesListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "classesListWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@classesListWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@classesListWidget'] = smalltalk.send(smalltalk.HLClassesListWidget || HLClassesListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        self['@classesListWidget'];
			
 
				-        $1 = smalltalk.send(self['@classesListWidget'], "_next_", [smalltalk.send(self, "_protocolsListWidget", [])]);
			
 
				-    } else {
			
 
				-        $1 = self['@classesListWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_environment", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_methodsListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "methodsListWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@methodsListWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@methodsListWidget'] = smalltalk.send(smalltalk.HLMethodsListWidget || HLMethodsListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        $1 = self['@methodsListWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@methodsListWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
			
 
				-        self['@model'] = smalltalk.send(smalltalk.HLBrowserModel || HLBrowserModel, "_new", []);
			
 
				-        $1 = self['@model'];
			
 
				-    } else {
			
 
				-        $1 = self['@model'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aModel;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packagesListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "packagesListWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@packagesListWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@packagesListWidget'] = smalltalk.send(smalltalk.HLPackagesListWidget || HLPackagesListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        self['@packagesListWidget'];
			
 
				-        $1 = smalltalk.send(self['@packagesListWidget'], "_next_", [smalltalk.send(self, "_classesListWidget", [])]);
			
 
				-    } else {
			
 
				-        $1 = self['@packagesListWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_protocolsListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "protocolsListWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@protocolsListWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@protocolsListWidget'] = smalltalk.send(smalltalk.HLProtocolsListWidget || HLProtocolsListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        self['@protocolsListWidget'];
			
 
				-        $1 = smalltalk.send(self['@protocolsListWidget'], "_next_", [smalltalk.send(self, "_methodsListWidget", [])]);
			
 
				-    } else {
			
 
				-        $1 = self['@protocolsListWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_registerBindingsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "registerBindingsOn:",
			
 
				-fn: function (aBindingGroup) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [66, "Browse"]);
			
 
				-    smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [71, "Go to"]);
			
 
				-    $1 = smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [84, "Toggle"]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.HLBrowserCommand || HLBrowserCommand, "_withAllSubclasses", []), "_do_", [function (each) {$2 = smalltalk.send(each, "_key", []);if (($receiver = $2) == nil || $receiver == undefined) {return $2;} else {return smalltalk.send(smalltalk.send(aBindingGroup, "_at_", [smalltalk.send(each, "_bindingGroup", [])]), "_add_", [smalltalk.send(smalltalk.send(each, "_on_", [smalltalk.send(self, "_model", [])]), "_asBinding", [])]);}}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(smalltalk.HLContainer || HLContainer, "_with_", [smalltalk.send(smalltalk.HLHorizontalSplitter || HLHorizontalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_packagesListWidget", []), smalltalk.send(self, "_classesListWidget", [])]), smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_protocolsListWidget", []), smalltalk.send(self, "_methodsListWidget", [])])]), smalltalk.send(self, "_sourceWidget", [])])])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_sourceWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "sourceWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@sourceWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@sourceWidget'] = smalltalk.send(smalltalk.HLBrowserSourceWidget || HLBrowserSourceWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        $1 = self['@sourceWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@sourceWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-
			
 
				-smalltalk.HLBrowser.klass.iVarNames = ['nextId'];
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_nextId",
			
 
				-smalltalk.method({
			
 
				-selector: "nextId",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@nextId']) == nil || $receiver == undefined) {
			
 
				-        self['@nextId'] = 0;
			
 
				-        self['@nextId'];
			
 
				-    } else {
			
 
				-        self['@nextId'];
			
 
				-    }
			
 
				-    $1 = smalltalk.send("browser_", "__comma", [smalltalk.send(smalltalk.send(self['@nextId'], "__plus", [1]), "_asString", [])]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Browser";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 0;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowser.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBrowserListWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aBrowserModel;
			
 
				-    smalltalk.send(self, "_observeModel", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserListWidget);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_model_", [aModel]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserListWidget.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLClassesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_focusMethodsListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "focusMethodsListWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLMethodsListFocus || HLMethodsListFocus, "_new", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focusProtocolsListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "focusProtocolsListWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLProtocolsListFocus || HLProtocolsListFocus, "_new", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_getChildrenOf_",
			
 
				-smalltalk.method({
			
 
				-selector: "getChildrenOf:",
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_items", []), "_select_", [function (each) {return smalltalk.send(smalltalk.send(each, "_superclass", []), "__eq", [aClass]);}]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_getRootClassesOf_",
			
 
				-smalltalk.method({
			
 
				-selector: "getRootClassesOf:",
			
 
				-fn: function (aCollection) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(aCollection, "_select_", [function (each) {return smalltalk.send(smalltalk.send(smalltalk.send(each, "_allSuperclasses", []), "_intersection_", [aCollection]), "_isEmpty", []);}]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_iconForItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "iconForItem:",
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_theNonMetaClass", []), "_comment", []), "_isEmpty", []);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = "icon-question-sign";
			
 
				-    } else {
			
 
				-        $1 = "icon-none";
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
			
 
				-    smalltalk.send($1, "_on_do_", [smalltalk.HLPackageSelected || HLPackageSelected, function (ann) {return smalltalk.send(self, "_onPackageSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send($1, "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onShowInstanceToggled", []);}]);
			
 
				-    $2 = smalltalk.send($1, "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onClassSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onClassSelected:",
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPackageSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onPackageSelected:",
			
 
				-fn: function (aPackage) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    smalltalk.send(self, "_selectedItem_", [nil]);
			
 
				-    if (($receiver = aPackage) == nil || $receiver == undefined) {
			
 
				-        $1 = [];
			
 
				-    } else {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aPackage, "_classes", []), "_collect_", [function (each) {return smalltalk.send(each, "_theNonMetaClass", []);}]), "_asSet", []), "_asArray", []);
			
 
				-    }
			
 
				-    smalltalk.send(self, "_items_", [$1]);
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onShowInstanceToggled",
			
 
				-smalltalk.method({
			
 
				-selector: "onShowInstanceToggled",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderButtonsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderButtonsOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $5, $6, $7, $8, $2, $9, $10;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", ["btn-group"]);
			
 
				-    smalltalk.send($1, "_at_put_", ["data-toggle", "buttons-radio"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_button", []);smalltalk.send($3, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(str, "_nextPutAll_", ["btn"]);$4 = smalltalk.send(self, "_showInstance", []);if (smalltalk.assert($4)) {return smalltalk.send(str, "_nextPutAll_", [" active"]);}}])]);smalltalk.send($3, "_with_", ["Instance"]);$5 = smalltalk.send($3, "_onClick_", [function () {return smalltalk.send(self, "_showInstance_", [true]);}]);$5;$6 = smalltalk.send(html, "_button", []);smalltalk.send($6, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(str, "_nextPutAll_", ["btn"]);$7 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);if (!smalltalk.assert($7)) {return smalltalk.send(str, "_nextPutAll_", [" active"]);}}])]);smalltalk.send($6, "_with_", ["Class"]);$8 = smalltalk.send($6, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [false]);}]);return $8;}]);
			
 
				-    $9 = smalltalk.send(html, "_button", []);
			
 
				-    smalltalk.send($9, "_class_", ["btn"]);
			
 
				-    smalltalk.send($9, "_at_put_", ["data-toggle", "button"]);
			
 
				-    $10 = smalltalk.send($9, "_with_", ["Comment"]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItem_level_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItem:level:on:",
			
 
				-fn: function (aClass, anInteger, html) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    var li;
			
 
				-    li = smalltalk.send(html, "_li", []);
			
 
				-    smalltalk.send(li, "_at_put_", ["list-data", smalltalk.send(smalltalk.send(self, "_items", []), "_indexOf_", [aClass])]);
			
 
				-    smalltalk.send(li, "_class_", [smalltalk.send(self, "_cssClassForItem_", [aClass])]);
			
 
				-    $1 = smalltalk.send(li, "_with_", [function () {$2 = smalltalk.send(html, "_a", []);smalltalk.send($2, "_with_", [function () {smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", [smalltalk.send(self, "_iconForItem_", [aClass])]);return smalltalk.send(self, "_renderItemLabel_level_on_", [aClass, anInteger, html]);}]);$3 = smalltalk.send($2, "_onClick_", [function () {return smalltalk.send(self, "_activateListItem_", [smalltalk.send(li, "_asJQuery", [])]);}]);return $3;}]);
			
 
				-    smalltalk.send(smalltalk.send(self, "_getChildrenOf_", [aClass]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_level_on_", [each, smalltalk.send(anInteger, "__plus", [1]), html]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItem_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItem:on:",
			
 
				-fn: function (aClass, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_renderItem_on_", [aClass, html], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_getChildrenOf_", [aClass]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_level_on_", [each, 1, html]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItemLabel_level_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItemLabel:level:on:",
			
 
				-fn: function (aClass, anInteger, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(html, "_span", []), "_asJQuery", []), "_html_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(anInteger, "_timesRepeat_", [function () {return smalltalk.send(str, "_nextPutAll_", ["&nbsp;&nbsp;&nbsp;&nbsp;"]);}]);return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(aClass, "_name", [])]);}])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItemLabel_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItemLabel:on:",
			
 
				-fn: function (aClass, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_renderItemLabel_level_on_", [aClass, 0, html]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderListOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderListOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_getRootClassesOf_", [smalltalk.send(self, "_items", [])]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_on_", [each, html]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [aClass], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass_", [aClass]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showInstance",
			
 
				-smalltalk.method({
			
 
				-selector: "showInstance",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showInstance_",
			
 
				-smalltalk.method({
			
 
				-selector: "showInstance:",
			
 
				-fn: function (aBoolean) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [aBoolean]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLMethodsListWidget', smalltalk.HLBrowserListWidget, ['selectorsCache'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_allProtocol",
			
 
				-smalltalk.method({
			
 
				-selector: "allProtocol",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_allProtocol", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_flushSelectorsCache",
			
 
				-smalltalk.method({
			
 
				-selector: "flushSelectorsCache",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@selectorsCache'] = smalltalk.send(smalltalk.Dictionary || Dictionary, "_new", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_iconForItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "iconForItem:",
			
 
				-fn: function (aCompiledMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    var override;
			
 
				-    var overriden;
			
 
				-    override = smalltalk.send(self, "_isOverride_", [aCompiledMethod]);
			
 
				-    overriden = smalltalk.send(self, "_isOverriden_", [aCompiledMethod]);
			
 
				-    if (smalltalk.assert(override)) {
			
 
				-        if (smalltalk.assert(overriden)) {
			
 
				-            $1 = "icon-resize-vertical";
			
 
				-        } else {
			
 
				-            $1 = "icon-arrow-up";
			
 
				-        }
			
 
				-    } else {
			
 
				-        if (smalltalk.assert(overriden)) {
			
 
				-            $1 = "icon-arrow-down";
			
 
				-        } else {
			
 
				-            $1 = "icon-none";
			
 
				-        }
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initialize",
			
 
				-smalltalk.method({
			
 
				-selector: "initialize",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_initialize", [], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(self, "_flushSelectorsCache", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isOverride_",
			
 
				-smalltalk.method({
			
 
				-selector: "isOverride:",
			
 
				-fn: function (aMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_overrideSelectors", []), "_includes_", [smalltalk.send(aMethod, "_selector", [])]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isOverriden_",
			
 
				-smalltalk.method({
			
 
				-selector: "isOverriden:",
			
 
				-fn: function (aMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_overridenSelectors", []), "_includes_", [smalltalk.send(aMethod, "_selector", [])]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_methodsInProtocol_",
			
 
				-smalltalk.method({
			
 
				-selector: "methodsInProtocol:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(aString, "__eq", [smalltalk.send(self, "_allProtocol", [])]);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_methods", []);
			
 
				-    } else {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_methodsInProtocol_", [aString]);
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [nil]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLMethodSelected || HLMethodSelected, function (ann) {return smalltalk.send(self, "_onMethodSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onMethodSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onMethodSelected:",
			
 
				-fn: function (aMethod) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onProtocolSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onProtocolSelected:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    smalltalk.send(self, "_selectedItem_", [nil]);
			
 
				-    $2 = smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []);
			
 
				-    if (($receiver = $2) == nil || $receiver == undefined) {
			
 
				-        $1 = [];
			
 
				-    } else {
			
 
				-        if (($receiver = aString) == nil || $receiver == undefined) {
			
 
				-            $1 = [];
			
 
				-        } else {
			
 
				-            $1 = smalltalk.send(self, "_methodsInProtocol_", [aString]);
			
 
				-        }
			
 
				-    }
			
 
				-    smalltalk.send(self, "_items_", [$1]);
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_overrideSelectors",
			
 
				-smalltalk.method({
			
 
				-selector: "overrideSelectors",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_selectorsCache", []), "_at_ifAbsentPut_", ["override", function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_allSuperclasses", []), "_inject_into_", [smalltalk.send(smalltalk.Set || Set, "_new", []), function (acc, each) {smalltalk.send(acc, "_addAll_", [smalltalk.send(each, "_selectors", [])]);$2 = smalltalk.send(acc, "_yourself", []);return $2;}]);}]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_overridenSelectors",
			
 
				-smalltalk.method({
			
 
				-selector: "overridenSelectors",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_selectorsCache", []), "_at_ifAbsentPut_", ["overriden", function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_allSubclasses", []), "_inject_into_", [smalltalk.send(smalltalk.Set || Set, "_new", []), function (acc, each) {smalltalk.send(acc, "_addAll_", [smalltalk.send(each, "_selectors", [])]);$2 = smalltalk.send(acc, "_yourself", []);return $2;}]);}]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);
			
 
				-    } else {
			
 
				-        $2 = smalltalk.send(html, "_div", []);
			
 
				-        smalltalk.send($2, "_class_", ["class_side"]);
			
 
				-        $3 = smalltalk.send($2, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);}]);
			
 
				-    }
			
 
				-    smalltalk.send(self, "_flushSelectorsCache", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItemLabel_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItemLabel:on:",
			
 
				-fn: function (aCompiledMethod, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(aCompiledMethod, "_selector", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-fn: function (aCompiledMethod) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [aCompiledMethod], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod_", [aCompiledMethod]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectorsCache",
			
 
				-smalltalk.method({
			
 
				-selector: "selectorsCache",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectorsCache'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLPackagesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_focusClassesListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "focusClassesListWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLClassesListFocus || HLClassesListFocus, "_new", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initializeItems",
			
 
				-smalltalk.method({
			
 
				-selector: "initializeItems",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    self['@items'] = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_packages", []), "_sort_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_name", []), "__lt", [smalltalk.send(b, "_name", [])]);}]);
			
 
				-    $1 = self['@items'];
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_items",
			
 
				-smalltalk.method({
			
 
				-selector: "items",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(self, "_initializeItems", []);
			
 
				-    } else {
			
 
				-        $1 = self['@items'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLPackageSelected || HLPackageSelected, function (ann) {return smalltalk.send(self, "_onPackageSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPackageSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onPackageSelected:",
			
 
				-fn: function (aPackage) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderButtonsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderButtonsOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3, $5, $6, $7, $8, $4, $9, $10;
			
 
				-    $1 = smalltalk.send(html, "_span", []);
			
 
				-    smalltalk.send($1, "_class_", ["info"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", ["Auto commit"]);
			
 
				-    $3 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($3, "_class_", ["btn-group switch"]);
			
 
				-    smalltalk.send($3, "_at_put_", ["data-toggle", "buttons-radio"]);
			
 
				-    $4 = smalltalk.send($3, "_with_", [function () {$5 = smalltalk.send(html, "_button", []);smalltalk.send($5, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {return smalltalk.send(str, "_nextPutAll_", ["btn"]);}])]);$6 = smalltalk.send($5, "_with_", ["On"]);$6;$7 = smalltalk.send(html, "_button", []);smalltalk.send($7, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {return smalltalk.send(str, "_nextPutAll_", ["btn active"]);}])]);$8 = smalltalk.send($7, "_with_", ["Off"]);return $8;}]);
			
 
				-    $9 = smalltalk.send(html, "_a", []);
			
 
				-    smalltalk.send($9, "_class_", ["btn"]);
			
 
				-    $10 = smalltalk.send($9, "_with_", ["Commit"]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-fn: function (aPackage) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [aPackage], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage_", [aPackage]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLProtocolsListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_allProtocol",
			
 
				-smalltalk.method({
			
 
				-selector: "allProtocol",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_allProtocol", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onClassSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onClassSelected:",
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    smalltalk.send(self, "_selectedItem_", [nil]);
			
 
				-    if (($receiver = aClass) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.Array || Array, "_with_", [smalltalk.send(self, "_allProtocol", [])]);
			
 
				-    } else {
			
 
				-        $2 = smalltalk.send(smalltalk.Array || Array, "_with_", [smalltalk.send(self, "_allProtocol", [])]);
			
 
				-        smalltalk.send($2, "_addAll_", [smalltalk.send(aClass, "_protocols", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        $1 = $3;
			
 
				-    }
			
 
				-    smalltalk.send(self, "_items_", [$1]);
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onProtocolSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onProtocolSelected:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);
			
 
				-    } else {
			
 
				-        $2 = smalltalk.send(html, "_div", []);
			
 
				-        smalltalk.send($2, "_class_", ["class_side"]);
			
 
				-        $3 = smalltalk.send($2, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);}]);
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [aString], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol_", [aString]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedItem",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedItem",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_selectedItem", [], smalltalk.HLBrowserListWidget);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBrowserModel', smalltalk.Object, ['announcer', 'environment', 'selectedPackage', 'selectedClass', 'selectedProtocol', 'selectedMethod', 'showInstance', 'showComment'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_allProtocol",
			
 
				-smalltalk.method({
			
 
				-selector: "allProtocol",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "-- All --";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packages",
			
 
				-smalltalk.method({
			
 
				-selector: "packages",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_environment", []), "_packages", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedClass",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedClass",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedClass'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedClass_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedClass:",
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    $1 = smalltalk.send(self['@selectedClass'], "__eq", [aClass]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        if (($receiver = aClass) == nil || $receiver == undefined) {
			
 
				-            self['@selectedClass'] = nil;
			
 
				-            self['@selectedClass'];
			
 
				-        } else {
			
 
				-            $2 = smalltalk.send(self, "_showInstance", []);
			
 
				-            if (smalltalk.assert($2)) {
			
 
				-                self['@selectedClass'] = smalltalk.send(aClass, "_theNonMetaClass", []);
			
 
				-                self['@selectedClass'];
			
 
				-            } else {
			
 
				-                self['@selectedClass'] = smalltalk.send(aClass, "_theMetaClass", []);
			
 
				-                self['@selectedClass'];
			
 
				-            }
			
 
				-        }
			
 
				-        smalltalk.send(self, "_selectedMethod_", [nil]);
			
 
				-        $3 = smalltalk.send(self, "_selectedProtocol_", [nil]);
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLClassSelected || HLClassSelected, "_on_", [smalltalk.send(self, "_selectedClass", [])])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedMethod",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedMethod",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedMethod'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedMethod_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedMethod:",
			
 
				-fn: function (aCompiledMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@selectedMethod'], "__eq", [aCompiledMethod]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        self['@selectedMethod'] = aCompiledMethod;
			
 
				-        self['@selectedMethod'];
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLMethodSelected || HLMethodSelected, "_on_", [aCompiledMethod])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedPackage",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedPackage",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedPackage'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedPackage_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedPackage:",
			
 
				-fn: function (aPackage) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@selectedPackage'], "__eq", [aPackage]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        self['@selectedPackage'] = aPackage;
			
 
				-        self['@selectedPackage'];
			
 
				-        smalltalk.send(self, "_selectedClass_", [nil]);
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLPackageSelected || HLPackageSelected, "_on_", [aPackage])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedProtocol",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedProtocol",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedProtocol'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedProtocol_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedProtocol:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@selectedProtocol'], "__eq", [aString]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        self['@selectedProtocol'] = aString;
			
 
				-        self['@selectedProtocol'];
			
 
				-        smalltalk.send(self, "_selectedMethod_", [nil]);
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLProtocolSelected || HLProtocolSelected, "_on_", [aString])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showComment",
			
 
				-smalltalk.method({
			
 
				-selector: "showComment",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@showComment']) == nil || $receiver == undefined) {
			
 
				-        $1 = false;
			
 
				-    } else {
			
 
				-        $1 = self['@showComment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showComment_",
			
 
				-smalltalk.method({
			
 
				-selector: "showComment:",
			
 
				-fn: function (aBoolean) {
			
 
				-    var self = this;
			
 
				-    self['@showComment'] = aBoolean;
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLShowCommentToggled || HLShowCommentToggled, "_new", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showInstance",
			
 
				-smalltalk.method({
			
 
				-selector: "showInstance",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@showInstance']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        $1 = true;
			
 
				-    } else {
			
 
				-        $1 = self['@showInstance'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showInstance_",
			
 
				-smalltalk.method({
			
 
				-selector: "showInstance:",
			
 
				-fn: function (aBoolean) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    self['@showInstance'] = aBoolean;
			
 
				-    $1 = smalltalk.send(self, "_selectedClass", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-    } else {
			
 
				-        if (smalltalk.assert(aBoolean)) {
			
 
				-            $2 = smalltalk.send(smalltalk.send(self, "_selectedClass", []), "_theNonMetaClass", []);
			
 
				-        } else {
			
 
				-            $2 = smalltalk.send(smalltalk.send(self, "_selectedClass", []), "_theMetaClass", []);
			
 
				-        }
			
 
				-        smalltalk.send(self, "_selectedClass_", [$2]);
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, "_new", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_environment_", [anEnvironment]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBrowserSourceWidget', smalltalk.HLWidget, ['model', 'codeWidget'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_codeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "codeWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
			
 
				-        self['@codeWidget'] = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_contents",
			
 
				-smalltalk.method({
			
 
				-selector: "contents",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_sourceArea", []), "_contents", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_contents_",
			
 
				-smalltalk.method({
			
 
				-selector: "contents:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_contents_", [aString]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aBrowserModel;
			
 
				-    smalltalk.send(self, "_observeModel", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLMethodSelected || HLMethodSelected, function (ann) {return smalltalk.send(self, "_onMethodSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onClassSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onClassSelected:",
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = aClass) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(self, "_contents_", [""]);
			
 
				-        return $1;
			
 
				-    } else {
			
 
				-    }
			
 
				-    smalltalk.send(self, "_contents_", [smalltalk.send(aClass, "_definition", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onMethodSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onMethodSelected:",
			
 
				-fn: function (aCompiledMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = aCompiledMethod) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(self, "_contents_", [""]);
			
 
				-        return $1;
			
 
				-    } else {
			
 
				-    }
			
 
				-    smalltalk.send(self, "_contents_", [smalltalk.send(aCompiledMethod, "_source", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onProtocolSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onProtocolSelected:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(self, "_contents_", [""]);
			
 
				-        return $2;
			
 
				-    } else {
			
 
				-    }
			
 
				-    smalltalk.send(self, "_contents_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_definition", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_renderOn_", [html]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_model_", [aBrowserModel]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget.klass);
			
 
				-
			
 
				-
			
--- a/js/Helios-Browser.js
+++ b/js/Helios-Browser.js
@@ -1,1953 +0,0 @@
 
				-smalltalk.addPackage('Helios-Browser', {});
			
 
				-smalltalk.addClass('HLBrowser', smalltalk.HLWidget, ['model', 'packagesListWidget', 'classesListWidget', 'protocolsListWidget', 'methodsListWidget', 'sourceWidget'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "announcer\x0a\x09^ self model announcer",
			
 
				-messageSends: ["announcer", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_classesListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "classesListWidget",
			
 
				-category: 'widgets',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@classesListWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@classesListWidget'] = smalltalk.send(smalltalk.HLClassesListWidget || HLClassesListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        self['@classesListWidget'];
			
 
				-        $1 = smalltalk.send(self['@classesListWidget'], "_next_", [smalltalk.send(self, "_protocolsListWidget", [])]);
			
 
				-    } else {
			
 
				-        $1 = self['@classesListWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "classesListWidget\x0a\x09^ classesListWidget ifNil: [\x0a      \x09classesListWidget := HLClassesListWidget on: self model.\x0a\x09\x09classesListWidget next: self protocolsListWidget ]",
			
 
				-messageSends: ["ifNil:", "on:", "model", "next:", "protocolsListWidget"],
			
 
				-referencedClasses: ["HLClassesListWidget"]
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_environment", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "environment\x0a\x09^ self model environment",
			
 
				-messageSends: ["environment", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_methodsListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "methodsListWidget",
			
 
				-category: 'widgets',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@methodsListWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@methodsListWidget'] = smalltalk.send(smalltalk.HLMethodsListWidget || HLMethodsListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        $1 = self['@methodsListWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@methodsListWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "methodsListWidget\x0a\x09^ methodsListWidget ifNil: [\x0a      \x09methodsListWidget := HLMethodsListWidget on: self model ]",
			
 
				-messageSends: ["ifNil:", "on:", "model"],
			
 
				-referencedClasses: ["HLMethodsListWidget"]
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
			
 
				-        self['@model'] = smalltalk.send(smalltalk.HLBrowserModel || HLBrowserModel, "_new", []);
			
 
				-        $1 = self['@model'];
			
 
				-    } else {
			
 
				-        $1 = self['@model'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "model\x0a\x09^ model ifNil: [ model := HLBrowserModel new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["HLBrowserModel"]
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aModel;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aModel"],
			
 
				-source: "model: aModel\x0a\x09model := aModel",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packagesListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "packagesListWidget",
			
 
				-category: 'widgets',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@packagesListWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@packagesListWidget'] = smalltalk.send(smalltalk.HLPackagesListWidget || HLPackagesListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        self['@packagesListWidget'];
			
 
				-        $1 = smalltalk.send(self['@packagesListWidget'], "_next_", [smalltalk.send(self, "_classesListWidget", [])]);
			
 
				-    } else {
			
 
				-        $1 = self['@packagesListWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "packagesListWidget\x0a\x09^ packagesListWidget ifNil: [\x0a      \x09packagesListWidget := HLPackagesListWidget on: self model.\x0a\x09\x09packagesListWidget next: self classesListWidget ]",
			
 
				-messageSends: ["ifNil:", "on:", "model", "next:", "classesListWidget"],
			
 
				-referencedClasses: ["HLPackagesListWidget"]
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_protocolsListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "protocolsListWidget",
			
 
				-category: 'widgets',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@protocolsListWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@protocolsListWidget'] = smalltalk.send(smalltalk.HLProtocolsListWidget || HLProtocolsListWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        self['@protocolsListWidget'];
			
 
				-        $1 = smalltalk.send(self['@protocolsListWidget'], "_next_", [smalltalk.send(self, "_methodsListWidget", [])]);
			
 
				-    } else {
			
 
				-        $1 = self['@protocolsListWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "protocolsListWidget\x0a\x09^ protocolsListWidget ifNil: [\x0a      \x09protocolsListWidget := HLProtocolsListWidget on: self model.\x0a\x09\x09protocolsListWidget next: self methodsListWidget ]",
			
 
				-messageSends: ["ifNil:", "on:", "model", "next:", "methodsListWidget"],
			
 
				-referencedClasses: ["HLProtocolsListWidget"]
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_registerBindingsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "registerBindingsOn:",
			
 
				-category: 'keybindings',
			
 
				-fn: function (aBindingGroup) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [66, "Browse"]);
			
 
				-    smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [71, "Go to"]);
			
 
				-    $1 = smalltalk.send(aBindingGroup, "_addGroupKey_labelled_", [84, "Toggle"]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.HLBrowserCommand || HLBrowserCommand, "_withAllSubclasses", []), "_do_", [function (each) {$2 = smalltalk.send(each, "_key", []);if (($receiver = $2) == nil || $receiver == undefined) {return $2;} else {return smalltalk.send(smalltalk.send(aBindingGroup, "_at_", [smalltalk.send(each, "_bindingGroup", [])]), "_add_", [smalltalk.send(smalltalk.send(each, "_on_", [smalltalk.send(self, "_model", [])]), "_asBinding", [])]);}}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBindingGroup"],
			
 
				-source: "registerBindingsOn: aBindingGroup\x0a\x09aBindingGroup \x0a    \x09addGroupKey: 66 labelled: 'Browse';\x0a        addGroupKey: 71 labelled: 'Go to';\x0a        addGroupKey: 84 labelled: 'Toggle'.\x0a        \x0a   \x09HLBrowserCommand withAllSubclasses do: [ :each |\x0a   \x09\x09each key ifNotNil: [\x0a  \x09\x09\x09(aBindingGroup at: each bindingGroup) \x0a  \x09\x09\x09\x09add: (each on: self model) asBinding ] ]",
			
 
				-messageSends: ["addGroupKey:labelled:", "do:", "ifNotNil:", "add:", "asBinding", "on:", "model", "at:", "bindingGroup", "key", "withAllSubclasses"],
			
 
				-referencedClasses: ["HLBrowserCommand"]
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(smalltalk.HLContainer || HLContainer, "_with_", [smalltalk.send(smalltalk.HLHorizontalSplitter || HLHorizontalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_packagesListWidget", []), smalltalk.send(self, "_classesListWidget", [])]), smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_protocolsListWidget", []), smalltalk.send(self, "_methodsListWidget", [])])]), smalltalk.send(self, "_sourceWidget", [])])])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a\x09html with: (HLContainer with: (HLHorizontalSplitter \x0a    \x09with: (HLVerticalSplitter\x0a        \x09with: (HLVerticalSplitter\x0a            \x09with: self packagesListWidget\x0a                with: self classesListWidget)\x0a            with: (HLVerticalSplitter\x0a            \x09with: self protocolsListWidget\x0a                with: self methodsListWidget)) \x0a        with: self sourceWidget))",
			
 
				-messageSends: ["with:", "with:with:", "packagesListWidget", "classesListWidget", "protocolsListWidget", "methodsListWidget", "sourceWidget"],
			
 
				-referencedClasses: ["HLVerticalSplitter", "HLHorizontalSplitter", "HLContainer"]
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_sourceWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "sourceWidget",
			
 
				-category: 'widgets',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@sourceWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        self['@sourceWidget'] = smalltalk.send(smalltalk.HLBrowserSourceWidget || HLBrowserSourceWidget, "_on_", [smalltalk.send(self, "_model", [])]);
			
 
				-        $1 = self['@sourceWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@sourceWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "sourceWidget\x0a\x09^ sourceWidget ifNil: [\x0a      \x09sourceWidget := HLBrowserSourceWidget on: self model ]",
			
 
				-messageSends: ["ifNil:", "on:", "model"],
			
 
				-referencedClasses: ["HLBrowserSourceWidget"]
			
 
				-}),
			
 
				-smalltalk.HLBrowser);
			
 
				-
			
 
				-
			
 
				-smalltalk.HLBrowser.klass.iVarNames = ['nextId'];
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "canBeOpenAsTab\x0a\x09^ true",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowser.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_nextId",
			
 
				-smalltalk.method({
			
 
				-selector: "nextId",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@nextId']) == nil || $receiver == undefined) {
			
 
				-        self['@nextId'] = 0;
			
 
				-        self['@nextId'];
			
 
				-    } else {
			
 
				-        self['@nextId'];
			
 
				-    }
			
 
				-    $1 = smalltalk.send("browser_", "__comma", [smalltalk.send(smalltalk.send(self['@nextId'], "__plus", [1]), "_asString", [])]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "nextId\x0a\x09nextId ifNil: [ nextId := 0 ].\x0a    ^ 'browser_', (nextId + 1) asString",
			
 
				-messageSends: ["ifNil:", ",", "asString", "+"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowser.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Browser";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabLabel\x0a\x09^ 'Browser'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowser.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 0;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabPriority\x0a\x09^ 0",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowser.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBrowserListWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "model\x0a\x09^ model",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aBrowserModel;
			
 
				-    smalltalk.send(self, "_observeModel", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBrowserModel"],
			
 
				-source: "model: aBrowserModel\x0a\x09model := aBrowserModel.\x0a    \x0a    self observeModel",
			
 
				-messageSends: ["observeModel"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeModel",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserListWidget);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'instance creation',
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_model_", [aModel]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aModel"],
			
 
				-source: "on: aModel\x0a\x09^ self new \x0a    \x09model: aModel;\x0a        yourself",
			
 
				-messageSends: ["model:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserListWidget.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLClassesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_focusMethodsListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "focusMethodsListWidget",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLMethodsListFocus || HLMethodsListFocus, "_new", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "focusMethodsListWidget\x0a\x09self model announcer announce: HLMethodsListFocus new",
			
 
				-messageSends: ["announce:", "new", "announcer", "model"],
			
 
				-referencedClasses: ["HLMethodsListFocus"]
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focusProtocolsListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "focusProtocolsListWidget",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLProtocolsListFocus || HLProtocolsListFocus, "_new", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "focusProtocolsListWidget\x0a\x09self model announcer announce: HLProtocolsListFocus new",
			
 
				-messageSends: ["announce:", "new", "announcer", "model"],
			
 
				-referencedClasses: ["HLProtocolsListFocus"]
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_getChildrenOf_",
			
 
				-smalltalk.method({
			
 
				-selector: "getChildrenOf:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_items", []), "_select_", [function (each) {return smalltalk.send(smalltalk.send(each, "_superclass", []), "__eq", [aClass]);}]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aClass"],
			
 
				-source: "getChildrenOf: aClass\x0a\x09^ self items select: [ :each | each superclass = aClass ]",
			
 
				-messageSends: ["select:", "=", "superclass", "items"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_getRootClassesOf_",
			
 
				-smalltalk.method({
			
 
				-selector: "getRootClassesOf:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aCollection) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(aCollection, "_select_", [function (each) {return smalltalk.send(smalltalk.send(smalltalk.send(each, "_allSuperclasses", []), "_intersection_", [aCollection]), "_isEmpty", []);}]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aCollection"],
			
 
				-source: "getRootClassesOf: aCollection\x0a\x09^ aCollection select: [ :each |\x0a    \x09(each allSuperclasses intersection: aCollection) isEmpty ]",
			
 
				-messageSends: ["select:", "isEmpty", "intersection:", "allSuperclasses"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_iconForItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "iconForItem:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_theNonMetaClass", []), "_comment", []), "_isEmpty", []);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = "icon-question-sign";
			
 
				-    } else {
			
 
				-        $1 = "icon-none";
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aClass"],
			
 
				-source: "iconForItem: aClass\x0a\x09^ aClass theNonMetaClass comment isEmpty\x0a    \x09ifFalse: [ 'icon-none' ]\x0a      \x09ifTrue: [ 'icon-question-sign' ]",
			
 
				-messageSends: ["ifFalse:ifTrue:", "isEmpty", "comment", "theNonMetaClass"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
			
 
				-    smalltalk.send($1, "_on_do_", [smalltalk.HLPackageSelected || HLPackageSelected, function (ann) {return smalltalk.send(self, "_onPackageSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send($1, "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onShowInstanceToggled", []);}]);
			
 
				-    $2 = smalltalk.send($1, "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeModel\x0a\x09self model announcer \x0a    \x09on: HLPackageSelected do: [ :ann | self onPackageSelected: ann item ];\x0a    \x09on: HLShowInstanceToggled do: [ :ann | self onShowInstanceToggled ];\x0a\x09\x09on: HLClassSelected do: [ :ann | self onClassSelected: ann item ]",
			
 
				-messageSends: ["on:do:", "onPackageSelected:", "item", "announcer", "model", "onShowInstanceToggled", "onClassSelected:"],
			
 
				-referencedClasses: ["HLPackageSelected", "HLShowInstanceToggled", "HLClassSelected"]
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onClassSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onClassSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aClass"],
			
 
				-source: "onClassSelected: aClass\x0a\x09self focus",
			
 
				-messageSends: ["focus"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPackageSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onPackageSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aPackage) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    smalltalk.send(self, "_selectedItem_", [nil]);
			
 
				-    if (($receiver = aPackage) == nil || $receiver == undefined) {
			
 
				-        $1 = [];
			
 
				-    } else {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aPackage, "_classes", []), "_collect_", [function (each) {return smalltalk.send(each, "_theNonMetaClass", []);}]), "_asSet", []), "_asArray", []);
			
 
				-    }
			
 
				-    smalltalk.send(self, "_items_", [$1]);
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aPackage"],
			
 
				-source: "onPackageSelected: aPackage\x0a    self selectedItem: nil.\x0a    \x0a    self items: (aPackage \x0a    \x09ifNil: [ #() ]\x0a  \x09\x09ifNotNil: [ (aPackage classes \x0a        \x09collect: [ :each | each theNonMetaClass ]) asSet asArray ]).\x0a\x0a    self refresh",
			
 
				-messageSends: ["selectedItem:", "items:", "ifNil:ifNotNil:", "asArray", "asSet", "collect:", "theNonMetaClass", "classes", "refresh"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onShowInstanceToggled",
			
 
				-smalltalk.method({
			
 
				-selector: "onShowInstanceToggled",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onShowInstanceToggled\x0a\x09self refresh",
			
 
				-messageSends: ["refresh"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderButtonsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderButtonsOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $5, $6, $7, $8, $2, $9, $10;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", ["btn-group"]);
			
 
				-    smalltalk.send($1, "_at_put_", ["data-toggle", "buttons-radio"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_button", []);smalltalk.send($3, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(str, "_nextPutAll_", ["btn"]);$4 = smalltalk.send(self, "_showInstance", []);if (smalltalk.assert($4)) {return smalltalk.send(str, "_nextPutAll_", [" active"]);}}])]);smalltalk.send($3, "_with_", ["Instance"]);$5 = smalltalk.send($3, "_onClick_", [function () {return smalltalk.send(self, "_showInstance_", [true]);}]);$5;$6 = smalltalk.send(html, "_button", []);smalltalk.send($6, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(str, "_nextPutAll_", ["btn"]);$7 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);if (!smalltalk.assert($7)) {return smalltalk.send(str, "_nextPutAll_", [" active"]);}}])]);smalltalk.send($6, "_with_", ["Class"]);$8 = smalltalk.send($6, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [false]);}]);return $8;}]);
			
 
				-    $9 = smalltalk.send(html, "_button", []);
			
 
				-    smalltalk.send($9, "_class_", ["btn"]);
			
 
				-    smalltalk.send($9, "_at_put_", ["data-toggle", "button"]);
			
 
				-    $10 = smalltalk.send($9, "_with_", ["Comment"]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderButtonsOn: html\x0a\x09html div \x0a        class: 'btn-group';\x0a\x09\x09at: 'data-toggle' put: 'buttons-radio';\x0a\x09\x09with: [ \x0a           \x09html button \x0a                class: (String streamContents: [ :str |\x0a                \x09str nextPutAll: 'btn'.\x0a                    self showInstance ifTrue: [ \x0a                    \x09str nextPutAll: ' active'] ]);\x0a  \x09\x09\x09\x09with: 'Instance';\x0a                onClick: [ self showInstance: true ].\x0a  \x09\x09\x09html button\x0a  \x09\x09\x09\x09class: (String streamContents: [ :str |\x0a                \x09str nextPutAll: 'btn'.\x0a                    self model showInstance ifFalse: [ \x0a                    \x09str nextPutAll: ' active'] ]);\x0a  \x09\x09\x09\x09with: 'Class';\x0a\x09\x09\x09\x09onClick: [ self model showInstance: false ] ].\x0a                 \x0a  \x09html button \x0a           \x09class: 'btn';\x0a            at: 'data-toggle' put: 'button';\x0a  \x09\x09\x09with: 'Comment'",
			
 
				-messageSends: ["class:", "div", "at:put:", "with:", "streamContents:", "nextPutAll:", "ifTrue:", "showInstance", "button", "onClick:", "showInstance:", "ifFalse:", "model"],
			
 
				-referencedClasses: ["String"]
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItem_level_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItem:level:on:",
			
 
				-category: 'rendering',
			
 
				-fn: function (aClass, anInteger, html) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    var li;
			
 
				-    li = smalltalk.send(html, "_li", []);
			
 
				-    smalltalk.send(li, "_at_put_", ["list-data", smalltalk.send(smalltalk.send(self, "_items", []), "_indexOf_", [aClass])]);
			
 
				-    smalltalk.send(li, "_class_", [smalltalk.send(self, "_cssClassForItem_", [aClass])]);
			
 
				-    $1 = smalltalk.send(li, "_with_", [function () {$2 = smalltalk.send(html, "_a", []);smalltalk.send($2, "_with_", [function () {smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", [smalltalk.send(self, "_iconForItem_", [aClass])]);return smalltalk.send(self, "_renderItemLabel_level_on_", [aClass, anInteger, html]);}]);$3 = smalltalk.send($2, "_onClick_", [function () {return smalltalk.send(self, "_activateListItem_", [smalltalk.send(li, "_asJQuery", [])]);}]);return $3;}]);
			
 
				-    smalltalk.send(smalltalk.send(self, "_getChildrenOf_", [aClass]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_level_on_", [each, smalltalk.send(anInteger, "__plus", [1]), html]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aClass", "anInteger", "html"],
			
 
				-source: "renderItem: aClass level: anInteger on: html\x0a\x09| li |\x0a    \x0a\x09li := html li.\x0a    li\x0a    \x09at: 'list-data' put: (self items indexOf: aClass);\x0a    \x09class: (self cssClassForItem: aClass);\x0a        with: [ \x0a        \x09html a\x0a            \x09with: [ \x0a            \x09\x09(html tag: 'i') class: (self iconForItem: aClass).\x0a  \x09\x09\x09\x09\x09self renderItemLabel: aClass level: anInteger on: html ];\x0a\x09\x09\x09\x09onClick: [\x0a                  \x09self activateListItem: li asJQuery ] ].\x0a                    \x0a    (self getChildrenOf: aClass) do: [ :each |\x0a    \x09self renderItem: each level: anInteger + 1 on: html ]",
			
 
				-messageSends: ["li", "at:put:", "indexOf:", "items", "class:", "cssClassForItem:", "with:", "iconForItem:", "tag:", "renderItemLabel:level:on:", "a", "onClick:", "activateListItem:", "asJQuery", "do:", "renderItem:level:on:", "+", "getChildrenOf:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItem_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItem:on:",
			
 
				-category: 'rendering',
			
 
				-fn: function (aClass, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_renderItem_on_", [aClass, html], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_getChildrenOf_", [aClass]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_level_on_", [each, 1, html]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aClass", "html"],
			
 
				-source: "renderItem: aClass on: html\x0a\x09super renderItem: aClass on: html.\x0a    \x09(self getChildrenOf: aClass) do: [ :each |\x0a    \x09\x09self renderItem: each level: 1 on: html ]",
			
 
				-messageSends: ["renderItem:on:", "do:", "renderItem:level:on:", "getChildrenOf:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItemLabel_level_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItemLabel:level:on:",
			
 
				-category: 'rendering',
			
 
				-fn: function (aClass, anInteger, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(html, "_span", []), "_asJQuery", []), "_html_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {smalltalk.send(anInteger, "_timesRepeat_", [function () {return smalltalk.send(str, "_nextPutAll_", ["&nbsp;&nbsp;&nbsp;&nbsp;"]);}]);return smalltalk.send(str, "_nextPutAll_", [smalltalk.send(aClass, "_name", [])]);}])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aClass", "anInteger", "html"],
			
 
				-source: "renderItemLabel: aClass level: anInteger on: html\x0a\x09html span asJQuery html: (String streamContents: [ :str |\x0a\x09\x09anInteger timesRepeat: [\x0a\x09\x09\x09str nextPutAll: '&nbsp;&nbsp;&nbsp;&nbsp;'].\x0a\x09\x09\x09str nextPutAll: aClass name ])",
			
 
				-messageSends: ["html:", "streamContents:", "timesRepeat:", "nextPutAll:", "name", "asJQuery", "span"],
			
 
				-referencedClasses: ["String"]
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItemLabel_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItemLabel:on:",
			
 
				-category: 'rendering',
			
 
				-fn: function (aClass, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_renderItemLabel_level_on_", [aClass, 0, html]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aClass", "html"],
			
 
				-source: "renderItemLabel: aClass on: html\x0a\x09self renderItemLabel: aClass level: 0 on: html",
			
 
				-messageSends: ["renderItemLabel:level:on:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderListOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderListOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_getRootClassesOf_", [smalltalk.send(self, "_items", [])]), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_on_", [each, html]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderListOn: html\x0a\x09(self getRootClassesOf: self items)\x0a    \x09do: [ :each | self renderItem: each on: html ]",
			
 
				-messageSends: ["do:", "renderItem:on:", "getRootClassesOf:", "items"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-category: 'actions',
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [aClass], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass_", [aClass]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aClass"],
			
 
				-source: "selectItem: aClass\x0a\x09super selectItem: aClass.\x0a    self model selectedClass: aClass",
			
 
				-messageSends: ["selectItem:", "selectedClass:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showInstance",
			
 
				-smalltalk.method({
			
 
				-selector: "showInstance",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "showInstance\x0a\x09^ self model showInstance",
			
 
				-messageSends: ["showInstance", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showInstance_",
			
 
				-smalltalk.method({
			
 
				-selector: "showInstance:",
			
 
				-category: 'actions',
			
 
				-fn: function (aBoolean) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [aBoolean]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBoolean"],
			
 
				-source: "showInstance: aBoolean\x0a\x09self model showInstance: aBoolean",
			
 
				-messageSends: ["showInstance:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLClassesListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLMethodsListWidget', smalltalk.HLBrowserListWidget, ['selectorsCache'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_allProtocol",
			
 
				-smalltalk.method({
			
 
				-selector: "allProtocol",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_allProtocol", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "allProtocol\x0a\x09^ self model allProtocol",
			
 
				-messageSends: ["allProtocol", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_flushSelectorsCache",
			
 
				-smalltalk.method({
			
 
				-selector: "flushSelectorsCache",
			
 
				-category: 'cache',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@selectorsCache'] = smalltalk.send(smalltalk.Dictionary || Dictionary, "_new", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "flushSelectorsCache\x0a\x09selectorsCache := Dictionary new",
			
 
				-messageSends: ["new"],
			
 
				-referencedClasses: ["Dictionary"]
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_iconForItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "iconForItem:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aCompiledMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    var override;
			
 
				-    var overriden;
			
 
				-    override = smalltalk.send(self, "_isOverride_", [aCompiledMethod]);
			
 
				-    overriden = smalltalk.send(self, "_isOverriden_", [aCompiledMethod]);
			
 
				-    if (smalltalk.assert(override)) {
			
 
				-        if (smalltalk.assert(overriden)) {
			
 
				-            $1 = "icon-resize-vertical";
			
 
				-        } else {
			
 
				-            $1 = "icon-arrow-up";
			
 
				-        }
			
 
				-    } else {
			
 
				-        if (smalltalk.assert(overriden)) {
			
 
				-            $1 = "icon-arrow-down";
			
 
				-        } else {
			
 
				-            $1 = "icon-none";
			
 
				-        }
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aCompiledMethod"],
			
 
				-source: "iconForItem: aCompiledMethod\x0a\x09| override overriden |\x0a    \x0a    override := self isOverride: aCompiledMethod.\x0a    overriden := self isOverriden: aCompiledMethod.\x0a    \x0a\x09^ override\x0a    \x09ifTrue: [ overriden\x0a\x09\x09\x09ifTrue: [ 'icon-resize-vertical' ]\x0a\x09\x09\x09ifFalse: [ 'icon-arrow-up' ] ]\x0a\x09\x09ifFalse: [\x0a\x09\x09\x09overriden\x0a\x09\x09\x09ifTrue: [ 'icon-arrow-down' ]\x0a\x09\x09\x09ifFalse: [ 'icon-none' ] ]",
			
 
				-messageSends: ["isOverride:", "isOverriden:", "ifTrue:ifFalse:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initialize",
			
 
				-smalltalk.method({
			
 
				-selector: "initialize",
			
 
				-category: 'initialization',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_initialize", [], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(self, "_flushSelectorsCache", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "initialize\x0a\x09super initialize.\x0a    self flushSelectorsCache",
			
 
				-messageSends: ["initialize", "flushSelectorsCache"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isOverride_",
			
 
				-smalltalk.method({
			
 
				-selector: "isOverride:",
			
 
				-category: 'testing',
			
 
				-fn: function (aMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_overrideSelectors", []), "_includes_", [smalltalk.send(aMethod, "_selector", [])]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aMethod"],
			
 
				-source: "isOverride: aMethod\x0a\x0a   ^ self overrideSelectors includes: aMethod selector",
			
 
				-messageSends: ["includes:", "selector", "overrideSelectors"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isOverriden_",
			
 
				-smalltalk.method({
			
 
				-selector: "isOverriden:",
			
 
				-category: 'testing',
			
 
				-fn: function (aMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_overridenSelectors", []), "_includes_", [smalltalk.send(aMethod, "_selector", [])]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aMethod"],
			
 
				-source: "isOverriden: aMethod\x0a\x0a   ^ self overridenSelectors includes: aMethod selector",
			
 
				-messageSends: ["includes:", "selector", "overridenSelectors"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_methodsInProtocol_",
			
 
				-smalltalk.method({
			
 
				-selector: "methodsInProtocol:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(aString, "__eq", [smalltalk.send(self, "_allProtocol", [])]);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_methods", []);
			
 
				-    } else {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_methodsInProtocol_", [aString]);
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "methodsInProtocol: aString\x0a\x09^ aString = self allProtocol\x0a    \x09ifTrue: [ self model selectedClass methods ]\x0a      \x09ifFalse: [ self model selectedClass methodsInProtocol: aString ]",
			
 
				-messageSends: ["ifTrue:ifFalse:", "methods", "selectedClass", "model", "methodsInProtocol:", "=", "allProtocol"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [nil]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLMethodSelected || HLMethodSelected, function (ann) {return smalltalk.send(self, "_onMethodSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeModel\x0a\x09self model announcer on: HLProtocolSelected do: [ :ann |\x0a    \x09self onProtocolSelected: ann item ].\x0a    self model announcer on: HLShowInstanceToggled do: [ :ann |\x0a    \x09self onProtocolSelected: nil ].\x0a    self model announcer on: HLMethodSelected do: [ :ann |\x0a    \x09self onMethodSelected: ann item ]",
			
 
				-messageSends: ["on:do:", "onProtocolSelected:", "item", "announcer", "model", "onMethodSelected:"],
			
 
				-referencedClasses: ["HLProtocolSelected", "HLShowInstanceToggled", "HLMethodSelected"]
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onMethodSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onMethodSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aMethod) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aMethod"],
			
 
				-source: "onMethodSelected: aMethod\x0a\x09self focus",
			
 
				-messageSends: ["focus"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onProtocolSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onProtocolSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    smalltalk.send(self, "_selectedItem_", [nil]);
			
 
				-    $2 = smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []);
			
 
				-    if (($receiver = $2) == nil || $receiver == undefined) {
			
 
				-        $1 = [];
			
 
				-    } else {
			
 
				-        if (($receiver = aString) == nil || $receiver == undefined) {
			
 
				-            $1 = [];
			
 
				-        } else {
			
 
				-            $1 = smalltalk.send(self, "_methodsInProtocol_", [aString]);
			
 
				-        }
			
 
				-    }
			
 
				-    smalltalk.send(self, "_items_", [$1]);
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "onProtocolSelected: aString\x0a    self selectedItem: nil.\x0a    \x0a    self items: (self model selectedClass \x0a    \x09ifNil: [ #() ]\x0a      \x09ifNotNil: [ aString\x0a    \x09\x09ifNil: [ #() ]\x0a      \x09\x09ifNotNil: [ self methodsInProtocol: aString ] ]).\x0a        \x0a    self refresh",
			
 
				-messageSends: ["selectedItem:", "items:", "ifNil:ifNotNil:", "methodsInProtocol:", "selectedClass", "model", "refresh"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_overrideSelectors",
			
 
				-smalltalk.method({
			
 
				-selector: "overrideSelectors",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_selectorsCache", []), "_at_ifAbsentPut_", ["override", function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_allSuperclasses", []), "_inject_into_", [smalltalk.send(smalltalk.Set || Set, "_new", []), function (acc, each) {smalltalk.send(acc, "_addAll_", [smalltalk.send(each, "_selectors", [])]);$2 = smalltalk.send(acc, "_yourself", []);return $2;}]);}]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "overrideSelectors\x0a\x09^ self selectorsCache \x0a    \x09at: 'override'\x0a        ifAbsentPut: [ \x0a        \x09self model selectedClass allSuperclasses\x0a\x09\x09\x09\x09inject: Set new into: [ :acc :each | acc addAll: each selectors; yourself ] ]",
			
 
				-messageSends: ["at:ifAbsentPut:", "inject:into:", "new", "addAll:", "selectors", "yourself", "allSuperclasses", "selectedClass", "model", "selectorsCache"],
			
 
				-referencedClasses: ["Set"]
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_overridenSelectors",
			
 
				-smalltalk.method({
			
 
				-selector: "overridenSelectors",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_selectorsCache", []), "_at_ifAbsentPut_", ["overriden", function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_allSubclasses", []), "_inject_into_", [smalltalk.send(smalltalk.Set || Set, "_new", []), function (acc, each) {smalltalk.send(acc, "_addAll_", [smalltalk.send(each, "_selectors", [])]);$2 = smalltalk.send(acc, "_yourself", []);return $2;}]);}]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "overridenSelectors\x0a\x09^ self selectorsCache \x0a    \x09at: 'overriden'\x0a        ifAbsentPut: [ \x0a        \x09self model selectedClass allSubclasses\x0a\x09\x09\x09\x09inject: Set new into: [ :acc :each | acc addAll: each selectors; yourself ] ]",
			
 
				-messageSends: ["at:ifAbsentPut:", "inject:into:", "new", "addAll:", "selectors", "yourself", "allSubclasses", "selectedClass", "model", "selectorsCache"],
			
 
				-referencedClasses: ["Set"]
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);
			
 
				-    } else {
			
 
				-        $2 = smalltalk.send(html, "_div", []);
			
 
				-        smalltalk.send($2, "_class_", ["class_side"]);
			
 
				-        $3 = smalltalk.send($2, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);}]);
			
 
				-    }
			
 
				-    smalltalk.send(self, "_flushSelectorsCache", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a\x09self model showInstance\x0a    \x09ifFalse: [ html div \x0a        \x09class: 'class_side'; \x0a            with: [ super renderContentOn: html ] ]\x0a      \x09ifTrue: [ super renderContentOn: html ].\x0a        \x0a    self flushSelectorsCache",
			
 
				-messageSends: ["ifFalse:ifTrue:", "class:", "div", "with:", "renderContentOn:", "showInstance", "model", "flushSelectorsCache"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItemLabel_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItemLabel:on:",
			
 
				-category: 'rendering',
			
 
				-fn: function (aCompiledMethod, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(aCompiledMethod, "_selector", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aCompiledMethod", "html"],
			
 
				-source: "renderItemLabel: aCompiledMethod on: html\x0a\x09html with: aCompiledMethod selector",
			
 
				-messageSends: ["with:", "selector"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-category: 'actions',
			
 
				-fn: function (aCompiledMethod) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [aCompiledMethod], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod_", [aCompiledMethod]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aCompiledMethod"],
			
 
				-source: "selectItem: aCompiledMethod\x0a\x09super selectItem: aCompiledMethod.\x0a   \x09self model selectedMethod: aCompiledMethod",
			
 
				-messageSends: ["selectItem:", "selectedMethod:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectorsCache",
			
 
				-smalltalk.method({
			
 
				-selector: "selectorsCache",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectorsCache'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectorsCache\x0a\x09^ selectorsCache",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLMethodsListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLPackagesListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_focusClassesListWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "focusClassesListWidget",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLClassesListFocus || HLClassesListFocus, "_new", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "focusClassesListWidget\x0a\x09self model announcer announce: HLClassesListFocus new",
			
 
				-messageSends: ["announce:", "new", "announcer", "model"],
			
 
				-referencedClasses: ["HLClassesListFocus"]
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initializeItems",
			
 
				-smalltalk.method({
			
 
				-selector: "initializeItems",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    self['@items'] = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_packages", []), "_sort_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_name", []), "__lt", [smalltalk.send(b, "_name", [])]);}]);
			
 
				-    $1 = self['@items'];
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "initializeItems\x0a\x09^ items := self model packages sort:[:a :b|\x0a\x09\x09\x09\x09\x09\x09a name < b name]",
			
 
				-messageSends: ["sort:", "<", "name", "packages", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_items",
			
 
				-smalltalk.method({
			
 
				-selector: "items",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(self, "_initializeItems", []);
			
 
				-    } else {
			
 
				-        $1 = self['@items'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "items\x0a\x09^ items ifNil: [self initializeItems]",
			
 
				-messageSends: ["ifNil:", "initializeItems"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLPackageSelected || HLPackageSelected, function (ann) {return smalltalk.send(self, "_onPackageSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeModel\x0a    self model announcer on: HLPackageSelected do: [ :ann |\x0a    \x09self onPackageSelected: ann item ]",
			
 
				-messageSends: ["on:do:", "onPackageSelected:", "item", "announcer", "model"],
			
 
				-referencedClasses: ["HLPackageSelected"]
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPackageSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onPackageSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aPackage) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aPackage"],
			
 
				-source: "onPackageSelected: aPackage\x0a\x09self focus",
			
 
				-messageSends: ["focus"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderButtonsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderButtonsOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3, $5, $6, $7, $8, $4, $9, $10;
			
 
				-    $1 = smalltalk.send(html, "_span", []);
			
 
				-    smalltalk.send($1, "_class_", ["info"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", ["Auto commit"]);
			
 
				-    $3 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($3, "_class_", ["btn-group switch"]);
			
 
				-    smalltalk.send($3, "_at_put_", ["data-toggle", "buttons-radio"]);
			
 
				-    $4 = smalltalk.send($3, "_with_", [function () {$5 = smalltalk.send(html, "_button", []);smalltalk.send($5, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {return smalltalk.send(str, "_nextPutAll_", ["btn"]);}])]);$6 = smalltalk.send($5, "_with_", ["On"]);$6;$7 = smalltalk.send(html, "_button", []);smalltalk.send($7, "_class_", [smalltalk.send(smalltalk.String || String, "_streamContents_", [function (str) {return smalltalk.send(str, "_nextPutAll_", ["btn active"]);}])]);$8 = smalltalk.send($7, "_with_", ["Off"]);return $8;}]);
			
 
				-    $9 = smalltalk.send(html, "_a", []);
			
 
				-    smalltalk.send($9, "_class_", ["btn"]);
			
 
				-    $10 = smalltalk.send($9, "_with_", ["Commit"]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderButtonsOn: html\x0a\x0a\x09html span class: 'info'; with: 'Auto commit'.\x0a\x09html div \x0a        class: 'btn-group switch';\x0a\x09\x09at: 'data-toggle' put: 'buttons-radio';\x0a\x09\x09with: [ \x0a           \x09html button \x0a                class: (String streamContents: [ :str |\x0a                \x09str nextPutAll: 'btn' ]);\x0a  \x09\x09\x09\x09with: 'On'.\x0a  \x09\x09\x09html button\x0a  \x09\x09\x09\x09class: (String streamContents: [ :str |\x0a                \x09str nextPutAll: 'btn active' ]);\x0a  \x09\x09\x09\x09with: 'Off' ].\x0a                \x0a    html a \x0a         \x09class: 'btn';\x0a\x09\x09\x09with: 'Commit'.",
			
 
				-messageSends: ["class:", "span", "with:", "div", "at:put:", "streamContents:", "nextPutAll:", "button", "a"],
			
 
				-referencedClasses: ["String"]
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-category: 'actions',
			
 
				-fn: function (aPackage) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [aPackage], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage_", [aPackage]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aPackage"],
			
 
				-source: "selectItem: aPackage\x0a\x09super selectItem: aPackage.\x0a    self model selectedPackage: aPackage",
			
 
				-messageSends: ["selectItem:", "selectedPackage:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLPackagesListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLProtocolsListWidget', smalltalk.HLBrowserListWidget, [], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_allProtocol",
			
 
				-smalltalk.method({
			
 
				-selector: "allProtocol",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_allProtocol", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "allProtocol\x0a\x09^ self model allProtocol",
			
 
				-messageSends: ["allProtocol", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeModel\x0a\x09self model announcer on: HLClassSelected do: [ :ann |\x0a    \x09self onClassSelected: ann item ].\x0a    self model announcer on: HLShowInstanceToggled do: [ :ann |\x0a    \x09self onClassSelected: self model selectedClass ].\x0a    self model announcer on: HLProtocolSelected do: [ :ann |\x0a    \x09self onProtocolSelected: ann item ]",
			
 
				-messageSends: ["on:do:", "onClassSelected:", "item", "announcer", "model", "selectedClass", "onProtocolSelected:"],
			
 
				-referencedClasses: ["HLClassSelected", "HLShowInstanceToggled", "HLProtocolSelected"]
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onClassSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onClassSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    smalltalk.send(self, "_selectedItem_", [nil]);
			
 
				-    if (($receiver = aClass) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.Array || Array, "_with_", [smalltalk.send(self, "_allProtocol", [])]);
			
 
				-    } else {
			
 
				-        $2 = smalltalk.send(smalltalk.Array || Array, "_with_", [smalltalk.send(self, "_allProtocol", [])]);
			
 
				-        smalltalk.send($2, "_addAll_", [smalltalk.send(aClass, "_protocols", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        $1 = $3;
			
 
				-    }
			
 
				-    smalltalk.send(self, "_items_", [$1]);
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aClass"],
			
 
				-source: "onClassSelected: aClass\x0a    self selectedItem: nil.\x0a    \x0a    self items: (aClass\x0a    \x09ifNil: [ Array with: self allProtocol ]\x0a      \x09ifNotNil: [ \x0a        \x09(Array with: self allProtocol) \x0a            \x09addAll: aClass protocols; \x0a                yourself ]).\x0a\x0a    self refresh",
			
 
				-messageSends: ["selectedItem:", "items:", "ifNil:ifNotNil:", "with:", "allProtocol", "addAll:", "protocols", "yourself", "refresh"],
			
 
				-referencedClasses: ["Array"]
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onProtocolSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onProtocolSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "onProtocolSelected: aString\x0a\x09self focus",
			
 
				-messageSends: ["focus"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance", []);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);
			
 
				-    } else {
			
 
				-        $2 = smalltalk.send(html, "_div", []);
			
 
				-        smalltalk.send($2, "_class_", ["class_side"]);
			
 
				-        $3 = smalltalk.send($2, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html], smalltalk.HLBrowserListWidget);}]);
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a\x09self model showInstance\x0a    \x09ifFalse: [ html div \x0a        \x09class: 'class_side'; \x0a            with: [ super renderContentOn: html ] ]\x0a      \x09ifTrue: [ super renderContentOn: html ]",
			
 
				-messageSends: ["ifFalse:ifTrue:", "class:", "div", "with:", "renderContentOn:", "showInstance", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-category: 'actions',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [aString], smalltalk.HLBrowserListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol_", [aString]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "selectItem: aString\x0a\x09super selectItem: aString.\x0a    self model selectedProtocol: aString",
			
 
				-messageSends: ["selectItem:", "selectedProtocol:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedItem",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedItem",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_selectedItem", [], smalltalk.HLBrowserListWidget);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectedItem\x0a\x09^ super selectedItem\x22 ifNil: [ self allProtocol ]\x22",
			
 
				-messageSends: ["selectedItem"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLProtocolsListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBrowserModel', smalltalk.Object, ['announcer', 'environment', 'selectedPackage', 'selectedClass', 'selectedProtocol', 'selectedMethod', 'showInstance', 'showComment'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_allProtocol",
			
 
				-smalltalk.method({
			
 
				-selector: "allProtocol",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "-- All --";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "allProtocol\x0a\x09^ '-- All --'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "announcer\x0a\x09^ announcer ifNil: [ announcer := Announcer new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["Announcer"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
			
 
				-messageSends: ["ifNil:", "environment", "current"],
			
 
				-referencedClasses: ["HLManager"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anEnvironment"],
			
 
				-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packages",
			
 
				-smalltalk.method({
			
 
				-selector: "packages",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_environment", []), "_packages", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "packages\x0a\x09^ self environment packages",
			
 
				-messageSends: ["packages", "environment"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedClass",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedClass",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedClass'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectedClass\x0a\x09^ selectedClass",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedClass_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedClass:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    $1 = smalltalk.send(self['@selectedClass'], "__eq", [aClass]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        if (($receiver = aClass) == nil || $receiver == undefined) {
			
 
				-            self['@selectedClass'] = nil;
			
 
				-            self['@selectedClass'];
			
 
				-        } else {
			
 
				-            $2 = smalltalk.send(self, "_showInstance", []);
			
 
				-            if (smalltalk.assert($2)) {
			
 
				-                self['@selectedClass'] = smalltalk.send(aClass, "_theNonMetaClass", []);
			
 
				-                self['@selectedClass'];
			
 
				-            } else {
			
 
				-                self['@selectedClass'] = smalltalk.send(aClass, "_theMetaClass", []);
			
 
				-                self['@selectedClass'];
			
 
				-            }
			
 
				-        }
			
 
				-        smalltalk.send(self, "_selectedMethod_", [nil]);
			
 
				-        $3 = smalltalk.send(self, "_selectedProtocol_", [nil]);
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLClassSelected || HLClassSelected, "_on_", [smalltalk.send(self, "_selectedClass", [])])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aClass"],
			
 
				-source: "selectedClass: aClass\x0a\x09selectedClass = aClass ifFalse: [\x0a\x09\x09aClass \x0a    \x09\x09ifNil: [ selectedClass := nil ]\x0a      \x09\x09ifNotNil: [\x0a\x09\x09\x09\x09self showInstance \x0a    \x09\x09\x09\x09ifTrue: [ selectedClass := aClass theNonMetaClass ]\x0a      \x09\x09\x09\x09ifFalse: [ selectedClass := aClass theMetaClass ] ].\x0a    \x0a   \x09\x09self \x0a    \x09\x09selectedMethod: nil;\x0a       \x09 \x09selectedProtocol: nil ].\x0a        \x0a   self announcer announce: (HLClassSelected on: self selectedClass)",
			
 
				-messageSends: ["ifFalse:", "ifNil:ifNotNil:", "ifTrue:ifFalse:", "theNonMetaClass", "theMetaClass", "showInstance", "selectedMethod:", "selectedProtocol:", "=", "announce:", "on:", "selectedClass", "announcer"],
			
 
				-referencedClasses: ["HLClassSelected"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedMethod",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedMethod",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedMethod'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectedMethod\x0a\x09^ selectedMethod",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedMethod_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedMethod:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aCompiledMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@selectedMethod'], "__eq", [aCompiledMethod]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        self['@selectedMethod'] = aCompiledMethod;
			
 
				-        self['@selectedMethod'];
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLMethodSelected || HLMethodSelected, "_on_", [aCompiledMethod])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aCompiledMethod"],
			
 
				-source: "selectedMethod: aCompiledMethod\x0a\x09selectedMethod = aCompiledMethod ifFalse: [\x0a\x09\x09selectedMethod := aCompiledMethod ].\x0a    \x0a    self announcer announce: (HLMethodSelected on: aCompiledMethod)",
			
 
				-messageSends: ["ifFalse:", "=", "announce:", "on:", "announcer"],
			
 
				-referencedClasses: ["HLMethodSelected"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedPackage",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedPackage",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedPackage'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectedPackage\x0a\x09^ selectedPackage",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedPackage_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedPackage:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aPackage) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@selectedPackage'], "__eq", [aPackage]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        self['@selectedPackage'] = aPackage;
			
 
				-        self['@selectedPackage'];
			
 
				-        smalltalk.send(self, "_selectedClass_", [nil]);
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLPackageSelected || HLPackageSelected, "_on_", [aPackage])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aPackage"],
			
 
				-source: "selectedPackage: aPackage\x0a\x09selectedPackage = aPackage ifFalse: [\x0a\x09\x09selectedPackage := aPackage.\x0a    \x09self selectedClass: nil ].\x0a    \x0a    self announcer announce: (HLPackageSelected on: aPackage)",
			
 
				-messageSends: ["ifFalse:", "selectedClass:", "=", "announce:", "on:", "announcer"],
			
 
				-referencedClasses: ["HLPackageSelected"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedProtocol",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedProtocol",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedProtocol'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectedProtocol\x0a\x09^ selectedProtocol",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedProtocol_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedProtocol:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@selectedProtocol'], "__eq", [aString]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        self['@selectedProtocol'] = aString;
			
 
				-        self['@selectedProtocol'];
			
 
				-        smalltalk.send(self, "_selectedMethod_", [nil]);
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLProtocolSelected || HLProtocolSelected, "_on_", [aString])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "selectedProtocol: aString\x0a\x09selectedProtocol = aString ifFalse: [\x0a      \x09selectedProtocol := aString.\x0a    \x09self selectedMethod: nil ].\x0a    \x0a    self announcer announce: (HLProtocolSelected on: aString)",
			
 
				-messageSends: ["ifFalse:", "selectedMethod:", "=", "announce:", "on:", "announcer"],
			
 
				-referencedClasses: ["HLProtocolSelected"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showComment",
			
 
				-smalltalk.method({
			
 
				-selector: "showComment",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@showComment']) == nil || $receiver == undefined) {
			
 
				-        $1 = false;
			
 
				-    } else {
			
 
				-        $1 = self['@showComment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "showComment\x0a\x09^ showComment ifNil: [ false ]",
			
 
				-messageSends: ["ifNil:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showComment_",
			
 
				-smalltalk.method({
			
 
				-selector: "showComment:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aBoolean) {
			
 
				-    var self = this;
			
 
				-    self['@showComment'] = aBoolean;
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLShowCommentToggled || HLShowCommentToggled, "_new", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBoolean"],
			
 
				-source: "showComment: aBoolean\x0a\x09showComment := aBoolean.\x0a    \x0a    self announcer announce: HLShowCommentToggled new",
			
 
				-messageSends: ["announce:", "new", "announcer"],
			
 
				-referencedClasses: ["HLShowCommentToggled"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showInstance",
			
 
				-smalltalk.method({
			
 
				-selector: "showInstance",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@showInstance']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        $1 = true;
			
 
				-    } else {
			
 
				-        $1 = self['@showInstance'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "showInstance\x0a\x09^ showInstance ifNil: [ true ]",
			
 
				-messageSends: ["ifNil:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_showInstance_",
			
 
				-smalltalk.method({
			
 
				-selector: "showInstance:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aBoolean) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    self['@showInstance'] = aBoolean;
			
 
				-    $1 = smalltalk.send(self, "_selectedClass", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-    } else {
			
 
				-        if (smalltalk.assert(aBoolean)) {
			
 
				-            $2 = smalltalk.send(smalltalk.send(self, "_selectedClass", []), "_theNonMetaClass", []);
			
 
				-        } else {
			
 
				-            $2 = smalltalk.send(smalltalk.send(self, "_selectedClass", []), "_theMetaClass", []);
			
 
				-        }
			
 
				-        smalltalk.send(self, "_selectedClass_", [$2]);
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLShowInstanceToggled || HLShowInstanceToggled, "_new", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBoolean"],
			
 
				-source: "showInstance: aBoolean\x0a\x09showInstance := aBoolean.\x0a    \x0a    self selectedClass ifNotNil: [\x0a    \x09self selectedClass: (aBoolean\x0a    \x09\x09ifTrue: [self selectedClass theNonMetaClass ]\x0a    \x09  \x09ifFalse: [ self selectedClass theMetaClass ]) ].\x0a    \x0a    self announcer announce: HLShowInstanceToggled new",
			
 
				-messageSends: ["ifNotNil:", "selectedClass:", "ifTrue:ifFalse:", "theNonMetaClass", "selectedClass", "theMetaClass", "announce:", "new", "announcer"],
			
 
				-referencedClasses: ["HLShowInstanceToggled"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'actions',
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_environment_", [anEnvironment]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anEnvironment"],
			
 
				-source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
			
 
				-messageSends: ["environment:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserModel.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBrowserSourceWidget', smalltalk.HLWidget, ['model', 'codeWidget'], 'Helios-Browser');
			
 
				-smalltalk.addMethod(
			
 
				-"_codeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "codeWidget",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
			
 
				-        self['@codeWidget'] = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "codeWidget\x0a\x09^ codeWidget ifNil: [ codeWidget := HLCodeWidget new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["HLCodeWidget"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_contents",
			
 
				-smalltalk.method({
			
 
				-selector: "contents",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_sourceArea", []), "_contents", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "contents\x0a\x09^ self sourceArea contents",
			
 
				-messageSends: ["contents", "sourceArea"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_contents_",
			
 
				-smalltalk.method({
			
 
				-selector: "contents:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_contents_", [aString]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "contents: aString\x0a\x09self codeWidget contents: aString",
			
 
				-messageSends: ["contents:", "codeWidget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "model\x0a\x09^ model",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aBrowserModel;
			
 
				-    smalltalk.send(self, "_observeModel", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBrowserModel"],
			
 
				-source: "model: aBrowserModel\x0a\x09model := aBrowserModel.\x0a    \x0a    self observeModel",
			
 
				-messageSends: ["observeModel"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLMethodSelected || HLMethodSelected, function (ann) {return smalltalk.send(self, "_onMethodSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLClassSelected || HLClassSelected, function (ann) {return smalltalk.send(self, "_onClassSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLProtocolSelected || HLProtocolSelected, function (ann) {return smalltalk.send(self, "_onProtocolSelected_", [smalltalk.send(ann, "_item", [])]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeModel\x0a\x09self model announcer on: HLMethodSelected do: [ :ann |\x0a    \x09self onMethodSelected: ann item ].\x0a    self model announcer on: HLClassSelected do: [ :ann |\x0a    \x09self onClassSelected: ann item ].\x0a    self model announcer on: HLProtocolSelected do: [ :ann |\x0a    \x09self onProtocolSelected: ann item ]",
			
 
				-messageSends: ["on:do:", "onMethodSelected:", "item", "announcer", "model", "onClassSelected:", "onProtocolSelected:"],
			
 
				-referencedClasses: ["HLMethodSelected", "HLClassSelected", "HLProtocolSelected"]
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onClassSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onClassSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aClass) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = aClass) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(self, "_contents_", [""]);
			
 
				-        return $1;
			
 
				-    } else {
			
 
				-    }
			
 
				-    smalltalk.send(self, "_contents_", [smalltalk.send(aClass, "_definition", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aClass"],
			
 
				-source: "onClassSelected: aClass\x0a\x09aClass ifNil: [ ^ self contents: '' ].\x0a    \x0a    self contents: aClass definition",
			
 
				-messageSends: ["ifNil:", "contents:", "definition"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onMethodSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onMethodSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aCompiledMethod) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = aCompiledMethod) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(self, "_contents_", [""]);
			
 
				-        return $1;
			
 
				-    } else {
			
 
				-    }
			
 
				-    smalltalk.send(self, "_contents_", [smalltalk.send(aCompiledMethod, "_source", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aCompiledMethod"],
			
 
				-source: "onMethodSelected: aCompiledMethod\x0a\x09aCompiledMethod ifNil: [ ^ self contents: '' ].\x0a    \x0a    self contents: aCompiledMethod source",
			
 
				-messageSends: ["ifNil:", "contents:", "source"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onProtocolSelected_",
			
 
				-smalltalk.method({
			
 
				-selector: "onProtocolSelected:",
			
 
				-category: 'reactions',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(self, "_contents_", [""]);
			
 
				-        return $2;
			
 
				-    } else {
			
 
				-    }
			
 
				-    smalltalk.send(self, "_contents_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", []), "_definition", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "onProtocolSelected: aString\x0a\x09self model selectedClass ifNil: [ ^ self contents: '' ].\x0a    \x0a    self contents: self model selectedClass definition",
			
 
				-messageSends: ["ifNil:", "contents:", "selectedClass", "model", "definition"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_renderOn_", [html]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a\x09self codeWidget renderOn: html",
			
 
				-messageSends: ["renderOn:", "codeWidget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'instance creation',
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_model_", [aBrowserModel]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aBrowserModel"],
			
 
				-source: "on: aBrowserModel\x0a\x09^ self new\x0a    \x09model: aBrowserModel;\x0a        yourself",
			
 
				-messageSends: ["model:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserSourceWidget.klass);
			
 
				-
			
 
				-
			
--- a/js/Helios-Commands.deploy.js
+++ b/js/Helios-Commands.deploy.js
@@ -1,403 +0,0 @@
 
				-smalltalk.addPackage('Helios-Commands', {});
			
 
				-smalltalk.addClass('HLCommand', smalltalk.Object, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_asBinding",
			
 
				-smalltalk.method({
			
 
				-selector: "asBinding",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [smalltalk.send(self, "_key", []), smalltalk.send(self, "_label", [])]), "_callback_", [function () {return smalltalk.send(self, "_execute", []);}]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_documentation",
			
 
				-smalltalk.method({
			
 
				-selector: "documentation",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_documentation", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_key", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_label", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "bindingGroup",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return nil;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_documentation",
			
 
				-smalltalk.method({
			
 
				-selector: "documentation",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return nil;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBrowserCommand', smalltalk.HLCommand, ['model'], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aBrowserModel;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_model_", [aBrowserModel]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBrowserCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "bindingGroup",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Go to";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToClassesCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 67;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToClassesCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Classes";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToClassesCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToMethodsCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 77;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToMethodsCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Methods";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToMethodsCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToPackagesCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 80;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToPackagesCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Packages";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToPackagesCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToProtocolsCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 84;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToProtocolsCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Protocols";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLGoToProtocolsCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "bindingGroup",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Toggle";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLToggleCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [false]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLToggleClassSideCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 67;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLToggleClassSideCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Class side";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLToggleClassSideCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [true]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLToggleInstanceSideCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 73;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLToggleInstanceSideCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Instance side";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLToggleInstanceSideCommand.klass);
			
 
				-
			
 
				-
			
--- a/js/Helios-Commands.js
+++ b/js/Helios-Commands.js
@@ -1,563 +0,0 @@
 
				-smalltalk.addPackage('Helios-Commands', {});
			
 
				-smalltalk.addClass('HLCommand', smalltalk.Object, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_asBinding",
			
 
				-smalltalk.method({
			
 
				-selector: "asBinding",
			
 
				-category: 'converting',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [smalltalk.send(self, "_key", []), smalltalk.send(self, "_label", [])]), "_callback_", [function () {return smalltalk.send(self, "_execute", []);}]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "asBinding\x0a\x09^ (HLBindingAction on: self key labelled: self label)\x0a    \x09callback: [ self execute ]",
			
 
				-messageSends: ["callback:", "execute", "on:labelled:", "key", "label"],
			
 
				-referencedClasses: ["HLBindingAction"]
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_documentation",
			
 
				-smalltalk.method({
			
 
				-selector: "documentation",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_documentation", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "documentation\x0a\x09^ self class documentation",
			
 
				-messageSends: ["documentation", "class"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-category: 'executing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "execute\x0a\x09",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_key", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "key\x0a\x09^ self class key",
			
 
				-messageSends: ["key", "class"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_class", []), "_label", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ self class label",
			
 
				-messageSends: ["label", "class"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "bindingGroup",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return nil;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "bindingGroup\x0a\x09^ nil",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_documentation",
			
 
				-smalltalk.method({
			
 
				-selector: "documentation",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "documentation\x0a\x09^ ''",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return nil;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "key\x0a\x09^ nil",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ ''",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBrowserCommand', smalltalk.HLCommand, ['model'], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "model\x0a\x09^ model",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserCommand);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aBrowserModel;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBrowserModel"],
			
 
				-source: "model: aBrowserModel\x0a\x09model := aBrowserModel",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'instance creation',
			
 
				-fn: function (aBrowserModel) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_model_", [aBrowserModel]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aBrowserModel"],
			
 
				-source: "on: aBrowserModel\x0a\x09^ self new\x0a    \x09model: aBrowserModel;\x0a        yourself",
			
 
				-messageSends: ["model:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBrowserCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "bindingGroup",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Go to";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "bindingGroup\x0a\x09^ 'Go to'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-category: 'executing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedClass", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "execute\x0a\x09self model selectedClass: self model selectedClass",
			
 
				-messageSends: ["selectedClass:", "selectedClass", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToClassesCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 67;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "key\x0a\x09\x22c\x22\x0a    \x0a\x09^ 67",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToClassesCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Classes";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ 'Classes'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToClassesCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-category: 'executing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedMethod", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "execute\x0a\x09self model selectedMethod: self model selectedMethod",
			
 
				-messageSends: ["selectedMethod:", "selectedMethod", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToMethodsCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 77;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "key\x0a\x09\x22m\x22\x0a    \x0a\x09^ 77",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToMethodsCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Methods";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ 'Methods'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToMethodsCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-category: 'executing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedPackage", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "execute\x0a\x09self model selectedPackage: self model selectedPackage",
			
 
				-messageSends: ["selectedPackage:", "selectedPackage", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToPackagesCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 80;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "key\x0a\x09\x22p\x22\x0a    \x0a\x09^ 80",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToPackagesCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Packages";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ 'Packages'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToPackagesCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-category: 'executing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedProtocol", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "execute\x0a\x09self model selectedProtocol: self model selectedProtocol",
			
 
				-messageSends: ["selectedProtocol:", "selectedProtocol", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToProtocolsCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 84;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "key\x0a\x09\x22p\x22\x0a    \x0a\x09^ 84",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToProtocolsCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Protocols";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ 'Protocols'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLGoToProtocolsCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "bindingGroup",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Toggle";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "bindingGroup\x0a\x09^ 'Toggle'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLToggleCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-category: 'executing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [false]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "execute\x0a\x09self model showInstance: false",
			
 
				-messageSends: ["showInstance:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLToggleClassSideCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 67;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "key\x0a\x09\x22c\x22\x0a    \x0a\x09^ 67",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLToggleClassSideCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Class side";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ 'Class side'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLToggleClassSideCommand.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
			
 
				-smalltalk.addMethod(
			
 
				-"_execute",
			
 
				-smalltalk.method({
			
 
				-selector: "execute",
			
 
				-category: 'executing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_showInstance_", [true]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "execute\x0a\x09self model showInstance: true",
			
 
				-messageSends: ["showInstance:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLToggleInstanceSideCommand);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 73;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "key\x0a\x09\x22i\x22\x0a    \x0a\x09^ 73",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLToggleInstanceSideCommand.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Instance side";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ 'Instance side'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLToggleInstanceSideCommand.klass);
			
 
				-
			
 
				-
			
--- a/js/Helios-Core.deploy.js
+++ b/js/Helios-Core.deploy.js
@@ -1,1070 +0,0 @@
 
				-smalltalk.addPackage('Helios-Core', {});
			
 
				-smalltalk.addClass('HLTab', smalltalk.Object, ['widget', 'label'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_activate",
			
 
				-smalltalk.method({
			
 
				-selector: "activate",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_manager", []), "_activate_", [self]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_add",
			
 
				-smalltalk.method({
			
 
				-selector: "add",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_manager", []), "_addTab_", [self]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isActive",
			
 
				-smalltalk.method({
			
 
				-selector: "isActive",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_manager", []), "_activeTab", []), "__eq", [self]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@label']) == nil || $receiver == undefined) {
			
 
				-        $1 = "";
			
 
				-    } else {
			
 
				-        $1 = self['@label'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label_",
			
 
				-smalltalk.method({
			
 
				-selector: "label:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    self['@label'] = aString;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_manager",
			
 
				-smalltalk.method({
			
 
				-selector: "manager",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.HLManager || HLManager, "_current", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_widget",
			
 
				-smalltalk.method({
			
 
				-selector: "widget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@widget'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_widget_",
			
 
				-smalltalk.method({
			
 
				-selector: "widget:",
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    self['@widget'] = aWidget;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_labelled_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:labelled:",
			
 
				-fn: function (aWidget, aString) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_widget_", [aWidget]);
			
 
				-    smalltalk.send($2, "_label_", [aString]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTab.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLWidget', smalltalk.Widget, ['wrapper'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_manager",
			
 
				-smalltalk.method({
			
 
				-selector: "manager",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.HLManager || HLManager, "_current", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refresh",
			
 
				-smalltalk.method({
			
 
				-selector: "refresh",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_wrapper", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-        return self;
			
 
				-    } else {
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_empty", []);
			
 
				-    smalltalk.send(function (html) {return smalltalk.send(self, "_renderContentOn_", [html]);}, "_appendToJQuery_", [smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_registerBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "registerBindings",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_registerBindingsOn_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_manager", []), "_keyBinder", []), "_bindings", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_registerBindingsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "registerBindingsOn:",
			
 
				-fn: function (aBindingGroup) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:",
			
 
				-fn: function (html){
			
 
				-var self=this;
			
 
				-smalltalk.send(self,"_registerBindings",[]);
			
 
				-self["@wrapper"]=smalltalk.send(html,"_div",[]);
			
 
				-smalltalk.send((function(renderer){
			
 
				-return smalltalk.send(self,"_renderContentOn_",[renderer]);
			
 
				-}),"_appendToJQuery_",[smalltalk.send(self["@wrapper"],"_asJQuery",[])]);
			
 
				-return self}
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_wrapper",
			
 
				-smalltalk.method({
			
 
				-selector: "wrapper",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@wrapper'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_openAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "openAsTab",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_addTab_", [smalltalk.send(smalltalk.HLTab || HLTab, "_on_labelled_", [smalltalk.send(self, "_new", []), smalltalk.send(self, "_tabLabel", [])])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Tab";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 500;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWidget.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLDebugger', smalltalk.HLWidget, [], 'Helios-Core');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLFocusableWidget', smalltalk.HLWidget, ['hiddenInput'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_blur",
			
 
				-smalltalk.method({
			
 
				-selector: "blur",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_blur", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focus",
			
 
				-smalltalk.method({
			
 
				-selector: "focus",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_focus", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focusClass",
			
 
				-smalltalk.method({
			
 
				-selector: "focusClass",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "focused";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_hasFocus",
			
 
				-smalltalk.method({
			
 
				-selector: "hasFocus",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_notNil", []), "_and_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_hasClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderHiddenInputOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderHiddenInputOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(html, "_input", []);
			
 
				-    smalltalk.send($1, "_style_", ["position: absolute; left: -100000px;"]);
			
 
				-    smalltalk.send($1, "_onBlur_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_removeClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
			
 
				-    $2 = smalltalk.send($1, "_onFocus_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_addClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
			
 
				-    self['@hiddenInput'] = $2;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    smalltalk.send(self, "_registerBindings", []);
			
 
				-    smalltalk.send(self, "_renderHiddenInputOn_", [html]);
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", ["hl_widget"]);
			
 
				-    smalltalk.send($1, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_focus", []);}]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html]);}]);
			
 
				-    self['@wrapper'] = $2;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLListWidget', smalltalk.HLFocusableWidget, ['items', 'selectedItem'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_activateFirstListItem",
			
 
				-smalltalk.method({
			
 
				-selector: "activateFirstListItem",
			
 
				-fn: function (){
			
 
				-var self=this;
			
 
				-smalltalk.send(self,"_activateListItem_",[smalltalk.send(window,"_jQuery_",[smalltalk.send(smalltalk.send(smalltalk.send(self["@wrapper"],"_asJQuery",[]),"_find_",["li"]),"_get_",[(0)])])]);
			
 
				-return self}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_activateListItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "activateListItem:",
			
 
				-fn: function (aListItem) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    var parent;
			
 
				-    var position;
			
 
				-    $1 = smalltalk.send(aListItem, "_get_", [0]);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-        return self;
			
 
				-    } else {
			
 
				-    }
			
 
				-    position = aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1;
			
 
				-    parent = smalltalk.send(aListItem, "_parent", []);
			
 
				-    smalltalk.send(smalltalk.send(parent, "_children", []), "_removeClass_", ["active"]);
			
 
				-    smalltalk.send(aListItem, "_addClass_", ["active"]);
			
 
				-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", []), "__lt", [0]);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop", []), "__plus", [smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", [])]), "__minus", [10])]);
			
 
				-    }
			
 
				-    $3 = smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", []), "__plus", [smalltalk.send(aListItem, "_height", [])]), "__gt", [smalltalk.send(parent, "_height", [])]);
			
 
				-    if (smalltalk.assert($3)) {
			
 
				-        smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop", []), "__plus", [smalltalk.send(aListItem, "_height", [])]), "__minus", [smalltalk.send(smalltalk.send(parent, "_height", []), "__minus", [smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", [])])]), "__plus", [10])]);
			
 
				-    }
			
 
				-    smalltalk.send(self, "_selectItem_", [smalltalk.send(smalltalk.send(self, "_items", []), "_at_", [smalltalk.send(smalltalk.send(aListItem, "_attr_", ["list-data"]), "_asNumber", [])])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_cssClassForItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "cssClassForItem:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(smalltalk.send(self, "_selectedItem", []), "__eq", [anObject]);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = "active";
			
 
				-    } else {
			
 
				-        $1 = "inactive";
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_defaultItems",
			
 
				-smalltalk.method({
			
 
				-selector: "defaultItems",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return [];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focus",
			
 
				-smalltalk.method({
			
 
				-selector: "focus",
			
 
				-fn: function (){
			
 
				-var self=this;
			
 
				-var $1,$2;
			
 
				-smalltalk.send(self,"_focus",[],smalltalk.HLFocusableWidget);
			
 
				-$1=smalltalk.send(smalltalk.send(self,"_items",[]),"_isEmpty",[]);
			
 
				-if(! smalltalk.assert($1)){
			
 
				-$2=smalltalk.send(self,"_selectedItem",[]);
			
 
				-if(($receiver = $2) == nil || $receiver == undefined){
			
 
				-smalltalk.send(self,"_activateFirstListItem",[]);
			
 
				-} else {
			
 
				-$2;
			
 
				-};
			
 
				-};
			
 
				-return self}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_iconForItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "iconForItem:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    return "";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_items",
			
 
				-smalltalk.method({
			
 
				-selector: "items",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
			
 
				-        self['@items'] = smalltalk.send(self, "_defaultItems", []);
			
 
				-        $1 = self['@items'];
			
 
				-    } else {
			
 
				-        $1 = self['@items'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_items_",
			
 
				-smalltalk.method({
			
 
				-selector: "items:",
			
 
				-fn: function (aCollection) {
			
 
				-    var self = this;
			
 
				-    self['@items'] = aCollection;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderButtonsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderButtonsOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3, $4;
			
 
				-    $1 = smalltalk.send(html, "_ul", []);
			
 
				-    smalltalk.send($1, "_class_", ["nav nav-pills nav-stacked"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {return smalltalk.send(self, "_renderListOn_", [html]);}]);
			
 
				-    $3 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($3, "_class_", ["pane_actions form-actions"]);
			
 
				-    $4 = smalltalk.send($3, "_with_", [function () {return smalltalk.send(self, "_renderButtonsOn_", [html]);}]);
			
 
				-    smalltalk.send(self, "_setupKeyBindings", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItem_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItem:on:",
			
 
				-fn: function (anObject, html) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    var li;
			
 
				-    li = smalltalk.send(html, "_li", []);
			
 
				-    smalltalk.send(li, "_class_", [smalltalk.send(self, "_cssClassForItem_", [anObject])]);
			
 
				-    smalltalk.send(li, "_at_put_", ["list-data", smalltalk.send(smalltalk.send(smalltalk.send(self, "_items", []), "_indexOf_", [anObject]), "_asString", [])]);
			
 
				-    $1 = smalltalk.send(li, "_with_", [function () {$2 = smalltalk.send(html, "_a", []);smalltalk.send($2, "_with_", [function () {smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", [smalltalk.send(self, "_iconForItem_", [anObject])]);return smalltalk.send(self, "_renderItemLabel_on_", [anObject, html]);}]);$3 = smalltalk.send($2, "_onClick_", [function () {return smalltalk.send(self, "_activateListItem_", [smalltalk.send(li, "_asJQuery", [])]);}]);return $3;}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItemLabel_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItemLabel:on:",
			
 
				-fn: function (anObject, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(anObject, "_asString", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderListOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderListOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_items", []), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_on_", [each, html]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectedItem_", [anObject]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedItem",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedItem",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedItem'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedItem:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@selectedItem'] = anObject;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupKeyBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "setupKeyBindings",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    var next;
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_unbind_", ["keydown"]);
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_keydown_", [function (e) {var selected;selected = smalltalk.send(window, "_jQuery_", [".focused .nav-pills .active"]);$1 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [38]);if (smalltalk.assert($1)) {smalltalk.send(self, "_activateListItem_", [smalltalk.send(selected, "_prev", [])]);}$2 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [40]);if (smalltalk.assert($2)) {next = smalltalk.send(selected, "_next", []);next;$3 = smalltalk.send(next, "_get_", [0]);if (($receiver = $3) == nil || $receiver == undefined) {next = smalltalk.send(window, "_jQuery_", [".focused .nav-pills li:first-child"]);next;} else {$3;}return smalltalk.send(self, "_activateListItem_", [next]);}}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLNavigationListWidget', smalltalk.HLListWidget, ['previous', 'next'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_next",
			
 
				-smalltalk.method({
			
 
				-selector: "next",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@next'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_next_",
			
 
				-smalltalk.method({
			
 
				-selector: "next:",
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    self['@next'] = aWidget;
			
 
				-    $1 = smalltalk.send(smalltalk.send(aWidget, "_previous", []), "__eq", [self]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        smalltalk.send(aWidget, "_previous_", [self]);
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_nextFocus",
			
 
				-smalltalk.method({
			
 
				-selector: "nextFocus",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_next", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-    } else {
			
 
				-        smalltalk.send(smalltalk.send(self, "_next", []), "_focus", []);
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_previous",
			
 
				-smalltalk.method({
			
 
				-selector: "previous",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@previous'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_previous_",
			
 
				-smalltalk.method({
			
 
				-selector: "previous:",
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    self['@previous'] = aWidget;
			
 
				-    $1 = smalltalk.send(smalltalk.send(aWidget, "_next", []), "__eq", [self]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        smalltalk.send(aWidget, "_next_", [self]);
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_previousFocus",
			
 
				-smalltalk.method({
			
 
				-selector: "previousFocus",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_previous", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-    } else {
			
 
				-        smalltalk.send(smalltalk.send(self, "_previous", []), "_focus", []);
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupKeyBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "setupKeyBindings",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    smalltalk.send(self, "_setupKeyBindings", [], smalltalk.HLListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_keydown_", [function (e) {$1 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [39]);if (smalltalk.assert($1)) {smalltalk.send(self, "_nextFocus", []);}$2 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [37]);if (smalltalk.assert($2)) {return smalltalk.send(self, "_previousFocus", []);}}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLManager', smalltalk.HLWidget, ['tabs', 'activeTab', 'keyBinder', 'environment'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_activate_",
			
 
				-smalltalk.method({
			
 
				-selector: "activate:",
			
 
				-fn: function (aTab) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_flushBindings", []);
			
 
				-    self['@activeTab'] = aTab;
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    $1 = smalltalk.send(self, "_show_", [aTab]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_activeTab",
			
 
				-smalltalk.method({
			
 
				-selector: "activeTab",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@activeTab'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_addTab_",
			
 
				-smalltalk.method({
			
 
				-selector: "addTab:",
			
 
				-fn: function (aTab) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_tabs", []), "_add_", [aTab]);
			
 
				-    smalltalk.send(self, "_activate_", [aTab]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_defaultEnvironment",
			
 
				-smalltalk.method({
			
 
				-selector: "defaultEnvironment",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.HLLocalEnvironment || HLLocalEnvironment, "_new", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        self['@environment'] = smalltalk.send(self, "_defaultEnvironment", []);
			
 
				-        $1 = self['@environment'];
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initialize",
			
 
				-smalltalk.method({
			
 
				-selector: "initialize",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_initialize", [], smalltalk.HLWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_setupEvents", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_keyBinder",
			
 
				-smalltalk.method({
			
 
				-selector: "keyBinder",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@keyBinder']) == nil || $receiver == undefined) {
			
 
				-        self['@keyBinder'] = smalltalk.send(smalltalk.HLKeyBinder || HLKeyBinder, "_new", []);
			
 
				-        $1 = self['@keyBinder'];
			
 
				-    } else {
			
 
				-        $1 = self['@keyBinder'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refresh",
			
 
				-smalltalk.method({
			
 
				-selector: "refresh",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", [".navbar"]), "_remove", []);
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["#container"]), "_remove", []);
			
 
				-    smalltalk.send(self, "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_removeTab_",
			
 
				-smalltalk.method({
			
 
				-selector: "removeTab:",
			
 
				-fn: function (aTab) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_tabs", []), "_includes_", [aTab]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        return self;
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_tabs", []), "_remove_", [aTab]);
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderAddOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderAddOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $5, $7, $8, $6, $2;
			
 
				-    $1 = smalltalk.send(html, "_li", []);
			
 
				-    smalltalk.send($1, "_class_", ["dropdown"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_a", []);smalltalk.send($3, "_class_", ["dropdown-toggle"]);smalltalk.send($3, "_at_put_", ["data-toggle", "dropdown"]);$4 = smalltalk.send($3, "_with_", [function () {smalltalk.send(html, "_with_", ["Open..."]);return smalltalk.send(smalltalk.send(html, "_tag_", ["b"]), "_class_", ["caret"]);}]);$4;$5 = smalltalk.send(html, "_ul", []);smalltalk.send($5, "_class_", ["dropdown-menu"]);$6 = smalltalk.send($5, "_with_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.HLWidget || HLWidget, "_withAllSubclasses", []), "_select_", [function (each) {return smalltalk.send(each, "_canBeOpenAsTab", []);}]), "_sorted_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_tabPriority", []), "__lt", [smalltalk.send(b, "_tabPriority", [])]);}]), "_do_", [function (each) {return smalltalk.send(smalltalk.send(html, "_li", []), "_with_", [function () {$7 = smalltalk.send(html, "_a", []);smalltalk.send($7, "_with_", [smalltalk.send(each, "_tabLabel", [])]);$8 = smalltalk.send($7, "_onClick_", [function () {return smalltalk.send(each, "_openAsTab", []);}]);return $8;}]);}]);}]);return $6;}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $2;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", ["navbar navbar-fixed-top"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_div", []);smalltalk.send($3, "_class_", ["navbar-inner"]);$4 = smalltalk.send($3, "_with_", [function () {return smalltalk.send(self, "_renderTabsOn_", [html]);}]);return $4;}]);
			
 
				-    smalltalk.send(smalltalk.send(html, "_div", []), "_id_", ["container"]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderTabsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderTabsOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $5, $4, $7, $8, $6, $2;
			
 
				-    $1 = smalltalk.send(html, "_ul", []);
			
 
				-    smalltalk.send($1, "_class_", ["nav"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {smalltalk.send(smalltalk.send(self, "_tabs", []), "_do_", [function (each) {$3 = smalltalk.send(html, "_li", []);$5 = smalltalk.send(each, "_isActive", []);if (smalltalk.assert($5)) {$4 = "active";} else {$4 = "inactive";}smalltalk.send($3, "_class_", [$4]);$6 = smalltalk.send($3, "_with_", [function () {$7 = smalltalk.send(html, "_a", []);smalltalk.send($7, "_with_", [function () {smalltalk.send(smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", ["icon-remove-circle"]), "_onClick_", [function () {return smalltalk.send(self, "_removeTab_", [each]);}]);return smalltalk.send(html, "_with_", [smalltalk.send(each, "_label", [])]);}]);$8 = smalltalk.send($7, "_onClick_", [function () {return smalltalk.send(each, "_activate", []);}]);return $8;}]);return $6;}]);return smalltalk.send(self, "_renderAddOn_", [html]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_show_",
			
 
				-smalltalk.method({
			
 
				-selector: "show:",
			
 
				-fn: function (aTab) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["#container"]), "_empty", []);
			
 
				-    smalltalk.send(smalltalk.send(aTab, "_widget", []), "_appendToJQuery_", [smalltalk.send("#container", "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabs",
			
 
				-smalltalk.method({
			
 
				-selector: "tabs",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@tabs']) == nil || $receiver == undefined) {
			
 
				-        self['@tabs'] = smalltalk.send(smalltalk.OrderedCollection || OrderedCollection, "_new", []);
			
 
				-        $1 = self['@tabs'];
			
 
				-    } else {
			
 
				-        $1 = self['@tabs'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-
			
 
				-smalltalk.HLManager.klass.iVarNames = ['current'];
			
 
				-smalltalk.addMethod(
			
 
				-"_current",
			
 
				-smalltalk.method({
			
 
				-selector: "current",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@current']) == nil || $receiver == undefined) {
			
 
				-        self['@current'] = smalltalk.send(smalltalk.send(self, "_basicNew", []), "_initialize", []);
			
 
				-        $1 = self['@current'];
			
 
				-    } else {
			
 
				-        $1 = self['@current'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initialize",
			
 
				-smalltalk.method({
			
 
				-selector: "initialize",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_current", []), "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_new",
			
 
				-smalltalk.method({
			
 
				-selector: "new",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_shouldNotImplement", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLManager.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLSUnit', smalltalk.HLWidget, [], 'Helios-Core');
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSUnit.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "SUnit";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSUnit.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 1000;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSUnit.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLTranscript', smalltalk.HLWidget, [], 'Helios-Core');
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTranscript.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Transcript";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTranscript.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 600;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLTranscript.klass);
			
 
				-
			
 
				-
			
--- a/js/Helios-Core.js
+++ b/js/Helios-Core.js
@@ -1,1445 +0,0 @@
 
				-smalltalk.addPackage('Helios-Core', {});
			
 
				-smalltalk.addClass('HLTab', smalltalk.Object, ['widget', 'label'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_activate",
			
 
				-smalltalk.method({
			
 
				-selector: "activate",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_manager", []), "_activate_", [self]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "activate\x0a\x09self manager activate: self",
			
 
				-messageSends: ["activate:", "manager"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_add",
			
 
				-smalltalk.method({
			
 
				-selector: "add",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_manager", []), "_addTab_", [self]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "add\x0a\x09self manager addTab: self",
			
 
				-messageSends: ["addTab:", "manager"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isActive",
			
 
				-smalltalk.method({
			
 
				-selector: "isActive",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_manager", []), "_activeTab", []), "__eq", [self]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "isActive\x0a\x09^ self manager activeTab = self",
			
 
				-messageSends: ["=", "activeTab", "manager"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@label']) == nil || $receiver == undefined) {
			
 
				-        $1 = "";
			
 
				-    } else {
			
 
				-        $1 = self['@label'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ label ifNil: [ '' ]",
			
 
				-messageSends: ["ifNil:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label_",
			
 
				-smalltalk.method({
			
 
				-selector: "label:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    self['@label'] = aString;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "label: aString\x0a\x09label := aString",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_manager",
			
 
				-smalltalk.method({
			
 
				-selector: "manager",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.HLManager || HLManager, "_current", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "manager\x0a\x09^ HLManager current",
			
 
				-messageSends: ["current"],
			
 
				-referencedClasses: ["HLManager"]
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_widget",
			
 
				-smalltalk.method({
			
 
				-selector: "widget",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@widget'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "widget\x0a\x09^ widget",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_widget_",
			
 
				-smalltalk.method({
			
 
				-selector: "widget:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    self['@widget'] = aWidget;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aWidget"],
			
 
				-source: "widget: aWidget\x0a\x09widget := aWidget",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTab);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_labelled_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:labelled:",
			
 
				-category: 'instance creation',
			
 
				-fn: function (aWidget, aString) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_widget_", [aWidget]);
			
 
				-    smalltalk.send($2, "_label_", [aString]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aWidget", "aString"],
			
 
				-source: "on: aWidget labelled: aString\x0a\x09^ self new\x0a\x09\x09widget: aWidget;\x0a\x09\x09label: aString;\x0a\x09\x09yourself",
			
 
				-messageSends: ["widget:", "new", "label:", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTab.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLWidget', smalltalk.Widget, ['wrapper'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_manager",
			
 
				-smalltalk.method({
			
 
				-selector: "manager",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.HLManager || HLManager, "_current", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "manager\x0a\x09^ HLManager current",
			
 
				-messageSends: ["current"],
			
 
				-referencedClasses: ["HLManager"]
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refresh",
			
 
				-smalltalk.method({
			
 
				-selector: "refresh",
			
 
				-category: 'updating',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_wrapper", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-        return self;
			
 
				-    } else {
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_empty", []);
			
 
				-    smalltalk.send(function (html) {return smalltalk.send(self, "_renderContentOn_", [html]);}, "_appendToJQuery_", [smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "refresh\x0a\x09self wrapper ifNil: [ ^ self ].\x0a    \x0a\x09self wrapper asJQuery empty.\x0a    [ :html | self renderContentOn: html ] appendToJQuery: self wrapper asJQuery",
			
 
				-messageSends: ["ifNil:", "wrapper", "empty", "asJQuery", "appendToJQuery:", "renderContentOn:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_registerBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "registerBindings",
			
 
				-category: 'keybindings',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_registerBindingsOn_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_manager", []), "_keyBinder", []), "_bindings", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "registerBindings\x0a\x09self registerBindingsOn: self manager keyBinder bindings",
			
 
				-messageSends: ["registerBindingsOn:", "bindings", "keyBinder", "manager"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_registerBindingsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "registerBindingsOn:",
			
 
				-category: 'keybindings',
			
 
				-fn: function (aBindingGroup) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBindingGroup"],
			
 
				-source: "registerBindingsOn: aBindingGroup",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html){
			
 
				-var self=this;
			
 
				-smalltalk.send(self,"_registerBindings",[]);
			
 
				-self["@wrapper"]=smalltalk.send(html,"_div",[]);
			
 
				-smalltalk.send((function(renderer){
			
 
				-return smalltalk.send(self,"_renderContentOn_",[renderer]);
			
 
				-}),"_appendToJQuery_",[smalltalk.send(self["@wrapper"],"_asJQuery",[])]);
			
 
				-return self},
			
 
				-args: ["html"],
			
 
				-source: "renderOn: html\x0a    self registerBindings.\x0a\x0a\x09wrapper := html div.\x0a    [ :renderer | self renderContentOn: renderer ] appendToJQuery: wrapper asJQuery",
			
 
				-messageSends: ["registerBindings", "div", "appendToJQuery:", "asJQuery", "renderContentOn:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_wrapper",
			
 
				-smalltalk.method({
			
 
				-selector: "wrapper",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@wrapper'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "wrapper\x0a\x09^ wrapper",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWidget);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "canBeOpenAsTab\x0a\x09^ false",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWidget.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_openAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "openAsTab",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_addTab_", [smalltalk.send(smalltalk.HLTab || HLTab, "_on_labelled_", [smalltalk.send(self, "_new", []), smalltalk.send(self, "_tabLabel", [])])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "openAsTab\x0a\x09HLManager current addTab: (HLTab on: self new labelled: self tabLabel)",
			
 
				-messageSends: ["addTab:", "on:labelled:", "new", "tabLabel", "current"],
			
 
				-referencedClasses: ["HLTab", "HLManager"]
			
 
				-}),
			
 
				-smalltalk.HLWidget.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Tab";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabLabel\x0a\x09^ 'Tab'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWidget.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 500;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabPriority\x0a\x09^ 500",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWidget.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLDebugger', smalltalk.HLWidget, [], 'Helios-Core');
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLFocusableWidget', smalltalk.HLWidget, ['hiddenInput'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_blur",
			
 
				-smalltalk.method({
			
 
				-selector: "blur",
			
 
				-category: 'events',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_blur", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "blur\x0a\x09hiddenInput asJQuery blur",
			
 
				-messageSends: ["blur", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focus",
			
 
				-smalltalk.method({
			
 
				-selector: "focus",
			
 
				-category: 'events',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_focus", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "focus\x0a\x09hiddenInput asJQuery focus",
			
 
				-messageSends: ["focus", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focusClass",
			
 
				-smalltalk.method({
			
 
				-selector: "focusClass",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "focused";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "focusClass\x0a\x09^ 'focused'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_hasFocus",
			
 
				-smalltalk.method({
			
 
				-selector: "hasFocus",
			
 
				-category: 'events',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_notNil", []), "_and_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_hasClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "hasFocus\x0a\x09^ self wrapper notNil and: [ self wrapper asJQuery hasClass: self focusClass ]",
			
 
				-messageSends: ["and:", "hasClass:", "focusClass", "asJQuery", "wrapper", "notNil"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderHiddenInputOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderHiddenInputOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(html, "_input", []);
			
 
				-    smalltalk.send($1, "_style_", ["position: absolute; left: -100000px;"]);
			
 
				-    smalltalk.send($1, "_onBlur_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_removeClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
			
 
				-    $2 = smalltalk.send($1, "_onFocus_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(self, "_wrapper", []), "_asJQuery", []), "_addClass_", [smalltalk.send(self, "_focusClass", [])]);}]);
			
 
				-    self['@hiddenInput'] = $2;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderHiddenInputOn: html\x0a\x09hiddenInput := html input\x0a    \x09style: 'position: absolute; left: -100000px;';\x0a    \x09onBlur: [ self wrapper asJQuery removeClass: self focusClass ];\x0a        onFocus: [ self wrapper asJQuery addClass: self focusClass ]",
			
 
				-messageSends: ["style:", "input", "onBlur:", "removeClass:", "focusClass", "asJQuery", "wrapper", "onFocus:", "addClass:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    smalltalk.send(self, "_registerBindings", []);
			
 
				-    smalltalk.send(self, "_renderHiddenInputOn_", [html]);
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", ["hl_widget"]);
			
 
				-    smalltalk.send($1, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_focus", []);}]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {return smalltalk.send(self, "_renderContentOn_", [html]);}]);
			
 
				-    self['@wrapper'] = $2;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderOn: html\x0a\x09self registerBindings.\x0a\x09self renderHiddenInputOn: html.\x0a    \x0a    wrapper := html div \x0a    \x09class: 'hl_widget'; \x0a        onClick: [ hiddenInput asJQuery focus ];\x0a        with: [\x0a\x09\x09\x09self renderContentOn: html ]",
			
 
				-messageSends: ["registerBindings", "renderHiddenInputOn:", "class:", "div", "onClick:", "focus", "asJQuery", "with:", "renderContentOn:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLFocusableWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLListWidget', smalltalk.HLFocusableWidget, ['items', 'selectedItem'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_activateFirstListItem",
			
 
				-smalltalk.method({
			
 
				-selector: "activateFirstListItem",
			
 
				-category: 'actions',
			
 
				-fn: function (){
			
 
				-var self=this;
			
 
				-smalltalk.send(self,"_activateListItem_",[smalltalk.send(window,"_jQuery_",[smalltalk.send(smalltalk.send(smalltalk.send(self["@wrapper"],"_asJQuery",[]),"_find_",["li"]),"_get_",[(0)])])]);
			
 
				-return self},
			
 
				-args: [],
			
 
				-source: "activateFirstListItem\x0a\x09self activateListItem: (window jQuery: ((wrapper asJQuery find: 'li') get: 0))",
			
 
				-messageSends: ["activateListItem:", "jQuery:", "get:", "find:", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_activateListItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "activateListItem:",
			
 
				-category: 'actions',
			
 
				-fn: function (aListItem) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    var parent;
			
 
				-    var position;
			
 
				-    $1 = smalltalk.send(aListItem, "_get_", [0]);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-        return self;
			
 
				-    } else {
			
 
				-    }
			
 
				-    position = aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1;
			
 
				-    parent = smalltalk.send(aListItem, "_parent", []);
			
 
				-    smalltalk.send(smalltalk.send(parent, "_children", []), "_removeClass_", ["active"]);
			
 
				-    smalltalk.send(aListItem, "_addClass_", ["active"]);
			
 
				-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", []), "__lt", [0]);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop", []), "__plus", [smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", [])]), "__minus", [10])]);
			
 
				-    }
			
 
				-    $3 = smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", []), "__plus", [smalltalk.send(aListItem, "_height", [])]), "__gt", [smalltalk.send(parent, "_height", [])]);
			
 
				-    if (smalltalk.assert($3)) {
			
 
				-        smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(parent, "_get_", [0]), "_scrollTop", []), "__plus", [smalltalk.send(aListItem, "_height", [])]), "__minus", [smalltalk.send(smalltalk.send(parent, "_height", []), "__minus", [smalltalk.send(smalltalk.send(aListItem, "_position", []), "_top", [])])]), "__plus", [10])]);
			
 
				-    }
			
 
				-    smalltalk.send(self, "_selectItem_", [smalltalk.send(smalltalk.send(self, "_items", []), "_at_", [smalltalk.send(smalltalk.send(aListItem, "_attr_", ["list-data"]), "_asNumber", [])])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aListItem"],
			
 
				-source: "activateListItem: aListItem\x0a\x09| parent position |\x0a    \x0a\x09(aListItem get: 0) ifNil: [ ^self ].\x0a\x0a\x09<position = aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1>.\x0a\x0a    parent := aListItem parent.\x0a\x09parent children removeClass: 'active'.\x0a\x09aListItem addClass: 'active'.\x0a    \x0a    \x22Move the scrollbar to show the active element\x22\x0a    aListItem position top < 0 ifTrue: [\x0a\x09\x09(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem position top - 10) ].\x0a    aListItem position top + aListItem height > parent height ifTrue: [ \x0a\x09\x09(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem height - (parent height - aListItem position top)) +10 ].\x0a        \x0a   \x22Activate the corresponding item\x22\x0a   self selectItem: (self items at: (aListItem attr: 'list-data') asNumber)",
			
 
				-messageSends: ["ifNil:", "get:", "parent", "removeClass:", "children", "addClass:", "ifTrue:", "scrollTop:", "-", "+", "top", "position", "scrollTop", "<", "height", ">", "selectItem:", "at:", "asNumber", "attr:", "items"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_cssClassForItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "cssClassForItem:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(smalltalk.send(self, "_selectedItem", []), "__eq", [anObject]);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = "active";
			
 
				-    } else {
			
 
				-        $1 = "inactive";
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "cssClassForItem: anObject\x0a\x09^ self selectedItem = anObject\x0a\x09\x09\x09ifTrue: [ 'active' ]\x0a\x09\x09\x09ifFalse: [ 'inactive' ]",
			
 
				-messageSends: ["ifTrue:ifFalse:", "=", "selectedItem"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_defaultItems",
			
 
				-smalltalk.method({
			
 
				-selector: "defaultItems",
			
 
				-category: 'defaults',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return [];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "defaultItems\x0a\x09^ #()",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focus",
			
 
				-smalltalk.method({
			
 
				-selector: "focus",
			
 
				-category: 'actions',
			
 
				-fn: function (){
			
 
				-var self=this;
			
 
				-var $1,$2;
			
 
				-smalltalk.send(self,"_focus",[],smalltalk.HLFocusableWidget);
			
 
				-$1=smalltalk.send(smalltalk.send(self,"_items",[]),"_isEmpty",[]);
			
 
				-if(! smalltalk.assert($1)){
			
 
				-$2=smalltalk.send(self,"_selectedItem",[]);
			
 
				-if(($receiver = $2) == nil || $receiver == undefined){
			
 
				-smalltalk.send(self,"_activateFirstListItem",[]);
			
 
				-} else {
			
 
				-$2;
			
 
				-};
			
 
				-};
			
 
				-return self},
			
 
				-args: [],
			
 
				-source: "focus\x0a\x09super focus.\x0a    self items isEmpty ifFalse: [ \x0a\x09\x09self selectedItem ifNil: [ self activateFirstListItem ] ]",
			
 
				-messageSends: ["focus", "ifFalse:", "ifNil:", "activateFirstListItem", "selectedItem", "isEmpty", "items"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_iconForItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "iconForItem:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    return "";
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "iconForItem: anObject\x0a\x09^ ''",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_items",
			
 
				-smalltalk.method({
			
 
				-selector: "items",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@items']) == nil || $receiver == undefined) {
			
 
				-        self['@items'] = smalltalk.send(self, "_defaultItems", []);
			
 
				-        $1 = self['@items'];
			
 
				-    } else {
			
 
				-        $1 = self['@items'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "items\x0a\x09^ items ifNil: [ items := self defaultItems ]",
			
 
				-messageSends: ["ifNil:", "defaultItems"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_items_",
			
 
				-smalltalk.method({
			
 
				-selector: "items:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aCollection) {
			
 
				-    var self = this;
			
 
				-    self['@items'] = aCollection;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aCollection"],
			
 
				-source: "items: aCollection\x0a\x09items := aCollection",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderButtonsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderButtonsOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderButtonsOn: html",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3, $4;
			
 
				-    $1 = smalltalk.send(html, "_ul", []);
			
 
				-    smalltalk.send($1, "_class_", ["nav nav-pills nav-stacked"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {return smalltalk.send(self, "_renderListOn_", [html]);}]);
			
 
				-    $3 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($3, "_class_", ["pane_actions form-actions"]);
			
 
				-    $4 = smalltalk.send($3, "_with_", [function () {return smalltalk.send(self, "_renderButtonsOn_", [html]);}]);
			
 
				-    smalltalk.send(self, "_setupKeyBindings", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a\x09html ul \x0a    \x09class: 'nav nav-pills nav-stacked';\x0a        with: [ self renderListOn: html ].\x0a    html div class: 'pane_actions form-actions'; with: [\x0a      \x09self renderButtonsOn: html ].\x0a        \x0a   self setupKeyBindings",
			
 
				-messageSends: ["class:", "ul", "with:", "renderListOn:", "div", "renderButtonsOn:", "setupKeyBindings"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItem_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItem:on:",
			
 
				-category: 'rendering',
			
 
				-fn: function (anObject, html) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    var li;
			
 
				-    li = smalltalk.send(html, "_li", []);
			
 
				-    smalltalk.send(li, "_class_", [smalltalk.send(self, "_cssClassForItem_", [anObject])]);
			
 
				-    smalltalk.send(li, "_at_put_", ["list-data", smalltalk.send(smalltalk.send(smalltalk.send(self, "_items", []), "_indexOf_", [anObject]), "_asString", [])]);
			
 
				-    $1 = smalltalk.send(li, "_with_", [function () {$2 = smalltalk.send(html, "_a", []);smalltalk.send($2, "_with_", [function () {smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", [smalltalk.send(self, "_iconForItem_", [anObject])]);return smalltalk.send(self, "_renderItemLabel_on_", [anObject, html]);}]);$3 = smalltalk.send($2, "_onClick_", [function () {return smalltalk.send(self, "_activateListItem_", [smalltalk.send(li, "_asJQuery", [])]);}]);return $3;}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject", "html"],
			
 
				-source: "renderItem: anObject on: html\x0a\x09| li |\x0a    \x0a\x09li := html li.\x0a    li\x0a    \x09class: (self cssClassForItem: anObject);\x0a        at: 'list-data' put: (self items indexOf: anObject) asString;\x0a        with: [ \x0a        \x09html a\x0a            \x09with: [ \x0a            \x09\x09(html tag: 'i') class: (self iconForItem: anObject).\x0a  \x09\x09\x09\x09\x09self renderItemLabel: anObject on: html ];\x0a\x09\x09\x09\x09onClick: [\x0a                  \x09self activateListItem: li asJQuery ] ]",
			
 
				-messageSends: ["li", "class:", "cssClassForItem:", "at:put:", "asString", "indexOf:", "items", "with:", "iconForItem:", "tag:", "renderItemLabel:on:", "a", "onClick:", "activateListItem:", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderItemLabel_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderItemLabel:on:",
			
 
				-category: 'rendering',
			
 
				-fn: function (anObject, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(anObject, "_asString", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject", "html"],
			
 
				-source: "renderItemLabel: anObject on: html\x0a\x09html with: anObject asString",
			
 
				-messageSends: ["with:", "asString"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderListOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderListOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_items", []), "_do_", [function (each) {return smalltalk.send(self, "_renderItem_on_", [each, html]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderListOn: html\x0a\x09self items do: [ :each | \x0a    \x09self renderItem: each on: html ]",
			
 
				-messageSends: ["do:", "renderItem:on:", "items"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-category: 'actions',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectedItem_", [anObject]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "selectItem: anObject\x0a\x09self selectedItem: anObject",
			
 
				-messageSends: ["selectedItem:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedItem",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedItem",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@selectedItem'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectedItem\x0a\x09^ selectedItem",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedItem:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@selectedItem'] = anObject;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "selectedItem: anObject\x0a\x09selectedItem := anObject",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupKeyBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "setupKeyBindings",
			
 
				-category: 'events',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3;
			
 
				-    var next;
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_unbind_", ["keydown"]);
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_keydown_", [function (e) {var selected;selected = smalltalk.send(window, "_jQuery_", [".focused .nav-pills .active"]);$1 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [38]);if (smalltalk.assert($1)) {smalltalk.send(self, "_activateListItem_", [smalltalk.send(selected, "_prev", [])]);}$2 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [40]);if (smalltalk.assert($2)) {next = smalltalk.send(selected, "_next", []);next;$3 = smalltalk.send(next, "_get_", [0]);if (($receiver = $3) == nil || $receiver == undefined) {next = smalltalk.send(window, "_jQuery_", [".focused .nav-pills li:first-child"]);next;} else {$3;}return smalltalk.send(self, "_activateListItem_", [next]);}}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "setupKeyBindings\x0a\x09| next |\x0a\x09hiddenInput asJQuery unbind: 'keydown'.\x0a\x0a\x09hiddenInput asJQuery keydown: [ :e | | selected |\x0a    \x09selected := window jQuery: '.focused .nav-pills .active'.\x0a        e which = 38 ifTrue: [ \x0a        \x09self activateListItem: selected prev ].\x0a      \x09e which = 40 ifTrue: [\x0a          \x09next := selected next.\x0a            (next get: 0) ifNil: [ next := window jQuery: '.focused .nav-pills li:first-child' ].\x0a\x09\x09\x09self activateListItem: next ] ]",
			
 
				-messageSends: ["unbind:", "asJQuery", "keydown:", "jQuery:", "ifTrue:", "activateListItem:", "prev", "=", "which", "next", "ifNil:", "get:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLNavigationListWidget', smalltalk.HLListWidget, ['previous', 'next'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_next",
			
 
				-smalltalk.method({
			
 
				-selector: "next",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@next'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "next\x0a\x09^ next",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_next_",
			
 
				-smalltalk.method({
			
 
				-selector: "next:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    self['@next'] = aWidget;
			
 
				-    $1 = smalltalk.send(smalltalk.send(aWidget, "_previous", []), "__eq", [self]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        smalltalk.send(aWidget, "_previous_", [self]);
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aWidget"],
			
 
				-source: "next: aWidget\x0a\x09next := aWidget.\x0a    aWidget previous = self ifFalse: [ aWidget previous: self ]",
			
 
				-messageSends: ["ifFalse:", "previous:", "=", "previous"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_nextFocus",
			
 
				-smalltalk.method({
			
 
				-selector: "nextFocus",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_next", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-    } else {
			
 
				-        smalltalk.send(smalltalk.send(self, "_next", []), "_focus", []);
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "nextFocus\x0a\x09self next ifNotNil: [ self next focus ]",
			
 
				-messageSends: ["ifNotNil:", "focus", "next"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_previous",
			
 
				-smalltalk.method({
			
 
				-selector: "previous",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@previous'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "previous\x0a\x09^ previous",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_previous_",
			
 
				-smalltalk.method({
			
 
				-selector: "previous:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    self['@previous'] = aWidget;
			
 
				-    $1 = smalltalk.send(smalltalk.send(aWidget, "_next", []), "__eq", [self]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        smalltalk.send(aWidget, "_next_", [self]);
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aWidget"],
			
 
				-source: "previous: aWidget\x0a\x09previous := aWidget.\x0a    aWidget next = self ifFalse: [ aWidget next: self ]",
			
 
				-messageSends: ["ifFalse:", "next:", "=", "next"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_previousFocus",
			
 
				-smalltalk.method({
			
 
				-selector: "previousFocus",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_previous", []);
			
 
				-    if (($receiver = $1) == nil || $receiver == undefined) {
			
 
				-    } else {
			
 
				-        smalltalk.send(smalltalk.send(self, "_previous", []), "_focus", []);
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "previousFocus\x0a\x09self previous ifNotNil: [ self previous focus ]",
			
 
				-messageSends: ["ifNotNil:", "focus", "previous"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupKeyBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "setupKeyBindings",
			
 
				-category: 'events',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    smalltalk.send(self, "_setupKeyBindings", [], smalltalk.HLListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self['@hiddenInput'], "_asJQuery", []), "_keydown_", [function (e) {$1 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [39]);if (smalltalk.assert($1)) {smalltalk.send(self, "_nextFocus", []);}$2 = smalltalk.send(smalltalk.send(e, "_which", []), "__eq", [37]);if (smalltalk.assert($2)) {return smalltalk.send(self, "_previousFocus", []);}}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "setupKeyBindings\x0a\x09super setupKeyBindings.\x0a\x0a\x09hiddenInput asJQuery keydown: [ :e |\x0a        e which = 39 ifTrue: [ \x0a        \x09self nextFocus ].\x0a\x09\x09e which = 37 ifTrue: [ \x0a        \x09self previousFocus ] ]",
			
 
				-messageSends: ["setupKeyBindings", "keydown:", "ifTrue:", "nextFocus", "=", "which", "previousFocus", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLNavigationListWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLManager', smalltalk.HLWidget, ['tabs', 'activeTab', 'keyBinder', 'environment'], 'Helios-Core');
			
 
				-smalltalk.addMethod(
			
 
				-"_activate_",
			
 
				-smalltalk.method({
			
 
				-selector: "activate:",
			
 
				-category: 'actions',
			
 
				-fn: function (aTab) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_flushBindings", []);
			
 
				-    self['@activeTab'] = aTab;
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    $1 = smalltalk.send(self, "_show_", [aTab]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aTab"],
			
 
				-source: "activate: aTab\x0a\x09self keyBinder flushBindings.\x0a\x09activeTab := aTab.\x0a    \x0a\x09self \x0a\x09\x09refresh;\x0a\x09\x09show: aTab",
			
 
				-messageSends: ["flushBindings", "keyBinder", "refresh", "show:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_activeTab",
			
 
				-smalltalk.method({
			
 
				-selector: "activeTab",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@activeTab'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "activeTab\x0a\x09^ activeTab",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_addTab_",
			
 
				-smalltalk.method({
			
 
				-selector: "addTab:",
			
 
				-category: 'actions',
			
 
				-fn: function (aTab) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_tabs", []), "_add_", [aTab]);
			
 
				-    smalltalk.send(self, "_activate_", [aTab]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aTab"],
			
 
				-source: "addTab: aTab\x0a\x09self tabs add: aTab.\x0a    self activate: aTab",
			
 
				-messageSends: ["add:", "tabs", "activate:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_defaultEnvironment",
			
 
				-smalltalk.method({
			
 
				-selector: "defaultEnvironment",
			
 
				-category: 'defaults',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.HLLocalEnvironment || HLLocalEnvironment, "_new", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "defaultEnvironment\x0a\x09^ HLLocalEnvironment new",
			
 
				-messageSends: ["new"],
			
 
				-referencedClasses: ["HLLocalEnvironment"]
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        self['@environment'] = smalltalk.send(self, "_defaultEnvironment", []);
			
 
				-        $1 = self['@environment'];
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "environment\x0a\x09\x22The default environment used by all Helios objects\x22\x0a    \x0a\x09^ environment ifNil: [ environment := self defaultEnvironment ]",
			
 
				-messageSends: ["ifNil:", "defaultEnvironment"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anEnvironment"],
			
 
				-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initialize",
			
 
				-smalltalk.method({
			
 
				-selector: "initialize",
			
 
				-category: 'initialization',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_initialize", [], smalltalk.HLWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_setupEvents", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "initialize\x0a\x09super initialize.\x0a    self keyBinder setupEvents",
			
 
				-messageSends: ["initialize", "setupEvents", "keyBinder"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_keyBinder",
			
 
				-smalltalk.method({
			
 
				-selector: "keyBinder",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@keyBinder']) == nil || $receiver == undefined) {
			
 
				-        self['@keyBinder'] = smalltalk.send(smalltalk.HLKeyBinder || HLKeyBinder, "_new", []);
			
 
				-        $1 = self['@keyBinder'];
			
 
				-    } else {
			
 
				-        $1 = self['@keyBinder'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "keyBinder\x0a\x09^ keyBinder ifNil: [ keyBinder := HLKeyBinder new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["HLKeyBinder"]
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refresh",
			
 
				-smalltalk.method({
			
 
				-selector: "refresh",
			
 
				-category: 'rendering',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", [".navbar"]), "_remove", []);
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["#container"]), "_remove", []);
			
 
				-    smalltalk.send(self, "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "refresh\x0a\x09(window jQuery: '.navbar') remove.\x0a\x09(window jQuery: '#container') remove.\x0a\x09self appendToJQuery: 'body' asJQuery",
			
 
				-messageSends: ["remove", "jQuery:", "appendToJQuery:", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_removeTab_",
			
 
				-smalltalk.method({
			
 
				-selector: "removeTab:",
			
 
				-category: 'actions',
			
 
				-fn: function (aTab) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_tabs", []), "_includes_", [aTab]);
			
 
				-    if (!smalltalk.assert($1)) {
			
 
				-        return self;
			
 
				-    }
			
 
				-    smalltalk.send(smalltalk.send(self, "_tabs", []), "_remove_", [aTab]);
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aTab"],
			
 
				-source: "removeTab: aTab\x0a\x09\x22Todo: activate the previously activated tab. Keep a history of tabs selection\x22\x0a\x0a\x09(self tabs includes: aTab) ifFalse: [ ^ self ].\x0a\x0a\x09self tabs remove: aTab.\x0a\x09self refresh",
			
 
				-messageSends: ["ifFalse:", "includes:", "tabs", "remove:", "refresh"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderAddOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderAddOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $5, $7, $8, $6, $2;
			
 
				-    $1 = smalltalk.send(html, "_li", []);
			
 
				-    smalltalk.send($1, "_class_", ["dropdown"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_a", []);smalltalk.send($3, "_class_", ["dropdown-toggle"]);smalltalk.send($3, "_at_put_", ["data-toggle", "dropdown"]);$4 = smalltalk.send($3, "_with_", [function () {smalltalk.send(html, "_with_", ["Open..."]);return smalltalk.send(smalltalk.send(html, "_tag_", ["b"]), "_class_", ["caret"]);}]);$4;$5 = smalltalk.send(html, "_ul", []);smalltalk.send($5, "_class_", ["dropdown-menu"]);$6 = smalltalk.send($5, "_with_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.HLWidget || HLWidget, "_withAllSubclasses", []), "_select_", [function (each) {return smalltalk.send(each, "_canBeOpenAsTab", []);}]), "_sorted_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_tabPriority", []), "__lt", [smalltalk.send(b, "_tabPriority", [])]);}]), "_do_", [function (each) {return smalltalk.send(smalltalk.send(html, "_li", []), "_with_", [function () {$7 = smalltalk.send(html, "_a", []);smalltalk.send($7, "_with_", [smalltalk.send(each, "_tabLabel", [])]);$8 = smalltalk.send($7, "_onClick_", [function () {return smalltalk.send(each, "_openAsTab", []);}]);return $8;}]);}]);}]);return $6;}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderAddOn: html\x0a    html li \x0a    \x09class: 'dropdown';\x0a        with: [ \x0a\x09\x09\x09html a \x0a        \x09\x09class: 'dropdown-toggle';\x0a           \x09 \x09at: 'data-toggle' put: 'dropdown';\x0a            \x09with: [ \x0a            \x09\x09html with: 'Open...'.\x0a  \x09\x09\x09\x09\x09(html tag: 'b') class: 'caret' ].\x0a           html ul \x0a           \x09\x09class: 'dropdown-menu';\x0a                with: [\x0a                  \x09((HLWidget withAllSubclasses\x0a                    \x09select: [ :each | each canBeOpenAsTab ])\x0a                        sorted: [ :a :b | a tabPriority < b tabPriority ])\x0a                        do: [ :each |\x0a  \x09\x09\x09\x09\x09\x09\x09html li with: [\x0a                      \x09\x09\x09html a \x0a                                \x09with: each tabLabel;\x0a      \x09\x09\x09\x09\x09\x09\x09\x09onClick: [ each openAsTab ] ] ] ] ]",
			
 
				-messageSends: ["class:", "li", "with:", "a", "at:put:", "tag:", "ul", "do:", "tabLabel", "onClick:", "openAsTab", "sorted:", "<", "tabPriority", "select:", "canBeOpenAsTab", "withAllSubclasses"],
			
 
				-referencedClasses: ["HLWidget"]
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $2;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", ["navbar navbar-fixed-top"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_div", []);smalltalk.send($3, "_class_", ["navbar-inner"]);$4 = smalltalk.send($3, "_with_", [function () {return smalltalk.send(self, "_renderTabsOn_", [html]);}]);return $4;}]);
			
 
				-    smalltalk.send(smalltalk.send(html, "_div", []), "_id_", ["container"]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a\x09html div \x0a\x09\x09class: 'navbar navbar-fixed-top';\x0a\x09\x09with: [ html div \x0a\x09\x09\x09class: 'navbar-inner';\x0a\x09\x09\x09with: [ self renderTabsOn: html ] ].\x0a\x09html div id: 'container'",
			
 
				-messageSends: ["class:", "div", "with:", "renderTabsOn:", "id:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderTabsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderTabsOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $5, $4, $7, $8, $6, $2;
			
 
				-    $1 = smalltalk.send(html, "_ul", []);
			
 
				-    smalltalk.send($1, "_class_", ["nav"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {smalltalk.send(smalltalk.send(self, "_tabs", []), "_do_", [function (each) {$3 = smalltalk.send(html, "_li", []);$5 = smalltalk.send(each, "_isActive", []);if (smalltalk.assert($5)) {$4 = "active";} else {$4 = "inactive";}smalltalk.send($3, "_class_", [$4]);$6 = smalltalk.send($3, "_with_", [function () {$7 = smalltalk.send(html, "_a", []);smalltalk.send($7, "_with_", [function () {smalltalk.send(smalltalk.send(smalltalk.send(html, "_tag_", ["i"]), "_class_", ["icon-remove-circle"]), "_onClick_", [function () {return smalltalk.send(self, "_removeTab_", [each]);}]);return smalltalk.send(html, "_with_", [smalltalk.send(each, "_label", [])]);}]);$8 = smalltalk.send($7, "_onClick_", [function () {return smalltalk.send(each, "_activate", []);}]);return $8;}]);return $6;}]);return smalltalk.send(self, "_renderAddOn_", [html]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderTabsOn: html\x0a\x09html ul \x0a\x09\x09class: 'nav';\x0a\x09\x09with: [ \x0a        \x09self tabs do: [ :each |\x0a\x09\x09\x09\x09html li \x0a\x09\x09\x09\x09\x09class: (each isActive ifTrue: [ 'active' ] ifFalse: [ 'inactive' ]);\x0a\x09\x09\x09\x09\x09with: [\x0a\x09\x09\x09\x09\x09\x09html a\x0a\x09\x09\x09\x09\x09\x09\x09with: [\x0a      \x09\x09\x09\x09\x09\x09\x09((html tag: 'i') class: 'icon-remove-circle')\x0a  \x09\x09\x09\x09\x09\x09\x09\x09\x09onClick: [ self removeTab: each ].\x0a                              \x09html with: each label ];\x0a\x09\x09\x09\x09\x09\x09\x09onClick: [ each activate ] ] ].\x0a\x09\x09\x09self renderAddOn: html ]",
			
 
				-messageSends: ["class:", "ul", "with:", "do:", "ifTrue:ifFalse:", "isActive", "li", "onClick:", "removeTab:", "tag:", "label", "a", "activate", "tabs", "renderAddOn:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_show_",
			
 
				-smalltalk.method({
			
 
				-selector: "show:",
			
 
				-category: 'rendering',
			
 
				-fn: function (aTab) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["#container"]), "_empty", []);
			
 
				-    smalltalk.send(smalltalk.send(aTab, "_widget", []), "_appendToJQuery_", [smalltalk.send("#container", "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aTab"],
			
 
				-source: "show: aTab\x0a\x09(window jQuery: '#container') empty.\x0a\x09aTab widget appendToJQuery: '#container' asJQuery",
			
 
				-messageSends: ["empty", "jQuery:", "appendToJQuery:", "asJQuery", "widget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabs",
			
 
				-smalltalk.method({
			
 
				-selector: "tabs",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@tabs']) == nil || $receiver == undefined) {
			
 
				-        self['@tabs'] = smalltalk.send(smalltalk.OrderedCollection || OrderedCollection, "_new", []);
			
 
				-        $1 = self['@tabs'];
			
 
				-    } else {
			
 
				-        $1 = self['@tabs'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabs\x0a\x09^ tabs ifNil: [ tabs := OrderedCollection new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["OrderedCollection"]
			
 
				-}),
			
 
				-smalltalk.HLManager);
			
 
				-
			
 
				-
			
 
				-smalltalk.HLManager.klass.iVarNames = ['current'];
			
 
				-smalltalk.addMethod(
			
 
				-"_current",
			
 
				-smalltalk.method({
			
 
				-selector: "current",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@current']) == nil || $receiver == undefined) {
			
 
				-        self['@current'] = smalltalk.send(smalltalk.send(self, "_basicNew", []), "_initialize", []);
			
 
				-        $1 = self['@current'];
			
 
				-    } else {
			
 
				-        $1 = self['@current'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "current\x0a\x09^ current ifNil: [ current := self basicNew initialize ]",
			
 
				-messageSends: ["ifNil:", "initialize", "basicNew"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initialize",
			
 
				-smalltalk.method({
			
 
				-selector: "initialize",
			
 
				-category: 'initialization',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_current", []), "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "initialize\x0a\x09self current appendToJQuery: 'body' asJQuery",
			
 
				-messageSends: ["appendToJQuery:", "asJQuery", "current"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_new",
			
 
				-smalltalk.method({
			
 
				-selector: "new",
			
 
				-category: 'instance creation',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_shouldNotImplement", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "new\x0a\x09\x22Use current instead\x22\x0a\x0a\x09self shouldNotImplement",
			
 
				-messageSends: ["shouldNotImplement"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLManager.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLSUnit', smalltalk.HLWidget, [], 'Helios-Core');
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "canBeOpenAsTab\x0a\x09^ true",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSUnit.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "SUnit";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabLabel\x0a\x09^ 'SUnit'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSUnit.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 1000;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabPriority\x0a\x09^ 1000",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSUnit.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLTranscript', smalltalk.HLWidget, [], 'Helios-Core');
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "canBeOpenAsTab\x0a\x09^ true",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTranscript.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Transcript";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabLabel\x0a\x09^ 'Transcript'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTranscript.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 600;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabPriority\x0a\x09^ 600",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLTranscript.klass);
			
 
				-
			
 
				-
			
--- a/js/Helios-Environments.deploy.js
+++ b/js/Helios-Environments.deploy.js
@@ -1,132 +0,0 @@
 
				-smalltalk.addPackage('Helios-Environments', {});
			
 
				-smalltalk.addClass('HLEnvironment', smalltalk.Object, [], 'Helios-Environments');
			
 
				-smalltalk.addMethod(
			
 
				-"_eval_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "eval:on:",
			
 
				-fn: function (someCode, aReceiver) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_subclassResponsibility", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLEnvironment);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packages",
			
 
				-smalltalk.method({
			
 
				-selector: "packages",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_subclassResponsibility", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLEnvironment);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLLocalEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
			
 
				-smalltalk.addMethod(
			
 
				-"_eval_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "eval:on:",
			
 
				-fn: function (someCode, aReceiver) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    var $early = {};
			
 
				-    try {
			
 
				-        var compiler;
			
 
				-        compiler = smalltalk.send(smalltalk.Compiler || Compiler, "_new", []);
			
 
				-        smalltalk.send(function () {return smalltalk.send(compiler, "_parseExpression_", [someCode]);}, "_on_do_", [smalltalk.Error || Error, function (ex) {$1 = smalltalk.send(window, "_alert_", [smalltalk.send(ex, "_messageText", [])]);throw $early = [$1];}]);
			
 
				-        $2 = smalltalk.send(smalltalk.send(smalltalk.send(compiler, "_eval_", [smalltalk.send(compiler, "_compile_forClass_", [smalltalk.send(smalltalk.send("doIt ^[", "__comma", [someCode]), "__comma", ["] value"]), smalltalk.DoIt || DoIt])]), "_fn", []), "_applyTo_arguments_", [aReceiver, []]);
			
 
				-        return $2;
			
 
				-    } catch (e) {
			
 
				-        if (e === $early) {
			
 
				-            return e[0];
			
 
				-        }
			
 
				-        throw e;
			
 
				-    }
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLLocalEnvironment);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packages",
			
 
				-smalltalk.method({
			
 
				-selector: "packages",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.Smalltalk || Smalltalk, "_current", []), "_packages", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLLocalEnvironment);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLRemoteEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
			
 
				-smalltalk.addMethod(
			
 
				-"_eval_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "eval:on:",
			
 
				-fn: function (someCode, aReceiver) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_notYetImplemented", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLRemoteEnvironment);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packages",
			
 
				-smalltalk.method({
			
 
				-selector: "packages",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLRemoteEnvironment);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLRemoteObject', smalltalk.Object, [], 'Helios-Environments');
			
 
				-smalltalk.addMethod(
			
 
				-"_doesNotUnderstand_",
			
 
				-smalltalk.method({
			
 
				-selector: "doesNotUnderstand:",
			
 
				-fn: function (aMessage) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLRemoteObject);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectOn:",
			
 
				-fn: function (anInspector) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLRemoteObject);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_printString",
			
 
				-smalltalk.method({
			
 
				-selector: "printString",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "this is a remote object";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLRemoteObject);
			
 
				-
			
 
				-
			
 
				-
			
--- a/js/Helios-Environments.js
+++ b/js/Helios-Environments.js
@@ -1,179 +0,0 @@
 
				-smalltalk.addPackage('Helios-Environments', {});
			
 
				-smalltalk.addClass('HLEnvironment', smalltalk.Object, [], 'Helios-Environments');
			
 
				-smalltalk.HLEnvironment.comment="Abstract class defining common behavior for local and remote environments"
			
 
				-smalltalk.addMethod(
			
 
				-"_eval_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "eval:on:",
			
 
				-category: 'actions',
			
 
				-fn: function (someCode, aReceiver) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_subclassResponsibility", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["someCode", "aReceiver"],
			
 
				-source: "eval: someCode on: aReceiver\x0a\x0a\x09^ self subclassResponsibility",
			
 
				-messageSends: ["subclassResponsibility"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLEnvironment);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packages",
			
 
				-smalltalk.method({
			
 
				-selector: "packages",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_subclassResponsibility", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "packages\x0a\x0a\x09^ self subclassResponsibility",
			
 
				-messageSends: ["subclassResponsibility"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLEnvironment);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLLocalEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
			
 
				-smalltalk.addMethod(
			
 
				-"_eval_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "eval:on:",
			
 
				-category: 'actions',
			
 
				-fn: function (someCode, aReceiver) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    var $early = {};
			
 
				-    try {
			
 
				-        var compiler;
			
 
				-        compiler = smalltalk.send(smalltalk.Compiler || Compiler, "_new", []);
			
 
				-        smalltalk.send(function () {return smalltalk.send(compiler, "_parseExpression_", [someCode]);}, "_on_do_", [smalltalk.Error || Error, function (ex) {$1 = smalltalk.send(window, "_alert_", [smalltalk.send(ex, "_messageText", [])]);throw $early = [$1];}]);
			
 
				-        $2 = smalltalk.send(smalltalk.send(smalltalk.send(compiler, "_eval_", [smalltalk.send(compiler, "_compile_forClass_", [smalltalk.send(smalltalk.send("doIt ^[", "__comma", [someCode]), "__comma", ["] value"]), smalltalk.DoIt || DoIt])]), "_fn", []), "_applyTo_arguments_", [aReceiver, []]);
			
 
				-        return $2;
			
 
				-    } catch (e) {
			
 
				-        if (e === $early) {
			
 
				-            return e[0];
			
 
				-        }
			
 
				-        throw e;
			
 
				-    }
			
 
				-},
			
 
				-args: ["someCode", "aReceiver"],
			
 
				-source: "eval: someCode on: aReceiver\x0a\x09| compiler  |\x0a\x09compiler := Compiler new.\x0a\x09[compiler parseExpression: someCode] on: Error do: [:ex |\x0a\x09\x09^window alert: ex messageText].\x0a\x09^(compiler eval: (compiler compile: 'doIt ^[', someCode, '] value' forClass: DoIt)) fn applyTo: aReceiver arguments: #()",
			
 
				-messageSends: ["new", "on:do:", "alert:", "messageText", "parseExpression:", "applyTo:arguments:", "fn", "eval:", "compile:forClass:", ","],
			
 
				-referencedClasses: ["Compiler", "Error", "DoIt"]
			
 
				-}),
			
 
				-smalltalk.HLLocalEnvironment);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packages",
			
 
				-smalltalk.method({
			
 
				-selector: "packages",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.Smalltalk || Smalltalk, "_current", []), "_packages", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "packages\x0a\x0a\x09^ Smalltalk current packages",
			
 
				-messageSends: ["packages", "current"],
			
 
				-referencedClasses: ["Smalltalk"]
			
 
				-}),
			
 
				-smalltalk.HLLocalEnvironment);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLRemoteEnvironment', smalltalk.HLEnvironment, [], 'Helios-Environments');
			
 
				-smalltalk.addMethod(
			
 
				-"_eval_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "eval:on:",
			
 
				-category: 'actions',
			
 
				-fn: function (someCode, aReceiver) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_notYetImplemented", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["someCode", "aReceiver"],
			
 
				-source: "eval: someCode on: aReceiver\x0a\x0a\x09\x22Note for future self and friends:\x0a    whatever way this compilation happens on the other side, \x0a    it should return a proxy to the remote resulting object\x22\x0a    \x0a    self notYetImplemented",
			
 
				-messageSends: ["notYetImplemented"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLRemoteEnvironment);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_packages",
			
 
				-smalltalk.method({
			
 
				-selector: "packages",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "packages\x0a\x09\x22Answer the remote environment's packages\x22\x0a  \x0a\x09\x22to-do\x22\x0a    \x0a    \x22Note for future self and friends:\x0a    the problem with remote stuff is that the answers shouldn't be expected to be\x0a    received in a syncrhonous fashion. Everything network is asyc, so you *are going to deal with callbacks* here\x22",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLRemoteEnvironment);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLRemoteObject', smalltalk.Object, [], 'Helios-Environments');
			
 
				-smalltalk.HLRemoteObject.comment="This is a local proxy to a remote object.\x0aTipically useful for evaluating and inspecting and interacting with instances of a remote VM.\x0a"
			
 
				-smalltalk.addMethod(
			
 
				-"_doesNotUnderstand_",
			
 
				-smalltalk.method({
			
 
				-selector: "doesNotUnderstand:",
			
 
				-category: 'actions',
			
 
				-fn: function (aMessage) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aMessage"],
			
 
				-source: "doesNotUnderstand: aMessage\x0a\x0a\x09\x22to-do\x0a\x0a\x09aham, blah blah\x0a\x0a\x09super doesNotUnderstand: aMessage\x22",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLRemoteObject);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectOn:",
			
 
				-category: 'actions',
			
 
				-fn: function (anInspector) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInspector"],
			
 
				-source: "inspectOn: anInspector\x0a\x0a\x09\x22to-do\x22\x0a\x0a\x09\x22this is a source of so much fun...\x22\x0a",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLRemoteObject);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_printString",
			
 
				-smalltalk.method({
			
 
				-selector: "printString",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "this is a remote object";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "printString\x0a\x09^ 'this is a remote object'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLRemoteObject);
			
 
				-
			
 
				-
			
 
				-
			
--- a/js/Helios-Inspector.deploy.js
+++ b/js/Helios-Inspector.deploy.js
@@ -1,855 +0,0 @@
 
				-smalltalk.addPackage('Helios-Inspector', {});
			
 
				-smalltalk.addClass('HLInspector', smalltalk.HLWidget, ['model', 'variablesWidget', 'displayWidget', 'codeWidget', 'label'], 'Helios-Inspector');
			
 
				-smalltalk.addMethod(
			
 
				-"_codeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "codeWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
			
 
				-        smalltalk.send($2, "_model_", [smalltalk.send(self['@model'], "_code", [])]);
			
 
				-        smalltalk.send($2, "_receiver_", [smalltalk.send(self['@model'], "_inspectee", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        self['@codeWidget'] = $3;
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_displayWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "displayWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    if (($receiver = self['@displayWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(smalltalk.HLInspectorDisplayWidget || HLInspectorDisplayWidget, "_new", []);
			
 
				-        smalltalk.send($2, "_model_", [smalltalk.send(self, "_model", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        self['@displayWidget'] = $3;
			
 
				-        $1 = self['@displayWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@displayWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspect_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspect:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_inspect_on_", [anObject, self]);
			
 
				-    smalltalk.send(self, "_refreshVariablesWidget", []);
			
 
				-    $1 = smalltalk.send(self, "_refreshDisplayWidget", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectee",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectee",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_inspectee", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectee_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectee:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_inspectee_", [anObject]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@label']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(self['@model'], "_inspectee", []), "_printString", []);
			
 
				-    } else {
			
 
				-        $1 = self['@label'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
			
 
				-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLInspectorModel || HLInspectorModel, "_new", [])]);
			
 
				-        $1 = self['@model'];
			
 
				-    } else {
			
 
				-        $1 = self['@model'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    self['@model'] = aModel;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_model_", [smalltalk.send(aModel, "_code", [])]);
			
 
				-    smalltalk.send(self, "_observeCodeWidget", []);
			
 
				-    smalltalk.send(self, "_observeVariablesWidget", []);
			
 
				-    $1 = smalltalk.send(self, "_observeModel", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeCodeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "observeCodeWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_announcer", []), "_on_do_", [smalltalk.HLDoItExecuted || HLDoItExecuted, function () {return smalltalk.send(self, "_onDoneIt", []);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected, function (ann) {return smalltalk.send(self, "_onInstanceVariableSelected", []);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeVariablesWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "observeVariablesWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_variablesWidget", []), "_announcer", []);
			
 
				-    smalltalk.send($1, "_on_do_", [smalltalk.HLRefreshRequested || HLRefreshRequested, function (ann) {return smalltalk.send(self, "_onRefresh", []);}]);
			
 
				-    $2 = smalltalk.send($1, "_on_do_", [smalltalk.HLDiveRequested || HLDiveRequested, function () {return smalltalk.send(self, "_onDive", []);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onDive",
			
 
				-smalltalk.method({
			
 
				-selector: "onDive",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_inspect_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVarObject", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onDoneIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onDoneIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onInspectIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onInspectIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onInstanceVariableSelected",
			
 
				-smalltalk.method({
			
 
				-selector: "onInstanceVariableSelected",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_receiver_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVarObject", [])]);
			
 
				-    smalltalk.send(self, "_refreshDisplayWidget", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPrintIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onPrintIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onRefresh",
			
 
				-smalltalk.method({
			
 
				-selector: "onRefresh",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_open",
			
 
				-smalltalk.method({
			
 
				-selector: "open",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_addTab_", [smalltalk.send(smalltalk.HLTab || HLTab, "_on_labelled_", [self, smalltalk.send(self, "_tabLabel", [])])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refresh",
			
 
				-smalltalk.method({
			
 
				-selector: "refresh",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_inspect_", [smalltalk.send(self, "_inspectee", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refreshDisplayWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "refreshDisplayWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_displayWidget", []), "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refreshVariablesWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "refreshVariablesWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_variablesWidget", []), "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(smalltalk.HLContainer || HLContainer, "_with_", [smalltalk.send(smalltalk.HLHorizontalSplitter || HLHorizontalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_variablesWidget", []), smalltalk.send(self, "_displayWidget", [])]), smalltalk.send(self, "_codeWidget", [])])])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setLabel_",
			
 
				-smalltalk.method({
			
 
				-selector: "setLabel:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    self['@label'] = aString;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setVariables_",
			
 
				-smalltalk.method({
			
 
				-selector: "setVariables:",
			
 
				-fn: function (aDictionary) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_variables_", [aDictionary]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_label", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_variablesWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "variablesWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    if (($receiver = self['@variablesWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(smalltalk.HLInspectorVariablesWidget ||
			
 
				-            HLInspectorVariablesWidget, "_new", []);
			
 
				-        smalltalk.send($2, "_model_", [smalltalk.send(self, "_model", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        self['@variablesWidget'] = $3;
			
 
				-        $1 = self['@variablesWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@variablesWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Inspector";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 10;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspector.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInspectorDisplayWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Inspector');
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorDisplayWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aModel;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorDisplayWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(html, "_div", []), "_with_", [smalltalk.send(self, "_selectionDisplayString", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorDisplayWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionDisplayString",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionDisplayString",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    var selection;
			
 
				-    selection = smalltalk.send(self['@model'], "_selection", []);
			
 
				-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(self['@model'], "_variables", []), "_keys", []), "_includes_", [selection]);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(self['@model'], "_instVarObjectAt_", [selection]), "_printString", []);
			
 
				-    } else {
			
 
				-        $1 = "";
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorDisplayWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInspectorModel', smalltalk.Object, ['announcer', 'environment', 'inspectee', 'code', 'variables', 'selection'], 'Helios-Inspector');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_code",
			
 
				-smalltalk.method({
			
 
				-selector: "code",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@code']) == nil || $receiver == undefined) {
			
 
				-        self['@code'] = smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_on_", [smalltalk.send(self, "_environment", [])]);
			
 
				-        $1 = self['@code'];
			
 
				-    } else {
			
 
				-        $1 = self['@code'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspect_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspect:on:",
			
 
				-fn: function (anObject, anInspector) {
			
 
				-    var self = this;
			
 
				-    self['@inspectee'] = anObject;
			
 
				-    self['@variables'] = [];
			
 
				-    smalltalk.send(self['@inspectee'], "_inspectOn_", [anInspector]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectee",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectee",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@inspectee'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectee_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectee:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@inspectee'] = anObject;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_instVarObjectAt_",
			
 
				-smalltalk.method({
			
 
				-selector: "instVarObjectAt:",
			
 
				-fn: function (anInstVarName) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_variables", []), "_at_", [anInstVarName]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "onKeyDown:",
			
 
				-fn: function (anEvent) {
			
 
				-    var self = this;
			
 
				-    if (anEvent.ctrlKey) {
			
 
				-        if (anEvent.keyCode === 80) {
			
 
				-            self._printIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 68) {
			
 
				-            self._doIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 73) {
			
 
				-            self._inspectIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedInstVar_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedInstVar:",
			
 
				-fn: function (anInstVarName) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selection_", [anInstVarName]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedInstVarObject",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedInstVarObject",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_instVarObjectAt_", [smalltalk.send(self, "_selection", [])]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selection",
			
 
				-smalltalk.method({
			
 
				-selector: "selection",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@selection']) == nil || $receiver == undefined) {
			
 
				-        $1 = "";
			
 
				-    } else {
			
 
				-        $1 = self['@selection'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selection_",
			
 
				-smalltalk.method({
			
 
				-selector: "selection:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@selection'] = anObject;
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected, "_on_", [self['@selection']])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_subscribe_",
			
 
				-smalltalk.method({
			
 
				-selector: "subscribe:",
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aWidget, "_subscribeTo_", [smalltalk.send(self, "_announcer", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_variables",
			
 
				-smalltalk.method({
			
 
				-selector: "variables",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@variables'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_variables_",
			
 
				-smalltalk.method({
			
 
				-selector: "variables:",
			
 
				-fn: function (aCollection) {
			
 
				-    var self = this;
			
 
				-    self['@variables'] = aCollection;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_environment_", [anEnvironment]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInspectorVariablesWidget', smalltalk.HLNavigationListWidget, ['announcer', 'model', 'list', 'diveButton'], 'Helios-Inspector');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_defaultItems",
			
 
				-smalltalk.method({
			
 
				-selector: "defaultItems",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_variables", []), "_keys", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aModel;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refresh",
			
 
				-smalltalk.method({
			
 
				-selector: "refresh",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_resetItems", []);
			
 
				-    smalltalk.send(self, "_refresh", [], smalltalk.HLNavigationListWidget);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderButtonsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderButtonsOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3, $4;
			
 
				-    $1 = smalltalk.send(html, "_button", []);
			
 
				-    smalltalk.send($1, "_class_", ["btn"]);
			
 
				-    smalltalk.send($1, "_with_", ["Refresh"]);
			
 
				-    $2 = smalltalk.send($1, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLRefreshRequested || HLRefreshRequested, "_new", [])]);}]);
			
 
				-    $3 = smalltalk.send(html, "_button", []);
			
 
				-    smalltalk.send($3, "_class_", ["btn"]);
			
 
				-    smalltalk.send($3, "_with_", ["Dive"]);
			
 
				-    $4 = smalltalk.send($3, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDiveRequested || HLDiveRequested, "_new", [])]);}]);
			
 
				-    self['@diveButton'] = $4;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resetItems",
			
 
				-smalltalk.method({
			
 
				-selector: "resetItems",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@items'] = nil;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [anObject], smalltalk.HLNavigationListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVar_", [anObject]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selection",
			
 
				-smalltalk.method({
			
 
				-selector: "selection",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@model'], "_selection", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_variables",
			
 
				-smalltalk.method({
			
 
				-selector: "variables",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@model'], "_variables", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-
			
 
				-
			
--- a/js/Helios-Inspector.js
+++ b/js/Helios-Inspector.js
@@ -1,1155 +0,0 @@
 
				-smalltalk.addPackage('Helios-Inspector', {});
			
 
				-smalltalk.addClass('HLInspector', smalltalk.HLWidget, ['model', 'variablesWidget', 'displayWidget', 'codeWidget', 'label'], 'Helios-Inspector');
			
 
				-smalltalk.addMethod(
			
 
				-"_codeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "codeWidget",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
			
 
				-        smalltalk.send($2, "_model_", [smalltalk.send(self['@model'], "_code", [])]);
			
 
				-        smalltalk.send($2, "_receiver_", [smalltalk.send(self['@model'], "_inspectee", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        self['@codeWidget'] = $3;
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "codeWidget\x0a\x09^ codeWidget ifNil: [\x0a\x09\x09codeWidget := HLCodeWidget new\x0a    \x09\x09model: model code;\x0a        \x09receiver: model inspectee;\x0a        \x09yourself ]",
			
 
				-messageSends: ["ifNil:", "model:", "code", "new", "receiver:", "inspectee", "yourself"],
			
 
				-referencedClasses: ["HLCodeWidget"]
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_displayWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "displayWidget",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    if (($receiver = self['@displayWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(smalltalk.HLInspectorDisplayWidget || HLInspectorDisplayWidget, "_new", []);
			
 
				-        smalltalk.send($2, "_model_", [smalltalk.send(self, "_model", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        self['@displayWidget'] = $3;
			
 
				-        $1 = self['@displayWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@displayWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "displayWidget\x0a\x09^ displayWidget ifNil: [\x0a\x09\x09displayWidget := HLInspectorDisplayWidget new\x0a    \x09\x09model: self model;\x0a        \x09yourself ]",
			
 
				-messageSends: ["ifNil:", "model:", "model", "new", "yourself"],
			
 
				-referencedClasses: ["HLInspectorDisplayWidget"]
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspect_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspect:",
			
 
				-category: 'actions',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_inspect_on_", [anObject, self]);
			
 
				-    smalltalk.send(self, "_refreshVariablesWidget", []);
			
 
				-    $1 = smalltalk.send(self, "_refreshDisplayWidget", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "inspect: anObject\x0a\x09self model inspect: anObject on: self.\x0a    \x0a\x09self \x0a    \x09refreshVariablesWidget;\x0a\x09\x09refreshDisplayWidget",
			
 
				-messageSends: ["inspect:on:", "model", "refreshVariablesWidget", "refreshDisplayWidget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectee",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectee",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_inspectee", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "inspectee\x0a\x09^ self model inspectee",
			
 
				-messageSends: ["inspectee", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectee_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectee:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_inspectee_", [anObject]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "inspectee: anObject\x0a\x09self model inspectee: anObject",
			
 
				-messageSends: ["inspectee:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@label']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(self['@model'], "_inspectee", []), "_printString", []);
			
 
				-    } else {
			
 
				-        $1 = self['@label'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a    ^ label ifNil: [ model inspectee printString ]",
			
 
				-messageSends: ["ifNil:", "printString", "inspectee"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
			
 
				-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLInspectorModel || HLInspectorModel, "_new", [])]);
			
 
				-        $1 = self['@model'];
			
 
				-    } else {
			
 
				-        $1 = self['@model'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "model\x0a\x09^ model ifNil: [ \x0a    \x09self model: HLInspectorModel new.\x0a\x09\x09model ]",
			
 
				-messageSends: ["ifNil:", "model:", "new"],
			
 
				-referencedClasses: ["HLInspectorModel"]
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    self['@model'] = aModel;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_model_", [smalltalk.send(aModel, "_code", [])]);
			
 
				-    smalltalk.send(self, "_observeCodeWidget", []);
			
 
				-    smalltalk.send(self, "_observeVariablesWidget", []);
			
 
				-    $1 = smalltalk.send(self, "_observeModel", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aModel"],
			
 
				-source: "model: aModel\x0a\x09model := aModel. \x0a    self codeWidget model: aModel code.\x0a    \x0a    self \x0a        observeCodeWidget;\x0a    \x09observeVariablesWidget;\x0a        observeModel",
			
 
				-messageSends: ["model:", "code", "codeWidget", "observeCodeWidget", "observeVariablesWidget", "observeModel"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeCodeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "observeCodeWidget",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_announcer", []), "_on_do_", [smalltalk.HLDoItExecuted || HLDoItExecuted, function () {return smalltalk.send(self, "_onDoneIt", []);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeCodeWidget\x0a\x09self codeWidget announcer \x0a    \x09on: HLDoItExecuted \x0a        do: [ self onDoneIt ]\x0a",
			
 
				-messageSends: ["on:do:", "onDoneIt", "announcer", "codeWidget"],
			
 
				-referencedClasses: ["HLDoItExecuted"]
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeModel",
			
 
				-smalltalk.method({
			
 
				-selector: "observeModel",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []), "_on_do_", [smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected, function (ann) {return smalltalk.send(self, "_onInstanceVariableSelected", []);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeModel\x0a\x09self model announcer\x0a        on: HLInstanceVariableSelected do: [ :ann | self onInstanceVariableSelected ]",
			
 
				-messageSends: ["on:do:", "onInstanceVariableSelected", "announcer", "model"],
			
 
				-referencedClasses: ["HLInstanceVariableSelected"]
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeVariablesWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "observeVariablesWidget",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_variablesWidget", []), "_announcer", []);
			
 
				-    smalltalk.send($1, "_on_do_", [smalltalk.HLRefreshRequested || HLRefreshRequested, function (ann) {return smalltalk.send(self, "_onRefresh", []);}]);
			
 
				-    $2 = smalltalk.send($1, "_on_do_", [smalltalk.HLDiveRequested || HLDiveRequested, function () {return smalltalk.send(self, "_onDive", []);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeVariablesWidget\x0a\x09self variablesWidget announcer \x0a    \x09on: HLRefreshRequested do: [ :ann | self onRefresh ];\x0a        on: HLDiveRequested do:[ self onDive ]\x0a        ",
			
 
				-messageSends: ["on:do:", "onRefresh", "announcer", "variablesWidget", "onDive"],
			
 
				-referencedClasses: ["HLRefreshRequested", "HLDiveRequested"]
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onDive",
			
 
				-smalltalk.method({
			
 
				-selector: "onDive",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_inspect_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVarObject", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onDive\x0a\x0a\x09self inspect: self model selectedInstVarObject",
			
 
				-messageSends: ["inspect:", "selectedInstVarObject", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onDoneIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onDoneIt",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onDoneIt\x0a\x0a\x09self refresh",
			
 
				-messageSends: ["refresh"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onInspectIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onInspectIt",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onInspectIt",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onInstanceVariableSelected",
			
 
				-smalltalk.method({
			
 
				-selector: "onInstanceVariableSelected",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_receiver_", [smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVarObject", [])]);
			
 
				-    smalltalk.send(self, "_refreshDisplayWidget", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onInstanceVariableSelected\x0a\x09self codeWidget receiver: self model selectedInstVarObject.\x0a\x09self refreshDisplayWidget",
			
 
				-messageSends: ["receiver:", "selectedInstVarObject", "model", "codeWidget", "refreshDisplayWidget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPrintIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onPrintIt",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onPrintIt",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onRefresh",
			
 
				-smalltalk.method({
			
 
				-selector: "onRefresh",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onRefresh\x0a\x0a\x09self refresh",
			
 
				-messageSends: ["refresh"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_open",
			
 
				-smalltalk.method({
			
 
				-selector: "open",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_addTab_", [smalltalk.send(smalltalk.HLTab || HLTab, "_on_labelled_", [self, smalltalk.send(self, "_tabLabel", [])])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "open\x0a\x09HLManager current addTab: (HLTab on: self labelled: self tabLabel)\x0a",
			
 
				-messageSends: ["addTab:", "on:labelled:", "tabLabel", "current"],
			
 
				-referencedClasses: ["HLTab", "HLManager"]
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refresh",
			
 
				-smalltalk.method({
			
 
				-selector: "refresh",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_inspect_", [smalltalk.send(self, "_inspectee", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "refresh\x0a\x09self inspect: self inspectee",
			
 
				-messageSends: ["inspect:", "inspectee"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refreshDisplayWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "refreshDisplayWidget",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_displayWidget", []), "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "refreshDisplayWidget\x0a\x09self displayWidget refresh",
			
 
				-messageSends: ["refresh", "displayWidget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refreshVariablesWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "refreshVariablesWidget",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_variablesWidget", []), "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "refreshVariablesWidget\x0a\x09self variablesWidget refresh",
			
 
				-messageSends: ["refresh", "variablesWidget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(smalltalk.HLContainer || HLContainer, "_with_", [smalltalk.send(smalltalk.HLHorizontalSplitter || HLHorizontalSplitter, "_with_with_", [smalltalk.send(smalltalk.HLVerticalSplitter || HLVerticalSplitter, "_with_with_", [smalltalk.send(self, "_variablesWidget", []), smalltalk.send(self, "_displayWidget", [])]), smalltalk.send(self, "_codeWidget", [])])])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a   \x09html with: (HLContainer with: (HLHorizontalSplitter\x0a    \x09with: (HLVerticalSplitter \x0a            \x09\x09with: self variablesWidget\x0a            \x09    with: self displayWidget)\x0a        with: self codeWidget))\x0a ",
			
 
				-messageSends: ["with:", "with:with:", "variablesWidget", "displayWidget", "codeWidget"],
			
 
				-referencedClasses: ["HLVerticalSplitter", "HLHorizontalSplitter", "HLContainer"]
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setLabel_",
			
 
				-smalltalk.method({
			
 
				-selector: "setLabel:",
			
 
				-category: 'actions',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    self['@label'] = aString;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "setLabel: aString\x0a\x09label := aString",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setVariables_",
			
 
				-smalltalk.method({
			
 
				-selector: "setVariables:",
			
 
				-category: 'actions',
			
 
				-fn: function (aDictionary) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_variables_", [aDictionary]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aDictionary"],
			
 
				-source: "setVariables: aDictionary\x0a\x09self model variables: aDictionary",
			
 
				-messageSends: ["variables:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_label", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabLabel\x0a    ^ self label",
			
 
				-messageSends: ["label"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_variablesWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "variablesWidget",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    if (($receiver = self['@variablesWidget']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(smalltalk.HLInspectorVariablesWidget ||
			
 
				-            HLInspectorVariablesWidget, "_new", []);
			
 
				-        smalltalk.send($2, "_model_", [smalltalk.send(self, "_model", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        self['@variablesWidget'] = $3;
			
 
				-        $1 = self['@variablesWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@variablesWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "variablesWidget\x0a\x09^ variablesWidget ifNil: [\x0a\x09\x09variablesWidget := HLInspectorVariablesWidget new\x0a    \x09\x09model: self model;\x0a        \x09yourself ]",
			
 
				-messageSends: ["ifNil:", "model:", "model", "new", "yourself"],
			
 
				-referencedClasses: ["HLInspectorVariablesWidget"]
			
 
				-}),
			
 
				-smalltalk.HLInspector);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "canBeOpenAsTab\x0a\x09^ false",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Inspector";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabLabel\x0a\x09^ 'Inspector'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 10;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabPriority\x0a\x09^ 10",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspector.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInspectorDisplayWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Inspector');
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "model\x0a\x0a\x09^ model",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorDisplayWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aModel;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aModel"],
			
 
				-source: "model: aModel\x0a\x0a\x09model := aModel",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorDisplayWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(html, "_div", []), "_with_", [smalltalk.send(self, "_selectionDisplayString", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a\x09\x0a    html div with: self selectionDisplayString\x0a    ",
			
 
				-messageSends: ["with:", "selectionDisplayString", "div"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorDisplayWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionDisplayString",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionDisplayString",
			
 
				-category: 'rendering',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    var selection;
			
 
				-    selection = smalltalk.send(self['@model'], "_selection", []);
			
 
				-    $2 = smalltalk.send(smalltalk.send(smalltalk.send(self['@model'], "_variables", []), "_keys", []), "_includes_", [selection]);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(self['@model'], "_instVarObjectAt_", [selection]), "_printString", []);
			
 
				-    } else {
			
 
				-        $1 = "";
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectionDisplayString\x0a\x09|selection|\x0a\x09selection := model selection.\x0a    ^ (model variables keys includes: selection)\x0a    \x09ifTrue:[(model instVarObjectAt: selection) printString]\x0a      \x09ifFalse:['']",
			
 
				-messageSends: ["selection", "ifTrue:ifFalse:", "printString", "instVarObjectAt:", "includes:", "keys", "variables"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorDisplayWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInspectorModel', smalltalk.Object, ['announcer', 'environment', 'inspectee', 'code', 'variables', 'selection'], 'Helios-Inspector');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "announcer\x0a\x09^ announcer ifNil: [announcer := Announcer new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["Announcer"]
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_code",
			
 
				-smalltalk.method({
			
 
				-selector: "code",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@code']) == nil || $receiver == undefined) {
			
 
				-        self['@code'] = smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_on_", [smalltalk.send(self, "_environment", [])]);
			
 
				-        $1 = self['@code'];
			
 
				-    } else {
			
 
				-        $1 = self['@code'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "code\x0a\x09\x22Answers the code model working for this workspace model\x22\x0a\x09^ code ifNil:[ code := HLCodeModel on: self environment ]",
			
 
				-messageSends: ["ifNil:", "on:", "environment"],
			
 
				-referencedClasses: ["HLCodeModel"]
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
			
 
				-messageSends: ["ifNil:", "environment", "current"],
			
 
				-referencedClasses: ["HLManager"]
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anEnvironment"],
			
 
				-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspect_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspect:on:",
			
 
				-category: 'actions',
			
 
				-fn: function (anObject, anInspector) {
			
 
				-    var self = this;
			
 
				-    self['@inspectee'] = anObject;
			
 
				-    self['@variables'] = [];
			
 
				-    smalltalk.send(self['@inspectee'], "_inspectOn_", [anInspector]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject", "anInspector"],
			
 
				-source: "inspect: anObject on: anInspector\x0a\x09inspectee := anObject.\x0a\x09variables := #().\x0a\x09inspectee inspectOn: anInspector    \x0a",
			
 
				-messageSends: ["inspectOn:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectee",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectee",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@inspectee'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "inspectee \x0a\x09^ inspectee ",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectee_",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectee:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@inspectee'] = anObject;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "inspectee: anObject \x0a\x09inspectee := anObject\x0a    ",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_instVarObjectAt_",
			
 
				-smalltalk.method({
			
 
				-selector: "instVarObjectAt:",
			
 
				-category: 'actions',
			
 
				-fn: function (anInstVarName) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_variables", []), "_at_", [anInstVarName]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anInstVarName"],
			
 
				-source: "instVarObjectAt: anInstVarName\x0a\x09^ self variables at: anInstVarName",
			
 
				-messageSends: ["at:", "variables"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "onKeyDown:",
			
 
				-category: 'reactions',
			
 
				-fn: function (anEvent) {
			
 
				-    var self = this;
			
 
				-    if (anEvent.ctrlKey) {
			
 
				-        if (anEvent.keyCode === 80) {
			
 
				-            self._printIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 68) {
			
 
				-            self._doIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 73) {
			
 
				-            self._inspectIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anEvent"],
			
 
				-source: "onKeyDown: anEvent\x0a\x0a\x09<if(anEvent.ctrlKey) {\x0a\x09\x09if(anEvent.keyCode === 80) { //ctrl+p\x0a\x09\x09\x09self._printIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 68) { //ctrl+d\x0a\x09\x09\x09self._doIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 73) { //ctrl+i\x0a\x09\x09\x09self._inspectIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09}>",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedInstVar_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedInstVar:",
			
 
				-category: 'actions',
			
 
				-fn: function (anInstVarName) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selection_", [anInstVarName]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInstVarName"],
			
 
				-source: "selectedInstVar: anInstVarName\x0a    self selection: anInstVarName",
			
 
				-messageSends: ["selection:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedInstVarObject",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedInstVarObject",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self, "_instVarObjectAt_", [smalltalk.send(self, "_selection", [])]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectedInstVarObject\x0a\x09^ self instVarObjectAt: self selection\x0a    ",
			
 
				-messageSends: ["instVarObjectAt:", "selection"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selection",
			
 
				-smalltalk.method({
			
 
				-selector: "selection",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@selection']) == nil || $receiver == undefined) {
			
 
				-        $1 = "";
			
 
				-    } else {
			
 
				-        $1 = self['@selection'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selection\x0a\x09^ selection ifNil:[ '' ] ",
			
 
				-messageSends: ["ifNil:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selection_",
			
 
				-smalltalk.method({
			
 
				-selector: "selection:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@selection'] = anObject;
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected, "_on_", [self['@selection']])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "selection: anObject\x0a\x09selection := anObject.\x0a\x0a\x09self announcer announce: (HLInstanceVariableSelected on: selection)\x0a    ",
			
 
				-messageSends: ["announce:", "on:", "announcer"],
			
 
				-referencedClasses: ["HLInstanceVariableSelected"]
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_subscribe_",
			
 
				-smalltalk.method({
			
 
				-selector: "subscribe:",
			
 
				-category: 'actions',
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aWidget, "_subscribeTo_", [smalltalk.send(self, "_announcer", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aWidget"],
			
 
				-source: "subscribe: aWidget\x0a\x09aWidget subscribeTo: self announcer",
			
 
				-messageSends: ["subscribeTo:", "announcer"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_variables",
			
 
				-smalltalk.method({
			
 
				-selector: "variables",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@variables'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "variables\x0a\x09^ variables",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_variables_",
			
 
				-smalltalk.method({
			
 
				-selector: "variables:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aCollection) {
			
 
				-    var self = this;
			
 
				-    self['@variables'] = aCollection;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aCollection"],
			
 
				-source: "variables: aCollection\x0a\x09variables := aCollection\x0a    ",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'actions',
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_environment_", [anEnvironment]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anEnvironment"],
			
 
				-source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
			
 
				-messageSends: ["environment:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorModel.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLInspectorVariablesWidget', smalltalk.HLNavigationListWidget, ['announcer', 'model', 'list', 'diveButton'], 'Helios-Inspector');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "announcer\x0a\x09^ announcer ifNil:[ announcer := Announcer new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["Announcer"]
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_defaultItems",
			
 
				-smalltalk.method({
			
 
				-selector: "defaultItems",
			
 
				-category: 'defaults',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(self, "_model", []), "_variables", []), "_keys", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "defaultItems\x0a\x09^ self model variables keys",
			
 
				-messageSends: ["keys", "variables", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@model'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "model\x0a    ^ model\x0a        ",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aModel;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aModel"],
			
 
				-source: "model: aModel\x0a    model := aModel\x0a        ",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_refresh",
			
 
				-smalltalk.method({
			
 
				-selector: "refresh",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_resetItems", []);
			
 
				-    smalltalk.send(self, "_refresh", [], smalltalk.HLNavigationListWidget);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "refresh\x0a\x09self resetItems.\x0a    super refresh\x0a    ",
			
 
				-messageSends: ["resetItems", "refresh"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderButtonsOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderButtonsOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2, $3, $4;
			
 
				-    $1 = smalltalk.send(html, "_button", []);
			
 
				-    smalltalk.send($1, "_class_", ["btn"]);
			
 
				-    smalltalk.send($1, "_with_", ["Refresh"]);
			
 
				-    $2 = smalltalk.send($1, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLRefreshRequested || HLRefreshRequested, "_new", [])]);}]);
			
 
				-    $3 = smalltalk.send(html, "_button", []);
			
 
				-    smalltalk.send($3, "_class_", ["btn"]);
			
 
				-    smalltalk.send($3, "_with_", ["Dive"]);
			
 
				-    $4 = smalltalk.send($3, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDiveRequested || HLDiveRequested, "_new", [])]);}]);
			
 
				-    self['@diveButton'] = $4;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderButtonsOn: html\x0a\x0a\x09html button\x0a\x09\x09\x09class: 'btn';\x0a\x09\x09\x09with: 'Refresh';\x0a\x09\x09\x09onClick: [self announcer announce: HLRefreshRequested new].\x0a\x0a\x09diveButton := html button \x0a\x09\x09\x09\x09class: 'btn';\x0a\x09\x09\x09\x09with: 'Dive'; \x0a\x09\x09\x09\x09onClick: [self announcer announce: HLDiveRequested new]",
			
 
				-messageSends: ["class:", "button", "with:", "onClick:", "announce:", "new", "announcer"],
			
 
				-referencedClasses: ["HLRefreshRequested", "HLDiveRequested"]
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resetItems",
			
 
				-smalltalk.method({
			
 
				-selector: "resetItems",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@items'] = nil;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "resetItems\x0a\x09items := nil",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectItem_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectItem:",
			
 
				-category: 'reactions',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_selectItem_", [anObject], smalltalk.HLNavigationListWidget);
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_selectedInstVar_", [anObject]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "selectItem: anObject\x0a\x09super selectItem: anObject.\x0a    self model selectedInstVar: anObject",
			
 
				-messageSends: ["selectItem:", "selectedInstVar:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selection",
			
 
				-smalltalk.method({
			
 
				-selector: "selection",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@model'], "_selection", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selection\x0a\x09^ model selection",
			
 
				-messageSends: ["selection"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_variables",
			
 
				-smalltalk.method({
			
 
				-selector: "variables",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@model'], "_variables", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "variables\x0a\x09^ model variables",
			
 
				-messageSends: ["variables"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLInspectorVariablesWidget);
			
 
				-
			
 
				-
			
 
				-
			
--- a/js/Helios-KeyBindings.deploy.js
+++ b/js/Helios-KeyBindings.deploy.js
@@ -1,753 +0,0 @@
 
				-smalltalk.addPackage('Helios-KeyBindings', {});
			
 
				-smalltalk.addClass('HLBinding', smalltalk.Object, ['key', 'label'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_applyOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyOn:",
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_subclassResponsibility", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isBindingAction",
			
 
				-smalltalk.method({
			
 
				-selector: "isBindingAction",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isBindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "isBindingGroup",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@key'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key_",
			
 
				-smalltalk.method({
			
 
				-selector: "key:",
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    self['@key'] = anInteger;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@label'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label_",
			
 
				-smalltalk.method({
			
 
				-selector: "label:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    self['@label'] = aString;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_html_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:html:",
			
 
				-fn: function (aBindingHelper, html) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_shortcut",
			
 
				-smalltalk.method({
			
 
				-selector: "shortcut",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.String || String, "_fromCharCode_", [smalltalk.send(self, "_key", [])]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_labelled_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:labelled:",
			
 
				-fn: function (anInteger, aString) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_key_", [anInteger]);
			
 
				-    smalltalk.send($2, "_label_", [aString]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBinding.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBindingAction', smalltalk.HLBinding, ['callback'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_applyOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyOn:",
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aKeyBinder, "_applyBindingAction_", [self]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingAction);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_callback",
			
 
				-smalltalk.method({
			
 
				-selector: "callback",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@callback'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingAction);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_callback_",
			
 
				-smalltalk.method({
			
 
				-selector: "callback:",
			
 
				-fn: function (aBlock) {
			
 
				-    var self = this;
			
 
				-    self['@callback'] = aBlock;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingAction);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isBindingAction",
			
 
				-smalltalk.method({
			
 
				-selector: "isBindingAction",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingAction);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBindingGroup', smalltalk.HLBinding, ['bindings'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_add_",
			
 
				-smalltalk.method({
			
 
				-selector: "add:",
			
 
				-fn: function (aBinding) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_add_", [aBinding]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_addActionKey_labelled_callback_",
			
 
				-smalltalk.method({
			
 
				-selector: "addActionKey:labelled:callback:",
			
 
				-fn: function (anInteger, aString, aBlock) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [anInteger, aString]);
			
 
				-    smalltalk.send($1, "_callback_", [aBlock]);
			
 
				-    $2 = smalltalk.send($1, "_yourself", []);
			
 
				-    smalltalk.send(self, "_add_", [$2]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_addActionKey_labelled_command_",
			
 
				-smalltalk.method({
			
 
				-selector: "addActionKey:labelled:command:",
			
 
				-fn: function (anInteger, aString, aCommand) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [anInteger, aString]);
			
 
				-    smalltalk.send($1, "_command_", [aCommand]);
			
 
				-    $2 = smalltalk.send($1, "_yourself", []);
			
 
				-    smalltalk.send(self, "_add_", [$2]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_addGroupKey_labelled_",
			
 
				-smalltalk.method({
			
 
				-selector: "addGroupKey:labelled:",
			
 
				-fn: function (anInteger, aString) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_add_", [smalltalk.send(smalltalk.HLBindingGroup || HLBindingGroup, "_on_labelled_", [anInteger, aString])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_applyOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyOn:",
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aKeyBinder, "_applyBindingGroup_", [self]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_at_",
			
 
				-smalltalk.method({
			
 
				-selector: "at:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_detect_ifNone_", [function (each) {return smalltalk.send(smalltalk.send(each, "_label", []), "__eq", [aString]);}, function () {return nil;}]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_atKey_",
			
 
				-smalltalk.method({
			
 
				-selector: "atKey:",
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_detect_ifNone_", [function (each) {return smalltalk.send(smalltalk.send(each, "_key", []), "__eq", [anInteger]);}, function () {return nil;}]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindings",
			
 
				-smalltalk.method({
			
 
				-selector: "bindings",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@bindings']) == nil || $receiver == undefined) {
			
 
				-        self['@bindings'] = smalltalk.send(smalltalk.OrderedCollection || OrderedCollection, "_new", []);
			
 
				-        $1 = self['@bindings'];
			
 
				-    } else {
			
 
				-        $1 = self['@bindings'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isBindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "isBindingGroup",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_html_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:html:",
			
 
				-fn: function (aBindingHelper, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aBindingHelper, "_renderBindingGroup_on_", [self, html]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLKeyBinder', smalltalk.Object, ['modifierKey', 'active', 'helper', 'bindings', 'selectedBinding'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_activate",
			
 
				-smalltalk.method({
			
 
				-selector: "activate",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@active'] = true;
			
 
				-    smalltalk.send(smalltalk.send(self, "_helper", []), "_show", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_activationKey",
			
 
				-smalltalk.method({
			
 
				-selector: "activationKey",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 32;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_applyBinding_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyBinding:",
			
 
				-fn: function (aBinding) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aBinding, "_applyOn_", [self]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_applyBindingAction_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyBindingAction:",
			
 
				-fn: function (aBinding) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(aBinding, "_callback", []), "_value", []);
			
 
				-    smalltalk.send(self, "_deactivate", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_applyBindingGroup_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyBindingGroup:",
			
 
				-fn: function (aBinding) {
			
 
				-    var self = this;
			
 
				-    self['@selectedBinding'] = aBinding;
			
 
				-    smalltalk.send(smalltalk.send(self, "_helper", []), "_refresh", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindings",
			
 
				-smalltalk.method({
			
 
				-selector: "bindings",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@bindings']) == nil || $receiver == undefined) {
			
 
				-        self['@bindings'] = smalltalk.send(smalltalk.HLBindingGroup || HLBindingGroup, "_new", []);
			
 
				-        $1 = self['@bindings'];
			
 
				-    } else {
			
 
				-        $1 = self['@bindings'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_deactivate",
			
 
				-smalltalk.method({
			
 
				-selector: "deactivate",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@active'] = false;
			
 
				-    self['@selectedBinding'] = nil;
			
 
				-    smalltalk.send(smalltalk.send(self, "_helper", []), "_hide", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_escapeKey",
			
 
				-smalltalk.method({
			
 
				-selector: "escapeKey",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 27;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_flushBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "flushBindings",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@bindings'] = nil;
			
 
				-    self['@helper'] = nil;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_handleActiveKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "handleActiveKeyDown:",
			
 
				-fn: function (event) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [smalltalk.send(self, "_escapeKey", [])]), "_or_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [71]), "_and_", [function () {return smalltalk.send(event, "_ctrlKey", []);}]);}]);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        smalltalk.send(self, "_deactivate", []);
			
 
				-        smalltalk.send(event, "_preventDefault", []);
			
 
				-        return false;
			
 
				-    }
			
 
				-    $2 = smalltalk.send(self, "_handleBindingFor_", [event]);
			
 
				-    return $2;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_handleBindingFor_",
			
 
				-smalltalk.method({
			
 
				-selector: "handleBindingFor:",
			
 
				-fn: function (anEvent) {
			
 
				-    var self = this;
			
 
				-    var binding;
			
 
				-    binding = smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_atKey_", [smalltalk.send(anEvent, "_which", [])]);
			
 
				-    if (($receiver = binding) == nil || $receiver == undefined) {
			
 
				-    } else {
			
 
				-        smalltalk.send(self, "_applyBinding_", [binding]);
			
 
				-        smalltalk.send(anEvent, "_preventDefault", []);
			
 
				-        return false;
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_handleInactiveKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "handleInactiveKeyDown:",
			
 
				-fn: function (event) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [smalltalk.send(self, "_activationKey", [])]);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        $2 = smalltalk.send(event, "_ctrlKey", []);
			
 
				-        if (smalltalk.assert($2)) {
			
 
				-            smalltalk.send(self, "_activate", []);
			
 
				-            smalltalk.send(event, "_preventDefault", []);
			
 
				-            return false;
			
 
				-        }
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_handleKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "handleKeyDown:",
			
 
				-fn: function (event) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(self, "_isActive", []);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = smalltalk.send(self, "_handleActiveKeyDown_", [event]);
			
 
				-    } else {
			
 
				-        $1 = smalltalk.send(self, "_handleInactiveKeyDown_", [event]);
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_helper",
			
 
				-smalltalk.method({
			
 
				-selector: "helper",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@helper']) == nil || $receiver == undefined) {
			
 
				-        self['@helper'] = smalltalk.send(smalltalk.HLKeyBinderHelper || HLKeyBinderHelper, "_on_", [self]);
			
 
				-        $1 = self['@helper'];
			
 
				-    } else {
			
 
				-        $1 = self['@helper'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initialize",
			
 
				-smalltalk.method({
			
 
				-selector: "initialize",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_initialize", [], smalltalk.Object);
			
 
				-    self['@active'] = false;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isActive",
			
 
				-smalltalk.method({
			
 
				-selector: "isActive",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@active']) == nil || $receiver == undefined) {
			
 
				-        $1 = false;
			
 
				-    } else {
			
 
				-        $1 = self['@active'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedBinding",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedBinding",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@selectedBinding']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(self, "_bindings", []);
			
 
				-    } else {
			
 
				-        $1 = self['@selectedBinding'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupEvents",
			
 
				-smalltalk.method({
			
 
				-selector: "setupEvents",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["body"]), "_keydown_", [function (event) {return smalltalk.send(self, "_handleKeyDown_", [event]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_systemIsMac",
			
 
				-smalltalk.method({
			
 
				-selector: "systemIsMac",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(navigator, "_platform", []), "_match_", ["Mac"]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLKeyBinderHelper', smalltalk.HLWidget, ['keyBinder'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_hide",
			
 
				-smalltalk.method({
			
 
				-selector: "hide",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@rootDiv'], "_asJQuery", []), "_remove", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_keyBinder",
			
 
				-smalltalk.method({
			
 
				-selector: "keyBinder",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@keyBinder'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_keyBinder_",
			
 
				-smalltalk.method({
			
 
				-selector: "keyBinder:",
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    self['@keyBinder'] = aKeyBinder;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_registerBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "registerBindings",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderBindingGroup_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderBindingGroup:on:",
			
 
				-fn: function (aBindingGroup, html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $5, $6, $2;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(aBindingGroup, "_bindings", []), "_sorted_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_key", []), "__lt", [smalltalk.send(b, "_key", [])]);}]), "_do_", [function (each) {$1 = smalltalk.send(html, "_span", []);smalltalk.send($1, "_class_", ["command"]);$2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_span", []);smalltalk.send($3, "_class_", ["label"]);$4 = smalltalk.send($3, "_with_", [smalltalk.send(smalltalk.send(each, "_shortcut", []), "_asLowercase", [])]);$4;$5 = smalltalk.send(html, "_a", []);smalltalk.send($5, "_class_", ["action"]);smalltalk.send($5, "_with_", [smalltalk.send(each, "_label", [])]);$6 = smalltalk.send($5, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_applyBinding_", [each]);}]);return $6;}]);return $2;}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderBindingOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderBindingOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_renderOn_html_", [self, html]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $2;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", ["key_helper"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {smalltalk.send(self, "_renderSelectionOn_", [html]);$3 = smalltalk.send(self, "_renderBindingOn_", [html]);return $3;}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderSelectionOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderSelectionOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $4, $3, $2;
			
 
				-    $1 = smalltalk.send(html, "_span", []);
			
 
				-    smalltalk.send($1, "_class_", ["selected"]);
			
 
				-    $4 = smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_label", []);
			
 
				-    if (($receiver = $4) == nil || $receiver == undefined) {
			
 
				-        $3 = "Action";
			
 
				-    } else {
			
 
				-        $3 = $4;
			
 
				-    }
			
 
				-    $2 = smalltalk.send($1, "_with_", [$3]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedBinding",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedBinding",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_selectedBinding", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_show",
			
 
				-smalltalk.method({
			
 
				-selector: "show",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_keyBinder_", [aKeyBinder]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper.klass);
			
 
				-
			
 
				-
			
--- a/js/Helios-KeyBindings.js
+++ b/js/Helios-KeyBindings.js
@@ -1,1023 +0,0 @@
 
				-smalltalk.addPackage('Helios-KeyBindings', {});
			
 
				-smalltalk.addClass('HLBinding', smalltalk.Object, ['key', 'label'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_applyOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyOn:",
			
 
				-category: 'actions',
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_subclassResponsibility", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aKeyBinder"],
			
 
				-source: "applyOn: aKeyBinder\x0a\x09self subclassResponsibility",
			
 
				-messageSends: ["subclassResponsibility"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isBindingAction",
			
 
				-smalltalk.method({
			
 
				-selector: "isBindingAction",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "isBindingAction\x0a\x09^ false",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isBindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "isBindingGroup",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "isBindingGroup\x0a\x09^ false",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key",
			
 
				-smalltalk.method({
			
 
				-selector: "key",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@key'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "key\x0a\x09^ key",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_key_",
			
 
				-smalltalk.method({
			
 
				-selector: "key:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    self['@key'] = anInteger;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInteger"],
			
 
				-source: "key: anInteger\x0a\x09key := anInteger",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label",
			
 
				-smalltalk.method({
			
 
				-selector: "label",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@label'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "label\x0a\x09^ label",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_label_",
			
 
				-smalltalk.method({
			
 
				-selector: "label:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    self['@label'] = aString;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "label: aString\x0a\x09label := aString",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_html_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:html:",
			
 
				-category: 'rendering',
			
 
				-fn: function (aBindingHelper, html) {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBindingHelper", "html"],
			
 
				-source: "renderOn: aBindingHelper html: html",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_shortcut",
			
 
				-smalltalk.method({
			
 
				-selector: "shortcut",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.String || String, "_fromCharCode_", [smalltalk.send(self, "_key", [])]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "shortcut\x0a\x09^ String fromCharCode: self key",
			
 
				-messageSends: ["fromCharCode:", "key"],
			
 
				-referencedClasses: ["String"]
			
 
				-}),
			
 
				-smalltalk.HLBinding);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_labelled_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:labelled:",
			
 
				-category: 'instance creation',
			
 
				-fn: function (anInteger, aString) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_key_", [anInteger]);
			
 
				-    smalltalk.send($2, "_label_", [aString]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anInteger", "aString"],
			
 
				-source: "on: anInteger labelled: aString\x0a\x09^ self new\x0a    \x09key: anInteger;\x0a        label: aString;\x0a        yourself",
			
 
				-messageSends: ["key:", "new", "label:", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBinding.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBindingAction', smalltalk.HLBinding, ['callback'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_applyOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyOn:",
			
 
				-category: 'actions',
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aKeyBinder, "_applyBindingAction_", [self]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aKeyBinder"],
			
 
				-source: "applyOn: aKeyBinder\x0a\x09aKeyBinder applyBindingAction: self",
			
 
				-messageSends: ["applyBindingAction:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingAction);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_callback",
			
 
				-smalltalk.method({
			
 
				-selector: "callback",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@callback'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "callback\x0a\x09^ callback",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingAction);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_callback_",
			
 
				-smalltalk.method({
			
 
				-selector: "callback:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aBlock) {
			
 
				-    var self = this;
			
 
				-    self['@callback'] = aBlock;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBlock"],
			
 
				-source: "callback: aBlock\x0a\x09callback := aBlock",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingAction);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isBindingAction",
			
 
				-smalltalk.method({
			
 
				-selector: "isBindingAction",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "isBindingAction\x0a\x09^ true",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingAction);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLBindingGroup', smalltalk.HLBinding, ['bindings'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_add_",
			
 
				-smalltalk.method({
			
 
				-selector: "add:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aBinding) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_add_", [aBinding]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aBinding"],
			
 
				-source: "add: aBinding\x0a\x09^ self bindings add: aBinding",
			
 
				-messageSends: ["add:", "bindings"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_addActionKey_labelled_callback_",
			
 
				-smalltalk.method({
			
 
				-selector: "addActionKey:labelled:callback:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anInteger, aString, aBlock) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [anInteger, aString]);
			
 
				-    smalltalk.send($1, "_callback_", [aBlock]);
			
 
				-    $2 = smalltalk.send($1, "_yourself", []);
			
 
				-    smalltalk.send(self, "_add_", [$2]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInteger", "aString", "aBlock"],
			
 
				-source: "addActionKey: anInteger labelled: aString callback: aBlock\x0a\x09self add: ((HLBindingAction on: anInteger labelled: aString)\x0a    \x09callback: aBlock;\x0a        yourself)",
			
 
				-messageSends: ["add:", "callback:", "on:labelled:", "yourself"],
			
 
				-referencedClasses: ["HLBindingAction"]
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_addActionKey_labelled_command_",
			
 
				-smalltalk.method({
			
 
				-selector: "addActionKey:labelled:command:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anInteger, aString, aCommand) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.HLBindingAction || HLBindingAction, "_on_labelled_", [anInteger, aString]);
			
 
				-    smalltalk.send($1, "_command_", [aCommand]);
			
 
				-    $2 = smalltalk.send($1, "_yourself", []);
			
 
				-    smalltalk.send(self, "_add_", [$2]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInteger", "aString", "aCommand"],
			
 
				-source: "addActionKey: anInteger labelled: aString command: aCommand\x0a\x09self add: ((HLBindingAction on: anInteger labelled: aString)\x0a    \x09command: aCommand;\x0a        yourself)",
			
 
				-messageSends: ["add:", "command:", "on:labelled:", "yourself"],
			
 
				-referencedClasses: ["HLBindingAction"]
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_addGroupKey_labelled_",
			
 
				-smalltalk.method({
			
 
				-selector: "addGroupKey:labelled:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anInteger, aString) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_add_", [smalltalk.send(smalltalk.HLBindingGroup || HLBindingGroup, "_on_labelled_", [anInteger, aString])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInteger", "aString"],
			
 
				-source: "addGroupKey: anInteger labelled: aString\x0a\x09self add: (HLBindingGroup on: anInteger labelled: aString)",
			
 
				-messageSends: ["add:", "on:labelled:"],
			
 
				-referencedClasses: ["HLBindingGroup"]
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_applyOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyOn:",
			
 
				-category: 'actions',
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aKeyBinder, "_applyBindingGroup_", [self]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aKeyBinder"],
			
 
				-source: "applyOn: aKeyBinder\x0a\x09aKeyBinder applyBindingGroup: self",
			
 
				-messageSends: ["applyBindingGroup:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_at_",
			
 
				-smalltalk.method({
			
 
				-selector: "at:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_detect_ifNone_", [function (each) {return smalltalk.send(smalltalk.send(each, "_label", []), "__eq", [aString]);}, function () {return nil;}]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "at: aString\x0a\x09^ self bindings \x0a    \x09detect: [ :each | each label = aString ]\x0a      \x09ifNone: [ nil ]",
			
 
				-messageSends: ["detect:ifNone:", "=", "label", "bindings"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_atKey_",
			
 
				-smalltalk.method({
			
 
				-selector: "atKey:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_bindings", []), "_detect_ifNone_", [function (each) {return smalltalk.send(smalltalk.send(each, "_key", []), "__eq", [anInteger]);}, function () {return nil;}]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anInteger"],
			
 
				-source: "atKey: anInteger\x0a\x09^ self bindings \x0a    \x09detect: [ :each | each key = anInteger ]\x0a      \x09ifNone: [ nil ]",
			
 
				-messageSends: ["detect:ifNone:", "=", "key", "bindings"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindings",
			
 
				-smalltalk.method({
			
 
				-selector: "bindings",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@bindings']) == nil || $receiver == undefined) {
			
 
				-        self['@bindings'] = smalltalk.send(smalltalk.OrderedCollection || OrderedCollection, "_new", []);
			
 
				-        $1 = self['@bindings'];
			
 
				-    } else {
			
 
				-        $1 = self['@bindings'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "bindings\x0a\x09^ bindings ifNil: [ bindings := OrderedCollection new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["OrderedCollection"]
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isBindingGroup",
			
 
				-smalltalk.method({
			
 
				-selector: "isBindingGroup",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "isBindingGroup\x0a\x09^ true",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_html_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:html:",
			
 
				-category: 'rendering',
			
 
				-fn: function (aBindingHelper, html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aBindingHelper, "_renderBindingGroup_on_", [self, html]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBindingHelper", "html"],
			
 
				-source: "renderOn: aBindingHelper html: html\x0a\x09aBindingHelper renderBindingGroup: self on: html",
			
 
				-messageSends: ["renderBindingGroup:on:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLBindingGroup);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLKeyBinder', smalltalk.Object, ['modifierKey', 'active', 'helper', 'bindings', 'selectedBinding'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_activate",
			
 
				-smalltalk.method({
			
 
				-selector: "activate",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@active'] = true;
			
 
				-    smalltalk.send(smalltalk.send(self, "_helper", []), "_show", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "activate\x0a\x09active := true.\x0a\x09self helper show",
			
 
				-messageSends: ["show", "helper"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_activationKey",
			
 
				-smalltalk.method({
			
 
				-selector: "activationKey",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 32;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "activationKey\x0a\x09\x22SPACE\x22\x0a\x09^ 32",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_applyBinding_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyBinding:",
			
 
				-category: 'actions',
			
 
				-fn: function (aBinding) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aBinding, "_applyOn_", [self]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBinding"],
			
 
				-source: "applyBinding: aBinding\x0a    aBinding applyOn: self",
			
 
				-messageSends: ["applyOn:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_applyBindingAction_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyBindingAction:",
			
 
				-category: 'actions',
			
 
				-fn: function (aBinding) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(aBinding, "_callback", []), "_value", []);
			
 
				-    smalltalk.send(self, "_deactivate", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBinding"],
			
 
				-source: "applyBindingAction: aBinding\x0a    aBinding callback value.\x0a\x09self deactivate",
			
 
				-messageSends: ["value", "callback", "deactivate"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_applyBindingGroup_",
			
 
				-smalltalk.method({
			
 
				-selector: "applyBindingGroup:",
			
 
				-category: 'actions',
			
 
				-fn: function (aBinding) {
			
 
				-    var self = this;
			
 
				-    self['@selectedBinding'] = aBinding;
			
 
				-    smalltalk.send(smalltalk.send(self, "_helper", []), "_refresh", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBinding"],
			
 
				-source: "applyBindingGroup: aBinding\x0a    selectedBinding := aBinding.\x0a    self helper refresh",
			
 
				-messageSends: ["refresh", "helper"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_bindings",
			
 
				-smalltalk.method({
			
 
				-selector: "bindings",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@bindings']) == nil || $receiver == undefined) {
			
 
				-        self['@bindings'] = smalltalk.send(smalltalk.HLBindingGroup || HLBindingGroup, "_new", []);
			
 
				-        $1 = self['@bindings'];
			
 
				-    } else {
			
 
				-        $1 = self['@bindings'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "bindings\x0a\x09^ bindings ifNil: [ bindings := HLBindingGroup new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["HLBindingGroup"]
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_deactivate",
			
 
				-smalltalk.method({
			
 
				-selector: "deactivate",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@active'] = false;
			
 
				-    self['@selectedBinding'] = nil;
			
 
				-    smalltalk.send(smalltalk.send(self, "_helper", []), "_hide", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "deactivate\x0a\x09active := false.\x0a    selectedBinding := nil.\x0a\x09self helper hide",
			
 
				-messageSends: ["hide", "helper"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_escapeKey",
			
 
				-smalltalk.method({
			
 
				-selector: "escapeKey",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 27;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "escapeKey\x0a\x09\x22ESC\x22\x0a\x09^ 27",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_flushBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "flushBindings",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    self['@bindings'] = nil;
			
 
				-    self['@helper'] = nil;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "flushBindings\x0a\x09bindings := nil.\x0a    helper := nil",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_handleActiveKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "handleActiveKeyDown:",
			
 
				-category: 'events',
			
 
				-fn: function (event) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [smalltalk.send(self, "_escapeKey", [])]), "_or_", [function () {return smalltalk.send(smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [71]), "_and_", [function () {return smalltalk.send(event, "_ctrlKey", []);}]);}]);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        smalltalk.send(self, "_deactivate", []);
			
 
				-        smalltalk.send(event, "_preventDefault", []);
			
 
				-        return false;
			
 
				-    }
			
 
				-    $2 = smalltalk.send(self, "_handleBindingFor_", [event]);
			
 
				-    return $2;
			
 
				-},
			
 
				-args: ["event"],
			
 
				-source: "handleActiveKeyDown: event\x0a\x0a\x09\x22ESC or ctrl+g deactivate the keyBinder\x22\x0a\x09(event which = self escapeKey or: [\x0a\x09\x09event which = 71 and: [ event ctrlKey ] ])\x0a        \x09ifTrue: [ \x0a            \x09self deactivate.\x0a\x09\x09\x09\x09event preventDefault.\x0a\x09\x09\x09\x09^ false ].\x0a            \x0a    \x22Handle the keybinding\x22\x0a    ^ self handleBindingFor: event",
			
 
				-messageSends: ["ifTrue:", "deactivate", "preventDefault", "or:", "and:", "ctrlKey", "=", "which", "escapeKey", "handleBindingFor:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_handleBindingFor_",
			
 
				-smalltalk.method({
			
 
				-selector: "handleBindingFor:",
			
 
				-category: 'events',
			
 
				-fn: function (anEvent) {
			
 
				-    var self = this;
			
 
				-    var binding;
			
 
				-    binding = smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_atKey_", [smalltalk.send(anEvent, "_which", [])]);
			
 
				-    if (($receiver = binding) == nil || $receiver == undefined) {
			
 
				-    } else {
			
 
				-        smalltalk.send(self, "_applyBinding_", [binding]);
			
 
				-        smalltalk.send(anEvent, "_preventDefault", []);
			
 
				-        return false;
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anEvent"],
			
 
				-source: "handleBindingFor: anEvent\x0a\x09| binding |\x0a    binding := self selectedBinding atKey: anEvent which.\x0a    \x0a    binding ifNotNil: [ \x0a    \x09self applyBinding: binding.\x0a\x09\x09anEvent preventDefault.\x0a\x09\x09^ false ]",
			
 
				-messageSends: ["atKey:", "which", "selectedBinding", "ifNotNil:", "applyBinding:", "preventDefault"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_handleInactiveKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "handleInactiveKeyDown:",
			
 
				-category: 'events',
			
 
				-fn: function (event) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(event, "_which", []), "__eq", [smalltalk.send(self, "_activationKey", [])]);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        $2 = smalltalk.send(event, "_ctrlKey", []);
			
 
				-        if (smalltalk.assert($2)) {
			
 
				-            smalltalk.send(self, "_activate", []);
			
 
				-            smalltalk.send(event, "_preventDefault", []);
			
 
				-            return false;
			
 
				-        }
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["event"],
			
 
				-source: "handleInactiveKeyDown: event\x0a      event which = self activationKey ifTrue: [\x0a      \x09\x09event ctrlKey  ifTrue: [\x0a\x09\x09\x09\x09\x09self activate. \x0a               \x09\x09 event preventDefault. \x0a                \x09^ false ] ]",
			
 
				-messageSends: ["ifTrue:", "activate", "preventDefault", "ctrlKey", "=", "activationKey", "which"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_handleKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "handleKeyDown:",
			
 
				-category: 'events',
			
 
				-fn: function (event) {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(self, "_isActive", []);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = smalltalk.send(self, "_handleActiveKeyDown_", [event]);
			
 
				-    } else {
			
 
				-        $1 = smalltalk.send(self, "_handleInactiveKeyDown_", [event]);
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["event"],
			
 
				-source: "handleKeyDown: event\x0a\x09^ self isActive\x0a    \x09ifTrue: [ self handleActiveKeyDown: event ]\x0a      \x09ifFalse: [ self handleInactiveKeyDown: event ]",
			
 
				-messageSends: ["ifTrue:ifFalse:", "handleActiveKeyDown:", "handleInactiveKeyDown:", "isActive"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_helper",
			
 
				-smalltalk.method({
			
 
				-selector: "helper",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@helper']) == nil || $receiver == undefined) {
			
 
				-        self['@helper'] = smalltalk.send(smalltalk.HLKeyBinderHelper || HLKeyBinderHelper, "_on_", [self]);
			
 
				-        $1 = self['@helper'];
			
 
				-    } else {
			
 
				-        $1 = self['@helper'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "helper\x0a\x09^ helper ifNil: [ helper := HLKeyBinderHelper on: self ]",
			
 
				-messageSends: ["ifNil:", "on:"],
			
 
				-referencedClasses: ["HLKeyBinderHelper"]
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_initialize",
			
 
				-smalltalk.method({
			
 
				-selector: "initialize",
			
 
				-category: 'initialization',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_initialize", [], smalltalk.Object);
			
 
				-    self['@active'] = false;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "initialize\x0a\x09super initialize.\x0a    active := false",
			
 
				-messageSends: ["initialize"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isActive",
			
 
				-smalltalk.method({
			
 
				-selector: "isActive",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@active']) == nil || $receiver == undefined) {
			
 
				-        $1 = false;
			
 
				-    } else {
			
 
				-        $1 = self['@active'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "isActive\x0a\x09^ active ifNil: [ false ]",
			
 
				-messageSends: ["ifNil:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedBinding",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedBinding",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@selectedBinding']) == nil ||
			
 
				-        $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(self, "_bindings", []);
			
 
				-    } else {
			
 
				-        $1 = self['@selectedBinding'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectedBinding\x0a\x09^ selectedBinding ifNil: [ self bindings ]",
			
 
				-messageSends: ["ifNil:", "bindings"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupEvents",
			
 
				-smalltalk.method({
			
 
				-selector: "setupEvents",
			
 
				-category: 'events',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", ["body"]), "_keydown_", [function (event) {return smalltalk.send(self, "_handleKeyDown_", [event]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "setupEvents\x0a\x09(window jQuery: 'body') keydown: [ :event | self handleKeyDown: event ]",
			
 
				-messageSends: ["keydown:", "handleKeyDown:", "jQuery:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_systemIsMac",
			
 
				-smalltalk.method({
			
 
				-selector: "systemIsMac",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(navigator, "_platform", []), "_match_", ["Mac"]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "systemIsMac\x0a\x09^ navigator platform match: 'Mac'",
			
 
				-messageSends: ["match:", "platform"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinder);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLKeyBinderHelper', smalltalk.HLWidget, ['keyBinder'], 'Helios-KeyBindings');
			
 
				-smalltalk.addMethod(
			
 
				-"_hide",
			
 
				-smalltalk.method({
			
 
				-selector: "hide",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@rootDiv'], "_asJQuery", []), "_remove", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "hide\x0a\x09rootDiv asJQuery remove",
			
 
				-messageSends: ["remove", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_keyBinder",
			
 
				-smalltalk.method({
			
 
				-selector: "keyBinder",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@keyBinder'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "keyBinder\x0a\x09^ keyBinder",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_keyBinder_",
			
 
				-smalltalk.method({
			
 
				-selector: "keyBinder:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    self['@keyBinder'] = aKeyBinder;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aKeyBinder"],
			
 
				-source: "keyBinder: aKeyBinder\x0a\x09keyBinder := aKeyBinder",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_registerBindings",
			
 
				-smalltalk.method({
			
 
				-selector: "registerBindings",
			
 
				-category: 'keyBindings',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "registerBindings\x0a\x09\x22Do nothing\x22",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderBindingGroup_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderBindingGroup:on:",
			
 
				-category: 'rendering',
			
 
				-fn: function (aBindingGroup, html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $5, $6, $2;
			
 
				-    smalltalk.send(smalltalk.send(smalltalk.send(aBindingGroup, "_bindings", []), "_sorted_", [function (a, b) {return smalltalk.send(smalltalk.send(a, "_key", []), "__lt", [smalltalk.send(b, "_key", [])]);}]), "_do_", [function (each) {$1 = smalltalk.send(html, "_span", []);smalltalk.send($1, "_class_", ["command"]);$2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_span", []);smalltalk.send($3, "_class_", ["label"]);$4 = smalltalk.send($3, "_with_", [smalltalk.send(smalltalk.send(each, "_shortcut", []), "_asLowercase", [])]);$4;$5 = smalltalk.send(html, "_a", []);smalltalk.send($5, "_class_", ["action"]);smalltalk.send($5, "_with_", [smalltalk.send(each, "_label", [])]);$6 = smalltalk.send($5, "_onClick_", [function () {return smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_applyBinding_", [each]);}]);return $6;}]);return $2;}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aBindingGroup", "html"],
			
 
				-source: "renderBindingGroup: aBindingGroup on: html\x0a\x09(aBindingGroup bindings \x0a    \x09sorted: [ :a :b | a key < b key ])\x0a        do: [ :each |\x0a\x09\x09\x09html span class: 'command'; with: [\x0a\x09\x09\x09\x09html span class: 'label'; with: each shortcut asLowercase.\x0a  \x09\x09\x09\x09html a \x0a                \x09class: 'action'; \x0a                    with: each label;\x0a  \x09\x09\x09\x09\x09onClick: [ self keyBinder applyBinding: each ] ] ]",
			
 
				-messageSends: ["do:", "class:", "span", "with:", "asLowercase", "shortcut", "a", "label", "onClick:", "applyBinding:", "keyBinder", "sorted:", "<", "key", "bindings"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderBindingOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderBindingOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_renderOn_html_", [self, html]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderBindingOn: html\x0a\x09self selectedBinding renderOn: self html: html",
			
 
				-messageSends: ["renderOn:html:", "selectedBinding"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $2;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", ["key_helper"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {smalltalk.send(self, "_renderSelectionOn_", [html]);$3 = smalltalk.send(self, "_renderBindingOn_", [html]);return $3;}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a\x09html div class: 'key_helper'; with: [\x0a      \x09self \x0a        \x09renderSelectionOn:html;\x0a          \x09renderBindingOn: html ]",
			
 
				-messageSends: ["class:", "div", "with:", "renderSelectionOn:", "renderBindingOn:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderSelectionOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderSelectionOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $4, $3, $2;
			
 
				-    $1 = smalltalk.send(html, "_span", []);
			
 
				-    smalltalk.send($1, "_class_", ["selected"]);
			
 
				-    $4 = smalltalk.send(smalltalk.send(self, "_selectedBinding", []), "_label", []);
			
 
				-    if (($receiver = $4) == nil || $receiver == undefined) {
			
 
				-        $3 = "Action";
			
 
				-    } else {
			
 
				-        $3 = $4;
			
 
				-    }
			
 
				-    $2 = smalltalk.send($1, "_with_", [$3]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderSelectionOn: html\x0a\x09\x09html span \x0a        \x09class: 'selected'; \x0a            with: (self selectedBinding label ifNil: [ 'Action' ])",
			
 
				-messageSends: ["class:", "span", "with:", "ifNil:", "label", "selectedBinding"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectedBinding",
			
 
				-smalltalk.method({
			
 
				-selector: "selectedBinding",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_keyBinder", []), "_selectedBinding", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectedBinding\x0a\x09^ self keyBinder selectedBinding",
			
 
				-messageSends: ["selectedBinding", "keyBinder"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_show",
			
 
				-smalltalk.method({
			
 
				-selector: "show",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_appendToJQuery_", [smalltalk.send("body", "_asJQuery", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "show\x0a\x09self appendToJQuery: 'body' asJQuery",
			
 
				-messageSends: ["appendToJQuery:", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'instance creation',
			
 
				-fn: function (aKeyBinder) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_keyBinder_", [aKeyBinder]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aKeyBinder"],
			
 
				-source: "on: aKeyBinder\x0a\x09^ self new\x0a    \x09keyBinder: aKeyBinder;\x0a        yourself",
			
 
				-messageSends: ["keyBinder:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLKeyBinderHelper.klass);
			
 
				-
			
 
				-
			
--- a/js/Helios-Layout.deploy.js
+++ b/js/Helios-Layout.deploy.js
@@ -1,383 +0,0 @@
 
				-smalltalk.addPackage('Helios-Layout', {});
			
 
				-smalltalk.addClass('HLContainer', smalltalk.Widget, ['splitter'], 'Helios-Layout');
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_id_", ["container"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [smalltalk.send(self, "_splitter", [])]);
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", [window]), "_bind_do_", ["resize", function () {return smalltalk.send(smalltalk.send(self, "_splitter", []), "_resize", []);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLContainer);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_splitter",
			
 
				-smalltalk.method({
			
 
				-selector: "splitter",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@splitter'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLContainer);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_splitter_",
			
 
				-smalltalk.method({
			
 
				-selector: "splitter:",
			
 
				-fn: function (aSplitter) {
			
 
				-    var self = this;
			
 
				-    self['@splitter'] = aSplitter;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLContainer);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_with_",
			
 
				-smalltalk.method({
			
 
				-selector: "with:",
			
 
				-fn: function (aSplitter) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_splitter_", [aSplitter]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLContainer.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLSplitter', smalltalk.Widget, ['firstWidget', 'secondWidget', 'firstPane', 'secondPane', 'splitter'], 'Helios-Layout');
			
 
				-smalltalk.addMethod(
			
 
				-"_cssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "cssClass",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "splitter";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_firstWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "firstWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@firstWidget'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_firstWidget_",
			
 
				-smalltalk.method({
			
 
				-selector: "firstWidget:",
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    self['@firstWidget'] = aWidget;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isHeliosSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "isHeliosSplitter",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_panesCssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "panesCssClass",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "panes";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $5, $6, $2, $7;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", [smalltalk.send(self, "_panesCssClass", [])]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_div", []);smalltalk.send($3, "_class_", ["pane"]);$4 = smalltalk.send($3, "_with_", [smalltalk.send(self, "_firstWidget", [])]);self['@firstPane'] = $4;self['@firstPane'];self['@splitter'] = smalltalk.send(smalltalk.send(html, "_div", []), "_class_", [smalltalk.send(self, "_cssClass", [])]);self['@splitter'];$5 = smalltalk.send(html, "_div", []);smalltalk.send($5, "_class_", ["pane"]);$6 = smalltalk.send($5, "_with_", [smalltalk.send(self, "_secondWidget", [])]);self['@secondPane'] = $6;return self['@secondPane'];}]);
			
 
				-    smalltalk.send(self, "_setupSplitter", []);
			
 
				-    $7 = smalltalk.send(self, "_resize", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize",
			
 
				-smalltalk.method({
			
 
				-selector: "resize",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_firstWidget", []), "_isHeliosSplitter", []);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        smalltalk.send(smalltalk.send(self, "_firstWidget", []), "_resize", []);
			
 
				-    }
			
 
				-    $2 = smalltalk.send(smalltalk.send(self, "_secondWidget", []), "_isHeliosSplitter", []);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        smalltalk.send(smalltalk.send(self, "_secondWidget", []), "_resize", []);
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_secondWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "secondWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@secondWidget'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_secondWidget_",
			
 
				-smalltalk.method({
			
 
				-selector: "secondWidget:",
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    self['@secondWidget'] = aWidget;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "setupSplitter",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_with_with_",
			
 
				-smalltalk.method({
			
 
				-selector: "with:with:",
			
 
				-fn: function (aWidget, anotherWidget) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_firstWidget_", [aWidget]);
			
 
				-    smalltalk.send($2, "_secondWidget_", [anotherWidget]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLSplitter.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLHorizontalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
			
 
				-smalltalk.addMethod(
			
 
				-"_cssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "cssClass",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_cssClass", [], smalltalk.HLSplitter), "__comma", [" horizontal"]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_panesCssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "panesCssClass",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_panesCssClass", [], smalltalk.HLSplitter), "__comma", [" horizontal"]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize",
			
 
				-smalltalk.method({
			
 
				-selector: "resize",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_offset", []), "_top", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize_",
			
 
				-smalltalk.method({
			
 
				-selector: "resize:",
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    var container;
			
 
				-    var position;
			
 
				-    container = smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_parent", []);
			
 
				-    position = smalltalk.send(anInteger, "__minus", [smalltalk.send(smalltalk.send(container, "_offset", []), "_top", [])]);
			
 
				-    smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_height_", [smalltalk.send(smalltalk.send(position, "_min_", [smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [100])]), "_max_", [100])]);
			
 
				-    smalltalk.send(smalltalk.send(self['@secondPane'], "_asJQuery", []), "_height_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [position]), "_min_", [smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [100])]), "_max_", [100]), "__minus", [6])]);
			
 
				-    smalltalk.send(self, "_resize", [], smalltalk.HLSplitter);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "setupSplitter",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_draggable_", [smalltalk.HashedCollection._fromPairs_([smalltalk.send("axis", "__minus_gt", ["y"]), smalltalk.send("containment", "__minus_gt", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_parent", [])]), smalltalk.send("helper", "__minus_gt", ["clone"]), smalltalk.send("start", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_startResizing_", [smalltalk.send(ui, "_helper", [])]);}]), smalltalk.send("drag", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(ui, "_offset", []), "_top", [])]);}])])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_startResizing_",
			
 
				-smalltalk.method({
			
 
				-selector: "startResizing:",
			
 
				-fn: function (aSplitter) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aSplitter, "_width_", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_width", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLVerticalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
			
 
				-smalltalk.addMethod(
			
 
				-"_cssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "cssClass",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_cssClass", [], smalltalk.HLSplitter), "__comma", [" vertical"]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_panesCssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "panesCssClass",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_panesCssClass", [], smalltalk.HLSplitter), "__comma", [" vertical"]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize",
			
 
				-smalltalk.method({
			
 
				-selector: "resize",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_offset", []), "_left", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize_",
			
 
				-smalltalk.method({
			
 
				-selector: "resize:",
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    var container;
			
 
				-    var position;
			
 
				-    container = smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_parent", []);
			
 
				-    position = smalltalk.send(anInteger, "__minus", [smalltalk.send(smalltalk.send(container, "_offset", []), "_left", [])]);
			
 
				-    smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_width_", [smalltalk.send(smalltalk.send(position, "_min_", [smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [100])]), "_max_", [100])]);
			
 
				-    smalltalk.send(smalltalk.send(self['@secondPane'], "_asJQuery", []), "_width_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [position]), "_min_", [smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [100])]), "_max_", [100]), "__minus", [6])]);
			
 
				-    smalltalk.send(self, "_resize", [], smalltalk.HLSplitter);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "setupSplitter",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_draggable_", [smalltalk.HashedCollection._fromPairs_([smalltalk.send("axis", "__minus_gt", ["x"]), smalltalk.send("containment", "__minus_gt", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_parent", [])]), smalltalk.send("helper", "__minus_gt", ["clone"]), smalltalk.send("start", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_startResizing_", [smalltalk.send(ui, "_helper", [])]);}]), smalltalk.send("drag", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(ui, "_offset", []), "_left", [])]);}])])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_startResizing_",
			
 
				-smalltalk.method({
			
 
				-selector: "startResizing:",
			
 
				-fn: function (aSplitter) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aSplitter, "_height_", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_height", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isHeliosSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "isHeliosSplitter",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.Object);
			
 
				-
			
--- a/js/Helios-Layout.js
+++ b/js/Helios-Layout.js
@@ -1,523 +0,0 @@
 
				-smalltalk.addPackage('Helios-Layout', {});
			
 
				-smalltalk.addClass('HLContainer', smalltalk.Widget, ['splitter'], 'Helios-Layout');
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_id_", ["container"]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [smalltalk.send(self, "_splitter", [])]);
			
 
				-    smalltalk.send(smalltalk.send(window, "_jQuery_", [window]), "_bind_do_", ["resize", function () {return smalltalk.send(smalltalk.send(self, "_splitter", []), "_resize", []);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderOn: html\x0a\x09html div \x0a    \x09id: 'container'; \x0a        with: self splitter.\x0a        \x0a   (window jQuery: window) bind: 'resize' do: [ self splitter resize ]",
			
 
				-messageSends: ["id:", "div", "with:", "splitter", "bind:do:", "resize", "jQuery:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLContainer);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_splitter",
			
 
				-smalltalk.method({
			
 
				-selector: "splitter",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@splitter'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "splitter\x0a\x09^ splitter",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLContainer);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_splitter_",
			
 
				-smalltalk.method({
			
 
				-selector: "splitter:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aSplitter) {
			
 
				-    var self = this;
			
 
				-    self['@splitter'] = aSplitter;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aSplitter"],
			
 
				-source: "splitter: aSplitter\x0a\x09splitter := aSplitter",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLContainer);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_with_",
			
 
				-smalltalk.method({
			
 
				-selector: "with:",
			
 
				-category: 'instance creation',
			
 
				-fn: function (aSplitter) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_splitter_", [aSplitter]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aSplitter"],
			
 
				-source: "with: aSplitter\x0a\x09^ self new \x0a    \x09splitter: aSplitter; \x0a        yourself",
			
 
				-messageSends: ["splitter:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLContainer.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLSplitter', smalltalk.Widget, ['firstWidget', 'secondWidget', 'firstPane', 'secondPane', 'splitter'], 'Helios-Layout');
			
 
				-smalltalk.addMethod(
			
 
				-"_cssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "cssClass",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "splitter";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "cssClass\x0a\x09^ 'splitter'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_firstWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "firstWidget",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@firstWidget'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "firstWidget\x0a\x09^ firstWidget",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_firstWidget_",
			
 
				-smalltalk.method({
			
 
				-selector: "firstWidget:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    self['@firstWidget'] = aWidget;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aWidget"],
			
 
				-source: "firstWidget: aWidget\x0a\x09firstWidget := aWidget",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isHeliosSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "isHeliosSplitter",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "isHeliosSplitter\x0a\x09^ true",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_panesCssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "panesCssClass",
			
 
				-category: 'rendering',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "panes";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "panesCssClass\x0a\x09^ 'panes'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    var $1, $3, $4, $5, $6, $2, $7;
			
 
				-    $1 = smalltalk.send(html, "_div", []);
			
 
				-    smalltalk.send($1, "_class_", [smalltalk.send(self, "_panesCssClass", [])]);
			
 
				-    $2 = smalltalk.send($1, "_with_", [function () {$3 = smalltalk.send(html, "_div", []);smalltalk.send($3, "_class_", ["pane"]);$4 = smalltalk.send($3, "_with_", [smalltalk.send(self, "_firstWidget", [])]);self['@firstPane'] = $4;self['@firstPane'];self['@splitter'] = smalltalk.send(smalltalk.send(html, "_div", []), "_class_", [smalltalk.send(self, "_cssClass", [])]);self['@splitter'];$5 = smalltalk.send(html, "_div", []);smalltalk.send($5, "_class_", ["pane"]);$6 = smalltalk.send($5, "_with_", [smalltalk.send(self, "_secondWidget", [])]);self['@secondPane'] = $6;return self['@secondPane'];}]);
			
 
				-    smalltalk.send(self, "_setupSplitter", []);
			
 
				-    $7 = smalltalk.send(self, "_resize", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderOn: html\x0a\x09html div class: self panesCssClass; with: [\x0a\x09\x09firstPane := html div class: 'pane'; with: self firstWidget.\x0a    \x09splitter := html div class: self cssClass.\x0a    \x09secondPane := html div class: 'pane'; with: self secondWidget ].\x0a        \x0a\x09self \x0a    \x09setupSplitter;\x0a        resize",
			
 
				-messageSends: ["class:", "panesCssClass", "div", "with:", "firstWidget", "cssClass", "secondWidget", "setupSplitter", "resize"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize",
			
 
				-smalltalk.method({
			
 
				-selector: "resize",
			
 
				-category: 'rendering',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1, $2;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_firstWidget", []), "_isHeliosSplitter", []);
			
 
				-    if (smalltalk.assert($1)) {
			
 
				-        smalltalk.send(smalltalk.send(self, "_firstWidget", []), "_resize", []);
			
 
				-    }
			
 
				-    $2 = smalltalk.send(smalltalk.send(self, "_secondWidget", []), "_isHeliosSplitter", []);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        smalltalk.send(smalltalk.send(self, "_secondWidget", []), "_resize", []);
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "resize\x0a\x09self firstWidget isHeliosSplitter ifTrue: [ self firstWidget resize ].\x0a    self secondWidget isHeliosSplitter ifTrue: [ self secondWidget resize ]",
			
 
				-messageSends: ["ifTrue:", "resize", "firstWidget", "isHeliosSplitter", "secondWidget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_secondWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "secondWidget",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@secondWidget'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "secondWidget\x0a\x09^ secondWidget",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_secondWidget_",
			
 
				-smalltalk.method({
			
 
				-selector: "secondWidget:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    self['@secondWidget'] = aWidget;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aWidget"],
			
 
				-source: "secondWidget: aWidget\x0a\x09secondWidget := aWidget",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "setupSplitter",
			
 
				-category: 'rendering',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "setupSplitter",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_with_with_",
			
 
				-smalltalk.method({
			
 
				-selector: "with:with:",
			
 
				-category: 'instance creation',
			
 
				-fn: function (aWidget, anotherWidget) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_firstWidget_", [aWidget]);
			
 
				-    smalltalk.send($2, "_secondWidget_", [anotherWidget]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["aWidget", "anotherWidget"],
			
 
				-source: "with: aWidget with: anotherWidget\x0a\x09^ self new\x0a    \x09\x09firstWidget: aWidget;\x0a            secondWidget: anotherWidget;\x0a            yourself",
			
 
				-messageSends: ["firstWidget:", "new", "secondWidget:", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLSplitter.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLHorizontalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
			
 
				-smalltalk.addMethod(
			
 
				-"_cssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "cssClass",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_cssClass", [], smalltalk.HLSplitter), "__comma", [" horizontal"]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "cssClass\x0a\x09^ super cssClass, ' horizontal'",
			
 
				-messageSends: [",", "cssClass"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_panesCssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "panesCssClass",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_panesCssClass", [], smalltalk.HLSplitter), "__comma", [" horizontal"]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "panesCssClass\x0a\x09^ super panesCssClass, ' horizontal'",
			
 
				-messageSends: [",", "panesCssClass"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize",
			
 
				-smalltalk.method({
			
 
				-selector: "resize",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_offset", []), "_top", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "resize\x0a\x09self resize: splitter asJQuery offset top",
			
 
				-messageSends: ["resize:", "top", "offset", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize_",
			
 
				-smalltalk.method({
			
 
				-selector: "resize:",
			
 
				-category: 'actions',
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    var container;
			
 
				-    var position;
			
 
				-    container = smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_parent", []);
			
 
				-    position = smalltalk.send(anInteger, "__minus", [smalltalk.send(smalltalk.send(container, "_offset", []), "_top", [])]);
			
 
				-    smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_height_", [smalltalk.send(smalltalk.send(position, "_min_", [smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [100])]), "_max_", [100])]);
			
 
				-    smalltalk.send(smalltalk.send(self['@secondPane'], "_asJQuery", []), "_height_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [position]), "_min_", [smalltalk.send(smalltalk.send(container, "_height", []), "__minus", [100])]), "_max_", [100]), "__minus", [6])]);
			
 
				-    smalltalk.send(self, "_resize", [], smalltalk.HLSplitter);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInteger"],
			
 
				-source: "resize: anInteger\x0a\x09| container position |\x0a    \x0a    container := firstPane asJQuery parent.\x0a    position := anInteger - container offset top.\x0a    \x0a\x09firstPane asJQuery height: ((position min: container height - 100) max: 100).\x0a    secondPane asJQuery height: (((container height - position) min: container height - 100) max: 100) - 6.\x0a    \x0a    super resize",
			
 
				-messageSends: ["parent", "asJQuery", "-", "top", "offset", "height:", "max:", "min:", "height", "resize"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "setupSplitter",
			
 
				-category: 'rendering',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_draggable_", [smalltalk.HashedCollection._fromPairs_([smalltalk.send("axis", "__minus_gt", ["y"]), smalltalk.send("containment", "__minus_gt", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_parent", [])]), smalltalk.send("helper", "__minus_gt", ["clone"]), smalltalk.send("start", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_startResizing_", [smalltalk.send(ui, "_helper", [])]);}]), smalltalk.send("drag", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(ui, "_offset", []), "_top", [])]);}])])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "setupSplitter\x0a\x09splitter asJQuery draggable: #{ \x0a    \x09'axis' -> 'y'. \x0a        'containment' -> splitter asJQuery parent.\x0a        'helper' -> 'clone'.\x0a        'start' -> [ :e :ui | self startResizing: ui helper ].\x0a        'drag' -> [ :e :ui | self resize: ui offset top ] }",
			
 
				-messageSends: ["draggable:", "->", "parent", "asJQuery", "startResizing:", "helper", "resize:", "top", "offset"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_startResizing_",
			
 
				-smalltalk.method({
			
 
				-selector: "startResizing:",
			
 
				-category: 'actions',
			
 
				-fn: function (aSplitter) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aSplitter, "_width_", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_width", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aSplitter"],
			
 
				-source: "startResizing: aSplitter\x0a\x09aSplitter width: splitter asJQuery width",
			
 
				-messageSends: ["width:", "width", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLHorizontalSplitter);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLVerticalSplitter', smalltalk.HLSplitter, [], 'Helios-Layout');
			
 
				-smalltalk.addMethod(
			
 
				-"_cssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "cssClass",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_cssClass", [], smalltalk.HLSplitter), "__comma", [" vertical"]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "cssClass\x0a\x09^ super cssClass, ' vertical'",
			
 
				-messageSends: [",", "cssClass"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_panesCssClass",
			
 
				-smalltalk.method({
			
 
				-selector: "panesCssClass",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_panesCssClass", [], smalltalk.HLSplitter), "__comma", [" vertical"]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "panesCssClass\x0a\x09^ super panesCssClass, ' vertical'",
			
 
				-messageSends: [",", "panesCssClass"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize",
			
 
				-smalltalk.method({
			
 
				-selector: "resize",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_offset", []), "_left", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "resize\x0a\x09self resize: splitter asJQuery offset left",
			
 
				-messageSends: ["resize:", "left", "offset", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_resize_",
			
 
				-smalltalk.method({
			
 
				-selector: "resize:",
			
 
				-category: 'actions',
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    var container;
			
 
				-    var position;
			
 
				-    container = smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_parent", []);
			
 
				-    position = smalltalk.send(anInteger, "__minus", [smalltalk.send(smalltalk.send(container, "_offset", []), "_left", [])]);
			
 
				-    smalltalk.send(smalltalk.send(self['@firstPane'], "_asJQuery", []), "_width_", [smalltalk.send(smalltalk.send(position, "_min_", [smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [100])]), "_max_", [100])]);
			
 
				-    smalltalk.send(smalltalk.send(self['@secondPane'], "_asJQuery", []), "_width_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [position]), "_min_", [smalltalk.send(smalltalk.send(container, "_width", []), "__minus", [100])]), "_max_", [100]), "__minus", [6])]);
			
 
				-    smalltalk.send(self, "_resize", [], smalltalk.HLSplitter);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInteger"],
			
 
				-source: "resize: anInteger\x0a\x09| container position |\x0a    \x0a    container := firstPane asJQuery parent.\x0a    position := anInteger - container offset left.\x0a    \x0a\x09firstPane asJQuery width: ((position min: container width - 100) max: 100).\x0a    secondPane asJQuery width: (((container width - position) min: container width - 100) max: 100) - 6.\x0a    \x0a    super resize",
			
 
				-messageSends: ["parent", "asJQuery", "-", "left", "offset", "width:", "max:", "min:", "width", "resize"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setupSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "setupSplitter",
			
 
				-category: 'rendering',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_draggable_", [smalltalk.HashedCollection._fromPairs_([smalltalk.send("axis", "__minus_gt", ["x"]), smalltalk.send("containment", "__minus_gt", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_parent", [])]), smalltalk.send("helper", "__minus_gt", ["clone"]), smalltalk.send("start", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_startResizing_", [smalltalk.send(ui, "_helper", [])]);}]), smalltalk.send("drag", "__minus_gt", [function (e, ui) {return smalltalk.send(self, "_resize_", [smalltalk.send(smalltalk.send(ui, "_offset", []), "_left", [])]);}])])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "setupSplitter\x0a\x09splitter asJQuery draggable: #{ \x0a    \x09'axis' -> 'x'. \x0a        'containment' -> splitter asJQuery parent.\x0a        'helper' -> 'clone'.\x0a        'start' -> [ :e :ui | self startResizing: ui helper ].\x0a        'drag' -> [ :e :ui | self resize: ui offset left ] }",
			
 
				-messageSends: ["draggable:", "->", "parent", "asJQuery", "startResizing:", "helper", "resize:", "left", "offset"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_startResizing_",
			
 
				-smalltalk.method({
			
 
				-selector: "startResizing:",
			
 
				-category: 'actions',
			
 
				-fn: function (aSplitter) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aSplitter, "_height_", [smalltalk.send(smalltalk.send(self['@splitter'], "_asJQuery", []), "_height", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aSplitter"],
			
 
				-source: "startResizing: aSplitter\x0a\x09aSplitter height: splitter asJQuery height",
			
 
				-messageSends: ["height:", "height", "asJQuery"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLVerticalSplitter);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_isHeliosSplitter",
			
 
				-smalltalk.method({
			
 
				-selector: "isHeliosSplitter",
			
 
				-category: '*Helios-Layout',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return false;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "isHeliosSplitter\x0a\x09^ false",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.Object);
			
 
				-
			
--- a/js/Helios-Workspace.deploy.js
+++ b/js/Helios-Workspace.deploy.js
@@ -1,799 +0,0 @@
 
				-smalltalk.addPackage('Helios-Workspace', {});
			
 
				-smalltalk.addClass('HLCodeModel', smalltalk.Object, ['announcer', 'environment', 'receiver'], 'Helios-Workspace');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_defaultReceiver",
			
 
				-smalltalk.method({
			
 
				-selector: "defaultReceiver",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.DoIt || DoIt, "_new", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_doIt_",
			
 
				-smalltalk.method({
			
 
				-selector: "doIt:",
			
 
				-fn: function (someCode) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_environment", []), "_eval_on_", [someCode, smalltalk.send(self, "_receiver", [])]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_receiver",
			
 
				-smalltalk.method({
			
 
				-selector: "receiver",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@receiver']) == nil || $receiver == undefined) {
			
 
				-        self['@receiver'] = smalltalk.send(self, "_defaultReceiver", []);
			
 
				-        $1 = self['@receiver'];
			
 
				-    } else {
			
 
				-        $1 = self['@receiver'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_receiver_",
			
 
				-smalltalk.method({
			
 
				-selector: "receiver:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@receiver'] = anObject;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_subscribe_",
			
 
				-smalltalk.method({
			
 
				-selector: "subscribe:",
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aWidget, "_subscribeTo_", [smalltalk.send(self, "_announcer", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_environment_", [anEnvironment]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeModel.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLCodeWidget', smalltalk.HLWidget, ['model', 'wrapper', 'code', 'editor'], 'Helios-Workspace');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_clear",
			
 
				-smalltalk.method({
			
 
				-selector: "clear",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_contents_", [""]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_contents",
			
 
				-smalltalk.method({
			
 
				-selector: "contents",
			
 
				-fn: function (){
			
 
				-var self=this;
			
 
				-var $1;
			
 
				-$1=smalltalk.send(self["@editor"],"_getValue",[]);
			
 
				-return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_contents_",
			
 
				-smalltalk.method({
			
 
				-selector: "contents:",
			
 
				-fn: function (aString){
			
 
				-var self=this;
			
 
				-smalltalk.send(self["@editor"],"_setValue_",[aString]);
			
 
				-return self}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_currentLine",
			
 
				-smalltalk.method({
			
 
				-selector: "currentLine",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@editor'], "_getLine_", [smalltalk.send(smalltalk.send(self['@editor'], "_getCursor", []), "_line", [])]);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_currentLineOrSelection",
			
 
				-smalltalk.method({
			
 
				-selector: "currentLineOrSelection",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(self['@editor'], "_somethingSelected", []);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = smalltalk.send(self, "_selection", []);
			
 
				-    } else {
			
 
				-        $1 = smalltalk.send(self, "_currentLine", []);
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_doIt",
			
 
				-smalltalk.method({
			
 
				-selector: "doIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var result;
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDoItRequested || HLDoItRequested, "_on_", [self['@model']])]);
			
 
				-    result = smalltalk.send(self['@model'], "_doIt_", [smalltalk.send(self, "_currentLineOrSelection", [])]);
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDoItExecuted || HLDoItExecuted, "_on_", [self['@model']])]);
			
 
				-    return result;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_editor",
			
 
				-smalltalk.method({
			
 
				-selector: "editor",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@editor'];
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focus",
			
 
				-smalltalk.method({
			
 
				-selector: "focus",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_editor", []), "_focus", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectIt",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var newInspector;
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLInspectItRequested || HLInspectItRequested, "_on_", [self['@model']])]);
			
 
				-    newInspector = smalltalk.send(self, "_makeInspectorOn_", [smalltalk.send(self, "_doIt", [])]);
			
 
				-    smalltalk.send(newInspector, "_open", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_makeInspectorOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "makeInspectorOn:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(smalltalk.HLInspector || HLInspector, "_new", []);
			
 
				-    smalltalk.send($2, "_inspect_", [anObject]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
			
 
				-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_new", [])]);
			
 
				-        $1 = self['@model'];
			
 
				-    } else {
			
 
				-        $1 = self['@model'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-fn: function (aModel){
			
 
				-var self=this;
			
 
				-self["@model"]=aModel;
			
 
				-return self}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeWrapper",
			
 
				-smalltalk.method({
			
 
				-selector: "observeWrapper",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self['@wrapper'], "_onKeyDown_", [function (e) {return smalltalk.send(self, "_onKeyDown_", [e]);}]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onDoIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onDoIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_doIt", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onInspectIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onInspectIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_inspectIt", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "onKeyDown:",
			
 
				-fn: function (anEvent) {
			
 
				-    var self = this;
			
 
				-    if (anEvent.ctrlKey) {
			
 
				-        if (anEvent.keyCode === 80) {
			
 
				-            self._onPrintIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 68) {
			
 
				-            self._onDoIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 73) {
			
 
				-            self._onInspectIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPrintIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onPrintIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_printIt", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_print_",
			
 
				-smalltalk.method({
			
 
				-selector: "print:",
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var start;
			
 
				-    var stop;
			
 
				-    start = smalltalk.send(smalltalk.HashedCollection || HashedCollection, "_new", []);
			
 
				-    stop = smalltalk.send(smalltalk.HashedCollection || HashedCollection, "_new", []);
			
 
				-    smalltalk.send(start, "_at_put_", ["line", smalltalk.send(smalltalk.send(self['@editor'], "_getCursor_", [false]), "_line", [])]);
			
 
				-    smalltalk.send(start, "_at_put_", ["ch", smalltalk.send(smalltalk.send(self['@editor'], "_getCursor_", [false]), "_ch", [])]);
			
 
				-    smalltalk.send(stop, "_at_put_", ["line", smalltalk.send(start, "_at_", ["line"])]);
			
 
				-    smalltalk.send(stop, "_at_put_", ["ch", smalltalk.send(smalltalk.send(smalltalk.send(start, "_at_", ["ch"]), "__plus", [smalltalk.send(aString, "_size", [])]), "__plus", [2])]);
			
 
				-    smalltalk.send(self['@editor'], "_replaceSelection_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self['@editor'], "_getSelection", []), "__comma", [" "]), "__comma", [aString]), "__comma", [" "])]);
			
 
				-    smalltalk.send(self['@editor'], "_setCursor_", [smalltalk.send(self['@editor'], "_getCursor_", [true])]);
			
 
				-    smalltalk.send(self['@editor'], "_setSelection_end_", [stop, start]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_printIt",
			
 
				-smalltalk.method({
			
 
				-selector: "printIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var result;
			
 
				-    result = smalltalk.send(self, "_doIt", []);
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLPrintItRequested || HLPrintItRequested, "_on_", [self['@model']])]);
			
 
				-    smalltalk.send(self, "_print_", [smalltalk.send(result, "_printString", [])]);
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_receiver",
			
 
				-smalltalk.method({
			
 
				-selector: "receiver",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_receiver", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_receiver_",
			
 
				-smalltalk.method({
			
 
				-selector: "receiver:",
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_receiver_", [anObject]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html){
			
 
				-var self=this;
			
 
				-self["@code"]=smalltalk.send(html,"_textarea",[]);
			
 
				-smalltalk.send(self,"_setEditorOn_",[smalltalk.send(self["@code"],"_element",[])]);
			
 
				-smalltalk.send(self,"_observeWrapper",[]);
			
 
				-return self}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selection",
			
 
				-smalltalk.method({
			
 
				-selector: "selection",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@editor'], "_getSelection", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionEnd",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionEnd",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionEnd", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionEnd_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionEnd:",
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionEnd_", [anInteger]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionStart",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionStart",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionStart", []);
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionStart_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionStart:",
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionStart_", [anInteger]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setEditorOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "setEditorOn:",
			
 
				-fn: function (aTextarea) {
			
 
				-    var self = this;
			
 
				-    self['@editor'] = CodeMirror.fromTextArea(aTextarea, {theme: "amber", lineNumbers: true, enterMode: "flat", matchBrackets: true, electricChars: false});
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLWorkspace', smalltalk.HLWidget, ['model', 'codeWidget'], 'Helios-Workspace');
			
 
				-smalltalk.addMethod(
			
 
				-"_codeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "codeWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
			
 
				-        smalltalk.send($2, "_model_", [smalltalk.send(smalltalk.send(self, "_model", []), "_code", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        self['@codeWidget'] = $3;
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
			
 
				-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLWorkspaceModel || HLWorkspaceModel, "_new", [])]);
			
 
				-        $1 = self['@model'];
			
 
				-    } else {
			
 
				-        $1 = self['@model'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aModel;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_model_", [smalltalk.send(aModel, "_code", [])]);
			
 
				-    smalltalk.send(self, "_observeCodeWidget", []);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeCodeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "observeCodeWidget",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onDoIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onDoIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onInspectIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onInspectIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPrintIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onPrintIt",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(self, "_codeWidget", [])]);
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Workspace";
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 10;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspace.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLWorkspaceModel', smalltalk.Object, ['announcer', 'environment', 'code'], 'Helios-Workspace');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_code",
			
 
				-smalltalk.method({
			
 
				-selector: "code",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@code']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_on_", [smalltalk.send(self, "_environment", [])]);
			
 
				-    } else {
			
 
				-        $1 = self['@code'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "onKeyDown:",
			
 
				-fn: function (anEvent) {
			
 
				-    var self = this;
			
 
				-    if (anEvent.ctrlKey) {
			
 
				-        if (anEvent.keyCode === 80) {
			
 
				-            self._printIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 68) {
			
 
				-            self._doIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 73) {
			
 
				-            self._inspectIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-    }
			
 
				-    return self;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_environment_", [anEnvironment]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-}
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel.klass);
			
 
				-
			
 
				-
			
--- a/js/Helios-Workspace.js
+++ b/js/Helios-Workspace.js
@@ -1,1074 +0,0 @@
 
				-smalltalk.addPackage('Helios-Workspace', {});
			
 
				-smalltalk.addClass('HLCodeModel', smalltalk.Object, ['announcer', 'environment', 'receiver'], 'Helios-Workspace');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "announcer\x0a\x09^ announcer ifNil: [ announcer := Announcer new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["Announcer"]
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_defaultReceiver",
			
 
				-smalltalk.method({
			
 
				-selector: "defaultReceiver",
			
 
				-category: 'defaults',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.DoIt || DoIt, "_new", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "defaultReceiver\x0a\x09^ DoIt new",
			
 
				-messageSends: ["new"],
			
 
				-referencedClasses: ["DoIt"]
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_doIt_",
			
 
				-smalltalk.method({
			
 
				-selector: "doIt:",
			
 
				-category: 'actions',
			
 
				-fn: function (someCode) {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_environment", []), "_eval_on_", [someCode, smalltalk.send(self, "_receiver", [])]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["someCode"],
			
 
				-source: "doIt: someCode\x0a\x0a\x09^ self environment eval: someCode on: self receiver",
			
 
				-messageSends: ["eval:on:", "receiver", "environment"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
			
 
				-messageSends: ["ifNil:", "environment", "current"],
			
 
				-referencedClasses: ["HLManager"]
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anEnvironment"],
			
 
				-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_receiver",
			
 
				-smalltalk.method({
			
 
				-selector: "receiver",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@receiver']) == nil || $receiver == undefined) {
			
 
				-        self['@receiver'] = smalltalk.send(self, "_defaultReceiver", []);
			
 
				-        $1 = self['@receiver'];
			
 
				-    } else {
			
 
				-        $1 = self['@receiver'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "receiver\x0a\x09^ receiver ifNil: [ receiver := self defaultReceiver ]",
			
 
				-messageSends: ["ifNil:", "defaultReceiver"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_receiver_",
			
 
				-smalltalk.method({
			
 
				-selector: "receiver:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    self['@receiver'] = anObject;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "receiver: anObject\x0a\x09receiver := anObject",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_subscribe_",
			
 
				-smalltalk.method({
			
 
				-selector: "subscribe:",
			
 
				-category: 'actions',
			
 
				-fn: function (aWidget) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(aWidget, "_subscribeTo_", [smalltalk.send(self, "_announcer", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aWidget"],
			
 
				-source: "subscribe: aWidget\x0a\x09aWidget subscribeTo: self announcer",
			
 
				-messageSends: ["subscribeTo:", "announcer"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeModel);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'actions',
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_environment_", [anEnvironment]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anEnvironment"],
			
 
				-source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
			
 
				-messageSends: ["environment:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeModel.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLCodeWidget', smalltalk.HLWidget, ['model', 'wrapper', 'code', 'editor'], 'Helios-Workspace');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_announcer", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "announcer\x0a\x09^ self model announcer",
			
 
				-messageSends: ["announcer", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_clear",
			
 
				-smalltalk.method({
			
 
				-selector: "clear",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_contents_", [""]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "clear\x0a      self contents: ''",
			
 
				-messageSends: ["contents:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_contents",
			
 
				-smalltalk.method({
			
 
				-selector: "contents",
			
 
				-category: 'accessing',
			
 
				-fn: function (){
			
 
				-var self=this;
			
 
				-var $1;
			
 
				-$1=smalltalk.send(self["@editor"],"_getValue",[]);
			
 
				-return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "contents\x0a\x09^ editor getValue",
			
 
				-messageSends: ["getValue"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_contents_",
			
 
				-smalltalk.method({
			
 
				-selector: "contents:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aString){
			
 
				-var self=this;
			
 
				-smalltalk.send(self["@editor"],"_setValue_",[aString]);
			
 
				-return self},
			
 
				-args: ["aString"],
			
 
				-source: "contents: aString\x0a\x09editor setValue: aString",
			
 
				-messageSends: ["setValue:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_currentLine",
			
 
				-smalltalk.method({
			
 
				-selector: "currentLine",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@editor'], "_getLine_", [smalltalk.send(smalltalk.send(self['@editor'], "_getCursor", []), "_line", [])]);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "currentLine\x0a    ^editor getLine: (editor getCursor line)",
			
 
				-messageSends: ["getLine:", "line", "getCursor"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_currentLineOrSelection",
			
 
				-smalltalk.method({
			
 
				-selector: "currentLineOrSelection",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $1;
			
 
				-    $2 = smalltalk.send(self['@editor'], "_somethingSelected", []);
			
 
				-    if (smalltalk.assert($2)) {
			
 
				-        $1 = smalltalk.send(self, "_selection", []);
			
 
				-    } else {
			
 
				-        $1 = smalltalk.send(self, "_currentLine", []);
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "currentLineOrSelection\x0a    ^editor somethingSelected\x0a\x09\x09ifFalse: [self currentLine]\x0a\x09\x09ifTrue: [self selection]",
			
 
				-messageSends: ["ifFalse:ifTrue:", "currentLine", "selection", "somethingSelected"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_doIt",
			
 
				-smalltalk.method({
			
 
				-selector: "doIt",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var result;
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDoItRequested || HLDoItRequested, "_on_", [self['@model']])]);
			
 
				-    result = smalltalk.send(self['@model'], "_doIt_", [smalltalk.send(self, "_currentLineOrSelection", [])]);
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLDoItExecuted || HLDoItExecuted, "_on_", [self['@model']])]);
			
 
				-    return result;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "doIt\x0a\x09| result |\x0a\x0a\x09self announcer announce: (HLDoItRequested on: model).\x0a\x0a\x09result:=  model doIt: self currentLineOrSelection.\x0a\x0a\x09self announcer announce: (HLDoItExecuted on: model).\x0a\x0a\x09^ result        ",
			
 
				-messageSends: ["announce:", "on:", "announcer", "doIt:", "currentLineOrSelection"],
			
 
				-referencedClasses: ["HLDoItRequested", "HLDoItExecuted"]
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_editor",
			
 
				-smalltalk.method({
			
 
				-selector: "editor",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self['@editor'];
			
 
				-},
			
 
				-args: [],
			
 
				-source: "editor\x0a\x09^editor",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_focus",
			
 
				-smalltalk.method({
			
 
				-selector: "focus",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_editor", []), "_focus", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "focus\x0a      self editor focus",
			
 
				-messageSends: ["focus", "editor"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_inspectIt",
			
 
				-smalltalk.method({
			
 
				-selector: "inspectIt",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var newInspector;
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLInspectItRequested || HLInspectItRequested, "_on_", [self['@model']])]);
			
 
				-    newInspector = smalltalk.send(self, "_makeInspectorOn_", [smalltalk.send(self, "_doIt", [])]);
			
 
				-    smalltalk.send(newInspector, "_open", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "inspectIt\x0a\x0a\x09| newInspector |\x0a       \x0a\x09self announcer announce: (HLInspectItRequested on: model).\x0a\x09newInspector := self makeInspectorOn: self doIt.\x0a\x09newInspector open",
			
 
				-messageSends: ["announce:", "on:", "announcer", "makeInspectorOn:", "doIt", "open"],
			
 
				-referencedClasses: ["HLInspectItRequested"]
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_makeInspectorOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "makeInspectorOn:",
			
 
				-category: 'actions',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(smalltalk.HLInspector || HLInspector, "_new", []);
			
 
				-    smalltalk.send($2, "_inspect_", [anObject]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "makeInspectorOn: anObject\x0a\x0a\x09^ HLInspector new \x0a\x09\x09inspect: anObject;\x0a\x09\x09yourself",
			
 
				-messageSends: ["inspect:", "new", "yourself"],
			
 
				-referencedClasses: ["HLInspector"]
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
			
 
				-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_new", [])]);
			
 
				-        $1 = self['@model'];
			
 
				-    } else {
			
 
				-        $1 = self['@model'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "model\x0a\x09^ model ifNil: [ \x0a    \x09self model: HLCodeModel new.\x0a\x09\x09model ]",
			
 
				-messageSends: ["ifNil:", "model:", "new"],
			
 
				-referencedClasses: ["HLCodeModel"]
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aModel){
			
 
				-var self=this;
			
 
				-self["@model"]=aModel;
			
 
				-return self},
			
 
				-args: ["aModel"],
			
 
				-source: "model: aModel\x0a\x09model := aModel",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeWrapper",
			
 
				-smalltalk.method({
			
 
				-selector: "observeWrapper",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self['@wrapper'], "_onKeyDown_", [function (e) {return smalltalk.send(self, "_onKeyDown_", [e]);}]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeWrapper\x0a\x0a    wrapper onKeyDown: [ :e | self onKeyDown: e ]\x0a",
			
 
				-messageSends: ["onKeyDown:"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onDoIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onDoIt",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_doIt", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onDoIt\x0a\x09\x0a    self doIt",
			
 
				-messageSends: ["doIt"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onInspectIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onInspectIt",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_inspectIt", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onInspectIt\x0a\x0a\x09self inspectIt",
			
 
				-messageSends: ["inspectIt"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "onKeyDown:",
			
 
				-category: 'reactions',
			
 
				-fn: function (anEvent) {
			
 
				-    var self = this;
			
 
				-    if (anEvent.ctrlKey) {
			
 
				-        if (anEvent.keyCode === 80) {
			
 
				-            self._onPrintIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 68) {
			
 
				-            self._onDoIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 73) {
			
 
				-            self._onInspectIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anEvent"],
			
 
				-source: "onKeyDown: anEvent\x0a\x0a    <if(anEvent.ctrlKey) {\x0a\x09\x09if(anEvent.keyCode === 80) { //ctrl+p\x0a\x09\x09\x09self._onPrintIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 68) { //ctrl+d\x0a\x09\x09\x09self._onDoIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 73) { //ctrl+i\x0a\x09\x09\x09self._onInspectIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09}>\x09",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPrintIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onPrintIt",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(self, "_printIt", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onPrintIt\x0a\x0a\x09self printIt",
			
 
				-messageSends: ["printIt"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_print_",
			
 
				-smalltalk.method({
			
 
				-selector: "print:",
			
 
				-category: 'actions',
			
 
				-fn: function (aString) {
			
 
				-    var self = this;
			
 
				-    var start;
			
 
				-    var stop;
			
 
				-    start = smalltalk.send(smalltalk.HashedCollection || HashedCollection, "_new", []);
			
 
				-    stop = smalltalk.send(smalltalk.HashedCollection || HashedCollection, "_new", []);
			
 
				-    smalltalk.send(start, "_at_put_", ["line", smalltalk.send(smalltalk.send(self['@editor'], "_getCursor_", [false]), "_line", [])]);
			
 
				-    smalltalk.send(start, "_at_put_", ["ch", smalltalk.send(smalltalk.send(self['@editor'], "_getCursor_", [false]), "_ch", [])]);
			
 
				-    smalltalk.send(stop, "_at_put_", ["line", smalltalk.send(start, "_at_", ["line"])]);
			
 
				-    smalltalk.send(stop, "_at_put_", ["ch", smalltalk.send(smalltalk.send(smalltalk.send(start, "_at_", ["ch"]), "__plus", [smalltalk.send(aString, "_size", [])]), "__plus", [2])]);
			
 
				-    smalltalk.send(self['@editor'], "_replaceSelection_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self['@editor'], "_getSelection", []), "__comma", [" "]), "__comma", [aString]), "__comma", [" "])]);
			
 
				-    smalltalk.send(self['@editor'], "_setCursor_", [smalltalk.send(self['@editor'], "_getCursor_", [true])]);
			
 
				-    smalltalk.send(self['@editor'], "_setSelection_end_", [stop, start]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aString"],
			
 
				-source: "print: aString\x0a\x09| start stop |\x0a\x09start := HashedCollection new.\x0a\x09stop := HashedCollection new.\x0a\x09start at: 'line' put: (editor getCursor: false) line.\x0a\x09start at: 'ch' put: (editor getCursor: false) ch.\x0a\x09stop at: 'line' put: (start at: 'line').\x0a\x09stop at: 'ch' put: ((start at: 'ch') + aString size + 2).\x0a\x09editor replaceSelection: (editor getSelection, ' ', aString, ' ').\x0a\x09editor setCursor: (editor getCursor: true).\x0a\x09editor setSelection: stop end: start",
			
 
				-messageSends: ["new", "at:put:", "line", "getCursor:", "ch", "at:", "+", "size", "replaceSelection:", ",", "getSelection", "setCursor:", "setSelection:end:"],
			
 
				-referencedClasses: ["HashedCollection"]
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_printIt",
			
 
				-smalltalk.method({
			
 
				-selector: "printIt",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var result;
			
 
				-    result = smalltalk.send(self, "_doIt", []);
			
 
				-    smalltalk.send(smalltalk.send(self, "_announcer", []), "_announce_", [smalltalk.send(smalltalk.HLPrintItRequested || HLPrintItRequested, "_on_", [self['@model']])]);
			
 
				-    smalltalk.send(self, "_print_", [smalltalk.send(result, "_printString", [])]);
			
 
				-    smalltalk.send(self, "_focus", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "printIt\x0a\x0a\x09| result |\x0a\x0a\x09result:=  self doIt.\x0a       \x0a\x09self announcer announce: (HLPrintItRequested on: model).\x0a\x0a    self print: result printString.\x0a\x09self focus.",
			
 
				-messageSends: ["doIt", "announce:", "on:", "announcer", "print:", "printString", "focus"],
			
 
				-referencedClasses: ["HLPrintItRequested"]
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_receiver",
			
 
				-smalltalk.method({
			
 
				-selector: "receiver",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self, "_model", []), "_receiver", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "receiver\x0a\x09^ self model receiver",
			
 
				-messageSends: ["receiver", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_receiver_",
			
 
				-smalltalk.method({
			
 
				-selector: "receiver:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anObject) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self, "_model", []), "_receiver_", [anObject]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anObject"],
			
 
				-source: "receiver: anObject\x0a\x09self model receiver: anObject",
			
 
				-messageSends: ["receiver:", "model"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html){
			
 
				-var self=this;
			
 
				-self["@code"]=smalltalk.send(html,"_textarea",[]);
			
 
				-smalltalk.send(self,"_setEditorOn_",[smalltalk.send(self["@code"],"_element",[])]);
			
 
				-smalltalk.send(self,"_observeWrapper",[]);
			
 
				-return self},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a    code := html textarea.\x0a    self setEditorOn: code element.\x0a    \x0a    self observeWrapper",
			
 
				-messageSends: ["textarea", "setEditorOn:", "element", "observeWrapper"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selection",
			
 
				-smalltalk.method({
			
 
				-selector: "selection",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(self['@editor'], "_getSelection", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selection\x0a\x09^editor getSelection",
			
 
				-messageSends: ["getSelection"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionEnd",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionEnd",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionEnd", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectionEnd\x0a   ^code element selectionEnd",
			
 
				-messageSends: ["selectionEnd", "element"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionEnd_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionEnd:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionEnd_", [anInteger]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInteger"],
			
 
				-source: "selectionEnd: anInteger\x0a   code element selectionEnd: anInteger",
			
 
				-messageSends: ["selectionEnd:", "element"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionStart",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionStart",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    $1 = smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionStart", []);
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "selectionStart\x0a   ^code element selectionStart",
			
 
				-messageSends: ["selectionStart", "element"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_selectionStart_",
			
 
				-smalltalk.method({
			
 
				-selector: "selectionStart:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anInteger) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(smalltalk.send(self['@code'], "_element", []), "_selectionStart_", [anInteger]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anInteger"],
			
 
				-source: "selectionStart: anInteger\x0a   code element selectionStart: anInteger",
			
 
				-messageSends: ["selectionStart:", "element"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_setEditorOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "setEditorOn:",
			
 
				-category: 'actions',
			
 
				-fn: function (aTextarea) {
			
 
				-    var self = this;
			
 
				-    self['@editor'] = CodeMirror.fromTextArea(aTextarea, {theme: "amber", lineNumbers: true, enterMode: "flat", matchBrackets: true, electricChars: false});
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aTextarea"],
			
 
				-source: "setEditorOn: aTextarea\x0a\x09<self['@editor'] = CodeMirror.fromTextArea(aTextarea, {\x0a\x09\x09theme: 'amber',\x0a                lineNumbers: true,\x0a                enterMode: 'flat',\x0a                matchBrackets: true,\x0a                electricChars: false\x0a\x09})>",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLCodeWidget);
			
 
				-
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLWorkspace', smalltalk.HLWidget, ['model', 'codeWidget'], 'Helios-Workspace');
			
 
				-smalltalk.addMethod(
			
 
				-"_codeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "codeWidget",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    if (($receiver = self['@codeWidget']) == nil || $receiver == undefined) {
			
 
				-        $2 = smalltalk.send(smalltalk.HLCodeWidget || HLCodeWidget, "_new", []);
			
 
				-        smalltalk.send($2, "_model_", [smalltalk.send(smalltalk.send(self, "_model", []), "_code", [])]);
			
 
				-        $3 = smalltalk.send($2, "_yourself", []);
			
 
				-        self['@codeWidget'] = $3;
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    } else {
			
 
				-        $1 = self['@codeWidget'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "codeWidget\x0a\x09^ codeWidget ifNil: [\x0a\x09\x09codeWidget := HLCodeWidget new\x0a    \x09\x09model: self model code;\x0a        \x09yourself ]",
			
 
				-messageSends: ["ifNil:", "model:", "code", "model", "new", "yourself"],
			
 
				-referencedClasses: ["HLCodeWidget"]
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model",
			
 
				-smalltalk.method({
			
 
				-selector: "model",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@model']) == nil || $receiver == undefined) {
			
 
				-        smalltalk.send(self, "_model_", [smalltalk.send(smalltalk.HLWorkspaceModel || HLWorkspaceModel, "_new", [])]);
			
 
				-        $1 = self['@model'];
			
 
				-    } else {
			
 
				-        $1 = self['@model'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "model\x0a\x09^ model ifNil: [ \x0a    \x09self model: HLWorkspaceModel new.\x0a\x09\x09model ]",
			
 
				-messageSends: ["ifNil:", "model:", "new"],
			
 
				-referencedClasses: ["HLWorkspaceModel"]
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_model_",
			
 
				-smalltalk.method({
			
 
				-selector: "model:",
			
 
				-category: 'accessing',
			
 
				-fn: function (aModel) {
			
 
				-    var self = this;
			
 
				-    self['@model'] = aModel;
			
 
				-    smalltalk.send(smalltalk.send(self, "_codeWidget", []), "_model_", [smalltalk.send(aModel, "_code", [])]);
			
 
				-    smalltalk.send(self, "_observeCodeWidget", []);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["aModel"],
			
 
				-source: "model: aModel\x0a\x09model := aModel.\x0a     \x0a    self codeWidget model: aModel code.\x0a    self observeCodeWidget.\x0a    ",
			
 
				-messageSends: ["model:", "code", "codeWidget", "observeCodeWidget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_observeCodeWidget",
			
 
				-smalltalk.method({
			
 
				-selector: "observeCodeWidget",
			
 
				-category: 'actions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "observeCodeWidget\x0a\x0a",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onDoIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onDoIt",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onDoIt",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onInspectIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onInspectIt",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onInspectIt",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onPrintIt",
			
 
				-smalltalk.method({
			
 
				-selector: "onPrintIt",
			
 
				-category: 'reactions',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return self;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "onPrintIt",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_renderContentOn_",
			
 
				-smalltalk.method({
			
 
				-selector: "renderContentOn:",
			
 
				-category: 'rendering',
			
 
				-fn: function (html) {
			
 
				-    var self = this;
			
 
				-    smalltalk.send(html, "_with_", [smalltalk.send(self, "_codeWidget", [])]);
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["html"],
			
 
				-source: "renderContentOn: html\x0a\x09html with: self codeWidget\x0a    ",
			
 
				-messageSends: ["with:", "codeWidget"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspace);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_canBeOpenAsTab",
			
 
				-smalltalk.method({
			
 
				-selector: "canBeOpenAsTab",
			
 
				-category: 'testing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return true;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "canBeOpenAsTab\x0a\x09^ true",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspace.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabLabel",
			
 
				-smalltalk.method({
			
 
				-selector: "tabLabel",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return "Workspace";
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabLabel\x0a\x09^ 'Workspace'",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspace.klass);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_tabPriority",
			
 
				-smalltalk.method({
			
 
				-selector: "tabPriority",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    return 10;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "tabPriority\x0a\x09^ 10",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspace.klass);
			
 
				-
			
 
				-
			
 
				-smalltalk.addClass('HLWorkspaceModel', smalltalk.Object, ['announcer', 'environment', 'code'], 'Helios-Workspace');
			
 
				-smalltalk.addMethod(
			
 
				-"_announcer",
			
 
				-smalltalk.method({
			
 
				-selector: "announcer",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@announcer']) == nil || $receiver == undefined) {
			
 
				-        self['@announcer'] = smalltalk.send(smalltalk.Announcer || Announcer, "_new", []);
			
 
				-        $1 = self['@announcer'];
			
 
				-    } else {
			
 
				-        $1 = self['@announcer'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "announcer\x0a\x09^ announcer ifNil: [ announcer := Announcer new ]",
			
 
				-messageSends: ["ifNil:", "new"],
			
 
				-referencedClasses: ["Announcer"]
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_code",
			
 
				-smalltalk.method({
			
 
				-selector: "code",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@code']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.HLCodeModel || HLCodeModel, "_on_", [smalltalk.send(self, "_environment", [])]);
			
 
				-    } else {
			
 
				-        $1 = self['@code'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "code\x0a\x09\x22Answers the code model working for this workspace model\x22\x0a\x09^ code ifNil:[ HLCodeModel on: self environment ]",
			
 
				-messageSends: ["ifNil:", "on:", "environment"],
			
 
				-referencedClasses: ["HLCodeModel"]
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment",
			
 
				-smalltalk.method({
			
 
				-selector: "environment",
			
 
				-category: 'accessing',
			
 
				-fn: function () {
			
 
				-    var self = this;
			
 
				-    var $1;
			
 
				-    if (($receiver = self['@environment']) == nil || $receiver == undefined) {
			
 
				-        $1 = smalltalk.send(smalltalk.send(smalltalk.HLManager || HLManager, "_current", []), "_environment", []);
			
 
				-    } else {
			
 
				-        $1 = self['@environment'];
			
 
				-    }
			
 
				-    return $1;
			
 
				-},
			
 
				-args: [],
			
 
				-source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
			
 
				-messageSends: ["ifNil:", "environment", "current"],
			
 
				-referencedClasses: ["HLManager"]
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_environment_",
			
 
				-smalltalk.method({
			
 
				-selector: "environment:",
			
 
				-category: 'accessing',
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    self['@environment'] = anEnvironment;
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anEnvironment"],
			
 
				-source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_onKeyDown_",
			
 
				-smalltalk.method({
			
 
				-selector: "onKeyDown:",
			
 
				-category: 'reactions',
			
 
				-fn: function (anEvent) {
			
 
				-    var self = this;
			
 
				-    if (anEvent.ctrlKey) {
			
 
				-        if (anEvent.keyCode === 80) {
			
 
				-            self._printIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 68) {
			
 
				-            self._doIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-        if (anEvent.keyCode === 73) {
			
 
				-            self._inspectIt();
			
 
				-            anEvent.preventDefault();
			
 
				-            return false;
			
 
				-        }
			
 
				-    }
			
 
				-    return self;
			
 
				-},
			
 
				-args: ["anEvent"],
			
 
				-source: "onKeyDown: anEvent\x0a\x0a\x09<if(anEvent.ctrlKey) {\x0a\x09\x09if(anEvent.keyCode === 80) { //ctrl+p\x0a\x09\x09\x09self._printIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 68) { //ctrl+d\x0a\x09\x09\x09self._doIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 73) { //ctrl+i\x0a\x09\x09\x09self._inspectIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09}>",
			
 
				-messageSends: [],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel);
			
 
				-
			
 
				-
			
 
				-smalltalk.addMethod(
			
 
				-"_on_",
			
 
				-smalltalk.method({
			
 
				-selector: "on:",
			
 
				-category: 'actions',
			
 
				-fn: function (anEnvironment) {
			
 
				-    var self = this;
			
 
				-    var $2, $3, $1;
			
 
				-    $2 = smalltalk.send(self, "_new", []);
			
 
				-    smalltalk.send($2, "_environment_", [anEnvironment]);
			
 
				-    $3 = smalltalk.send($2, "_yourself", []);
			
 
				-    $1 = $3;
			
 
				-    return $1;
			
 
				-},
			
 
				-args: ["anEnvironment"],
			
 
				-source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a    \x09environment: anEnvironment;\x0a        yourself",
			
 
				-messageSends: ["environment:", "new", "yourself"],
			
 
				-referencedClasses: []
			
 
				-}),
			
 
				-smalltalk.HLWorkspaceModel.klass);
			
 
				-
			
 
				-
			
--- a/st/Helios-Announcements.st
+++ b/st/Helios-Announcements.st
@@ -1,104 +0,0 @@
 
				-Smalltalk current createPackage: 'Helios-Announcements' properties: #{}!
			
 
				-Object subclass: #HLAnnouncement
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLAnnouncement subclass: #HLCodeHandled
			
 
				-	instanceVariableNames: 'code'
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-!HLCodeHandled methodsFor: 'accessing'!
			
 
				-
			
 
				-code
			
 
				-
			
 
				-	^ code
			
 
				-!
			
 
				-
			
 
				-code: aModel
			
 
				-
			
 
				-	code := aModel
			
 
				-! !
			
 
				-
			
 
				-!HLCodeHandled class methodsFor: 'actions'!
			
 
				-
			
 
				-on: aCodeModel
			
 
				-
			
 
				-	^ self new 
			
 
				-    	code: aCodeModel;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
 
				-HLCodeHandled subclass: #HLDoItExecuted
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLCodeHandled subclass: #HLDoItRequested
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLCodeHandled subclass: #HLInspectItRequested
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLCodeHandled subclass: #HLPrintItRequested
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLAnnouncement subclass: #HLDiveRequested
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLAnnouncement subclass: #HLItemSelected
			
 
				-	instanceVariableNames: 'item'
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-!HLItemSelected methodsFor: 'accessing'!
			
 
				-
			
 
				-item
			
 
				-	^ item
			
 
				-!
			
 
				-
			
 
				-item: anObject
			
 
				-	item := anObject
			
 
				-! !
			
 
				-
			
 
				-!HLItemSelected class methodsFor: 'instance creation'!
			
 
				-
			
 
				-on: anItem
			
 
				-	^ self new
			
 
				-    	item: anItem;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
 
				-HLItemSelected subclass: #HLClassSelected
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLItemSelected subclass: #HLInstanceVariableSelected
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLItemSelected subclass: #HLMethodSelected
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLItemSelected subclass: #HLPackageSelected
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLItemSelected subclass: #HLProtocolSelected
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLAnnouncement subclass: #HLRefreshRequested
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLAnnouncement subclass: #HLShowCommentToggled
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
 
				-HLAnnouncement subclass: #HLShowInstanceToggled
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Announcements'!
			
 
				-
			
--- a/st/Helios-Browser.st
+++ b/st/Helios-Browser.st
@@ -1,708 +0,0 @@
 
				-Smalltalk current createPackage: 'Helios-Browser' properties: #{}!
			
 
				-HLWidget subclass: #HLBrowser
			
 
				-	instanceVariableNames: 'model packagesListWidget classesListWidget protocolsListWidget methodsListWidget sourceWidget'
			
 
				-	package: 'Helios-Browser'!
			
 
				-
			
 
				-!HLBrowser methodsFor: 'accessing'!
			
 
				-
			
 
				-announcer
			
 
				-	^ self model announcer
			
 
				-!
			
 
				-
			
 
				-environment
			
 
				-	^ self model environment
			
 
				-!
			
 
				-
			
 
				-model
			
 
				-	^ model ifNil: [ model := HLBrowserModel new ]
			
 
				-!
			
 
				-
			
 
				-model: aModel
			
 
				-	model := aModel
			
 
				-! !
			
 
				-
			
 
				-!HLBrowser methodsFor: 'keybindings'!
			
 
				-
			
 
				-registerBindingsOn: aBindingGroup
			
 
				-	aBindingGroup 
			
 
				-    	addGroupKey: 66 labelled: 'Browse';
			
 
				-        addGroupKey: 71 labelled: 'Go to';
			
 
				-        addGroupKey: 84 labelled: 'Toggle'.
			
 
				-        
			
 
				-   	HLBrowserCommand withAllSubclasses do: [ :each |
			
 
				-   		each key ifNotNil: [
			
 
				-  			(aBindingGroup at: each bindingGroup) 
			
 
				-  				add: (each on: self model) asBinding ] ]
			
 
				-! !
			
 
				-
			
 
				-!HLBrowser methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-	html with: (HLContainer with: (HLHorizontalSplitter 
			
 
				-    	with: (HLVerticalSplitter
			
 
				-        	with: (HLVerticalSplitter
			
 
				-            	with: self packagesListWidget
			
 
				-                with: self classesListWidget)
			
 
				-            with: (HLVerticalSplitter
			
 
				-            	with: self protocolsListWidget
			
 
				-                with: self methodsListWidget)) 
			
 
				-        with: self sourceWidget))
			
 
				-! !
			
 
				-
			
 
				-!HLBrowser methodsFor: 'widgets'!
			
 
				-
			
 
				-classesListWidget
			
 
				-	^ classesListWidget ifNil: [
			
 
				-      	classesListWidget := HLClassesListWidget on: self model.
			
 
				-		classesListWidget next: self protocolsListWidget ]
			
 
				-!
			
 
				-
			
 
				-methodsListWidget
			
 
				-	^ methodsListWidget ifNil: [
			
 
				-      	methodsListWidget := HLMethodsListWidget on: self model ]
			
 
				-!
			
 
				-
			
 
				-packagesListWidget
			
 
				-	^ packagesListWidget ifNil: [
			
 
				-      	packagesListWidget := HLPackagesListWidget on: self model.
			
 
				-		packagesListWidget next: self classesListWidget ]
			
 
				-!
			
 
				-
			
 
				-protocolsListWidget
			
 
				-	^ protocolsListWidget ifNil: [
			
 
				-      	protocolsListWidget := HLProtocolsListWidget on: self model.
			
 
				-		protocolsListWidget next: self methodsListWidget ]
			
 
				-!
			
 
				-
			
 
				-sourceWidget
			
 
				-	^ sourceWidget ifNil: [
			
 
				-      	sourceWidget := HLBrowserSourceWidget on: self model ]
			
 
				-! !
			
 
				-
			
 
				-HLBrowser class instanceVariableNames: 'nextId'!
			
 
				-
			
 
				-!HLBrowser class methodsFor: 'accessing'!
			
 
				-
			
 
				-nextId
			
 
				-	nextId ifNil: [ nextId := 0 ].
			
 
				-    ^ 'browser_', (nextId + 1) asString
			
 
				-!
			
 
				-
			
 
				-tabLabel
			
 
				-	^ 'Browser'
			
 
				-!
			
 
				-
			
 
				-tabPriority
			
 
				-	^ 0
			
 
				-! !
			
 
				-
			
 
				-!HLBrowser class methodsFor: 'testing'!
			
 
				-
			
 
				-canBeOpenAsTab
			
 
				-	^ true
			
 
				-! !
			
 
				-
			
 
				-HLNavigationListWidget subclass: #HLBrowserListWidget
			
 
				-	instanceVariableNames: 'model'
			
 
				-	package: 'Helios-Browser'!
			
 
				-
			
 
				-!HLBrowserListWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-model
			
 
				-	^ model
			
 
				-!
			
 
				-
			
 
				-model: aBrowserModel
			
 
				-	model := aBrowserModel.
			
 
				-    
			
 
				-    self observeModel
			
 
				-! !
			
 
				-
			
 
				-!HLBrowserListWidget methodsFor: 'actions'!
			
 
				-
			
 
				-observeModel
			
 
				-! !
			
 
				-
			
 
				-!HLBrowserListWidget class methodsFor: 'instance creation'!
			
 
				-
			
 
				-on: aModel
			
 
				-	^ self new 
			
 
				-    	model: aModel;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
 
				-HLBrowserListWidget subclass: #HLClassesListWidget
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Browser'!
			
 
				-
			
 
				-!HLClassesListWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-getChildrenOf: aClass
			
 
				-	^ self items select: [ :each | each superclass = aClass ]
			
 
				-!
			
 
				-
			
 
				-getRootClassesOf: aCollection
			
 
				-	^ aCollection select: [ :each |
			
 
				-    	(each allSuperclasses intersection: aCollection) isEmpty ]
			
 
				-!
			
 
				-
			
 
				-iconForItem: aClass
			
 
				-	^ aClass theNonMetaClass comment isEmpty
			
 
				-    	ifFalse: [ 'icon-none' ]
			
 
				-      	ifTrue: [ 'icon-question-sign' ]
			
 
				-!
			
 
				-
			
 
				-showInstance
			
 
				-	^ self model showInstance
			
 
				-! !
			
 
				-
			
 
				-!HLClassesListWidget methodsFor: 'actions'!
			
 
				-
			
 
				-focusMethodsListWidget
			
 
				-	self model announcer announce: HLMethodsListFocus new
			
 
				-!
			
 
				-
			
 
				-focusProtocolsListWidget
			
 
				-	self model announcer announce: HLProtocolsListFocus new
			
 
				-!
			
 
				-
			
 
				-observeModel
			
 
				-	self model announcer 
			
 
				-    	on: HLPackageSelected do: [ :ann | self onPackageSelected: ann item ];
			
 
				-    	on: HLShowInstanceToggled do: [ :ann | self onShowInstanceToggled ];
			
 
				-		on: HLClassSelected do: [ :ann | self onClassSelected: ann item ]
			
 
				-!
			
 
				-
			
 
				-selectItem: aClass
			
 
				-	super selectItem: aClass.
			
 
				-    self model selectedClass: aClass
			
 
				-!
			
 
				-
			
 
				-showInstance: aBoolean
			
 
				-	self model showInstance: aBoolean
			
 
				-! !
			
 
				-
			
 
				-!HLClassesListWidget methodsFor: 'reactions'!
			
 
				-
			
 
				-onClassSelected: aClass
			
 
				-	self focus
			
 
				-!
			
 
				-
			
 
				-onPackageSelected: aPackage
			
 
				-    self selectedItem: nil.
			
 
				-    
			
 
				-    self items: (aPackage 
			
 
				-    	ifNil: [ #() ]
			
 
				-  		ifNotNil: [ (aPackage classes 
			
 
				-        	collect: [ :each | each theNonMetaClass ]) asSet asArray ]).
			
 
				-
			
 
				-    self refresh
			
 
				-!
			
 
				-
			
 
				-onShowInstanceToggled
			
 
				-	self refresh
			
 
				-! !
			
 
				-
			
 
				-!HLClassesListWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderButtonsOn: html
			
 
				-	html div 
			
 
				-        class: 'btn-group';
			
 
				-		at: 'data-toggle' put: 'buttons-radio';
			
 
				-		with: [ 
			
 
				-           	html button 
			
 
				-                class: (String streamContents: [ :str |
			
 
				-                	str nextPutAll: 'btn'.
			
 
				-                    self showInstance ifTrue: [ 
			
 
				-                    	str nextPutAll: ' active'] ]);
			
 
				-  				with: 'Instance';
			
 
				-                onClick: [ self showInstance: true ].
			
 
				-  			html button
			
 
				-  				class: (String streamContents: [ :str |
			
 
				-                	str nextPutAll: 'btn'.
			
 
				-                    self model showInstance ifFalse: [ 
			
 
				-                    	str nextPutAll: ' active'] ]);
			
 
				-  				with: 'Class';
			
 
				-				onClick: [ self model showInstance: false ] ].
			
 
				-                 
			
 
				-  	html button 
			
 
				-           	class: 'btn';
			
 
				-            at: 'data-toggle' put: 'button';
			
 
				-  			with: 'Comment'
			
 
				-!
			
 
				-
			
 
				-renderItem: aClass level: anInteger on: html
			
 
				-	| li |
			
 
				-    
			
 
				-	li := html li.
			
 
				-    li
			
 
				-    	at: 'list-data' put: (self items indexOf: aClass);
			
 
				-    	class: (self cssClassForItem: aClass);
			
 
				-        with: [ 
			
 
				-        	html a
			
 
				-            	with: [ 
			
 
				-            		(html tag: 'i') class: (self iconForItem: aClass).
			
 
				-  					self renderItemLabel: aClass level: anInteger on: html ];
			
 
				-				onClick: [
			
 
				-                  	self activateListItem: li asJQuery ] ].
			
 
				-                    
			
 
				-    (self getChildrenOf: aClass) do: [ :each |
			
 
				-    	self renderItem: each level: anInteger + 1 on: html ]
			
 
				-!
			
 
				-
			
 
				-renderItem: aClass on: html
			
 
				-	super renderItem: aClass on: html.
			
 
				-    	(self getChildrenOf: aClass) do: [ :each |
			
 
				-    		self renderItem: each level: 1 on: html ]
			
 
				-!
			
 
				-
			
 
				-renderItemLabel: aClass level: anInteger on: html
			
 
				-	html span asJQuery html: (String streamContents: [ :str |
			
 
				-		anInteger timesRepeat: [
			
 
				-			str nextPutAll: '&nbsp;&nbsp;&nbsp;&nbsp;'].
			
 
				-			str nextPutAll: aClass name ])
			
 
				-!
			
 
				-
			
 
				-renderItemLabel: aClass on: html
			
 
				-	self renderItemLabel: aClass level: 0 on: html
			
 
				-!
			
 
				-
			
 
				-renderListOn: html
			
 
				-	(self getRootClassesOf: self items)
			
 
				-    	do: [ :each | self renderItem: each on: html ]
			
 
				-! !
			
 
				-
			
 
				-HLBrowserListWidget subclass: #HLMethodsListWidget
			
 
				-	instanceVariableNames: 'selectorsCache'
			
 
				-	package: 'Helios-Browser'!
			
 
				-
			
 
				-!HLMethodsListWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-allProtocol
			
 
				-	^ self model allProtocol
			
 
				-!
			
 
				-
			
 
				-iconForItem: aCompiledMethod
			
 
				-	| override overriden |
			
 
				-    
			
 
				-    override := self isOverride: aCompiledMethod.
			
 
				-    overriden := self isOverriden: aCompiledMethod.
			
 
				-    
			
 
				-	^ override
			
 
				-    	ifTrue: [ overriden
			
 
				-			ifTrue: [ 'icon-resize-vertical' ]
			
 
				-			ifFalse: [ 'icon-arrow-up' ] ]
			
 
				-		ifFalse: [
			
 
				-			overriden
			
 
				-			ifTrue: [ 'icon-arrow-down' ]
			
 
				-			ifFalse: [ 'icon-none' ] ]
			
 
				-!
			
 
				-
			
 
				-methodsInProtocol: aString
			
 
				-	^ aString = self allProtocol
			
 
				-    	ifTrue: [ self model selectedClass methods ]
			
 
				-      	ifFalse: [ self model selectedClass methodsInProtocol: aString ]
			
 
				-!
			
 
				-
			
 
				-overrideSelectors
			
 
				-	^ self selectorsCache 
			
 
				-    	at: 'override'
			
 
				-        ifAbsentPut: [ 
			
 
				-        	self model selectedClass allSuperclasses
			
 
				-				inject: Set new into: [ :acc :each | acc addAll: each selectors; yourself ] ]
			
 
				-!
			
 
				-
			
 
				-overridenSelectors
			
 
				-	^ self selectorsCache 
			
 
				-    	at: 'overriden'
			
 
				-        ifAbsentPut: [ 
			
 
				-        	self model selectedClass allSubclasses
			
 
				-				inject: Set new into: [ :acc :each | acc addAll: each selectors; yourself ] ]
			
 
				-!
			
 
				-
			
 
				-selectorsCache
			
 
				-	^ selectorsCache
			
 
				-! !
			
 
				-
			
 
				-!HLMethodsListWidget methodsFor: 'actions'!
			
 
				-
			
 
				-observeModel
			
 
				-	self model announcer on: HLProtocolSelected do: [ :ann |
			
 
				-    	self onProtocolSelected: ann item ].
			
 
				-    self model announcer on: HLShowInstanceToggled do: [ :ann |
			
 
				-    	self onProtocolSelected: nil ].
			
 
				-    self model announcer on: HLMethodSelected do: [ :ann |
			
 
				-    	self onMethodSelected: ann item ]
			
 
				-!
			
 
				-
			
 
				-selectItem: aCompiledMethod
			
 
				-	super selectItem: aCompiledMethod.
			
 
				-   	self model selectedMethod: aCompiledMethod
			
 
				-! !
			
 
				-
			
 
				-!HLMethodsListWidget methodsFor: 'cache'!
			
 
				-
			
 
				-flushSelectorsCache
			
 
				-	selectorsCache := Dictionary new
			
 
				-! !
			
 
				-
			
 
				-!HLMethodsListWidget methodsFor: 'initialization'!
			
 
				-
			
 
				-initialize
			
 
				-	super initialize.
			
 
				-    self flushSelectorsCache
			
 
				-! !
			
 
				-
			
 
				-!HLMethodsListWidget methodsFor: 'reactions'!
			
 
				-
			
 
				-onMethodSelected: aMethod
			
 
				-	self focus
			
 
				-!
			
 
				-
			
 
				-onProtocolSelected: aString
			
 
				-    self selectedItem: nil.
			
 
				-    
			
 
				-    self items: (self model selectedClass 
			
 
				-    	ifNil: [ #() ]
			
 
				-      	ifNotNil: [ aString
			
 
				-    		ifNil: [ #() ]
			
 
				-      		ifNotNil: [ self methodsInProtocol: aString ] ]).
			
 
				-        
			
 
				-    self refresh
			
 
				-! !
			
 
				-
			
 
				-!HLMethodsListWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-	self model showInstance
			
 
				-    	ifFalse: [ html div 
			
 
				-        	class: 'class_side'; 
			
 
				-            with: [ super renderContentOn: html ] ]
			
 
				-      	ifTrue: [ super renderContentOn: html ].
			
 
				-        
			
 
				-    self flushSelectorsCache
			
 
				-!
			
 
				-
			
 
				-renderItemLabel: aCompiledMethod on: html
			
 
				-	html with: aCompiledMethod selector
			
 
				-! !
			
 
				-
			
 
				-!HLMethodsListWidget methodsFor: 'testing'!
			
 
				-
			
 
				-isOverride: aMethod
			
 
				-
			
 
				-   ^ self overrideSelectors includes: aMethod selector
			
 
				-!
			
 
				-
			
 
				-isOverriden: aMethod
			
 
				-
			
 
				-   ^ self overridenSelectors includes: aMethod selector
			
 
				-! !
			
 
				-
			
 
				-HLBrowserListWidget subclass: #HLPackagesListWidget
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Browser'!
			
 
				-
			
 
				-!HLPackagesListWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-initializeItems
			
 
				-	^ items := self model packages sort:[:a :b|
			
 
				-						a name < b name]
			
 
				-!
			
 
				-
			
 
				-items
			
 
				-	^ items ifNil: [self initializeItems]
			
 
				-! !
			
 
				-
			
 
				-!HLPackagesListWidget methodsFor: 'actions'!
			
 
				-
			
 
				-focusClassesListWidget
			
 
				-	self model announcer announce: HLClassesListFocus new
			
 
				-!
			
 
				-
			
 
				-observeModel
			
 
				-    self model announcer on: HLPackageSelected do: [ :ann |
			
 
				-    	self onPackageSelected: ann item ]
			
 
				-!
			
 
				-
			
 
				-selectItem: aPackage
			
 
				-	super selectItem: aPackage.
			
 
				-    self model selectedPackage: aPackage
			
 
				-! !
			
 
				-
			
 
				-!HLPackagesListWidget methodsFor: 'reactions'!
			
 
				-
			
 
				-onPackageSelected: aPackage
			
 
				-	self focus
			
 
				-! !
			
 
				-
			
 
				-!HLPackagesListWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderButtonsOn: html
			
 
				-
			
 
				-	html span class: 'info'; with: 'Auto commit'.
			
 
				-	html div 
			
 
				-        class: 'btn-group switch';
			
 
				-		at: 'data-toggle' put: 'buttons-radio';
			
 
				-		with: [ 
			
 
				-           	html button 
			
 
				-                class: (String streamContents: [ :str |
			
 
				-                	str nextPutAll: 'btn' ]);
			
 
				-  				with: 'On'.
			
 
				-  			html button
			
 
				-  				class: (String streamContents: [ :str |
			
 
				-                	str nextPutAll: 'btn active' ]);
			
 
				-  				with: 'Off' ].
			
 
				-                
			
 
				-    html a 
			
 
				-         	class: 'btn';
			
 
				-			with: 'Commit'.
			
 
				-! !
			
 
				-
			
 
				-HLBrowserListWidget subclass: #HLProtocolsListWidget
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Browser'!
			
 
				-
			
 
				-!HLProtocolsListWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-allProtocol
			
 
				-	^ self model allProtocol
			
 
				-!
			
 
				-
			
 
				-selectedItem
			
 
				-	^ super selectedItem" ifNil: [ self allProtocol ]"
			
 
				-! !
			
 
				-
			
 
				-!HLProtocolsListWidget methodsFor: 'actions'!
			
 
				-
			
 
				-observeModel
			
 
				-	self model announcer on: HLClassSelected do: [ :ann |
			
 
				-    	self onClassSelected: ann item ].
			
 
				-    self model announcer on: HLShowInstanceToggled do: [ :ann |
			
 
				-    	self onClassSelected: self model selectedClass ].
			
 
				-    self model announcer on: HLProtocolSelected do: [ :ann |
			
 
				-    	self onProtocolSelected: ann item ]
			
 
				-!
			
 
				-
			
 
				-selectItem: aString
			
 
				-	super selectItem: aString.
			
 
				-    self model selectedProtocol: aString
			
 
				-! !
			
 
				-
			
 
				-!HLProtocolsListWidget methodsFor: 'reactions'!
			
 
				-
			
 
				-onClassSelected: aClass
			
 
				-    self selectedItem: nil.
			
 
				-    
			
 
				-    self items: (aClass
			
 
				-    	ifNil: [ Array with: self allProtocol ]
			
 
				-      	ifNotNil: [ 
			
 
				-        	(Array with: self allProtocol) 
			
 
				-            	addAll: aClass protocols; 
			
 
				-                yourself ]).
			
 
				-
			
 
				-    self refresh
			
 
				-!
			
 
				-
			
 
				-onProtocolSelected: aString
			
 
				-	self focus
			
 
				-! !
			
 
				-
			
 
				-!HLProtocolsListWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-	self model showInstance
			
 
				-    	ifFalse: [ html div 
			
 
				-        	class: 'class_side'; 
			
 
				-            with: [ super renderContentOn: html ] ]
			
 
				-      	ifTrue: [ super renderContentOn: html ]
			
 
				-! !
			
 
				-
			
 
				-Object subclass: #HLBrowserModel
			
 
				-	instanceVariableNames: 'announcer environment selectedPackage selectedClass selectedProtocol selectedMethod showInstance showComment'
			
 
				-	package: 'Helios-Browser'!
			
 
				-
			
 
				-!HLBrowserModel methodsFor: 'accessing'!
			
 
				-
			
 
				-allProtocol
			
 
				-	^ '-- All --'
			
 
				-!
			
 
				-
			
 
				-announcer
			
 
				-	^ announcer ifNil: [ announcer := Announcer new ]
			
 
				-!
			
 
				-
			
 
				-environment
			
 
				-	^ environment ifNil: [ HLManager current environment ]
			
 
				-!
			
 
				-
			
 
				-environment: anEnvironment
			
 
				-	environment := anEnvironment
			
 
				-!
			
 
				-
			
 
				-packages
			
 
				-	^ self environment packages
			
 
				-!
			
 
				-
			
 
				-selectedClass
			
 
				-	^ selectedClass
			
 
				-!
			
 
				-
			
 
				-selectedClass: aClass
			
 
				-	selectedClass = aClass ifFalse: [
			
 
				-		aClass 
			
 
				-    		ifNil: [ selectedClass := nil ]
			
 
				-      		ifNotNil: [
			
 
				-				self showInstance 
			
 
				-    				ifTrue: [ selectedClass := aClass theNonMetaClass ]
			
 
				-      				ifFalse: [ selectedClass := aClass theMetaClass ] ].
			
 
				-    
			
 
				-   		self 
			
 
				-    		selectedMethod: nil;
			
 
				-       	 	selectedProtocol: nil ].
			
 
				-        
			
 
				-   self announcer announce: (HLClassSelected on: self selectedClass)
			
 
				-!
			
 
				-
			
 
				-selectedMethod
			
 
				-	^ selectedMethod
			
 
				-!
			
 
				-
			
 
				-selectedMethod: aCompiledMethod
			
 
				-	selectedMethod = aCompiledMethod ifFalse: [
			
 
				-		selectedMethod := aCompiledMethod ].
			
 
				-    
			
 
				-    self announcer announce: (HLMethodSelected on: aCompiledMethod)
			
 
				-!
			
 
				-
			
 
				-selectedPackage
			
 
				-	^ selectedPackage
			
 
				-!
			
 
				-
			
 
				-selectedPackage: aPackage
			
 
				-	selectedPackage = aPackage ifFalse: [
			
 
				-		selectedPackage := aPackage.
			
 
				-    	self selectedClass: nil ].
			
 
				-    
			
 
				-    self announcer announce: (HLPackageSelected on: aPackage)
			
 
				-!
			
 
				-
			
 
				-selectedProtocol
			
 
				-	^ selectedProtocol
			
 
				-!
			
 
				-
			
 
				-selectedProtocol: aString
			
 
				-	selectedProtocol = aString ifFalse: [
			
 
				-      	selectedProtocol := aString.
			
 
				-    	self selectedMethod: nil ].
			
 
				-    
			
 
				-    self announcer announce: (HLProtocolSelected on: aString)
			
 
				-!
			
 
				-
			
 
				-showComment
			
 
				-	^ showComment ifNil: [ false ]
			
 
				-!
			
 
				-
			
 
				-showComment: aBoolean
			
 
				-	showComment := aBoolean.
			
 
				-    
			
 
				-    self announcer announce: HLShowCommentToggled new
			
 
				-!
			
 
				-
			
 
				-showInstance
			
 
				-	^ showInstance ifNil: [ true ]
			
 
				-!
			
 
				-
			
 
				-showInstance: aBoolean
			
 
				-	showInstance := aBoolean.
			
 
				-    
			
 
				-    self selectedClass ifNotNil: [
			
 
				-    	self selectedClass: (aBoolean
			
 
				-    		ifTrue: [self selectedClass theNonMetaClass ]
			
 
				-    	  	ifFalse: [ self selectedClass theMetaClass ]) ].
			
 
				-    
			
 
				-    self announcer announce: HLShowInstanceToggled new
			
 
				-! !
			
 
				-
			
 
				-!HLBrowserModel class methodsFor: 'actions'!
			
 
				-
			
 
				-on: anEnvironment
			
 
				-
			
 
				-	^ self new
			
 
				-    	environment: anEnvironment;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
 
				-HLWidget subclass: #HLBrowserSourceWidget
			
 
				-	instanceVariableNames: 'model codeWidget'
			
 
				-	package: 'Helios-Browser'!
			
 
				-
			
 
				-!HLBrowserSourceWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-codeWidget
			
 
				-	^ codeWidget ifNil: [ codeWidget := HLCodeWidget new ]
			
 
				-!
			
 
				-
			
 
				-contents
			
 
				-	^ self sourceArea contents
			
 
				-!
			
 
				-
			
 
				-contents: aString
			
 
				-	self codeWidget contents: aString
			
 
				-!
			
 
				-
			
 
				-model
			
 
				-	^ model
			
 
				-!
			
 
				-
			
 
				-model: aBrowserModel
			
 
				-	model := aBrowserModel.
			
 
				-    
			
 
				-    self observeModel
			
 
				-! !
			
 
				-
			
 
				-!HLBrowserSourceWidget methodsFor: 'actions'!
			
 
				-
			
 
				-observeModel
			
 
				-	self model announcer on: HLMethodSelected do: [ :ann |
			
 
				-    	self onMethodSelected: ann item ].
			
 
				-    self model announcer on: HLClassSelected do: [ :ann |
			
 
				-    	self onClassSelected: ann item ].
			
 
				-    self model announcer on: HLProtocolSelected do: [ :ann |
			
 
				-    	self onProtocolSelected: ann item ]
			
 
				-! !
			
 
				-
			
 
				-!HLBrowserSourceWidget methodsFor: 'reactions'!
			
 
				-
			
 
				-onClassSelected: aClass
			
 
				-	aClass ifNil: [ ^ self contents: '' ].
			
 
				-    
			
 
				-    self contents: aClass definition
			
 
				-!
			
 
				-
			
 
				-onMethodSelected: aCompiledMethod
			
 
				-	aCompiledMethod ifNil: [ ^ self contents: '' ].
			
 
				-    
			
 
				-    self contents: aCompiledMethod source
			
 
				-!
			
 
				-
			
 
				-onProtocolSelected: aString
			
 
				-	self model selectedClass ifNil: [ ^ self contents: '' ].
			
 
				-    
			
 
				-    self contents: self model selectedClass definition
			
 
				-! !
			
 
				-
			
 
				-!HLBrowserSourceWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-	self codeWidget renderOn: html
			
 
				-! !
			
 
				-
			
 
				-!HLBrowserSourceWidget class methodsFor: 'instance creation'!
			
 
				-
			
 
				-on: aBrowserModel
			
 
				-	^ self new
			
 
				-    	model: aBrowserModel;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
--- a/st/Helios-Commands.st
+++ b/st/Helios-Commands.st
@@ -1,223 +0,0 @@
 
				-Smalltalk current createPackage: 'Helios-Commands' properties: #{}!
			
 
				-Object subclass: #HLCommand
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLCommand methodsFor: 'accessing'!
			
 
				-
			
 
				-documentation
			
 
				-	^ self class documentation
			
 
				-!
			
 
				-
			
 
				-key
			
 
				-	^ self class key
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ self class label
			
 
				-! !
			
 
				-
			
 
				-!HLCommand methodsFor: 'converting'!
			
 
				-
			
 
				-asBinding
			
 
				-	^ (HLBindingAction on: self key labelled: self label)
			
 
				-    	callback: [ self execute ]
			
 
				-! !
			
 
				-
			
 
				-!HLCommand methodsFor: 'executing'!
			
 
				-
			
 
				-execute
			
 
				-! !
			
 
				-
			
 
				-!HLCommand class methodsFor: 'accessing'!
			
 
				-
			
 
				-bindingGroup
			
 
				-	^ nil
			
 
				-!
			
 
				-
			
 
				-documentation
			
 
				-	^ ''
			
 
				-!
			
 
				-
			
 
				-key
			
 
				-	^ nil
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ ''
			
 
				-! !
			
 
				-
			
 
				-HLCommand subclass: #HLBrowserCommand
			
 
				-	instanceVariableNames: 'model'
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLBrowserCommand methodsFor: 'accessing'!
			
 
				-
			
 
				-model
			
 
				-	^ model
			
 
				-!
			
 
				-
			
 
				-model: aBrowserModel
			
 
				-	model := aBrowserModel
			
 
				-! !
			
 
				-
			
 
				-!HLBrowserCommand class methodsFor: 'instance creation'!
			
 
				-
			
 
				-on: aBrowserModel
			
 
				-	^ self new
			
 
				-    	model: aBrowserModel;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
 
				-HLBrowserCommand subclass: #HLGoToCommand
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLGoToCommand class methodsFor: 'accessing'!
			
 
				-
			
 
				-bindingGroup
			
 
				-	^ 'Go to'
			
 
				-! !
			
 
				-
			
 
				-HLGoToCommand subclass: #HLGoToClassesCommand
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLGoToClassesCommand methodsFor: 'executing'!
			
 
				-
			
 
				-execute
			
 
				-	self model selectedClass: self model selectedClass
			
 
				-! !
			
 
				-
			
 
				-!HLGoToClassesCommand class methodsFor: 'accessing'!
			
 
				-
			
 
				-key
			
 
				-	"c"
			
 
				-    
			
 
				-	^ 67
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ 'Classes'
			
 
				-! !
			
 
				-
			
 
				-HLGoToCommand subclass: #HLGoToMethodsCommand
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLGoToMethodsCommand methodsFor: 'executing'!
			
 
				-
			
 
				-execute
			
 
				-	self model selectedMethod: self model selectedMethod
			
 
				-! !
			
 
				-
			
 
				-!HLGoToMethodsCommand class methodsFor: 'accessing'!
			
 
				-
			
 
				-key
			
 
				-	"m"
			
 
				-    
			
 
				-	^ 77
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ 'Methods'
			
 
				-! !
			
 
				-
			
 
				-HLGoToCommand subclass: #HLGoToPackagesCommand
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLGoToPackagesCommand methodsFor: 'executing'!
			
 
				-
			
 
				-execute
			
 
				-	self model selectedPackage: self model selectedPackage
			
 
				-! !
			
 
				-
			
 
				-!HLGoToPackagesCommand class methodsFor: 'accessing'!
			
 
				-
			
 
				-key
			
 
				-	"p"
			
 
				-    
			
 
				-	^ 80
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ 'Packages'
			
 
				-! !
			
 
				-
			
 
				-HLGoToCommand subclass: #HLGoToProtocolsCommand
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLGoToProtocolsCommand methodsFor: 'executing'!
			
 
				-
			
 
				-execute
			
 
				-	self model selectedProtocol: self model selectedProtocol
			
 
				-! !
			
 
				-
			
 
				-!HLGoToProtocolsCommand class methodsFor: 'accessing'!
			
 
				-
			
 
				-key
			
 
				-	"p"
			
 
				-    
			
 
				-	^ 84
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ 'Protocols'
			
 
				-! !
			
 
				-
			
 
				-HLBrowserCommand subclass: #HLToggleCommand
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLToggleCommand class methodsFor: 'accessing'!
			
 
				-
			
 
				-bindingGroup
			
 
				-	^ 'Toggle'
			
 
				-! !
			
 
				-
			
 
				-HLToggleCommand subclass: #HLToggleClassSideCommand
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLToggleClassSideCommand methodsFor: 'executing'!
			
 
				-
			
 
				-execute
			
 
				-	self model showInstance: false
			
 
				-! !
			
 
				-
			
 
				-!HLToggleClassSideCommand class methodsFor: 'accessing'!
			
 
				-
			
 
				-key
			
 
				-	"c"
			
 
				-    
			
 
				-	^ 67
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ 'Class side'
			
 
				-! !
			
 
				-
			
 
				-HLToggleCommand subclass: #HLToggleInstanceSideCommand
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Commands'!
			
 
				-
			
 
				-!HLToggleInstanceSideCommand methodsFor: 'executing'!
			
 
				-
			
 
				-execute
			
 
				-	self model showInstance: true
			
 
				-! !
			
 
				-
			
 
				-!HLToggleInstanceSideCommand class methodsFor: 'accessing'!
			
 
				-
			
 
				-key
			
 
				-	"i"
			
 
				-    
			
 
				-	^ 73
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ 'Instance side'
			
 
				-! !
			
 
				-
			
--- a/st/Helios-Core.st
+++ b/st/Helios-Core.st
@@ -1,532 +0,0 @@
 
				-Smalltalk current createPackage: 'Helios-Core' properties: #{}!
			
 
				-Object subclass: #HLTab
			
 
				-	instanceVariableNames: 'widget label'
			
 
				-	package: 'Helios-Core'!
			
 
				-
			
 
				-!HLTab methodsFor: 'accessing'!
			
 
				-
			
 
				-activate
			
 
				-	self manager activate: self
			
 
				-!
			
 
				-
			
 
				-add
			
 
				-	self manager addTab: self
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ label ifNil: [ '' ]
			
 
				-!
			
 
				-
			
 
				-label: aString
			
 
				-	label := aString
			
 
				-!
			
 
				-
			
 
				-manager
			
 
				-	^ HLManager current
			
 
				-!
			
 
				-
			
 
				-widget
			
 
				-	^ widget
			
 
				-!
			
 
				-
			
 
				-widget: aWidget
			
 
				-	widget := aWidget
			
 
				-! !
			
 
				-
			
 
				-!HLTab methodsFor: 'testing'!
			
 
				-
			
 
				-isActive
			
 
				-	^ self manager activeTab = self
			
 
				-! !
			
 
				-
			
 
				-!HLTab class methodsFor: 'instance creation'!
			
 
				-
			
 
				-on: aWidget labelled: aString
			
 
				-	^ self new
			
 
				-		widget: aWidget;
			
 
				-		label: aString;
			
 
				-		yourself
			
 
				-! !
			
 
				-
			
 
				-Widget subclass: #HLWidget
			
 
				-	instanceVariableNames: 'wrapper'
			
 
				-	package: 'Helios-Core'!
			
 
				-
			
 
				-!HLWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-manager
			
 
				-	^ HLManager current
			
 
				-!
			
 
				-
			
 
				-wrapper
			
 
				-	^ wrapper
			
 
				-! !
			
 
				-
			
 
				-!HLWidget methodsFor: 'keybindings'!
			
 
				-
			
 
				-registerBindings
			
 
				-	self registerBindingsOn: self manager keyBinder bindings
			
 
				-!
			
 
				-
			
 
				-registerBindingsOn: aBindingGroup
			
 
				-! !
			
 
				-
			
 
				-!HLWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-!
			
 
				-
			
 
				-renderOn: html
			
 
				-    self registerBindings.
			
 
				-
			
 
				-	wrapper := html div.
			
 
				-    [ :renderer | self renderContentOn: renderer ] appendToJQuery: wrapper asJQuery
			
 
				-! !
			
 
				-
			
 
				-!HLWidget methodsFor: 'updating'!
			
 
				-
			
 
				-refresh
			
 
				-	self wrapper ifNil: [ ^ self ].
			
 
				-    
			
 
				-	self wrapper asJQuery empty.
			
 
				-    [ :html | self renderContentOn: html ] appendToJQuery: self wrapper asJQuery
			
 
				-! !
			
 
				-
			
 
				-!HLWidget class methodsFor: 'accessing'!
			
 
				-
			
 
				-openAsTab
			
 
				-	HLManager current addTab: (HLTab on: self new labelled: self tabLabel)
			
 
				-!
			
 
				-
			
 
				-tabLabel
			
 
				-	^ 'Tab'
			
 
				-!
			
 
				-
			
 
				-tabPriority
			
 
				-	^ 500
			
 
				-! !
			
 
				-
			
 
				-!HLWidget class methodsFor: 'testing'!
			
 
				-
			
 
				-canBeOpenAsTab
			
 
				-	^ false
			
 
				-! !
			
 
				-
			
 
				-HLWidget subclass: #HLDebugger
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Core'!
			
 
				-
			
 
				-HLWidget subclass: #HLFocusableWidget
			
 
				-	instanceVariableNames: 'hiddenInput'
			
 
				-	package: 'Helios-Core'!
			
 
				-
			
 
				-!HLFocusableWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-focusClass
			
 
				-	^ 'focused'
			
 
				-! !
			
 
				-
			
 
				-!HLFocusableWidget methodsFor: 'events'!
			
 
				-
			
 
				-blur
			
 
				-	hiddenInput asJQuery blur
			
 
				-!
			
 
				-
			
 
				-focus
			
 
				-	hiddenInput asJQuery focus
			
 
				-!
			
 
				-
			
 
				-hasFocus
			
 
				-	^ self wrapper notNil and: [ self wrapper asJQuery hasClass: self focusClass ]
			
 
				-! !
			
 
				-
			
 
				-!HLFocusableWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-!
			
 
				-
			
 
				-renderHiddenInputOn: html
			
 
				-	hiddenInput := html input
			
 
				-    	style: 'position: absolute; left: -100000px;';
			
 
				-    	onBlur: [ self wrapper asJQuery removeClass: self focusClass ];
			
 
				-        onFocus: [ self wrapper asJQuery addClass: self focusClass ]
			
 
				-!
			
 
				-
			
 
				-renderOn: html
			
 
				-	self registerBindings.
			
 
				-	self renderHiddenInputOn: html.
			
 
				-    
			
 
				-    wrapper := html div 
			
 
				-    	class: 'hl_widget'; 
			
 
				-        onClick: [ hiddenInput asJQuery focus ];
			
 
				-        with: [
			
 
				-			self renderContentOn: html ]
			
 
				-! !
			
 
				-
			
 
				-HLFocusableWidget subclass: #HLListWidget
			
 
				-	instanceVariableNames: 'items selectedItem'
			
 
				-	package: 'Helios-Core'!
			
 
				-
			
 
				-!HLListWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-cssClassForItem: anObject
			
 
				-	^ self selectedItem = anObject
			
 
				-			ifTrue: [ 'active' ]
			
 
				-			ifFalse: [ 'inactive' ]
			
 
				-!
			
 
				-
			
 
				-iconForItem: anObject
			
 
				-	^ ''
			
 
				-!
			
 
				-
			
 
				-items
			
 
				-	^ items ifNil: [ items := self defaultItems ]
			
 
				-!
			
 
				-
			
 
				-items: aCollection
			
 
				-	items := aCollection
			
 
				-!
			
 
				-
			
 
				-selectedItem
			
 
				-	^ selectedItem
			
 
				-!
			
 
				-
			
 
				-selectedItem: anObject
			
 
				-	selectedItem := anObject
			
 
				-! !
			
 
				-
			
 
				-!HLListWidget methodsFor: 'actions'!
			
 
				-
			
 
				-activateFirstListItem
			
 
				-	self activateListItem: (window jQuery: ((wrapper asJQuery find: 'li') get: 0))
			
 
				-!
			
 
				-
			
 
				-activateListItem: aListItem
			
 
				-	| parent position |
			
 
				-    
			
 
				-	(aListItem get: 0) ifNil: [ ^self ].
			
 
				-
			
 
				-	<position = aListItem.parent().children().get().indexOf(aListItem.get(0)) + 1>.
			
 
				-
			
 
				-    parent := aListItem parent.
			
 
				-	parent children removeClass: 'active'.
			
 
				-	aListItem addClass: 'active'.
			
 
				-    
			
 
				-    "Move the scrollbar to show the active element"
			
 
				-    aListItem position top < 0 ifTrue: [
			
 
				-		(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem position top - 10) ].
			
 
				-    aListItem position top + aListItem height > parent height ifTrue: [ 
			
 
				-		(parent get: 0) scrollTop: ((parent get: 0) scrollTop + aListItem height - (parent height - aListItem position top)) +10 ].
			
 
				-        
			
 
				-   "Activate the corresponding item"
			
 
				-   self selectItem: (self items at: (aListItem attr: 'list-data') asNumber)
			
 
				-!
			
 
				-
			
 
				-focus
			
 
				-	super focus.
			
 
				-    self items isEmpty ifFalse: [ 
			
 
				-		self selectedItem ifNil: [ self activateFirstListItem ] ]
			
 
				-!
			
 
				-
			
 
				-selectItem: anObject
			
 
				-	self selectedItem: anObject
			
 
				-! !
			
 
				-
			
 
				-!HLListWidget methodsFor: 'defaults'!
			
 
				-
			
 
				-defaultItems
			
 
				-	^ #()
			
 
				-! !
			
 
				-
			
 
				-!HLListWidget methodsFor: 'events'!
			
 
				-
			
 
				-setupKeyBindings
			
 
				-	| next |
			
 
				-	hiddenInput asJQuery unbind: 'keydown'.
			
 
				-
			
 
				-	hiddenInput asJQuery keydown: [ :e | | selected |
			
 
				-    	selected := window jQuery: '.focused .nav-pills .active'.
			
 
				-        e which = 38 ifTrue: [ 
			
 
				-        	self activateListItem: selected prev ].
			
 
				-      	e which = 40 ifTrue: [
			
 
				-          	next := selected next.
			
 
				-            (next get: 0) ifNil: [ next := window jQuery: '.focused .nav-pills li:first-child' ].
			
 
				-			self activateListItem: next ] ]
			
 
				-! !
			
 
				-
			
 
				-!HLListWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderButtonsOn: html
			
 
				-!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-	html ul 
			
 
				-    	class: 'nav nav-pills nav-stacked';
			
 
				-        with: [ self renderListOn: html ].
			
 
				-    html div class: 'pane_actions form-actions'; with: [
			
 
				-      	self renderButtonsOn: html ].
			
 
				-        
			
 
				-   self setupKeyBindings
			
 
				-!
			
 
				-
			
 
				-renderItem: anObject on: html
			
 
				-	| li |
			
 
				-    
			
 
				-	li := html li.
			
 
				-    li
			
 
				-    	class: (self cssClassForItem: anObject);
			
 
				-        at: 'list-data' put: (self items indexOf: anObject) asString;
			
 
				-        with: [ 
			
 
				-        	html a
			
 
				-            	with: [ 
			
 
				-            		(html tag: 'i') class: (self iconForItem: anObject).
			
 
				-  					self renderItemLabel: anObject on: html ];
			
 
				-				onClick: [
			
 
				-                  	self activateListItem: li asJQuery ] ]
			
 
				-!
			
 
				-
			
 
				-renderItemLabel: anObject on: html
			
 
				-	html with: anObject asString
			
 
				-!
			
 
				-
			
 
				-renderListOn: html
			
 
				-	self items do: [ :each | 
			
 
				-    	self renderItem: each on: html ]
			
 
				-! !
			
 
				-
			
 
				-HLListWidget subclass: #HLNavigationListWidget
			
 
				-	instanceVariableNames: 'previous next'
			
 
				-	package: 'Helios-Core'!
			
 
				-
			
 
				-!HLNavigationListWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-next
			
 
				-	^ next
			
 
				-!
			
 
				-
			
 
				-next: aWidget
			
 
				-	next := aWidget.
			
 
				-    aWidget previous = self ifFalse: [ aWidget previous: self ]
			
 
				-!
			
 
				-
			
 
				-previous
			
 
				-	^ previous
			
 
				-!
			
 
				-
			
 
				-previous: aWidget
			
 
				-	previous := aWidget.
			
 
				-    aWidget next = self ifFalse: [ aWidget next: self ]
			
 
				-! !
			
 
				-
			
 
				-!HLNavigationListWidget methodsFor: 'actions'!
			
 
				-
			
 
				-nextFocus
			
 
				-	self next ifNotNil: [ self next focus ]
			
 
				-!
			
 
				-
			
 
				-previousFocus
			
 
				-	self previous ifNotNil: [ self previous focus ]
			
 
				-! !
			
 
				-
			
 
				-!HLNavigationListWidget methodsFor: 'events'!
			
 
				-
			
 
				-setupKeyBindings
			
 
				-	super setupKeyBindings.
			
 
				-
			
 
				-	hiddenInput asJQuery keydown: [ :e |
			
 
				-        e which = 39 ifTrue: [ 
			
 
				-        	self nextFocus ].
			
 
				-		e which = 37 ifTrue: [ 
			
 
				-        	self previousFocus ] ]
			
 
				-! !
			
 
				-
			
 
				-HLWidget subclass: #HLManager
			
 
				-	instanceVariableNames: 'tabs activeTab keyBinder environment'
			
 
				-	package: 'Helios-Core'!
			
 
				-
			
 
				-!HLManager methodsFor: 'accessing'!
			
 
				-
			
 
				-activeTab
			
 
				-	^ activeTab
			
 
				-!
			
 
				-
			
 
				-environment
			
 
				-	"The default environment used by all Helios objects"
			
 
				-    
			
 
				-	^ environment ifNil: [ environment := self defaultEnvironment ]
			
 
				-!
			
 
				-
			
 
				-environment: anEnvironment
			
 
				-	environment := anEnvironment
			
 
				-!
			
 
				-
			
 
				-keyBinder
			
 
				-	^ keyBinder ifNil: [ keyBinder := HLKeyBinder new ]
			
 
				-!
			
 
				-
			
 
				-tabs
			
 
				-	^ tabs ifNil: [ tabs := OrderedCollection new ]
			
 
				-! !
			
 
				-
			
 
				-!HLManager methodsFor: 'actions'!
			
 
				-
			
 
				-activate: aTab
			
 
				-	self keyBinder flushBindings.
			
 
				-	activeTab := aTab.
			
 
				-    
			
 
				-	self 
			
 
				-		refresh;
			
 
				-		show: aTab
			
 
				-!
			
 
				-
			
 
				-addTab: aTab
			
 
				-	self tabs add: aTab.
			
 
				-    self activate: aTab
			
 
				-!
			
 
				-
			
 
				-removeTab: aTab
			
 
				-	"Todo: activate the previously activated tab. Keep a history of tabs selection"
			
 
				-
			
 
				-	(self tabs includes: aTab) ifFalse: [ ^ self ].
			
 
				-
			
 
				-	self tabs remove: aTab.
			
 
				-	self refresh
			
 
				-! !
			
 
				-
			
 
				-!HLManager methodsFor: 'defaults'!
			
 
				-
			
 
				-defaultEnvironment
			
 
				-	^ HLLocalEnvironment new
			
 
				-! !
			
 
				-
			
 
				-!HLManager methodsFor: 'initialization'!
			
 
				-
			
 
				-initialize
			
 
				-	super initialize.
			
 
				-    self keyBinder setupEvents
			
 
				-! !
			
 
				-
			
 
				-!HLManager methodsFor: 'rendering'!
			
 
				-
			
 
				-refresh
			
 
				-	(window jQuery: '.navbar') remove.
			
 
				-	(window jQuery: '#container') remove.
			
 
				-	self appendToJQuery: 'body' asJQuery
			
 
				-!
			
 
				-
			
 
				-renderAddOn: html
			
 
				-    html li 
			
 
				-    	class: 'dropdown';
			
 
				-        with: [ 
			
 
				-			html a 
			
 
				-        		class: 'dropdown-toggle';
			
 
				-           	 	at: 'data-toggle' put: 'dropdown';
			
 
				-            	with: [ 
			
 
				-            		html with: 'Open...'.
			
 
				-  					(html tag: 'b') class: 'caret' ].
			
 
				-           html ul 
			
 
				-           		class: 'dropdown-menu';
			
 
				-                with: [
			
 
				-                  	((HLWidget withAllSubclasses
			
 
				-                    	select: [ :each | each canBeOpenAsTab ])
			
 
				-                        sorted: [ :a :b | a tabPriority < b tabPriority ])
			
 
				-                        do: [ :each |
			
 
				-  							html li with: [
			
 
				-                      			html a 
			
 
				-                                	with: each tabLabel;
			
 
				-      								onClick: [ each openAsTab ] ] ] ] ]
			
 
				-!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-	html div 
			
 
				-		class: 'navbar navbar-fixed-top';
			
 
				-		with: [ html div 
			
 
				-			class: 'navbar-inner';
			
 
				-			with: [ self renderTabsOn: html ] ].
			
 
				-	html div id: 'container'
			
 
				-!
			
 
				-
			
 
				-renderTabsOn: html
			
 
				-	html ul 
			
 
				-		class: 'nav';
			
 
				-		with: [ 
			
 
				-        	self tabs do: [ :each |
			
 
				-				html li 
			
 
				-					class: (each isActive ifTrue: [ 'active' ] ifFalse: [ 'inactive' ]);
			
 
				-					with: [
			
 
				-						html a
			
 
				-							with: [
			
 
				-      							((html tag: 'i') class: 'icon-remove-circle')
			
 
				-  									onClick: [ self removeTab: each ].
			
 
				-                              	html with: each label ];
			
 
				-							onClick: [ each activate ] ] ].
			
 
				-			self renderAddOn: html ]
			
 
				-!
			
 
				-
			
 
				-show: aTab
			
 
				-	(window jQuery: '#container') empty.
			
 
				-	aTab widget appendToJQuery: '#container' asJQuery
			
 
				-! !
			
 
				-
			
 
				-HLManager class instanceVariableNames: 'current'!
			
 
				-
			
 
				-!HLManager class methodsFor: 'accessing'!
			
 
				-
			
 
				-current
			
 
				-	^ current ifNil: [ current := self basicNew initialize ]
			
 
				-! !
			
 
				-
			
 
				-!HLManager class methodsFor: 'initialization'!
			
 
				-
			
 
				-initialize
			
 
				-	self current appendToJQuery: 'body' asJQuery
			
 
				-! !
			
 
				-
			
 
				-!HLManager class methodsFor: 'instance creation'!
			
 
				-
			
 
				-new
			
 
				-	"Use current instead"
			
 
				-
			
 
				-	self shouldNotImplement
			
 
				-! !
			
 
				-
			
 
				-HLWidget subclass: #HLSUnit
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Core'!
			
 
				-
			
 
				-!HLSUnit class methodsFor: 'accessing'!
			
 
				-
			
 
				-tabLabel
			
 
				-	^ 'SUnit'
			
 
				-!
			
 
				-
			
 
				-tabPriority
			
 
				-	^ 1000
			
 
				-! !
			
 
				-
			
 
				-!HLSUnit class methodsFor: 'testing'!
			
 
				-
			
 
				-canBeOpenAsTab
			
 
				-	^ true
			
 
				-! !
			
 
				-
			
 
				-HLWidget subclass: #HLTranscript
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Core'!
			
 
				-
			
 
				-!HLTranscript class methodsFor: 'accessing'!
			
 
				-
			
 
				-tabLabel
			
 
				-	^ 'Transcript'
			
 
				-!
			
 
				-
			
 
				-tabPriority
			
 
				-	^ 600
			
 
				-! !
			
 
				-
			
 
				-!HLTranscript class methodsFor: 'testing'!
			
 
				-
			
 
				-canBeOpenAsTab
			
 
				-	^ true
			
 
				-! !
			
 
				-
			
--- a/st/Helios-Environments.st
+++ b/st/Helios-Environments.st
@@ -1,98 +0,0 @@
 
				-Smalltalk current createPackage: 'Helios-Environments' properties: #{}!
			
 
				-Object subclass: #HLEnvironment
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Environments'!
			
 
				-!HLEnvironment commentStamp!
			
 
				-Abstract class defining common behavior for local and remote environments!
			
 
				-
			
 
				-!HLEnvironment methodsFor: 'accessing'!
			
 
				-
			
 
				-packages
			
 
				-
			
 
				-	^ self subclassResponsibility
			
 
				-! !
			
 
				-
			
 
				-!HLEnvironment methodsFor: 'actions'!
			
 
				-
			
 
				-eval: someCode on: aReceiver
			
 
				-
			
 
				-	^ self subclassResponsibility
			
 
				-! !
			
 
				-
			
 
				-HLEnvironment subclass: #HLLocalEnvironment
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Environments'!
			
 
				-
			
 
				-!HLLocalEnvironment methodsFor: 'accessing'!
			
 
				-
			
 
				-packages
			
 
				-
			
 
				-	^ Smalltalk current packages
			
 
				-! !
			
 
				-
			
 
				-!HLLocalEnvironment methodsFor: 'actions'!
			
 
				-
			
 
				-eval: someCode on: aReceiver
			
 
				-	| compiler  |
			
 
				-	compiler := Compiler new.
			
 
				-	[compiler parseExpression: someCode] on: Error do: [:ex |
			
 
				-		^window alert: ex messageText].
			
 
				-	^(compiler eval: (compiler compile: 'doIt ^[', someCode, '] value' forClass: DoIt)) fn applyTo: aReceiver arguments: #()
			
 
				-! !
			
 
				-
			
 
				-HLEnvironment subclass: #HLRemoteEnvironment
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Environments'!
			
 
				-
			
 
				-!HLRemoteEnvironment methodsFor: 'accessing'!
			
 
				-
			
 
				-packages
			
 
				-	"Answer the remote environment's packages"
			
 
				-  
			
 
				-	"to-do"
			
 
				-    
			
 
				-    "Note for future self and friends:
			
 
				-    the problem with remote stuff is that the answers shouldn't be expected to be
			
 
				-    received in a syncrhonous fashion. Everything network is asyc, so you *are going to deal with callbacks* here"
			
 
				-! !
			
 
				-
			
 
				-!HLRemoteEnvironment methodsFor: 'actions'!
			
 
				-
			
 
				-eval: someCode on: aReceiver
			
 
				-
			
 
				-	"Note for future self and friends:
			
 
				-    whatever way this compilation happens on the other side, 
			
 
				-    it should return a proxy to the remote resulting object"
			
 
				-    
			
 
				-    self notYetImplemented
			
 
				-! !
			
 
				-
			
 
				-Object subclass: #HLRemoteObject
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Environments'!
			
 
				-!HLRemoteObject commentStamp!
			
 
				-This is a local proxy to a remote object.
			
 
				-Tipically useful for evaluating and inspecting and interacting with instances of a remote VM.!
			
 
				-
			
 
				-!HLRemoteObject methodsFor: 'actions'!
			
 
				-
			
 
				-doesNotUnderstand: aMessage
			
 
				-
			
 
				-	"to-do
			
 
				-
			
 
				-	aham, blah blah
			
 
				-
			
 
				-	super doesNotUnderstand: aMessage"
			
 
				-!
			
 
				-
			
 
				-inspectOn: anInspector
			
 
				-
			
 
				-	"to-do"
			
 
				-
			
 
				-	"this is a source of so much fun..."
			
 
				-!
			
 
				-
			
 
				-printString
			
 
				-	^ 'this is a remote object'
			
 
				-! !
			
 
				-
			
--- a/st/Helios-Inspector.st
+++ b/st/Helios-Inspector.st
@@ -1,367 +0,0 @@
 
				-Smalltalk current createPackage: 'Helios-Inspector' properties: #{}!
			
 
				-HLWidget subclass: #HLInspector
			
 
				-	instanceVariableNames: 'model variablesWidget displayWidget codeWidget label'
			
 
				-	package: 'Helios-Inspector'!
			
 
				-
			
 
				-!HLInspector methodsFor: 'accessing'!
			
 
				-
			
 
				-codeWidget
			
 
				-	^ codeWidget ifNil: [
			
 
				-		codeWidget := HLCodeWidget new
			
 
				-    		model: model code;
			
 
				-        	receiver: model inspectee;
			
 
				-        	yourself ]
			
 
				-!
			
 
				-
			
 
				-displayWidget
			
 
				-	^ displayWidget ifNil: [
			
 
				-		displayWidget := HLInspectorDisplayWidget new
			
 
				-    		model: self model;
			
 
				-        	yourself ]
			
 
				-!
			
 
				-
			
 
				-inspectee
			
 
				-	^ self model inspectee
			
 
				-!
			
 
				-
			
 
				-inspectee: anObject
			
 
				-	self model inspectee: anObject
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-    ^ label ifNil: [ model inspectee printString ]
			
 
				-!
			
 
				-
			
 
				-model
			
 
				-	^ model ifNil: [ 
			
 
				-    	self model: HLInspectorModel new.
			
 
				-		model ]
			
 
				-!
			
 
				-
			
 
				-model: aModel
			
 
				-	model := aModel. 
			
 
				-    self codeWidget model: aModel code.
			
 
				-    
			
 
				-    self 
			
 
				-        observeCodeWidget;
			
 
				-    	observeVariablesWidget;
			
 
				-        observeModel
			
 
				-!
			
 
				-
			
 
				-tabLabel
			
 
				-    ^ self label
			
 
				-!
			
 
				-
			
 
				-variablesWidget
			
 
				-	^ variablesWidget ifNil: [
			
 
				-		variablesWidget := HLInspectorVariablesWidget new
			
 
				-    		model: self model;
			
 
				-        	yourself ]
			
 
				-! !
			
 
				-
			
 
				-!HLInspector methodsFor: 'actions'!
			
 
				-
			
 
				-inspect: anObject
			
 
				-	self model inspect: anObject on: self.
			
 
				-    
			
 
				-	self 
			
 
				-    	refreshVariablesWidget;
			
 
				-		refreshDisplayWidget
			
 
				-!
			
 
				-
			
 
				-observeCodeWidget
			
 
				-	self codeWidget announcer 
			
 
				-    	on: HLDoItExecuted 
			
 
				-        do: [ self onDoneIt ]
			
 
				-!
			
 
				-
			
 
				-observeModel
			
 
				-	self model announcer
			
 
				-        on: HLInstanceVariableSelected do: [ :ann | self onInstanceVariableSelected ]
			
 
				-!
			
 
				-
			
 
				-observeVariablesWidget
			
 
				-	self variablesWidget announcer 
			
 
				-    	on: HLRefreshRequested do: [ :ann | self onRefresh ];
			
 
				-        on: HLDiveRequested do:[ self onDive ]
			
 
				-!
			
 
				-
			
 
				-open
			
 
				-	HLManager current addTab: (HLTab on: self labelled: self tabLabel)
			
 
				-!
			
 
				-
			
 
				-refresh
			
 
				-	self inspect: self inspectee
			
 
				-!
			
 
				-
			
 
				-refreshDisplayWidget
			
 
				-	self displayWidget refresh
			
 
				-!
			
 
				-
			
 
				-refreshVariablesWidget
			
 
				-	self variablesWidget refresh
			
 
				-!
			
 
				-
			
 
				-setLabel: aString
			
 
				-	label := aString
			
 
				-!
			
 
				-
			
 
				-setVariables: aDictionary
			
 
				-	self model variables: aDictionary
			
 
				-! !
			
 
				-
			
 
				-!HLInspector methodsFor: 'reactions'!
			
 
				-
			
 
				-onDive
			
 
				-
			
 
				-	self inspect: self model selectedInstVarObject
			
 
				-!
			
 
				-
			
 
				-onDoneIt
			
 
				-
			
 
				-	self refresh
			
 
				-!
			
 
				-
			
 
				-onInspectIt
			
 
				-!
			
 
				-
			
 
				-onInstanceVariableSelected
			
 
				-	self codeWidget receiver: self model selectedInstVarObject.
			
 
				-	self refreshDisplayWidget
			
 
				-!
			
 
				-
			
 
				-onPrintIt
			
 
				-!
			
 
				-
			
 
				-onRefresh
			
 
				-
			
 
				-	self refresh
			
 
				-! !
			
 
				-
			
 
				-!HLInspector methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-   	html with: (HLContainer with: (HLHorizontalSplitter
			
 
				-    	with: (HLVerticalSplitter 
			
 
				-            		with: self variablesWidget
			
 
				-            	    with: self displayWidget)
			
 
				-        with: self codeWidget))
			
 
				-! !
			
 
				-
			
 
				-!HLInspector class methodsFor: 'accessing'!
			
 
				-
			
 
				-tabLabel
			
 
				-	^ 'Inspector'
			
 
				-!
			
 
				-
			
 
				-tabPriority
			
 
				-	^ 10
			
 
				-! !
			
 
				-
			
 
				-!HLInspector class methodsFor: 'testing'!
			
 
				-
			
 
				-canBeOpenAsTab
			
 
				-	^ false
			
 
				-! !
			
 
				-
			
 
				-HLNavigationListWidget subclass: #HLInspectorDisplayWidget
			
 
				-	instanceVariableNames: 'model'
			
 
				-	package: 'Helios-Inspector'!
			
 
				-
			
 
				-!HLInspectorDisplayWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-model
			
 
				-
			
 
				-	^ model
			
 
				-!
			
 
				-
			
 
				-model: aModel
			
 
				-
			
 
				-	model := aModel
			
 
				-! !
			
 
				-
			
 
				-!HLInspectorDisplayWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-	
			
 
				-    html div with: self selectionDisplayString
			
 
				-!
			
 
				-
			
 
				-selectionDisplayString
			
 
				-	|selection|
			
 
				-	selection := model selection.
			
 
				-    ^ (model variables keys includes: selection)
			
 
				-    	ifTrue:[(model instVarObjectAt: selection) printString]
			
 
				-      	ifFalse:['']
			
 
				-! !
			
 
				-
			
 
				-Object subclass: #HLInspectorModel
			
 
				-	instanceVariableNames: 'announcer environment inspectee code variables selection'
			
 
				-	package: 'Helios-Inspector'!
			
 
				-
			
 
				-!HLInspectorModel methodsFor: 'accessing'!
			
 
				-
			
 
				-announcer
			
 
				-	^ announcer ifNil: [announcer := Announcer new ]
			
 
				-!
			
 
				-
			
 
				-code
			
 
				-	"Answers the code model working for this workspace model"
			
 
				-	^ code ifNil:[ code := HLCodeModel on: self environment ]
			
 
				-!
			
 
				-
			
 
				-environment
			
 
				-	^ environment ifNil: [ HLManager current environment ]
			
 
				-!
			
 
				-
			
 
				-environment: anEnvironment
			
 
				-	environment := anEnvironment
			
 
				-!
			
 
				-
			
 
				-inspectee 
			
 
				-	^ inspectee
			
 
				-!
			
 
				-
			
 
				-inspectee: anObject 
			
 
				-	inspectee := anObject
			
 
				-!
			
 
				-
			
 
				-selectedInstVarObject
			
 
				-	^ self instVarObjectAt: self selection
			
 
				-!
			
 
				-
			
 
				-selection
			
 
				-	^ selection ifNil:[ '' ]
			
 
				-!
			
 
				-
			
 
				-selection: anObject
			
 
				-	selection := anObject.
			
 
				-
			
 
				-	self announcer announce: (HLInstanceVariableSelected on: selection)
			
 
				-!
			
 
				-
			
 
				-variables
			
 
				-	^ variables
			
 
				-!
			
 
				-
			
 
				-variables: aCollection
			
 
				-	variables := aCollection
			
 
				-! !
			
 
				-
			
 
				-!HLInspectorModel methodsFor: 'actions'!
			
 
				-
			
 
				-inspect: anObject on: anInspector
			
 
				-	inspectee := anObject.
			
 
				-	variables := #().
			
 
				-	inspectee inspectOn: anInspector
			
 
				-!
			
 
				-
			
 
				-instVarObjectAt: anInstVarName
			
 
				-	^ self variables at: anInstVarName
			
 
				-!
			
 
				-
			
 
				-selectedInstVar: anInstVarName
			
 
				-    self selection: anInstVarName
			
 
				-!
			
 
				-
			
 
				-subscribe: aWidget
			
 
				-	aWidget subscribeTo: self announcer
			
 
				-! !
			
 
				-
			
 
				-!HLInspectorModel methodsFor: 'reactions'!
			
 
				-
			
 
				-onKeyDown: anEvent
			
 
				-
			
 
				-	<if(anEvent.ctrlKey) {
			
 
				-		if(anEvent.keyCode === 80) { //ctrl+p
			
 
				-			self._printIt();
			
 
				-			anEvent.preventDefault();
			
 
				-			return false;
			
 
				-		}
			
 
				-		if(anEvent.keyCode === 68) { //ctrl+d
			
 
				-			self._doIt();
			
 
				-			anEvent.preventDefault();
			
 
				-			return false;
			
 
				-		}
			
 
				-		if(anEvent.keyCode === 73) { //ctrl+i
			
 
				-			self._inspectIt();
			
 
				-			anEvent.preventDefault();
			
 
				-			return false;
			
 
				-		}
			
 
				-	}>
			
 
				-! !
			
 
				-
			
 
				-!HLInspectorModel class methodsFor: 'actions'!
			
 
				-
			
 
				-on: anEnvironment
			
 
				-
			
 
				-	^ self new
			
 
				-    	environment: anEnvironment;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
 
				-HLNavigationListWidget subclass: #HLInspectorVariablesWidget
			
 
				-	instanceVariableNames: 'announcer model list diveButton'
			
 
				-	package: 'Helios-Inspector'!
			
 
				-
			
 
				-!HLInspectorVariablesWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-announcer
			
 
				-	^ announcer ifNil:[ announcer := Announcer new ]
			
 
				-!
			
 
				-
			
 
				-model
			
 
				-    ^ model
			
 
				-!
			
 
				-
			
 
				-model: aModel
			
 
				-    model := aModel
			
 
				-!
			
 
				-
			
 
				-selection
			
 
				-	^ model selection
			
 
				-!
			
 
				-
			
 
				-variables
			
 
				-	^ model variables
			
 
				-! !
			
 
				-
			
 
				-!HLInspectorVariablesWidget methodsFor: 'actions'!
			
 
				-
			
 
				-refresh
			
 
				-	self resetItems.
			
 
				-    super refresh
			
 
				-!
			
 
				-
			
 
				-resetItems
			
 
				-	items := nil
			
 
				-! !
			
 
				-
			
 
				-!HLInspectorVariablesWidget methodsFor: 'defaults'!
			
 
				-
			
 
				-defaultItems
			
 
				-	^ self model variables keys
			
 
				-! !
			
 
				-
			
 
				-!HLInspectorVariablesWidget methodsFor: 'reactions'!
			
 
				-
			
 
				-selectItem: anObject
			
 
				-	super selectItem: anObject.
			
 
				-    self model selectedInstVar: anObject
			
 
				-! !
			
 
				-
			
 
				-!HLInspectorVariablesWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderButtonsOn: html
			
 
				-
			
 
				-	html button
			
 
				-			class: 'btn';
			
 
				-			with: 'Refresh';
			
 
				-			onClick: [self announcer announce: HLRefreshRequested new].
			
 
				-
			
 
				-	diveButton := html button 
			
 
				-				class: 'btn';
			
 
				-				with: 'Dive'; 
			
 
				-				onClick: [self announcer announce: HLDiveRequested new]
			
 
				-! !
			
 
				-
			
--- a/st/Helios-KeyBindings.st
+++ b/st/Helios-KeyBindings.st
@@ -1,337 +0,0 @@
 
				-Smalltalk current createPackage: 'Helios-KeyBindings' properties: #{}!
			
 
				-Object subclass: #HLBinding
			
 
				-	instanceVariableNames: 'key label'
			
 
				-	package: 'Helios-KeyBindings'!
			
 
				-
			
 
				-!HLBinding methodsFor: 'accessing'!
			
 
				-
			
 
				-key
			
 
				-	^ key
			
 
				-!
			
 
				-
			
 
				-key: anInteger
			
 
				-	key := anInteger
			
 
				-!
			
 
				-
			
 
				-label
			
 
				-	^ label
			
 
				-!
			
 
				-
			
 
				-label: aString
			
 
				-	label := aString
			
 
				-!
			
 
				-
			
 
				-shortcut
			
 
				-	^ String fromCharCode: self key
			
 
				-! !
			
 
				-
			
 
				-!HLBinding methodsFor: 'actions'!
			
 
				-
			
 
				-applyOn: aKeyBinder
			
 
				-	self subclassResponsibility
			
 
				-! !
			
 
				-
			
 
				-!HLBinding methodsFor: 'rendering'!
			
 
				-
			
 
				-renderOn: aBindingHelper html: html
			
 
				-! !
			
 
				-
			
 
				-!HLBinding methodsFor: 'testing'!
			
 
				-
			
 
				-isBindingAction
			
 
				-	^ false
			
 
				-!
			
 
				-
			
 
				-isBindingGroup
			
 
				-	^ false
			
 
				-! !
			
 
				-
			
 
				-!HLBinding class methodsFor: 'instance creation'!
			
 
				-
			
 
				-on: anInteger labelled: aString
			
 
				-	^ self new
			
 
				-    	key: anInteger;
			
 
				-        label: aString;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
 
				-HLBinding subclass: #HLBindingAction
			
 
				-	instanceVariableNames: 'callback'
			
 
				-	package: 'Helios-KeyBindings'!
			
 
				-
			
 
				-!HLBindingAction methodsFor: 'accessing'!
			
 
				-
			
 
				-callback
			
 
				-	^ callback
			
 
				-!
			
 
				-
			
 
				-callback: aBlock
			
 
				-	callback := aBlock
			
 
				-! !
			
 
				-
			
 
				-!HLBindingAction methodsFor: 'actions'!
			
 
				-
			
 
				-applyOn: aKeyBinder
			
 
				-	aKeyBinder applyBindingAction: self
			
 
				-! !
			
 
				-
			
 
				-!HLBindingAction methodsFor: 'testing'!
			
 
				-
			
 
				-isBindingAction
			
 
				-	^ true
			
 
				-! !
			
 
				-
			
 
				-HLBinding subclass: #HLBindingGroup
			
 
				-	instanceVariableNames: 'bindings'
			
 
				-	package: 'Helios-KeyBindings'!
			
 
				-
			
 
				-!HLBindingGroup methodsFor: 'accessing'!
			
 
				-
			
 
				-add: aBinding
			
 
				-	^ self bindings add: aBinding
			
 
				-!
			
 
				-
			
 
				-addActionKey: anInteger labelled: aString callback: aBlock
			
 
				-	self add: ((HLBindingAction on: anInteger labelled: aString)
			
 
				-    	callback: aBlock;
			
 
				-        yourself)
			
 
				-!
			
 
				-
			
 
				-addActionKey: anInteger labelled: aString command: aCommand
			
 
				-	self add: ((HLBindingAction on: anInteger labelled: aString)
			
 
				-    	command: aCommand;
			
 
				-        yourself)
			
 
				-!
			
 
				-
			
 
				-addGroupKey: anInteger labelled: aString
			
 
				-	self add: (HLBindingGroup on: anInteger labelled: aString)
			
 
				-!
			
 
				-
			
 
				-at: aString
			
 
				-	^ self bindings 
			
 
				-    	detect: [ :each | each label = aString ]
			
 
				-      	ifNone: [ nil ]
			
 
				-!
			
 
				-
			
 
				-atKey: anInteger
			
 
				-	^ self bindings 
			
 
				-    	detect: [ :each | each key = anInteger ]
			
 
				-      	ifNone: [ nil ]
			
 
				-!
			
 
				-
			
 
				-bindings
			
 
				-	^ bindings ifNil: [ bindings := OrderedCollection new ]
			
 
				-! !
			
 
				-
			
 
				-!HLBindingGroup methodsFor: 'actions'!
			
 
				-
			
 
				-applyOn: aKeyBinder
			
 
				-	aKeyBinder applyBindingGroup: self
			
 
				-! !
			
 
				-
			
 
				-!HLBindingGroup methodsFor: 'rendering'!
			
 
				-
			
 
				-renderOn: aBindingHelper html: html
			
 
				-	aBindingHelper renderBindingGroup: self on: html
			
 
				-! !
			
 
				-
			
 
				-!HLBindingGroup methodsFor: 'testing'!
			
 
				-
			
 
				-isBindingGroup
			
 
				-	^ true
			
 
				-! !
			
 
				-
			
 
				-Object subclass: #HLKeyBinder
			
 
				-	instanceVariableNames: 'modifierKey active helper bindings selectedBinding'
			
 
				-	package: 'Helios-KeyBindings'!
			
 
				-
			
 
				-!HLKeyBinder methodsFor: 'accessing'!
			
 
				-
			
 
				-activationKey
			
 
				-	"SPACE"
			
 
				-	^ 32
			
 
				-!
			
 
				-
			
 
				-bindings
			
 
				-	^ bindings ifNil: [ bindings := HLBindingGroup new ]
			
 
				-!
			
 
				-
			
 
				-escapeKey
			
 
				-	"ESC"
			
 
				-	^ 27
			
 
				-!
			
 
				-
			
 
				-helper
			
 
				-	^ helper ifNil: [ helper := HLKeyBinderHelper on: self ]
			
 
				-!
			
 
				-
			
 
				-selectedBinding
			
 
				-	^ selectedBinding ifNil: [ self bindings ]
			
 
				-! !
			
 
				-
			
 
				-!HLKeyBinder methodsFor: 'actions'!
			
 
				-
			
 
				-activate
			
 
				-	active := true.
			
 
				-	self helper show
			
 
				-!
			
 
				-
			
 
				-applyBinding: aBinding
			
 
				-    aBinding applyOn: self
			
 
				-!
			
 
				-
			
 
				-applyBindingAction: aBinding
			
 
				-    aBinding callback value.
			
 
				-	self deactivate
			
 
				-!
			
 
				-
			
 
				-applyBindingGroup: aBinding
			
 
				-    selectedBinding := aBinding.
			
 
				-    self helper refresh
			
 
				-!
			
 
				-
			
 
				-deactivate
			
 
				-	active := false.
			
 
				-    selectedBinding := nil.
			
 
				-	self helper hide
			
 
				-!
			
 
				-
			
 
				-flushBindings
			
 
				-	bindings := nil.
			
 
				-    helper := nil
			
 
				-! !
			
 
				-
			
 
				-!HLKeyBinder methodsFor: 'events'!
			
 
				-
			
 
				-handleActiveKeyDown: event
			
 
				-
			
 
				-	"ESC or ctrl+g deactivate the keyBinder"
			
 
				-	(event which = self escapeKey or: [
			
 
				-		event which = 71 and: [ event ctrlKey ] ])
			
 
				-        	ifTrue: [ 
			
 
				-            	self deactivate.
			
 
				-				event preventDefault.
			
 
				-				^ false ].
			
 
				-            
			
 
				-    "Handle the keybinding"
			
 
				-    ^ self handleBindingFor: event
			
 
				-!
			
 
				-
			
 
				-handleBindingFor: anEvent
			
 
				-	| binding |
			
 
				-    binding := self selectedBinding atKey: anEvent which.
			
 
				-    
			
 
				-    binding ifNotNil: [ 
			
 
				-    	self applyBinding: binding.
			
 
				-		anEvent preventDefault.
			
 
				-		^ false ]
			
 
				-!
			
 
				-
			
 
				-handleInactiveKeyDown: event
			
 
				-      event which = self activationKey ifTrue: [
			
 
				-      		event ctrlKey  ifTrue: [
			
 
				-					self activate. 
			
 
				-               		 event preventDefault. 
			
 
				-                	^ false ] ]
			
 
				-!
			
 
				-
			
 
				-handleKeyDown: event
			
 
				-	^ self isActive
			
 
				-    	ifTrue: [ self handleActiveKeyDown: event ]
			
 
				-      	ifFalse: [ self handleInactiveKeyDown: event ]
			
 
				-!
			
 
				-
			
 
				-setupEvents
			
 
				-	(window jQuery: 'body') keydown: [ :event | self handleKeyDown: event ]
			
 
				-! !
			
 
				-
			
 
				-!HLKeyBinder methodsFor: 'initialization'!
			
 
				-
			
 
				-initialize
			
 
				-	super initialize.
			
 
				-    active := false
			
 
				-! !
			
 
				-
			
 
				-!HLKeyBinder methodsFor: 'testing'!
			
 
				-
			
 
				-isActive
			
 
				-	^ active ifNil: [ false ]
			
 
				-!
			
 
				-
			
 
				-systemIsMac
			
 
				-	^ navigator platform match: 'Mac'
			
 
				-! !
			
 
				-
			
 
				-HLWidget subclass: #HLKeyBinderHelper
			
 
				-	instanceVariableNames: 'keyBinder'
			
 
				-	package: 'Helios-KeyBindings'!
			
 
				-
			
 
				-!HLKeyBinderHelper methodsFor: 'accessing'!
			
 
				-
			
 
				-keyBinder
			
 
				-	^ keyBinder
			
 
				-!
			
 
				-
			
 
				-keyBinder: aKeyBinder
			
 
				-	keyBinder := aKeyBinder
			
 
				-!
			
 
				-
			
 
				-selectedBinding
			
 
				-	^ self keyBinder selectedBinding
			
 
				-! !
			
 
				-
			
 
				-!HLKeyBinderHelper methodsFor: 'actions'!
			
 
				-
			
 
				-hide
			
 
				-	rootDiv asJQuery remove
			
 
				-!
			
 
				-
			
 
				-show
			
 
				-	self appendToJQuery: 'body' asJQuery
			
 
				-! !
			
 
				-
			
 
				-!HLKeyBinderHelper methodsFor: 'keyBindings'!
			
 
				-
			
 
				-registerBindings
			
 
				-	"Do nothing"
			
 
				-! !
			
 
				-
			
 
				-!HLKeyBinderHelper methodsFor: 'rendering'!
			
 
				-
			
 
				-renderBindingGroup: aBindingGroup on: html
			
 
				-	(aBindingGroup bindings 
			
 
				-    	sorted: [ :a :b | a key < b key ])
			
 
				-        do: [ :each |
			
 
				-			html span class: 'command'; with: [
			
 
				-				html span class: 'label'; with: each shortcut asLowercase.
			
 
				-  				html a 
			
 
				-                	class: 'action'; 
			
 
				-                    with: each label;
			
 
				-  					onClick: [ self keyBinder applyBinding: each ] ] ]
			
 
				-!
			
 
				-
			
 
				-renderBindingOn: html
			
 
				-	self selectedBinding renderOn: self html: html
			
 
				-!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-	html div class: 'key_helper'; with: [
			
 
				-      	self 
			
 
				-        	renderSelectionOn:html;
			
 
				-          	renderBindingOn: html ]
			
 
				-!
			
 
				-
			
 
				-renderSelectionOn: html
			
 
				-		html span 
			
 
				-        	class: 'selected'; 
			
 
				-            with: (self selectedBinding label ifNil: [ 'Action' ])
			
 
				-! !
			
 
				-
			
 
				-!HLKeyBinderHelper class methodsFor: 'instance creation'!
			
 
				-
			
 
				-on: aKeyBinder
			
 
				-	^ self new
			
 
				-    	keyBinder: aKeyBinder;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
--- a/st/Helios-Layout.st
+++ b/st/Helios-Layout.st
@@ -1,199 +0,0 @@
 
				-Smalltalk current createPackage: 'Helios-Layout' properties: #{}!
			
 
				-Widget subclass: #HLContainer
			
 
				-	instanceVariableNames: 'splitter'
			
 
				-	package: 'Helios-Layout'!
			
 
				-
			
 
				-!HLContainer methodsFor: 'accessing'!
			
 
				-
			
 
				-splitter
			
 
				-	^ splitter
			
 
				-!
			
 
				-
			
 
				-splitter: aSplitter
			
 
				-	splitter := aSplitter
			
 
				-! !
			
 
				-
			
 
				-!HLContainer methodsFor: 'rendering'!
			
 
				-
			
 
				-renderOn: html
			
 
				-	html div 
			
 
				-    	id: 'container'; 
			
 
				-        with: self splitter.
			
 
				-        
			
 
				-   (window jQuery: window) bind: 'resize' do: [ self splitter resize ]
			
 
				-! !
			
 
				-
			
 
				-!HLContainer class methodsFor: 'instance creation'!
			
 
				-
			
 
				-with: aSplitter
			
 
				-	^ self new 
			
 
				-    	splitter: aSplitter; 
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
 
				-Widget subclass: #HLSplitter
			
 
				-	instanceVariableNames: 'firstWidget secondWidget firstPane secondPane splitter'
			
 
				-	package: 'Helios-Layout'!
			
 
				-
			
 
				-!HLSplitter methodsFor: 'accessing'!
			
 
				-
			
 
				-cssClass
			
 
				-	^ 'splitter'
			
 
				-!
			
 
				-
			
 
				-firstWidget
			
 
				-	^ firstWidget
			
 
				-!
			
 
				-
			
 
				-firstWidget: aWidget
			
 
				-	firstWidget := aWidget
			
 
				-!
			
 
				-
			
 
				-secondWidget
			
 
				-	^ secondWidget
			
 
				-!
			
 
				-
			
 
				-secondWidget: aWidget
			
 
				-	secondWidget := aWidget
			
 
				-! !
			
 
				-
			
 
				-!HLSplitter methodsFor: 'rendering'!
			
 
				-
			
 
				-panesCssClass
			
 
				-	^ 'panes'
			
 
				-!
			
 
				-
			
 
				-renderOn: html
			
 
				-	html div class: self panesCssClass; with: [
			
 
				-		firstPane := html div class: 'pane'; with: self firstWidget.
			
 
				-    	splitter := html div class: self cssClass.
			
 
				-    	secondPane := html div class: 'pane'; with: self secondWidget ].
			
 
				-        
			
 
				-	self 
			
 
				-    	setupSplitter;
			
 
				-        resize
			
 
				-!
			
 
				-
			
 
				-resize
			
 
				-	self firstWidget isHeliosSplitter ifTrue: [ self firstWidget resize ].
			
 
				-    self secondWidget isHeliosSplitter ifTrue: [ self secondWidget resize ]
			
 
				-!
			
 
				-
			
 
				-setupSplitter
			
 
				-! !
			
 
				-
			
 
				-!HLSplitter methodsFor: 'testing'!
			
 
				-
			
 
				-isHeliosSplitter
			
 
				-	^ true
			
 
				-! !
			
 
				-
			
 
				-!HLSplitter class methodsFor: 'instance creation'!
			
 
				-
			
 
				-with: aWidget with: anotherWidget
			
 
				-	^ self new
			
 
				-    		firstWidget: aWidget;
			
 
				-            secondWidget: anotherWidget;
			
 
				-            yourself
			
 
				-! !
			
 
				-
			
 
				-HLSplitter subclass: #HLHorizontalSplitter
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Layout'!
			
 
				-
			
 
				-!HLHorizontalSplitter methodsFor: 'accessing'!
			
 
				-
			
 
				-cssClass
			
 
				-	^ super cssClass, ' horizontal'
			
 
				-!
			
 
				-
			
 
				-panesCssClass
			
 
				-	^ super panesCssClass, ' horizontal'
			
 
				-! !
			
 
				-
			
 
				-!HLHorizontalSplitter methodsFor: 'actions'!
			
 
				-
			
 
				-resize
			
 
				-	self resize: splitter asJQuery offset top
			
 
				-!
			
 
				-
			
 
				-resize: anInteger
			
 
				-	| container position |
			
 
				-    
			
 
				-    container := firstPane asJQuery parent.
			
 
				-    position := anInteger - container offset top.
			
 
				-    
			
 
				-	firstPane asJQuery height: ((position min: container height - 100) max: 100).
			
 
				-    secondPane asJQuery height: (((container height - position) min: container height - 100) max: 100) - 6.
			
 
				-    
			
 
				-    super resize
			
 
				-!
			
 
				-
			
 
				-startResizing: aSplitter
			
 
				-	aSplitter width: splitter asJQuery width
			
 
				-! !
			
 
				-
			
 
				-!HLHorizontalSplitter methodsFor: 'rendering'!
			
 
				-
			
 
				-setupSplitter
			
 
				-	splitter asJQuery draggable: #{ 
			
 
				-    	'axis' -> 'y'. 
			
 
				-        'containment' -> splitter asJQuery parent.
			
 
				-        'helper' -> 'clone'.
			
 
				-        'start' -> [ :e :ui | self startResizing: ui helper ].
			
 
				-        'drag' -> [ :e :ui | self resize: ui offset top ] }
			
 
				-! !
			
 
				-
			
 
				-HLSplitter subclass: #HLVerticalSplitter
			
 
				-	instanceVariableNames: ''
			
 
				-	package: 'Helios-Layout'!
			
 
				-
			
 
				-!HLVerticalSplitter methodsFor: 'accessing'!
			
 
				-
			
 
				-cssClass
			
 
				-	^ super cssClass, ' vertical'
			
 
				-!
			
 
				-
			
 
				-panesCssClass
			
 
				-	^ super panesCssClass, ' vertical'
			
 
				-! !
			
 
				-
			
 
				-!HLVerticalSplitter methodsFor: 'actions'!
			
 
				-
			
 
				-resize
			
 
				-	self resize: splitter asJQuery offset left
			
 
				-!
			
 
				-
			
 
				-resize: anInteger
			
 
				-	| container position |
			
 
				-    
			
 
				-    container := firstPane asJQuery parent.
			
 
				-    position := anInteger - container offset left.
			
 
				-    
			
 
				-	firstPane asJQuery width: ((position min: container width - 100) max: 100).
			
 
				-    secondPane asJQuery width: (((container width - position) min: container width - 100) max: 100) - 6.
			
 
				-    
			
 
				-    super resize
			
 
				-!
			
 
				-
			
 
				-startResizing: aSplitter
			
 
				-	aSplitter height: splitter asJQuery height
			
 
				-! !
			
 
				-
			
 
				-!HLVerticalSplitter methodsFor: 'rendering'!
			
 
				-
			
 
				-setupSplitter
			
 
				-	splitter asJQuery draggable: #{ 
			
 
				-    	'axis' -> 'x'. 
			
 
				-        'containment' -> splitter asJQuery parent.
			
 
				-        'helper' -> 'clone'.
			
 
				-        'start' -> [ :e :ui | self startResizing: ui helper ].
			
 
				-        'drag' -> [ :e :ui | self resize: ui offset left ] }
			
 
				-! !
			
 
				-
			
 
				-!Object methodsFor: '*Helios-Layout'!
			
 
				-
			
 
				-isHeliosSplitter
			
 
				-	^ false
			
 
				-! !
			
 
				-
			
--- a/st/Helios-Workspace.st
+++ b/st/Helios-Workspace.st
@@ -1,367 +0,0 @@
 
				-Smalltalk current createPackage: 'Helios-Workspace' properties: #{}!
			
 
				-Object subclass: #HLCodeModel
			
 
				-	instanceVariableNames: 'announcer environment receiver'
			
 
				-	package: 'Helios-Workspace'!
			
 
				-
			
 
				-!HLCodeModel methodsFor: 'accessing'!
			
 
				-
			
 
				-announcer
			
 
				-	^ announcer ifNil: [ announcer := Announcer new ]
			
 
				-!
			
 
				-
			
 
				-environment
			
 
				-	^ environment ifNil: [ HLManager current environment ]
			
 
				-!
			
 
				-
			
 
				-environment: anEnvironment
			
 
				-	environment := anEnvironment
			
 
				-!
			
 
				-
			
 
				-receiver
			
 
				-	^ receiver ifNil: [ receiver := self defaultReceiver ]
			
 
				-!
			
 
				-
			
 
				-receiver: anObject
			
 
				-	receiver := anObject
			
 
				-! !
			
 
				-
			
 
				-!HLCodeModel methodsFor: 'actions'!
			
 
				-
			
 
				-doIt: someCode
			
 
				-
			
 
				-	^ self environment eval: someCode on: self receiver
			
 
				-!
			
 
				-
			
 
				-subscribe: aWidget
			
 
				-	aWidget subscribeTo: self announcer
			
 
				-! !
			
 
				-
			
 
				-!HLCodeModel methodsFor: 'defaults'!
			
 
				-
			
 
				-defaultReceiver
			
 
				-	^ DoIt new
			
 
				-! !
			
 
				-
			
 
				-!HLCodeModel class methodsFor: 'actions'!
			
 
				-
			
 
				-on: anEnvironment
			
 
				-
			
 
				-	^ self new
			
 
				-    	environment: anEnvironment;
			
 
				-        yourself
			
 
				-! !
			
 
				-
			
 
				-HLWidget subclass: #HLCodeWidget
			
 
				-	instanceVariableNames: 'model wrapper code editor'
			
 
				-	package: 'Helios-Workspace'!
			
 
				-
			
 
				-!HLCodeWidget methodsFor: 'accessing'!
			
 
				-
			
 
				-announcer
			
 
				-	^ self model announcer
			
 
				-!
			
 
				-
			
 
				-contents
			
 
				-	^ editor getValue
			
 
				-!
			
 
				-
			
 
				-contents: aString
			
 
				-	editor setValue: aString
			
 
				-!
			
 
				-
			
 
				-currentLine
			
 
				-    ^editor getLine: (editor getCursor line)
			
 
				-!
			
 
				-
			
 
				-currentLineOrSelection
			
 
				-    ^editor somethingSelected
			
 
				-		ifFalse: [self currentLine]
			
 
				-		ifTrue: [self selection]
			
 
				-!
			
 
				-
			
 
				-model
			
 
				-	^ model ifNil: [ 
			
 
				-    	self model: HLCodeModel new.
			
 
				-		model ]
			
 
				-!
			
 
				-
			
 
				-model: aModel
			
 
				-	model := aModel
			
 
				-!
			
 
				-
			
 
				-receiver
			
 
				-	^ self model receiver
			
 
				-!
			
 
				-
			
 
				-receiver: anObject
			
 
				-	self model receiver: anObject
			
 
				-!
			
 
				-
			
 
				-selection
			
 
				-	^editor getSelection
			
 
				-!
			
 
				-
			
 
				-selectionEnd
			
 
				-   ^code element selectionEnd
			
 
				-!
			
 
				-
			
 
				-selectionEnd: anInteger
			
 
				-   code element selectionEnd: anInteger
			
 
				-!
			
 
				-
			
 
				-selectionStart
			
 
				-   ^code element selectionStart
			
 
				-!
			
 
				-
			
 
				-selectionStart: anInteger
			
 
				-   code element selectionStart: anInteger
			
 
				-! !
			
 
				-
			
 
				-!HLCodeWidget methodsFor: 'actions'!
			
 
				-
			
 
				-clear
			
 
				-      self contents: ''
			
 
				-!
			
 
				-
			
 
				-doIt
			
 
				-	| result |
			
 
				-
			
 
				-	self announcer announce: (HLDoItRequested on: model).
			
 
				-
			
 
				-	result:=  model doIt: self currentLineOrSelection.
			
 
				-
			
 
				-	self announcer announce: (HLDoItExecuted on: model).
			
 
				-
			
 
				-	^ result
			
 
				-!
			
 
				-
			
 
				-editor
			
 
				-	^editor
			
 
				-!
			
 
				-
			
 
				-focus
			
 
				-      self editor focus
			
 
				-!
			
 
				-
			
 
				-inspectIt
			
 
				-
			
 
				-	| newInspector |
			
 
				-       
			
 
				-	self announcer announce: (HLInspectItRequested on: model).
			
 
				-	newInspector := self makeInspectorOn: self doIt.
			
 
				-	newInspector open
			
 
				-!
			
 
				-
			
 
				-makeInspectorOn: anObject
			
 
				-
			
 
				-	^ HLInspector new 
			
 
				-		inspect: anObject;
			
 
				-		yourself
			
 
				-!
			
 
				-
			
 
				-observeWrapper
			
 
				-
			
 
				-    wrapper onKeyDown: [ :e | self onKeyDown: e ]
			
 
				-!
			
 
				-
			
 
				-print: aString
			
 
				-	| start stop |
			
 
				-	start := HashedCollection new.
			
 
				-	stop := HashedCollection new.
			
 
				-	start at: 'line' put: (editor getCursor: false) line.
			
 
				-	start at: 'ch' put: (editor getCursor: false) ch.
			
 
				-	stop at: 'line' put: (start at: 'line').
			
 
				-	stop at: 'ch' put: ((start at: 'ch') + aString size + 2).
			
 
				-	editor replaceSelection: (editor getSelection, ' ', aString, ' ').
			
 
				-	editor setCursor: (editor getCursor: true).
			
 
				-	editor setSelection: stop end: start
			
 
				-!
			
 
				-
			
 
				-printIt
			
 
				-
			
 
				-	| result |
			
 
				-
			
 
				-	result:=  self doIt.
			
 
				-       
			
 
				-	self announcer announce: (HLPrintItRequested on: model).
			
 
				-
			
 
				-    self print: result printString.
			
 
				-	self focus.
			
 
				-!
			
 
				-
			
 
				-setEditorOn: aTextarea
			
 
				-	<self['@editor'] = CodeMirror.fromTextArea(aTextarea, {
			
 
				-		theme: 'amber',
			
 
				-                lineNumbers: true,
			
 
				-                enterMode: 'flat',
			
 
				-                matchBrackets: true,
			
 
				-                electricChars: false
			
 
				-	})>
			
 
				-! !
			
 
				-
			
 
				-!HLCodeWidget methodsFor: 'reactions'!
			
 
				-
			
 
				-onDoIt
			
 
				-	
			
 
				-    self doIt
			
 
				-!
			
 
				-
			
 
				-onInspectIt
			
 
				-
			
 
				-	self inspectIt
			
 
				-!
			
 
				-
			
 
				-onKeyDown: anEvent
			
 
				-
			
 
				-    <if(anEvent.ctrlKey) {
			
 
				-		if(anEvent.keyCode === 80) { //ctrl+p
			
 
				-			self._onPrintIt();
			
 
				-			anEvent.preventDefault();
			
 
				-			return false;
			
 
				-		}
			
 
				-		if(anEvent.keyCode === 68) { //ctrl+d
			
 
				-			self._onDoIt();
			
 
				-			anEvent.preventDefault();
			
 
				-			return false;
			
 
				-		}
			
 
				-		if(anEvent.keyCode === 73) { //ctrl+i
			
 
				-			self._onInspectIt();
			
 
				-			anEvent.preventDefault();
			
 
				-			return false;
			
 
				-		}
			
 
				-	}>
			
 
				-!
			
 
				-
			
 
				-onPrintIt
			
 
				-
			
 
				-	self printIt
			
 
				-! !
			
 
				-
			
 
				-!HLCodeWidget methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-    code := html textarea.
			
 
				-    self setEditorOn: code element.
			
 
				-    
			
 
				-    self observeWrapper
			
 
				-! !
			
 
				-
			
 
				-HLWidget subclass: #HLWorkspace
			
 
				-	instanceVariableNames: 'model codeWidget'
			
 
				-	package: 'Helios-Workspace'!
			
 
				-
			
 
				-!HLWorkspace methodsFor: 'accessing'!
			
 
				-
			
 
				-codeWidget
			
 
				-	^ codeWidget ifNil: [
			
 
				-		codeWidget := HLCodeWidget new
			
 
				-    		model: self model code;
			
 
				-        	yourself ]
			
 
				-!
			
 
				-
			
 
				-model
			
 
				-	^ model ifNil: [ 
			
 
				-    	self model: HLWorkspaceModel new.
			
 
				-		model ]
			
 
				-!
			
 
				-
			
 
				-model: aModel
			
 
				-	model := aModel.
			
 
				-     
			
 
				-    self codeWidget model: aModel code.
			
 
				-    self observeCodeWidget.
			
 
				-! !
			
 
				-
			
 
				-!HLWorkspace methodsFor: 'actions'!
			
 
				-
			
 
				-observeCodeWidget
			
 
				-! !
			
 
				-
			
 
				-!HLWorkspace methodsFor: 'reactions'!
			
 
				-
			
 
				-onDoIt
			
 
				-!
			
 
				-
			
 
				-onInspectIt
			
 
				-!
			
 
				-
			
 
				-onPrintIt
			
 
				-! !
			
 
				-
			
 
				-!HLWorkspace methodsFor: 'rendering'!
			
 
				-
			
 
				-renderContentOn: html
			
 
				-	html with: self codeWidget
			
 
				-! !
			
 
				-
			
 
				-!HLWorkspace class methodsFor: 'accessing'!
			
 
				-
			
 
				-tabLabel
			
 
				-	^ 'Workspace'
			
 
				-!
			
 
				-
			
 
				-tabPriority
			
 
				-	^ 10
			
 
				-! !
			
 
				-
			
 
				-!HLWorkspace class methodsFor: 'testing'!
			
 
				-
			
 
				-canBeOpenAsTab
			
 
				-	^ true
			
 
				-! !
			
 
				-
			
 
				-Object subclass: #HLWorkspaceModel
			
 
				-	instanceVariableNames: 'announcer environment code'
			
 
				-	package: 'Helios-Workspace'!
			
 
				-
			
 
				-!HLWorkspaceModel methodsFor: 'accessing'!
			
 
				-
			
 
				-announcer
			
 
				-	^ announcer ifNil: [ announcer := Announcer new ]
			
 
				-!
			
 
				-
			
 
				-code
			
 
				-	"Answers the code model working for this workspace model"
			
 
				-	^ code ifNil:[ HLCodeModel on: self environment ]
			
 
				-!
			
 
				-
			
 
				-environment
			
 
				-	^ environment ifNil: [ HLManager current environment ]
			
 
				-!
			
 
				-
			
 
				-environment: anEnvironment
			
 
				-	environment := anEnvironment
			
 
				-! !
			
 
				-
			
 
				-!HLWorkspaceModel methodsFor: 'reactions'!
			
 
				-
			
 
				-onKeyDown: anEvent
			
 
				-
			
 
				-	<if(anEvent.ctrlKey) {
			
 
				-		if(anEvent.keyCode === 80) { //ctrl+p
			
 
				-			self._printIt();
			
 
				-			anEvent.preventDefault();
			
 
				-			return false;
			
 
				-		}
			
 
				-		if(anEvent.keyCode === 68) { //ctrl+d
			
 
				-			self._doIt();
			
 
				-			anEvent.preventDefault();
			
 
				-			return false;
			
 
				-		}
			
 
				-		if(anEvent.keyCode === 73) { //ctrl+i
			
 
				-			self._inspectIt();
			
 
				-			anEvent.preventDefault();
			
 
				-			return false;
			
 
				-		}
			
 
				-	}>
			
 
				-! !
			
 
				-
			
 
				-!HLWorkspaceModel class methodsFor: 'actions'!
			
 
				-
			
 
				-on: anEnvironment
			
 
				-
			
 
				-	^ self new
			
 
				-    	environment: anEnvironment;
			
 
				-        yourself
			
 
				-! !
			
 
				-