From b16347e2d959ebf3fb3942cdcb2125f2aca5dba7 Mon Sep 17 00:00:00 2001
From: "hyunghwan.chung" <hyunghwan.chung@c9d47f8d-4fed-4a2f-8cad-691f5fbe3904>
Date: Mon, 8 Oct 2018 13:17:11 +0000
Subject: [PATCH] updated the X11.moo sample code

---
 moo/kernel/X11.moo | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/moo/kernel/X11.moo b/moo/kernel/X11.moo
index ce78ce1..48e74b1 100644
--- a/moo/kernel/X11.moo
+++ b/moo/kernel/X11.moo
@@ -74,6 +74,7 @@ class X11(Object) from 'x11'
 	method __destroy_window(window_handle)
 	{
 		| w |
+###('DESTROY ' & window_handle asString) dump.
 		w := self _destroy_window(window_handle).
 		if (w notError) { self.window_registrar removeKey: window_handle }
 	}
@@ -657,21 +658,17 @@ extend X11
 	{
 		| widget mthname |
 
-		widget := self.window_registrar at: llevent window.
-		if (widget isError)
-		{
+		widget := self.window_registrar at: llevent window ifAbsent: [
 			System logNl: 'Event on unknown widget - ' & (llevent window asString).
 			^nil
-		}.
+		].
 
-		mthname := self.llevent_blocks at: llevent type.
-		if (mthname isError)
-		{
-			System logNl: 'Uknown event type ' & (llevent type asString).
+		mthname := self.llevent_blocks at: llevent type ifAbsent: [
+			System logNl: 'Unknown event type ' & (llevent type asString).
 			^nil
-		}.
+		].
 
-		^self perform (mthname, llevent, widget).
+		^self perform(mthname, llevent, widget).
 	}
 
 	method __handle_notify: llevent on: widget