maglev-database-explorer 0.0.2 → 0.0.3

data/app/controllers/maglev_database_explorer/object_controller.rb

@@ -53,8 +53,7 @@ module MaglevDatabaseExplorer
     private
     
     def store_object(obj)
-      Maglev::PERSISTENT_ROOT[:debug_storage] ||= {}
-      Maglev::PERSISTENT_ROOT[:debug_storage][obj.object_id] = obj
-    end  
+      MaglevDatabaseExplorer.store_debug_object(obj)
+    end
   end
 end

data/app/views/maglev_database_explorer/object_explorer/_workspace.html.erb

@@ -12,7 +12,7 @@
   }
 
   loadAmber({
-    // deploy: true,
+    deploy: true,
     ready: function() {
       // smalltalk.Browser._open();
 

data/app/views/maglev_database_explorer/object_explorer/index.html.erb

@@ -48,12 +48,11 @@
         </button>
         <div class="nav-collapse collapse">
           <ul class="nav">
-            <li><a href="/ClassExplorer/index/<%= Class.object_id %>"><b class="icon-list-alt"></b>Class Explorer</a></li>
-            <li><a href="/ObjectExplorer/graph/<%= Maglev::PERSISTENT_ROOT.object_id %>"><b class="icon-search"></b>PERSISTENT_ROOT</a></li>
             <li class="dropdown"><a class="dropdown-toggle" data-toggle="dropdown" href="#"><b class="icon-question-sign"></b>Help<b class="caret"></b></a>
               <ul class="dropdown-menu">
                 <li><a href="http://maglev.github.io/">MagLev website</a></li>
-                <li><a href="/LICENSE">License</a></li>
+                <li><a href="LICENSE">License</a></li>
+                <li><a href="#" onclick="smalltalk.Maglev._swatchDesign();">Switch theme</a></li>
               </ul>
             </li>
           </ul>

data/lib/maglev-database-explorer.rb

@@ -4,6 +4,7 @@ require "maglev-database-explorer/engine_symlinks"
 require "maglev-database-explorer/ruby_workspace"
 require "maglev-database-explorer/code_evaluation"
 require "maglev-database-explorer/debug_server"
+require "maglev-database-explorer/debug_storage"
 require "maglev-database-explorer/halt"
 
 # Workaround for Engines not working correctly on MagLev

data/lib/maglev-database-explorer/code_evaluation.rb

@@ -2,7 +2,17 @@ class CodeEvaluation
   class << self
     def wait_for_eval_thread(&block)
       eval_thread = Thread.start do
-        value_proc = Proc.new(&block)
+        value_proc = Proc.new do
+          if Maglev::System.__DBEPersistenceMode
+            Maglev.persistent do
+              block.call
+            end
+          else
+            Maglev.transient do
+              block.call
+            end
+          end
+        end
 
         value_proc.__call_and_rescue do |eval_result|
           is_exception = eval_result[0]

data/lib/maglev-database-explorer/database_views/gsnmethod.rb

@@ -6,7 +6,7 @@ class GsNMethodProxy
   end
 
   def __for_database_explorer
-    [@method.__source_string, @method.__environment_id, @method.__selector, @method.__file_and_line]
+    [@method.__source_string, @method.__environment_id, @method.__selector, @method.__file_and_line, @method.__in_class.to_database_view(1, {}, {:noBehavior => true})]
   end
 
   def method=(val)
@@ -15,6 +15,7 @@ class GsNMethodProxy
 end
 
 class GsNMethod
+  primitive '__in_class', 'inClass'
   primitive '__source_string', 'sourceString'
   primitive '__environment_id', 'environmentId'
   primitive '__description_for_stack', '_descrForStack'

data/lib/maglev-database-explorer/database_views/object.rb

@@ -36,7 +36,11 @@ class Object
         obj[:instVarsSize] = self.instance_variables.size
 
         ((range_from - 1)..[range_to - 1, self.instance_variables.size - 1].min).each do |index|
-          obj[:instVars][index + 1] = [self.instance_variables[index].to_database_view(depth - 1, {}, params), self.instance_variable_get(self.instance_variables[index]).to_database_view(depth - 1, {}, params)]
+          begin
+            obj[:instVars][index + 1] = [self.instance_variables[index].to_database_view(depth - 1, {}, params), self.instance_variable_get(self.instance_variables[index]).to_database_view(depth - 1, {}, params)]
+          rescue Exception => e
+            obj[:instVars][index + 1] = [self.instance_variables[index].to_database_view(depth - 1, {}, params), "(error)".to_database_view(1, {}, params)]
+          end
         end
       end
     else

data/lib/maglev-database-explorer/database_views/system.rb

@@ -7,6 +7,19 @@ class Maglev::System
   class_primitive '__continue_transaction', 'continueTransaction'
 
   class << self
+    def __DBETogglePersistenceMode
+      @dbe_persistence_mode = !__DBEPersistenceMode
+      @dbe_persistence_mode
+    end
+
+    def __DBEPersistenceMode
+      if @dbe_persistence_mode == nil
+        @dbe_persistence_mode = false
+      end
+
+      @dbe_persistence_mode
+    end
+
     def __DBECommitTransaction
       DBEBootstrapChanges.undo_all_changes
       __commit_transaction

data/lib/maglev-database-explorer/debug_storage.rb

@@ -0,0 +1,10 @@
+module MaglevDatabaseExplorer
+  def self.debug_storage
+    @debug_storage ||= {}
+  end
+
+  def self.store_debug_object(obj)
+    debug_storage[obj.object_id] = obj
+  end
+end
+

data/lib/maglev-database-explorer/ruby_workspace.rb

@@ -14,8 +14,7 @@ class RubyWorkspace
   end
 
   def store_object(obj)
-    Maglev::PERSISTENT_ROOT[:debug_storage] ||= {}
-    Maglev::PERSISTENT_ROOT[:debug_storage][obj.object_id] = obj
+    MaglevDatabaseExplorer.store_debug_object(obj)
   end
 
   def initialize

data/lib/maglev-database-explorer/version.rb

@@ -1,3 +1,3 @@
 module MaglevDatabaseExplorer
-  VERSION = "0.0.2"
+  VERSION = "0.0.3"
 end

data/public/amber/js/Maglev-Core.deploy.js

@@ -156,7 +156,7 @@ return self;}
 smalltalk.Maglev);
 
 
-smalltalk.Maglev.klass.iVarNames = ['instance','defaultWorkspaceId','persistentRootId','maglevSystemId','evalObjectId'];
+smalltalk.Maglev.klass.iVarNames = ['instance','defaultWorkspaceId','persistentRootId','maglevSystemId','evalObjectId','swatchDesign'];
 smalltalk.addMethod(
 unescape('_defaultWorkspaceId'),
 smalltalk.method({
@@ -284,6 +284,18 @@ return self;}
 }),
 smalltalk.Maglev.klass);
 
+smalltalk.addMethod(
+unescape('_swatchDesign'),
+smalltalk.method({
+selector: unescape('swatchDesign'),
+fn: function (){
+var self=this;
+(($receiver = self['@swatchDesign']) == nil || $receiver == undefined) ? (function(){var html=nil;
+(html=smalltalk.send((smalltalk.HTMLCanvas || HTMLCanvas), "_onJQuery_", [smalltalk.send("head", "_asJQuery", [])]));return (self['@swatchDesign']=(function($rec){smalltalk.send($rec, "_href_", [unescape("themes/geo-bootstrap/swatch/bootstrap.css")]);return smalltalk.send($rec, "_rel_", ["stylesheet"]);})(smalltalk.send(html, "_link", [])));})() : (function(){smalltalk.send(smalltalk.send(self['@swatchDesign'], "_asJQuery", []), "_remove", []);return (self['@swatchDesign']=nil);})();
+return self;}
+}),
+smalltalk.Maglev.klass);
+
 
 smalltalk.addClass('MaglevObject', smalltalk.Object, ['oop', 'instVars', 'instVarsSize', 'virtualClassObject', 'classObject', 'inspection', 'isLoaded', 'isException', 'windows', 'customTabs'], 'Maglev-Core');
 smalltalk.addMethod(
@@ -1920,6 +1932,28 @@ return self;}
 }),
 smalltalk.MaglevModule);
 
