hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

updated the X11.moo sample code

Browse Source
This commit is contained in:
hyunghwan.chung 2018-10-08 13:17:11 +00:00
parent 9ad9299dea
commit b16347e2d9
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
moo/kernel/X11.moo
View File

@ -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,19 +658,15 @@ 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).
}