(name 'KSObjects-yo.12' message 'Actually pass events around KS objects.

ll := LesserphicMorph new openInWorld.
a := LBox new.
a install: LKUserEventHandler.
ll window add: a.
o := KSObject new.
o ksAt: #a put: a.
o becomeUniClass.
o evalToMethod: ''foo = function(y) {
	this.o = $$(this.mapE(this.extractE(a, "buttonDown"), function(x) {this.a._bottomLeft(x.position)}));
}''.
o eval: ''this.foo()''.

o eval: ''this.evaluateAt(200)''' id '0f871fe1-04f5-42f4-893b-74ed8627babf' date '20 March 2012' time '10:28:51.639 pm' author 'yo' ancestors ((name 'KSObjects-yo.11' message 'ExtractE works in code snippet: 

ll := LesserphicMorph new openInWorld.
a := LBox new.
a install: LKUserEventHandler.
ll window add: a.
o := KSObject new.
o ksAt: #a put: a.
o becomeUniClass.
o evalToMethod: ''foo = function(y) {
	this.o = $$(this.mapE(this.extractE(a, "buttonDown"), function(x) {Transcript._show(x._printString())}));
}''.
o eval: ''this.foo()''.

o eval: ''this.evaluateAt(200)''' id 'e295fe17-48ba-4586-80eb-4bb2a630c32c' date '20 March 2012' time '10:08:16.628 pm' author 'yo' ancestors ((name 'KSObjects-yo.10' message 'mapE added.' id '1146768e-5a68-466e-a601-264ee0f46ccc' date '20 March 2012' time '8:37:45.941 pm' author 'yo' ancestors ((name 'KSObjects-yo.9' message 'Uniclass facilitiy and some method categorization.' id 'fd62c114-673d-4ed7-b8e5-e4cb9d86c92f' date '20 March 2012' time '2:33:19.561 pm' author 'yo' ancestors ((name 'KSObjects-yo.8' message 'Follow the ideas in the brainbarf.' id '2ab724e2-0035-4b22-b243-cf6543b0810c' date '19 March 2012' time '11:32:55.516 pm' author 'yo' ancestors ((name 'KSObjects-yo.7' message 'Fby syntax added.' id 'e73e0acc-6323-46a2-9943-221d62728d47' date '13 March 2012' time '4:26:05.96 pm' author 'yo' ancestors ((name 'KSObjects-yo.6' message 'KST prefix is renamed to KS.' id 'ba8f2a8f-bf7f-4089-b3b0-a37319ba008d' date '13 March 2012' time '11:19:34.117 am' author 'yo' ancestors ((name 'KSObjects-yo.5' message 'Not to have KS code in KScript package.' id '7d8342a6-a4d7-42c5-ae52-8260dfbdb675' date '13 March 2012' time '10:00:26.51 am' author 'yo' ancestors ((name 'KSObjects-yo.4' message 'And put back methods and classes.' id '2e81b6a8-393b-467f-8199-4e4e77d5bb14' date '13 March 2012' time '3:12:36.443 am' author 'yo' ancestors ((name 'KSObjects-yo.3' message 'And removes instance side methods.' id '69c269e7-35d5-4bd5-baa5-111e6770cf73' date '13 March 2012' time '3:06:56.902 am' author 'yo' ancestors ((name 'KSObjects-yo.2' message 'Make a version only with KSObject.' id '57887a06-4a1f-4870-ba75-28b932738bc2' date '13 March 2012' time '3:02:50.125 am' author 'yo' ancestors ((name 'KSObjects-yo.1' message 'Code in KScript.' id '665f197b-fcfb-4e4d-aeea-17db625d011f' date '13 March 2012' time '2:49:41.14 am' author 'yo' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())