+smalltalk.addMethod(
+unescape('_compileRubySourceCode_withCallback_'),
+smalltalk.method({
+selector: unescape('compileRubySourceCode%3AwithCallback%3A'),
+fn: function (sourceCode, aBlock){
+var self=this;
+smalltalk.send(self, "_evaluateWithoutUpdate_language_with_withCallback_", [sourceCode, "rubyClass", smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []), aBlock]);
+return self;}
+}),
+smalltalk.MaglevModule);
+
+smalltalk.addMethod(
+unescape('_compileSmalltalkSourceCode_withCallback_'),
+smalltalk.method({
+selector: unescape('compileSmalltalkSourceCode%3AwithCallback%3A'),
+fn: function (sourceCode, aBlock){
+var self=this;
+smalltalk.send(self, "_evaluateWithoutUpdate_language_with_withCallback_", [smalltalk.send(smalltalk.send(unescape("self%20compile%3A%20%27"), "__comma", [smalltalk.send(sourceCode, "_escapedString", [])]), "__comma", [unescape("%27.")]), "smalltalk", smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []), aBlock]);
+return self;}
+}),
+smalltalk.MaglevModule);
+
 smalltalk.addMethod(
 unescape('_constants'),
 smalltalk.method({

data/public/amber/js/Maglev-Core.js

@@ -216,7 +216,7 @@ referencedClasses: ["MaglevWaitingWindow"]
 smalltalk.Maglev);
 
 
-smalltalk.Maglev.klass.iVarNames = ['instance','defaultWorkspaceId','persistentRootId','maglevSystemId','evalObjectId'];
+smalltalk.Maglev.klass.iVarNames = ['instance','defaultWorkspaceId','persistentRootId','maglevSystemId','evalObjectId','swatchDesign'];
 smalltalk.addMethod(
 unescape('_defaultWorkspaceId'),
 smalltalk.method({
@@ -399,6 +399,23 @@ referencedClasses: ["MaglevObjectSpace", "MaglevHaltedThreadListener", "MaglevWe
 }),
 smalltalk.Maglev.klass);
 
+smalltalk.addMethod(
+unescape('_swatchDesign'),
+smalltalk.method({
+selector: unescape('swatchDesign'),
+category: 'rendering',
+fn: function (){
+var self=this;
+(($receiver = self['@swatchDesign']) == nil || $receiver == undefined) ? (function(){var html=nil;
+(html=smalltalk.send((smalltalk.HTMLCanvas || HTMLCanvas), "_onJQuery_", [smalltalk.send("head", "_asJQuery", [])]));return (self['@swatchDesign']=(function($rec){smalltalk.send($rec, "_href_", [unescape("themes/geo-bootstrap/swatch/bootstrap.css")]);return smalltalk.send($rec, "_rel_", ["stylesheet"]);})(smalltalk.send(html, "_link", [])));})() : (function(){smalltalk.send(smalltalk.send(self['@swatchDesign'], "_asJQuery", []), "_remove", []);return (self['@swatchDesign']=nil);})();
+return self;},
+args: [],
+source: unescape('swatchDesign%0A%09swatchDesign%20%0A%09%09ifNil%3A%20%5B%20%7Chtml%7C%0A%09%09%09html%20%3A%3D%20HTMLCanvas%20onJQuery%3A%20%27head%27%20asJQuery.%0A%09%09%09swatchDesign%20%3A%3D%20html%20link%20%0A%09%09%09%09href%3A%20%27themes/geo-bootstrap/swatch/bootstrap.css%27%3B%0A%09%09%09%09rel%3A%20%27stylesheet%27%5D%0A%09%09ifNotNil%3A%20%5B%0A%09%09%09swatchDesign%20asJQuery%20remove.%0A%09%09%09swatchDesign%20%3A%3D%20nil%5D.'),
+messageSends: ["ifNil:ifNotNil:", "onJQuery:", "asJQuery", "href:", "rel:", "link", "remove"],
+referencedClasses: ["HTMLCanvas"]
+}),
+smalltalk.Maglev.klass);
+
 
 smalltalk.addClass('MaglevObject', smalltalk.Object, ['oop', 'instVars', 'instVarsSize', 'virtualClassObject', 'classObject', 'inspection', 'isLoaded', 'isException', 'windows', 'customTabs'], 'Maglev-Core');
 smalltalk.addMethod(
@@ -2715,6 +2732,38 @@ referencedClasses: ["MaglevAjax", "Dictionary"]
 }),
 smalltalk.MaglevModule);
 
+smalltalk.addMethod(
+unescape('_compileRubySourceCode_withCallback_'),
+smalltalk.method({
+selector: unescape('compileRubySourceCode%3AwithCallback%3A'),
+category: 'interactions',
+fn: function (sourceCode, aBlock){
+var self=this;
+smalltalk.send(self, "_evaluateWithoutUpdate_language_with_withCallback_", [sourceCode, "rubyClass", smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []), aBlock]);
+return self;},
+args: ["sourceCode", "aBlock"],
+source: unescape('compileRubySourceCode%3A%20sourceCode%20withCallback%3A%20aBlock%0A%09self%20%0A%09%09evaluateWithoutUpdate%3A%20sourceCode%0A%09%09language%3A%20%27rubyClass%27%0A%09%09with%3A%20Dictionary%20new%0A%09%09withCallback%3A%20aBlock.'),
+messageSends: ["evaluateWithoutUpdate:language:with:withCallback:", "new"],
+referencedClasses: ["Dictionary"]
+}),
+smalltalk.MaglevModule);
+
+smalltalk.addMethod(
+unescape('_compileSmalltalkSourceCode_withCallback_'),
+smalltalk.method({
+selector: unescape('compileSmalltalkSourceCode%3AwithCallback%3A'),
+category: 'interactions',
+fn: function (sourceCode, aBlock){
+var self=this;
+smalltalk.send(self, "_evaluateWithoutUpdate_language_with_withCallback_", [smalltalk.send(smalltalk.send(unescape("self%20compile%3A%20%27"), "__comma", [smalltalk.send(sourceCode, "_escapedString", [])]), "__comma", [unescape("%27.")]), "smalltalk", smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []), aBlock]);
+return self;},
+args: ["sourceCode", "aBlock"],
+source: unescape('compileSmalltalkSourceCode%3A%20sourceCode%20withCallback%3A%20aBlock%0A%09self%20%0A%09%09evaluateWithoutUpdate%3A%20%27self%20compile%3A%20%27%27%27%2C%20sourceCode%20escapedString%2C%20%27%27%27.%27%0A%09%09language%3A%20%27smalltalk%27%0A%09%09with%3A%20Dictionary%20new%0A%09%09withCallback%3A%20aBlock.'),
+messageSends: ["evaluateWithoutUpdate:language:with:withCallback:", unescape("%2C"), "escapedString", "new"],
+referencedClasses: ["Dictionary"]
+}),
+smalltalk.MaglevModule);
+
 smalltalk.addMethod(
 unescape('_constants'),
 smalltalk.method({

data/public/amber/js/Maglev-Database-Explorer.deploy.js

@@ -46,7 +46,29 @@ return self;}
 smalltalk.MaglevDraggableObject.klass);
 
 
-smalltalk.addClass('MaglevGsNMethodEditor', smalltalk.Widget, ['object', 'editorContainer', 'errorBox', 'rubyIcon', 'stIcon', 'envIdContainer', 'sourceLocationContainer', 'editor', 'editorHeight', 'editorWidth'], 'Maglev-Database-Explorer');
+smalltalk.addClass('MaglevGsNMethodEditor', smalltalk.Widget, ['object', 'editorContainer', 'errorBox', 'rubyIcon', 'stIcon', 'envIdContainer', 'sourceLocationContainer', 'editor', 'editorHeight', 'editorWidth', 'classObject'], 'Maglev-Database-Explorer');
+smalltalk.addMethod(
+unescape('_classObject'),
+smalltalk.method({
+selector: unescape('classObject'),
+fn: function (){
+var self=this;
+return smalltalk.send((smalltalk.MaglevObject || MaglevObject), "_newObjectWithoutUpdate_", [smalltalk.send(smalltalk.send(self, "_methodObject", []), "_at_", [(5)])]);
+return self;}
+}),
+smalltalk.MaglevGsNMethodEditor);
+
+smalltalk.addMethod(
+unescape('_classObject_'),
+smalltalk.method({
+selector: unescape('classObject%3A'),
+fn: function (anObject){
+var self=this;
+(self['@classObject']=anObject);
+return self;}
+}),
+smalltalk.MaglevGsNMethodEditor);
+
 smalltalk.addMethod(
 unescape('_commandSave'),
 smalltalk.method({
@@ -56,7 +78,7 @@ var self=this;
 var selectedCategory=nil;
 smalltalk.send(self['@errorBox'], "_hide", []);
 smalltalk.send(smalltalk.send(self['@errorBox'], "_asJQuery", []), "_empty", []);
-((($receiver = smalltalk.send(smalltalk.send(self['@object'], "_environmentId", []), "__eq", [(1)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@object'], "_compileRubySourceCode_withCallback_", [smalltalk.send(self['@editor'], "_getValue", []), (function(success, obj){return ((($receiver = smalltalk.send(obj, "_isException", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})() : (function(){return smalltalk.send(self, "_signalSuccess", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalFailure_", [obj]);}), (function(){return smalltalk.send(self, "_signalSuccess", []);})]));})]);})() : (function(){return smalltalk.send(self['@object'], "_compileSmalltalkSourceCode_withCallback_", [smalltalk.send(self['@editor'], "_getValue", []), (function(success, obj){return ((($receiver = smalltalk.send(obj, "_isException", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})() : (function(){return smalltalk.send(self, "_signalSuccess", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalFailure_", [obj]);}), (function(){return smalltalk.send(self, "_signalSuccess", []);})]));})]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@object'], "_compileRubySourceCode_withCallback_", [smalltalk.send(self['@editor'], "_getValue", []), (function(success, obj){return ((($receiver = smalltalk.send(obj, "_isException", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})() : (function(){return smalltalk.send(self, "_signalSuccess", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalFailure_", [obj]);}), (function(){return smalltalk.send(self, "_signalSuccess", []);})]));})]);}), (function(){return smalltalk.send(self['@object'], "_compileSmalltalkSourceCode_withCallback_", [smalltalk.send(self['@editor'], "_getValue", []), (function(success, obj){return ((($receiver = smalltalk.send(obj, "_isException", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})() : (function(){return smalltalk.send(self, "_signalSuccess", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalFailure_", [obj]);}), (function(){return smalltalk.send(self, "_signalSuccess", []);})]));})]);})]));
+((($receiver = smalltalk.send(smalltalk.send(self, "_envId", []), "__eq", [(1)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self, "_classObject", []), "_compileRubySourceCode_withCallback_", [smalltalk.send(smalltalk.send(self['@editor'], "_getValue", []), "_replace_with_", [unescape("%u26A1"), ""]), (function(success, obj){return ((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalSuccess", []);})() : (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalSuccess", []);}), (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})]));})]);})() : (function(){return smalltalk.send(smalltalk.send(self, "_classObject", []), "_compileSmalltalkSourceCode_withCallback_", [smalltalk.send(smalltalk.send(self['@editor'], "_getValue", []), "_replace_with_", [unescape("%u26A1"), ""]), (function(success, obj){return ((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalSuccess", []);})() : (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalSuccess", []);}), (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})]));})]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self, "_classObject", []), "_compileRubySourceCode_withCallback_", [smalltalk.send(smalltalk.send(self['@editor'], "_getValue", []), "_replace_with_", [unescape("%u26A1"), ""]), (function(success, obj){return ((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalSuccess", []);})() : (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalSuccess", []);}), (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})]));})]);}), (function(){return smalltalk.send(smalltalk.send(self, "_classObject", []), "_compileSmalltalkSourceCode_withCallback_", [smalltalk.send(smalltalk.send(self['@editor'], "_getValue", []), "_replace_with_", [unescape("%u26A1"), ""]), (function(success, obj){return ((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalSuccess", []);})() : (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalSuccess", []);}), (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})]));})]);})]));
 return self;}
 }),
 smalltalk.MaglevGsNMethodEditor);
