|
@@ -3797,32 +3797,6 @@ smalltalk.HLManager);
|
|
|
|
|
|
|
|
|
smalltalk.HLManager.klass.iVarNames = ['current'];
|
|
|
-smalltalk.addMethod(
|
|
|
-smalltalk.method({
|
|
|
-selector: "clearKeydownEvent",
|
|
|
-category: 'private',
|
|
|
-fn: function (){
|
|
|
-var self=this;
|
|
|
-return smalltalk.withContext(function($ctx1) {
|
|
|
-var $1;
|
|
|
-_st("body"._asJQuery())._keydown_((function(e){
|
|
|
-return smalltalk.withContext(function($ctx2) {
|
|
|
-$1=_st(_st(_st(e)._keyCode()).__gt_eq((37)))._and_((function(){
|
|
|
-return smalltalk.withContext(function($ctx3) {
|
|
|
-return _st(_st(e)._keyCode()).__lt_eq((40));
|
|
|
-}, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)})}));
|
|
|
-if(smalltalk.assert($1)){
|
|
|
-return false;
|
|
|
-};
|
|
|
-}, function($ctx2) {$ctx2.fillBlock({e:e},$ctx1,1)})}));
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"clearKeydownEvent",{},smalltalk.HLManager.klass)})},
|
|
|
-args: [],
|
|
|
-source: "clearKeydownEvent\x0a\x09\x22Prevent default keydown event with arrow key from scrolling the parent page\x0a\x09when helios is run inside a frame.\x22\x0a\x09\x0a\x09'body' asJQuery keydown: [ :e | \x0a\x09\x09(e keyCode >= 37 and: [ e keyCode <= 40 ])\x0a\x09\x09\x09ifTrue: [ false ] ]",
|
|
|
-messageSends: ["keydown:", "asJQuery", "ifTrue:", "and:", ">=", "keyCode", "<="],
|
|
|
-referencedClasses: []
|
|
|
-}),
|
|
|
-smalltalk.HLManager.klass);
|
|
|
-
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "current",
|
|
@@ -3855,11 +3829,10 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._current())._appendToJQuery_("body"._asJQuery());
|
|
|
-self._clearKeydownEvent();
|
|
|
return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.HLManager.klass)})},
|
|
|
args: [],
|
|
|
-source: "initialize\x0a\x09self current appendToJQuery: 'body' asJQuery.\x0a\x09self clearKeydownEvent",
|
|
|
-messageSends: ["appendToJQuery:", "current", "asJQuery", "clearKeydownEvent"],
|
|
|
+source: "initialize\x0a\x09self current appendToJQuery: 'body' asJQuery",
|
|
|
+messageSends: ["appendToJQuery:", "current", "asJQuery"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
smalltalk.HLManager.klass);
|