(name 'KSObjects-yo.17' message 'Better syntax and working button handler.' id '09501633-a890-4c9e-b5d7-deba4d674dcf' date '26 March 2012' time '9:08:37.163 pm' author 'yo' ancestors ((name 'KSObjects-yo.16' message 'More code to support button handler.' id 'cb3fbe75-e7f5-47e4-bc06-cedf1b3b2935' date '23 March 2012' time '4:35:59.475 pm' author 'yo' ancestors ((name 'KSObjects-yo.15' message 'A bit of clean up of beMoveHandler.' id 'c5f5c1a8-bcd3-469a-87c8-2dbdb993ac4f' date '22 March 2012' time '11:17:12.489 pm' author 'yo' ancestors ((name 'KSObjects-yo.14' message 'unquote actually implemented.  Come to think of it, unquoted case is the norm, so $$(...) to mean stream creating, and $(...) to be quoting would be more sensible.' id '6bb9cf72-bc4f-4095-855e-e1930253b8c4' date '22 March 2012' time '9:28:18.108 pm' author 'yo' ancestors ((name 'KSObjects-yo.13' message 'delayE works.' id '941609c7-eea2-44ce-a1f5-db58596a8fff' date '22 March 2012' time '4:52:15.631 pm' author 'yo' ancestors ((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 ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())