@@ -1425,7 +1447,9 @@ selector: unescape('initializeEditor'),
 fn: function (){
 var self=this;
 var params=nil;
-(params=(function($rec){smalltalk.send($rec, "_basicAt_put_", ["mode", unescape("text/x-ruby")]);smalltalk.send($rec, "_basicAt_put_", ["styleActiveLine", true]);smalltalk.send($rec, "_basicAt_put_", ["lineNumbers", true]);smalltalk.send($rec, "_basicAt_put_", ["matchBrackets", true]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.Object || Object), "_new", [])));
+var extraKeys=nil;
+(extraKeys=(function($rec){smalltalk.send($rec, "_basicAt_put_", [unescape("Ctrl-D"), (function(){return smalltalk.send(self, "_evalPrintIt", []);})]);smalltalk.send($rec, "_basicAt_put_", [unescape("Ctrl-P"), (function(){return smalltalk.send(self, "_evalPrintIt", []);})]);smalltalk.send($rec, "_basicAt_put_", [unescape("Ctrl-S"), (function(){return smalltalk.send(self, "_evalPrintIt", []);})]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.Object || Object), "_new", [])));
+(params=(function($rec){smalltalk.send($rec, "_basicAt_put_", ["mode", unescape("text/x-ruby")]);smalltalk.send($rec, "_basicAt_put_", ["styleActiveLine", true]);smalltalk.send($rec, "_basicAt_put_", ["lineNumbers", true]);smalltalk.send($rec, "_basicAt_put_", ["matchBrackets", true]);smalltalk.send($rec, "_basicAt_put_", ["extraKeys", extraKeys]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.Object || Object), "_new", [])));
 (self['@editor']=smalltalk.send((smalltalk.CodeMirror || CodeMirror), "_value_value_", [smalltalk.send(smalltalk.send(self['@editorElement'], "_asJQuery", []), "_at_", [(0)]), params]));
 smalltalk.send(self['@editor'], "_setValue_", [""]);
 return self;}
@@ -1503,9 +1527,7 @@ smalltalk.method({
 selector: unescape('renderButtonsOn%3A'),
 fn: function (html){
 var self=this;
-(function($rec){smalltalk.send($rec, "_class_", [unescape("btn%20btn-primary")]);smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_with_", ["Do it"]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_evalDoIt", []);})]);})(smalltalk.send(html, "_button", []));
-(function($rec){smalltalk.send($rec, "_class_", [unescape("btn%20btn-primary")]);smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_with_", ["Print it"]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_evalPrintIt", []);})]);})(smalltalk.send(html, "_button", []));
-(function($rec){smalltalk.send($rec, "_class_", [unescape("btn%20btn-primary")]);smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_with_", ["Inspect it"]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_evalInspectIt", []);})]);})(smalltalk.send(html, "_button", []));
+(function($rec){smalltalk.send($rec, "_class_", [unescape("btn%20btn-primary")]);smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_style_", [unescape("margin-right%3A%2010px%3B")]);smalltalk.send($rec, "_with_", ["Print it"]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_evalPrintIt", []);})]);})(smalltalk.send(html, "_button", []));
 (function($rec){smalltalk.send($rec, "_class_", [unescape("btn-group")]);smalltalk.send($rec, "_style_", [unescape("float%3A%20right%3B")]);smalltalk.send($rec, "_data_with_", ["toggle", unescape("buttons-radio")]);return smalltalk.send($rec, "_with_", [(function(){(self['@rubyButton']=(function($rec){smalltalk.send($rec, "_class_", ["btn active"]);smalltalk.send($rec, "_data_with_", ["toggle", unescape("buttons-checkbox")]);smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_languageChanged", []);})]);smalltalk.send($rec, "_type_", ["button"]);return smalltalk.send($rec, "_with_", ["Ruby"]);})(smalltalk.send(html, "_button", [])));return (self['@smalltalkButton']=(function($rec){smalltalk.send($rec, "_class_", ["btn"]);smalltalk.send($rec, "_data_with_", ["toggle", unescape("buttons-checkbox")]);smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_languageChanged", []);})]);smalltalk.send($rec, "_type_", ["button"]);return smalltalk.send($rec, "_with_", ["Smalltalk"]);})(smalltalk.send(html, "_button", [])));})]);})(smalltalk.send(html, "_div", []));
 return self;}
 }),
@@ -3639,7 +3661,10 @@ smalltalk.method({
 selector: unescape('renderMethodObject%3A'),
 fn: function (obj){
 var self=this;
-smalltalk.send(self['@methodContainer'], "_with_", [smalltalk.send((smalltalk.MaglevGsNMethodEditor || MaglevGsNMethodEditor), "_for_", [obj])]);
+var methodEditor=nil;
+(methodEditor=smalltalk.send((smalltalk.MaglevGsNMethodEditor || MaglevGsNMethodEditor), "_for_", [obj]));
+smalltalk.send(methodEditor, "_classObject_", [self['@object']]);
+smalltalk.send(self['@methodContainer'], "_with_", [methodEditor]);
 smalltalk.send(self['@waitingScreen'], "_hide", []);
 return self;}
 }),
@@ -3812,7 +3837,7 @@ smalltalk.MaglevClassWindow);
 
 
 
-smalltalk.addClass('MaglevSystemClassWindow', smalltalk.MaglevClassWindow, ['transactionResultBox'], 'Maglev-Database-Explorer');
+smalltalk.addClass('MaglevSystemClassWindow', smalltalk.MaglevClassWindow, ['transactionResultBox', 'persistenceModeButton'], 'Maglev-Database-Explorer');
 smalltalk.addMethod(
 unescape('_abortTransaction'),
 smalltalk.method({
@@ -3882,7 +3907,8 @@ smalltalk.method({
 selector: unescape('renderControlPanelOn%3A'),
 fn: function (html){
 var self=this;
-smalltalk.send(html, "_with_", [(function(){return (function($rec){smalltalk.send($rec, "_class_", ["well"]);return smalltalk.send($rec, "_with_", [(function(){(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Abort Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2032%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_abortTransaction", []);})]);})(smalltalk.send(html, "_input", []));(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Commit Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2032%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_commitTransaction", []);})]);})(smalltalk.send(html, "_input", []));(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Continue Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2033%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_continueTransaction", []);})]);})(smalltalk.send(html, "_input", []));return (self['@transactionResultBox']=(function($rec){smalltalk.send($rec, "_style_", [unescape("margin-top%3A%2010px%3B%20margin-bottom%3A%200px%3B")]);smalltalk.send($rec, "_class_", ["alert"]);return smalltalk.send($rec, "_hide", []);})(smalltalk.send(html, "_div", [])));})]);})(smalltalk.send(html, "_div", []));})]);
+smalltalk.send(html, "_with_", [(function(){return (function($rec){smalltalk.send($rec, "_class_", ["well"]);return smalltalk.send($rec, "_with_", [(function(){(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Abort Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2025%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_abortTransaction", []);})]);})(smalltalk.send(html, "_input", []));(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Commit Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2025%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_commitTransaction", []);})]);})(smalltalk.send(html, "_input", []));(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Continue Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2025%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_continueTransaction", []);})]);})(smalltalk.send(html, "_input", []));(self['@persistenceModeButton']=(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", ["btn"]);smalltalk.send($rec, "_value_", ["Persistent Mode"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2022%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_togglePersistentMode", []);})]);})(smalltalk.send(html, "_input", [])));return (self['@transactionResultBox']=(function($rec){smalltalk.send($rec, "_style_", [unescape("margin-top%3A%2010px%3B%20margin-bottom%3A%200px%3B")]);smalltalk.send($rec, "_class_", ["alert"]);return smalltalk.send($rec, "_hide", []);})(smalltalk.send(html, "_div", [])));})]);})(smalltalk.send(html, "_div", []));})]);
+smalltalk.send(self, "_updatePersistentMode", []);
 return self;}
 }),
 smalltalk.MaglevSystemClassWindow);
@@ -3922,6 +3948,30 @@ return self;}
 }),
 smalltalk.MaglevSystemClassWindow);
 
+smalltalk.addMethod(
+unescape('_togglePersistentMode'),
+smalltalk.method({
+selector: unescape('togglePersistentMode'),
+fn: function (){
+var self=this;
+smalltalk.send(self, "_showTransactionWaitingBox", []);
+smalltalk.send(self['@object'], "_evaluate_language_withCallback_", ["self.__DBETogglePersistenceMode", "ruby", (function(success, resultObj){smalltalk.send(smalltalk.send(self['@transactionResultBox'], "_asJQuery", []), "_empty", []);smalltalk.send(self['@transactionResultBox'], "_removeClass_", [unescape("alert-info")]);((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-success")]);((($receiver = smalltalk.send(smalltalk.send(resultObj, "_value", []), "__eq", [true])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);})() : (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);}), (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})]));return smalltalk.send(self['@transactionResultBox'], "_hide", []);})() : (function(){return smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-error")]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-success")]);((($receiver = smalltalk.send(smalltalk.send(resultObj, "_value", []), "__eq", [true])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);})() : (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);}), (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})]));return smalltalk.send(self['@transactionResultBox'], "_hide", []);}), (function(){return smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-error")]);})]));return smalltalk.send(self['@transactionResultBox'], "_with_", [smalltalk.send(resultObj, "_inlineViewComponent", [])]);})]);
+return self;}
+}),
+smalltalk.MaglevSystemClassWindow);
+
+smalltalk.addMethod(
+unescape('_updatePersistentMode'),
+smalltalk.method({
+selector: unescape('updatePersistentMode'),
+fn: function (){
+var self=this;
+smalltalk.send(self, "_showTransactionWaitingBox", []);
+smalltalk.send(self['@object'], "_evaluate_language_withCallback_", ["self.__DBEPersistenceMode", "ruby", (function(success, resultObj){smalltalk.send(smalltalk.send(self['@transactionResultBox'], "_asJQuery", []), "_empty", []);smalltalk.send(self['@transactionResultBox'], "_removeClass_", [unescape("alert-info")]);((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-success")]);((($receiver = smalltalk.send(smalltalk.send(resultObj, "_value", []), "__eq", [true])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);})() : (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);}), (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})]));return smalltalk.send(self['@transactionResultBox'], "_hide", []);})() : (function(){return smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-error")]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-success")]);((($receiver = smalltalk.send(smalltalk.send(resultObj, "_value", []), "__eq", [true])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);})() : (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);}), (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})]));return smalltalk.send(self['@transactionResultBox'], "_hide", []);}), (function(){return smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-error")]);})]));return smalltalk.send(self['@transactionResultBox'], "_with_", [smalltalk.send(resultObj, "_inlineViewComponent", [])]);})]);
+return self;}
+}),
+smalltalk.MaglevSystemClassWindow);
+
 
 
 smalltalk.addClass('MaglevNilClassWindow', smalltalk.MaglevObjectWindow, [], 'Maglev-Database-Explorer');
@@ -4158,7 +4208,7 @@ selector: unescape('selectStackFrame%3A'),
 fn: function (anInteger){
 var self=this;
  self['@methodSelect']._asJQuery()[0].selectedIndex = anInteger - 1; ;
-smalltalk.send(self, "_renderFrame", []);
+smalltalk.send(self, "_renderFrame_", [anInteger]);
 return self;}
 }),
 smalltalk.MaglevThreadWindow);

data/public/amber/js/Maglev-Database-Explorer.js

@@ -66,7 +66,39 @@ referencedClasses: []
 smalltalk.MaglevDraggableObject.klass);
 
 
-smalltalk.addClass('MaglevGsNMethodEditor', smalltalk.Widget, ['object', 'editorContainer', 'errorBox', 'rubyIcon', 'stIcon', 'envIdContainer', 'sourceLocationContainer', 'editor', 'editorHeight', 'editorWidth'], 'Maglev-Database-Explorer');
+smalltalk.addClass('MaglevGsNMethodEditor', smalltalk.Widget, ['object', 'editorContainer', 'errorBox', 'rubyIcon', 'stIcon', 'envIdContainer', 'sourceLocationContainer', 'editor', 'editorHeight', 'editorWidth', 'classObject'], 'Maglev-Database-Explorer');
+smalltalk.addMethod(
+unescape('_classObject'),
+smalltalk.method({
+selector: unescape('classObject'),
+category: 'accessing',
+fn: function (){
+var self=this;
+return smalltalk.send((smalltalk.MaglevObject || MaglevObject), "_newObjectWithoutUpdate_", [smalltalk.send(smalltalk.send(self, "_methodObject", []), "_at_", [(5)])]);
+return self;},
+args: [],
+source: unescape('classObject%0A%09%5E%20MaglevObject%20newObjectWithoutUpdate%3A%20%28self%20methodObject%20at%3A%205%29'),
+messageSends: ["newObjectWithoutUpdate:", "at:", "methodObject"],
+referencedClasses: ["MaglevObject"]
+}),
+smalltalk.MaglevGsNMethodEditor);
+
+smalltalk.addMethod(
+unescape('_classObject_'),
+smalltalk.method({
+selector: unescape('classObject%3A'),
+category: 'accessing',
+fn: function (anObject){
+var self=this;
+(self['@classObject']=anObject);
+return self;},
+args: ["anObject"],
+source: unescape('classObject%3A%20anObject%0A%09classObject%20%3A%3D%20anObject.'),
+messageSends: [],
+referencedClasses: []
+}),
+smalltalk.MaglevGsNMethodEditor);
+
 smalltalk.addMethod(
 unescape('_commandSave'),
 smalltalk.method({
@@ -77,11 +109,11 @@ var self=this;
 var selectedCategory=nil;
 smalltalk.send(self['@errorBox'], "_hide", []);
 smalltalk.send(smalltalk.send(self['@errorBox'], "_asJQuery", []), "_empty", []);
-((($receiver = smalltalk.send(smalltalk.send(self['@object'], "_environmentId", []), "__eq", [(1)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self['@object'], "_compileRubySourceCode_withCallback_", [smalltalk.send(self['@editor'], "_getValue", []), (function(success, obj){return ((($receiver = smalltalk.send(obj, "_isException", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})() : (function(){return smalltalk.send(self, "_signalSuccess", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalFailure_", [obj]);}), (function(){return smalltalk.send(self, "_signalSuccess", []);})]));})]);})() : (function(){return smalltalk.send(self['@object'], "_compileSmalltalkSourceCode_withCallback_", [smalltalk.send(self['@editor'], "_getValue", []), (function(success, obj){return ((($receiver = smalltalk.send(obj, "_isException", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})() : (function(){return smalltalk.send(self, "_signalSuccess", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalFailure_", [obj]);}), (function(){return smalltalk.send(self, "_signalSuccess", []);})]));})]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self['@object'], "_compileRubySourceCode_withCallback_", [smalltalk.send(self['@editor'], "_getValue", []), (function(success, obj){return ((($receiver = smalltalk.send(obj, "_isException", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})() : (function(){return smalltalk.send(self, "_signalSuccess", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalFailure_", [obj]);}), (function(){return smalltalk.send(self, "_signalSuccess", []);})]));})]);}), (function(){return smalltalk.send(self['@object'], "_compileSmalltalkSourceCode_withCallback_", [smalltalk.send(self['@editor'], "_getValue", []), (function(success, obj){return ((($receiver = smalltalk.send(obj, "_isException", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})() : (function(){return smalltalk.send(self, "_signalSuccess", []);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalFailure_", [obj]);}), (function(){return smalltalk.send(self, "_signalSuccess", []);})]));})]);})]));
+((($receiver = smalltalk.send(smalltalk.send(self, "_envId", []), "__eq", [(1)])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self, "_classObject", []), "_compileRubySourceCode_withCallback_", [smalltalk.send(smalltalk.send(self['@editor'], "_getValue", []), "_replace_with_", [unescape("%u26A1"), ""]), (function(success, obj){return ((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalSuccess", []);})() : (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalSuccess", []);}), (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})]));})]);})() : (function(){return smalltalk.send(smalltalk.send(self, "_classObject", []), "_compileSmalltalkSourceCode_withCallback_", [smalltalk.send(smalltalk.send(self['@editor'], "_getValue", []), "_replace_with_", [unescape("%u26A1"), ""]), (function(success, obj){return ((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalSuccess", []);})() : (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalSuccess", []);}), (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})]));})]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self, "_classObject", []), "_compileRubySourceCode_withCallback_", [smalltalk.send(smalltalk.send(self['@editor'], "_getValue", []), "_replace_with_", [unescape("%u26A1"), ""]), (function(success, obj){return ((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalSuccess", []);})() : (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalSuccess", []);}), (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})]));})]);}), (function(){return smalltalk.send(smalltalk.send(self, "_classObject", []), "_compileSmalltalkSourceCode_withCallback_", [smalltalk.send(smalltalk.send(self['@editor'], "_getValue", []), "_replace_with_", [unescape("%u26A1"), ""]), (function(success, obj){return ((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(self, "_signalSuccess", []);})() : (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_signalSuccess", []);}), (function(){return smalltalk.send(self, "_signalFailure_", [obj]);})]));})]);})]));
 return self;},
 args: [],
-source: unescape('commandSave%0A%09%7CselectedCategory%7C%0A%09errorBox%20hide.%0A%09errorBox%20asJQuery%20empty.%0A%09object%20environmentId%20%3D%201%0A%09%09ifTrue%3A%20%5Bobject%0A%09%09%09compileRubySourceCode%3A%20editor%20getValue%20%0A%09%09%09withCallback%3A%20%5B%3Asuccess%20%3Aobj%20%7C%0A%09%09%09%09obj%20isException%0A%09%09%09%09%09ifTrue%3A%20%5Bself%20signalFailure%3A%20obj%5D%0A%09%09%09%09%09ifFalse%3A%20%5Bself%20signalSuccess%5D%5D%5D%0A%09%09ifFalse%3A%20%5Bobject%20%0A%09%09%09compileSmalltalkSourceCode%3A%20editor%20getValue%20%0A%09%09%09withCallback%3A%20%5B%3Asuccess%20%3Aobj%20%7C%0A%09%09%09%09obj%20isException%0A%09%09%09%09%09ifTrue%3A%20%5Bself%20signalFailure%3A%20obj%5D%0A%09%09%09%09%09ifFalse%3A%20%5Bself%20signalSuccess%5D%5D%5D.'),
-messageSends: ["hide", "empty", "asJQuery", "ifTrue:ifFalse:", unescape("%3D"), "environmentId", "compileRubySourceCode:withCallback:", "getValue", "isException", "signalFailure:", "signalSuccess", "compileSmalltalkSourceCode:withCallback:"],
+source: unescape('commandSave%0A%09%7CselectedCategory%7C%0A%09errorBox%20hide.%0A%09errorBox%20asJQuery%20empty.%0A%09self%20envId%20%3D%201%0A%09%09ifTrue%3A%20%5Bself%20classObject%0A%09%09%09compileRubySourceCode%3A%20%28editor%20getValue%20replace%3A%20%27%u26A1%27%20with%3A%20%27%27%29%0A%09%09%09withCallback%3A%20%5B%3Asuccess%20%3Aobj%20%7C%0A%09%09%09%09success%0A%09%09%09%09%09ifTrue%3A%20%5Bself%20signalSuccess%5D%0A%09%09%09%09%09ifFalse%3A%20%5Bself%20signalFailure%3A%20obj%5D%5D%5D%0A%09%09ifFalse%3A%20%5Bself%20classObject%20%0A%09%09%09compileSmalltalkSourceCode%3A%20%28editor%20getValue%20replace%3A%20%27%u26A1%27%20with%3A%20%27%27%29%0A%09%09%09withCallback%3A%20%5B%3Asuccess%20%3Aobj%20%7C%0A%09%09%09%09success%0A%09%09%09%09%09ifTrue%3A%20%5Bself%20signalSuccess%5D%0A%09%09%09%09%09ifFalse%3A%20%5Bself%20signalFailure%3A%20obj%5D%5D%5D.'),
+messageSends: ["hide", "empty", "asJQuery", "ifTrue:ifFalse:", unescape("%3D"), "envId", "compileRubySourceCode:withCallback:", "classObject", "replace:with:", "getValue", "signalSuccess", "signalFailure:", "compileSmalltalkSourceCode:withCallback:"],
 referencedClasses: []
 }),
 smalltalk.MaglevGsNMethodEditor);
@@ -2012,13 +2044,15 @@ category: 'initializing',
 fn: function (){
 var self=this;
 var params=nil;
-(params=(function($rec){smalltalk.send($rec, "_basicAt_put_", ["mode", unescape("text/x-ruby")]);smalltalk.send($rec, "_basicAt_put_", ["styleActiveLine", true]);smalltalk.send($rec, "_basicAt_put_", ["lineNumbers", true]);smalltalk.send($rec, "_basicAt_put_", ["matchBrackets", true]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.Object || Object), "_new", [])));
+var extraKeys=nil;
+(extraKeys=(function($rec){smalltalk.send($rec, "_basicAt_put_", [unescape("Ctrl-D"), (function(){return smalltalk.send(self, "_evalPrintIt", []);})]);smalltalk.send($rec, "_basicAt_put_", [unescape("Ctrl-P"), (function(){return smalltalk.send(self, "_evalPrintIt", []);})]);smalltalk.send($rec, "_basicAt_put_", [unescape("Ctrl-S"), (function(){return smalltalk.send(self, "_evalPrintIt", []);})]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.Object || Object), "_new", [])));
+(params=(function($rec){smalltalk.send($rec, "_basicAt_put_", ["mode", unescape("text/x-ruby")]);smalltalk.send($rec, "_basicAt_put_", ["styleActiveLine", true]);smalltalk.send($rec, "_basicAt_put_", ["lineNumbers", true]);smalltalk.send($rec, "_basicAt_put_", ["matchBrackets", true]);smalltalk.send($rec, "_basicAt_put_", ["extraKeys", extraKeys]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send((smalltalk.Object || Object), "_new", [])));
 (self['@editor']=smalltalk.send((smalltalk.CodeMirror || CodeMirror), "_value_value_", [smalltalk.send(smalltalk.send(self['@editorElement'], "_asJQuery", []), "_at_", [(0)]), params]));
 smalltalk.send(self['@editor'], "_setValue_", [""]);
 return self;},
 args: [],
-source: unescape('initializeEditor%0A%09%7Cparams%7C%0A%09params%20%3A%3D%20Object%20new%0A%09%09basicAt%3A%20%27mode%27%20put%3A%20%27text/x-ruby%27%3B%0A%09%09basicAt%3A%20%27styleActiveLine%27%20put%3A%20true%3B%0A%09%09basicAt%3A%20%27lineNumbers%27%20put%3A%20true%3B%0A%09%09basicAt%3A%20%27matchBrackets%27%20put%3A%20true%3B%0A%09%09yourself.%20%0A%09editor%20%3A%3D%20CodeMirror%20value%3A%20%28editorElement%20asJQuery%20at%3A%200%29%20value%3A%20params.%0A%09editor%20setValue%3A%20%27%27.'),
-messageSends: ["basicAt:put:", "yourself", "new", "value:value:", "at:", "asJQuery", "setValue:"],
+source: unescape('initializeEditor%0A%09%7Cparams%20extraKeys%7C%0A%09extraKeys%20%3A%3D%20Object%20new%0A%09%09basicAt%3A%20%27Ctrl-D%27%20put%3A%20%5Bself%20evalPrintIt%5D%3B%0A%09%09basicAt%3A%20%27Ctrl-P%27%20put%3A%20%5Bself%20evalPrintIt%5D%3B%0A%09%09basicAt%3A%20%27Ctrl-S%27%20put%3A%20%5Bself%20evalPrintIt%5D%3B%0A%09%09yourself.%0A%09params%20%3A%3D%20Object%20new%0A%09%09basicAt%3A%20%27mode%27%20put%3A%20%27text/x-ruby%27%3B%0A%09%09basicAt%3A%20%27styleActiveLine%27%20put%3A%20true%3B%0A%09%09basicAt%3A%20%27lineNumbers%27%20put%3A%20true%3B%0A%09%09basicAt%3A%20%27matchBrackets%27%20put%3A%20true%3B%0A%09%09basicAt%3A%20%27extraKeys%27%20put%3A%20extraKeys%3B%0A%09%09yourself.%20%0A%09editor%20%3A%3D%20CodeMirror%20value%3A%20%28editorElement%20asJQuery%20at%3A%200%29%20value%3A%20params.%0A%09editor%20setValue%3A%20%27%27.'),
+messageSends: ["basicAt:put:", "evalPrintIt", "yourself", "new", "value:value:", "at:", "asJQuery", "setValue:"],
 referencedClasses: ["Object", "CodeMirror"]
 }),
 smalltalk.MaglevObjectDropdown);
@@ -2120,14 +2154,12 @@ selector: unescape('renderButtonsOn%3A'),
 category: 'rendering',
 fn: function (html){
 var self=this;
-(function($rec){smalltalk.send($rec, "_class_", [unescape("btn%20btn-primary")]);smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_with_", ["Do it"]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_evalDoIt", []);})]);})(smalltalk.send(html, "_button", []));
-(function($rec){smalltalk.send($rec, "_class_", [unescape("btn%20btn-primary")]);smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_with_", ["Print it"]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_evalPrintIt", []);})]);})(smalltalk.send(html, "_button", []));
-(function($rec){smalltalk.send($rec, "_class_", [unescape("btn%20btn-primary")]);smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_with_", ["Inspect it"]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_evalInspectIt", []);})]);})(smalltalk.send(html, "_button", []));
+(function($rec){smalltalk.send($rec, "_class_", [unescape("btn%20btn-primary")]);smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_style_", [unescape("margin-right%3A%2010px%3B")]);smalltalk.send($rec, "_with_", ["Print it"]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_evalPrintIt", []);})]);})(smalltalk.send(html, "_button", []));
 (function($rec){smalltalk.send($rec, "_class_", [unescape("btn-group")]);smalltalk.send($rec, "_style_", [unescape("float%3A%20right%3B")]);smalltalk.send($rec, "_data_with_", ["toggle", unescape("buttons-radio")]);return smalltalk.send($rec, "_with_", [(function(){(self['@rubyButton']=(function($rec){smalltalk.send($rec, "_class_", ["btn active"]);smalltalk.send($rec, "_data_with_", ["toggle", unescape("buttons-checkbox")]);smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_languageChanged", []);})]);smalltalk.send($rec, "_type_", ["button"]);return smalltalk.send($rec, "_with_", ["Ruby"]);})(smalltalk.send(html, "_button", [])));return (self['@smalltalkButton']=(function($rec){smalltalk.send($rec, "_class_", ["btn"]);smalltalk.send($rec, "_data_with_", ["toggle", unescape("buttons-checkbox")]);smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_languageChanged", []);})]);smalltalk.send($rec, "_type_", ["button"]);return smalltalk.send($rec, "_with_", ["Smalltalk"]);})(smalltalk.send(html, "_button", [])));})]);})(smalltalk.send(html, "_div", []));
 return self;},
 args: ["html"],
-source: unescape('renderButtonsOn%3A%20html%0A%09html%20button%0A%09%09class%3A%20%27btn%20btn-primary%27%3B%0A%09%09type%3A%20%27button%27%3B%0A%09%09with%3A%20%27Do%20it%27%3B%0A%09%09onClick%3A%20%5Bself%20evalDoIt%5D.%0A%09html%20button%0A%09%09class%3A%20%27btn%20btn-primary%27%3B%0A%09%09type%3A%20%27button%27%3B%0A%09%09with%3A%20%27Print%20it%27%3B%0A%09%09onClick%3A%20%5Bself%20evalPrintIt%5D.%0A%09html%20button%0A%09%09class%3A%20%27btn%20btn-primary%27%3B%0A%09%09type%3A%20%27button%27%3B%0A%09%09with%3A%20%27Inspect%20it%27%3B%0A%09%09onClick%3A%20%5Bself%20evalInspectIt%5D.%0A%09html%20div%0A%09%09class%3A%20%27btn-group%27%3B%0A%09%09style%3A%20%27float%3A%20right%3B%27%3B%0A%09%09data%3A%20%27toggle%27%20with%3A%20%27buttons-radio%27%3B%0A%09%09with%3A%20%5B%0A%09%09%09rubyButton%20%3A%3D%20html%20button%0A%09%09%09%09class%3A%20%27btn%20active%27%3B%0A%09%09%09%09data%3A%20%27toggle%27%20with%3A%20%27buttons-checkbox%27%3B%0A%09%09%09%09onClick%3A%20%5Bself%20languageChanged%5D%3B%0A%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09with%3A%20%27Ruby%27.%0A%09%09%09smalltalkButton%20%3A%3D%20html%20button%0A%09%09%09%09class%3A%20%27btn%27%3B%0A%09%09%09%09data%3A%20%27toggle%27%20with%3A%20%27buttons-checkbox%27%3B%0A%09%09%09%09onClick%3A%20%5Bself%20languageChanged%5D%3B%0A%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09with%3A%20%27Smalltalk%27%5D.'),
-messageSends: ["class:", "type:", "with:", "onClick:", "evalDoIt", "button", "evalPrintIt", "evalInspectIt", "style:", "data:with:", "languageChanged", "div"],
+source: unescape('renderButtonsOn%3A%20html%0A%09%22html%20button%0A%09%09class%3A%20%27btn%20btn-primary%27%3B%0A%09%09type%3A%20%27button%27%3B%0A%09%09with%3A%20%27Do%20it%27%3B%0A%09%09onClick%3A%20%5Bself%20evalDoIt%5D.%22%0A%09html%20button%0A%09%09class%3A%20%27btn%20btn-primary%27%3B%0A%09%09type%3A%20%27button%27%3B%0A%09%09style%3A%20%27margin-right%3A%2010px%3B%27%3B%0A%09%09with%3A%20%27Print%20it%27%3B%0A%09%09onClick%3A%20%5Bself%20evalPrintIt%5D.%0A%09%22html%20button%0A%09%09class%3A%20%27btn%20btn-primary%27%3B%0A%09%09type%3A%20%27button%27%3B%0A%09%09with%3A%20%27Inspect%20it%27%3B%0A%09%09onClick%3A%20%5Bself%20evalInspectIt%5D.%22%0A%09html%20div%0A%09%09class%3A%20%27btn-group%27%3B%0A%09%09style%3A%20%27float%3A%20right%3B%27%3B%0A%09%09data%3A%20%27toggle%27%20with%3A%20%27buttons-radio%27%3B%0A%09%09with%3A%20%5B%0A%09%09%09rubyButton%20%3A%3D%20html%20button%0A%09%09%09%09class%3A%20%27btn%20active%27%3B%0A%09%09%09%09data%3A%20%27toggle%27%20with%3A%20%27buttons-checkbox%27%3B%0A%09%09%09%09onClick%3A%20%5Bself%20languageChanged%5D%3B%0A%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09with%3A%20%27Ruby%27.%0A%09%09%09smalltalkButton%20%3A%3D%20html%20button%0A%09%09%09%09class%3A%20%27btn%27%3B%0A%09%09%09%09data%3A%20%27toggle%27%20with%3A%20%27buttons-checkbox%27%3B%0A%09%09%09%09onClick%3A%20%5Bself%20languageChanged%5D%3B%0A%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09with%3A%20%27Smalltalk%27%5D.'),
+messageSends: ["class:", "type:", "style:", "with:", "onClick:", "evalPrintIt", "button", "data:with:", "languageChanged", "div"],
 referencedClasses: []
 }),
 smalltalk.MaglevObjectDropdown);
@@ -5086,12 +5118,15 @@ selector: unescape('renderMethodObject%3A'),
 category: 'rendering',
 fn: function (obj){
 var self=this;
-smalltalk.send(self['@methodContainer'], "_with_", [smalltalk.send((smalltalk.MaglevGsNMethodEditor || MaglevGsNMethodEditor), "_for_", [obj])]);
+var methodEditor=nil;
+(methodEditor=smalltalk.send((smalltalk.MaglevGsNMethodEditor || MaglevGsNMethodEditor), "_for_", [obj]));
+smalltalk.send(methodEditor, "_classObject_", [self['@object']]);
+smalltalk.send(self['@methodContainer'], "_with_", [methodEditor]);
 smalltalk.send(self['@waitingScreen'], "_hide", []);
 return self;},
 args: ["obj"],
-source: unescape('renderMethodObject%3A%20obj%0A%09methodContainer%20with%3A%20%28MaglevGsNMethodEditor%20for%3A%20obj%29.%0A%09waitingScreen%20hide.'),
-messageSends: ["with:", "for:", "hide"],
+source: unescape('renderMethodObject%3A%20obj%0A%09%7CmethodEditor%7C%0A%09methodEditor%20%3A%3D%20MaglevGsNMethodEditor%20for%3A%20obj.%0A%09methodEditor%20classObject%3A%20object.%0A%09methodContainer%20with%3A%20methodEditor.%0A%09waitingScreen%20hide.'),
+messageSends: ["for:", "classObject:", "with:", "hide"],
 referencedClasses: ["MaglevGsNMethodEditor"]
 }),
 smalltalk.MaglevModuleWindow);
@@ -5323,7 +5358,7 @@ smalltalk.MaglevClassWindow);
 
 
 
-smalltalk.addClass('MaglevSystemClassWindow', smalltalk.MaglevClassWindow, ['transactionResultBox'], 'Maglev-Database-Explorer');
+smalltalk.addClass('MaglevSystemClassWindow', smalltalk.MaglevClassWindow, ['transactionResultBox', 'persistenceModeButton'], 'Maglev-Database-Explorer');
 smalltalk.addMethod(
 unescape('_abortTransaction'),
 smalltalk.method({
@@ -5419,11 +5454,12 @@ selector: unescape('renderControlPanelOn%3A'),
 category: 'rendering',
 fn: function (html){
 var self=this;
-smalltalk.send(html, "_with_", [(function(){return (function($rec){smalltalk.send($rec, "_class_", ["well"]);return smalltalk.send($rec, "_with_", [(function(){(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Abort Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2032%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_abortTransaction", []);})]);})(smalltalk.send(html, "_input", []));(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Commit Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2032%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_commitTransaction", []);})]);})(smalltalk.send(html, "_input", []));(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Continue Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2033%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_continueTransaction", []);})]);})(smalltalk.send(html, "_input", []));return (self['@transactionResultBox']=(function($rec){smalltalk.send($rec, "_style_", [unescape("margin-top%3A%2010px%3B%20margin-bottom%3A%200px%3B")]);smalltalk.send($rec, "_class_", ["alert"]);return smalltalk.send($rec, "_hide", []);})(smalltalk.send(html, "_div", [])));})]);})(smalltalk.send(html, "_div", []));})]);
+smalltalk.send(html, "_with_", [(function(){return (function($rec){smalltalk.send($rec, "_class_", ["well"]);return smalltalk.send($rec, "_with_", [(function(){(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Abort Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2025%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_abortTransaction", []);})]);})(smalltalk.send(html, "_input", []));(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Commit Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2025%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_commitTransaction", []);})]);})(smalltalk.send(html, "_input", []));(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", [unescape("btn%20btn-warning")]);smalltalk.send($rec, "_value_", ["Continue Transaction"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2025%25%3B%20margin-right%3A%201%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_continueTransaction", []);})]);})(smalltalk.send(html, "_input", []));(self['@persistenceModeButton']=(function($rec){smalltalk.send($rec, "_type_", ["button"]);smalltalk.send($rec, "_class_", ["btn"]);smalltalk.send($rec, "_value_", ["Persistent Mode"]);smalltalk.send($rec, "_style_", [unescape("width%3A%2022%25%3B")]);return smalltalk.send($rec, "_onClick_", [(function(){return smalltalk.send(self, "_togglePersistentMode", []);})]);})(smalltalk.send(html, "_input", [])));return (self['@transactionResultBox']=(function($rec){smalltalk.send($rec, "_style_", [unescape("margin-top%3A%2010px%3B%20margin-bottom%3A%200px%3B")]);smalltalk.send($rec, "_class_", ["alert"]);return smalltalk.send($rec, "_hide", []);})(smalltalk.send(html, "_div", [])));})]);})(smalltalk.send(html, "_div", []));})]);
+smalltalk.send(self, "_updatePersistentMode", []);
 return self;},
 args: ["html"],
-source: unescape('renderControlPanelOn%3A%20html%0A%09html%20with%3A%09%5B%0A%09%09html%20div%0A%09%09%09class%3A%20%27well%27%3B%0A%09%09%09with%3A%20%5B%0A%09%09%09%09html%20input%0A%09%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09%09class%3A%20%27btn%20btn-warning%27%3B%0A%09%09%09%09%09value%3A%20%27Abort%20Transaction%27%3B%0A%09%09%09%09%09style%3A%20%27width%3A%2032%25%3B%20margin-right%3A%201%25%3B%27%3B%0A%09%09%09%09%09onClick%3A%20%5Bself%20abortTransaction%5D.%0A%09%09%09%09html%20input%0A%09%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09%09class%3A%20%27btn%20btn-warning%27%3B%0A%09%09%09%09%09value%3A%20%27Commit%20Transaction%27%3B%0A%09%09%09%09%09style%3A%20%27width%3A%2032%25%3B%20margin-right%3A%201%25%3B%27%3B%0A%09%09%09%09%09onClick%3A%20%5Bself%20commitTransaction%5D.%0A%09%09%09%09html%20input%0A%09%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09%09class%3A%20%27btn%20btn-warning%27%3B%0A%09%09%09%09%09value%3A%20%27Continue%20Transaction%27%3B%0A%09%09%09%09%09style%3A%20%27width%3A%2033%25%3B%27%3B%0A%09%09%09%09%09onClick%3A%20%5Bself%20continueTransaction%5D.%0A%09%09%09%09transactionResultBox%20%3A%3D%20html%20div%0A%09%09%09%09%09style%3A%20%27margin-top%3A%2010px%3B%20margin-bottom%3A%200px%3B%27%3B%0A%09%09%09%09%09class%3A%20%27alert%27%3B%0A%09%09%09%09%09hide%5D%5D.'),
-messageSends: ["with:", "class:", "type:", "value:", "style:", "onClick:", "abortTransaction", "input", "commitTransaction", "continueTransaction", "hide", "div"],
+source: unescape('renderControlPanelOn%3A%20html%0A%09html%20with%3A%09%5B%0A%09%09html%20div%0A%09%09%09class%3A%20%27well%27%3B%0A%09%09%09with%3A%20%5B%0A%09%09%09%09html%20input%0A%09%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09%09class%3A%20%27btn%20btn-warning%27%3B%0A%09%09%09%09%09value%3A%20%27Abort%20Transaction%27%3B%0A%09%09%09%09%09style%3A%20%27width%3A%2025%25%3B%20margin-right%3A%201%25%3B%27%3B%0A%09%09%09%09%09onClick%3A%20%5Bself%20abortTransaction%5D.%0A%09%09%09%09html%20input%0A%09%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09%09class%3A%20%27btn%20btn-warning%27%3B%0A%09%09%09%09%09value%3A%20%27Commit%20Transaction%27%3B%0A%09%09%09%09%09style%3A%20%27width%3A%2025%25%3B%20margin-right%3A%201%25%3B%27%3B%0A%09%09%09%09%09onClick%3A%20%5Bself%20commitTransaction%5D.%0A%09%09%09%09html%20input%0A%09%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09%09class%3A%20%27btn%20btn-warning%27%3B%0A%09%09%09%09%09value%3A%20%27Continue%20Transaction%27%3B%0A%09%09%09%09%09style%3A%20%27width%3A%2025%25%3B%20margin-right%3A%201%25%3B%27%3B%0A%09%09%09%09%09onClick%3A%20%5Bself%20continueTransaction%5D.%0A%09%09%09%09persistenceModeButton%20%3A%3D%20html%20input%0A%09%09%09%09%09type%3A%20%27button%27%3B%0A%09%09%09%09%09class%3A%20%27btn%27%3B%0A%09%09%09%09%09value%3A%20%27Persistent%20Mode%27%3B%0A%09%09%09%09%09style%3A%20%27width%3A%2022%25%3B%27%3B%0A%09%09%09%09%09onClick%3A%20%5Bself%20togglePersistentMode%5D.%0A%09%09%09%09transactionResultBox%20%3A%3D%20html%20div%0A%09%09%09%09%09style%3A%20%27margin-top%3A%2010px%3B%20margin-bottom%3A%200px%3B%27%3B%0A%09%09%09%09%09class%3A%20%27alert%27%3B%0A%09%09%09%09%09hide%5D%5D.%0A%09self%20updatePersistentMode.'),
+messageSends: ["with:", "class:", "type:", "value:", "style:", "onClick:", "abortTransaction", "input", "commitTransaction", "continueTransaction", "togglePersistentMode", "hide", "div", "updatePersistentMode"],
 referencedClasses: []
 }),
 smalltalk.MaglevSystemClassWindow);
@@ -5478,6 +5514,40 @@ referencedClasses: ["MaglevIcon"]
 }),
 smalltalk.MaglevSystemClassWindow);
 
+smalltalk.addMethod(
+unescape('_togglePersistentMode'),
+smalltalk.method({
+selector: unescape('togglePersistentMode'),
+category: 'interactions',
+fn: function (){
+var self=this;
+smalltalk.send(self, "_showTransactionWaitingBox", []);
+smalltalk.send(self['@object'], "_evaluate_language_withCallback_", ["self.__DBETogglePersistenceMode", "ruby", (function(success, resultObj){smalltalk.send(smalltalk.send(self['@transactionResultBox'], "_asJQuery", []), "_empty", []);smalltalk.send(self['@transactionResultBox'], "_removeClass_", [unescape("alert-info")]);((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-success")]);((($receiver = smalltalk.send(smalltalk.send(resultObj, "_value", []), "__eq", [true])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);})() : (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);}), (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})]));return smalltalk.send(self['@transactionResultBox'], "_hide", []);})() : (function(){return smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-error")]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-success")]);((($receiver = smalltalk.send(smalltalk.send(resultObj, "_value", []), "__eq", [true])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);})() : (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);}), (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})]));return smalltalk.send(self['@transactionResultBox'], "_hide", []);}), (function(){return smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-error")]);})]));return smalltalk.send(self['@transactionResultBox'], "_with_", [smalltalk.send(resultObj, "_inlineViewComponent", [])]);})]);
+return self;},
+args: [],
+source: unescape('togglePersistentMode%0A%09self%20showTransactionWaitingBox.%0A%09object%20%0A%09%09evaluate%3A%20%27self.__DBETogglePersistenceMode%27%0A%09%09language%3A%20%27ruby%27%0A%09%09withCallback%3A%20%5B%3Asuccess%20%3AresultObj%20%7C%0A%09%09%09transactionResultBox%20asJQuery%20empty.%0A%09%09%09transactionResultBox%20removeClass%3A%20%27alert-info%27.%0A%09%09%09success%0A%09%09%09%09ifTrue%3A%20%5B%0A%09%09%09%09%09transactionResultBox%20addClass%3A%20%27alert-success%27.%0A%09%09%09%09%09resultObj%20value%20%3D%20true%0A%09%09%09%09%09%09ifTrue%3A%20%5BpersistenceModeButton%20asJQuery%20addClass%3A%20%27active%27%5D%0A%09%09%09%09%09%09ifFalse%3A%20%5BpersistenceModeButton%20asJQuery%20removeClass%3A%20%27active%27%5D.%0A%09%09%09%09%09transactionResultBox%20hide%5D%0A%09%09%09%09ifFalse%3A%20%5BtransactionResultBox%20addClass%3A%20%27alert-error%27%5D.%0A%09%09%09transactionResultBox%20with%3A%20resultObj%20inlineViewComponent%5D.'),
+messageSends: ["showTransactionWaitingBox", "evaluate:language:withCallback:", "empty", "asJQuery", "removeClass:", "ifTrue:ifFalse:", "addClass:", unescape("%3D"), "value", "hide", "with:", "inlineViewComponent"],
+referencedClasses: []
+}),
+smalltalk.MaglevSystemClassWindow);
+
+smalltalk.addMethod(
+unescape('_updatePersistentMode'),
+smalltalk.method({
+selector: unescape('updatePersistentMode'),
+category: 'interactions',
+fn: function (){
+var self=this;
+smalltalk.send(self, "_showTransactionWaitingBox", []);
+smalltalk.send(self['@object'], "_evaluate_language_withCallback_", ["self.__DBEPersistenceMode", "ruby", (function(success, resultObj){smalltalk.send(smalltalk.send(self['@transactionResultBox'], "_asJQuery", []), "_empty", []);smalltalk.send(self['@transactionResultBox'], "_removeClass_", [unescape("alert-info")]);((($receiver = success).klass === smalltalk.Boolean) ? ($receiver ? (function(){smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-success")]);((($receiver = smalltalk.send(smalltalk.send(resultObj, "_value", []), "__eq", [true])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);})() : (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);}), (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})]));return smalltalk.send(self['@transactionResultBox'], "_hide", []);})() : (function(){return smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-error")]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-success")]);((($receiver = smalltalk.send(smalltalk.send(resultObj, "_value", []), "__eq", [true])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);})() : (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_addClass_", ["active"]);}), (function(){return smalltalk.send(smalltalk.send(self['@persistenceModeButton'], "_asJQuery", []), "_removeClass_", ["active"]);})]));return smalltalk.send(self['@transactionResultBox'], "_hide", []);}), (function(){return smalltalk.send(self['@transactionResultBox'], "_addClass_", [unescape("alert-error")]);})]));return smalltalk.send(self['@transactionResultBox'], "_with_", [smalltalk.send(resultObj, "_inlineViewComponent", [])]);})]);
+return self;},
+args: [],
+source: unescape('updatePersistentMode%0A%09self%20showTransactionWaitingBox.%0A%09object%20%0A%09%09evaluate%3A%20%27self.__DBEPersistenceMode%27%0A%09%09language%3A%20%27ruby%27%0A%09%09withCallback%3A%20%5B%3Asuccess%20%3AresultObj%20%7C%0A%09%09%09transactionResultBox%20asJQuery%20empty.%0A%09%09%09transactionResultBox%20removeClass%3A%20%27alert-info%27.%0A%09%09%09success%0A%09%09%09%09ifTrue%3A%20%5B%0A%09%09%09%09%09transactionResultBox%20addClass%3A%20%27alert-success%27.%0A%09%09%09%09%09resultObj%20value%20%3D%20true%0A%09%09%09%09%09%09ifTrue%3A%20%5BpersistenceModeButton%20asJQuery%20addClass%3A%20%27active%27%5D%0A%09%09%09%09%09%09ifFalse%3A%20%5BpersistenceModeButton%20asJQuery%20removeClass%3A%20%27active%27%5D.%0A%09%09%09%09%09transactionResultBox%20hide%5D%0A%09%09%09%09ifFalse%3A%20%5BtransactionResultBox%20addClass%3A%20%27alert-error%27%5D.%0A%09%09%09transactionResultBox%20with%3A%20resultObj%20inlineViewComponent%5D.'),
+messageSends: ["showTransactionWaitingBox", "evaluate:language:withCallback:", "empty", "asJQuery", "removeClass:", "ifTrue:ifFalse:", "addClass:", unescape("%3D"), "value", "hide", "with:", "inlineViewComponent"],
+referencedClasses: []
+}),
+smalltalk.MaglevSystemClassWindow);
+
 
 
 smalltalk.addClass('MaglevNilClassWindow', smalltalk.MaglevObjectWindow, [], 'Maglev-Database-Explorer');
@@ -5795,11 +5865,11 @@ category: 'interactions',
 fn: function (anInteger){
 var self=this;
  self['@methodSelect']._asJQuery()[0].selectedIndex = anInteger - 1; ;
-smalltalk.send(self, "_renderFrame", []);
+smalltalk.send(self, "_renderFrame_", [anInteger]);
 return self;},
 args: ["anInteger"],
-source: unescape('selectStackFrame%3A%20anInteger%0A%09%3C%20self%5B%27@methodSelect%27%5D._asJQuery%28%29%5B0%5D.selectedIndex%20%3D%20anInteger%20-%201%3B%20%3E.%0A%09self%20renderFrame.'),
-messageSends: ["renderFrame"],
+source: unescape('selectStackFrame%3A%20anInteger%0A%09%3C%20self%5B%27@methodSelect%27%5D._asJQuery%28%29%5B0%5D.selectedIndex%20%3D%20anInteger%20-%201%3B%20%3E.%0A%09self%20renderFrame%3A%20anInteger.'),
+messageSends: ["renderFrame:"],
 referencedClasses: []
 }),
 smalltalk.MaglevThreadWindow);