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

added more X11 code

Browse Source
This commit is contained in:
hyunghwan.chung 2017-06-27 16:03:29 +00:00
parent 979040e7b3
commit a2877ac905
4 changed files with 113 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
moo/kernel/Collect.moo
View File

@ -719,9 +719,15 @@ class LinkedList(Collection)
} }
} }
method findLink: value method findEqualLink: value
{ {
self doOverLink: [:el | if (el value = value) { ^el }]. self doOverLink: [:el | if (el value = value) { ^el }].
^Error.Code.ENOENT ^Error.Code.ENOENT
} }
method findIdenticalLink: value
{
self doOverLink: [:el | if (el value == value) { ^el }].
^Error.Code.ENOENT
}
} }

160
moo/kernel/X11.moo
View File

@ -38,7 +38,7 @@ class X11(Object) from 'x11'
^w ^w
} }
method __close_window(window_handle) method __destroy_window(window_handle)
{ {
| w | | w |
w := self _destroy_window(window_handle). w := self _destroy_window(window_handle).
@ -86,6 +86,8 @@ pooldic X11.LLEventType
DESTROY_NOTIFY := 17. DESTROY_NOTIFY := 17.
CONFIGURE_NOTIFY := 22. CONFIGURE_NOTIFY := 22.
CLIENT_MESSAGE := 33. CLIENT_MESSAGE := 33.
SHELL_CLOSE := 65537.
} }
class X11.LLEvent(Object) class X11.LLEvent(Object)
@ -208,23 +210,25 @@ class X11.Widget(Object)
^self.parent windowHandle. ^self.parent windowHandle.
} }
method paint: paint_event
{
}
method realize
{
## super realize chaining required???
}
method realize { }
method dispose method dispose
{ {
## what should be done first? remvoe from container? should dispose be called? 'Widget dispose XXXXXXXXXXXXXX' dump.
## super dispose chaining required? }
##if (self.parent notNil)
##{
## self.parent remove: self.
##} method onPaintEvent: paint_event
{
}
method onButtonEvent: event
{
}
method onCloseEvent
{
} }
} }
@ -235,10 +239,10 @@ class X11.Label(X11.Widget)
method text: text method text: text
{ {
self.text := text. self.text := text.
if (self windowHandle notNil) { self paint: nil } if (self windowHandle notNil) { self onPaintEvent: nil }
} }
method paint: paint_event method onPaintEvent: paint_event
{ {
| gc | | gc |
System logNl: 'LABEL GC.......'. System logNl: 'LABEL GC.......'.
@ -251,12 +255,13 @@ System logNl: 'LABEL GC.......'.
method realize method realize
{ {
## if i want to use a window to represent it, it must create window here. ## if i want to use a window to represent it, it must create window here.
## otherwise, do other works in paint:??? ## otherwise, do other works in onPaintEvent:???
} }
method dispose method dispose
{ {
'Label dispose XXXXXXXXXXXXXX' dump.
super dispose.
} }
} }
@ -283,13 +288,12 @@ class X11.Composite(X11.Widget)
method remove: widget method remove: widget
{ {
| link | | link |
if (widget parent =~ self) if (widget parent ~~ self)
{ {
selfns.Exception sinal: 'Cannot remove an unknown widget' selfns.Exception sinal: 'Cannot remove an unknown widget'
}. }.
## TODO: unmap and destroy... link := self.children findIdenticalLink: widget.
link := self.children findLink: widget.
self.children removeLink: link. self.children removeLink: link.
widget parent: nil. widget parent: nil.
} }
@ -301,7 +305,12 @@ class X11.Composite(X11.Widget)
method dispose method dispose
{ {
self.children do: [:child | child dispose ] 'Composite dispose XXXXXXXXXXXXXX' dump.
super dispose.
self.children do: [:child |
child dispose.
self remove: child.
]
} }
} }
@ -328,7 +337,13 @@ class X11.Shell(X11.Composite)
method realize method realize
{ {
| wind | | wind |
if (self.windowHandle notNil) { ^self }. if (self.windowHandle notNil) { ^self }.
if (self.displayServer isNil)
{
## not added to a display server.
X11.Exception signal: 'Cannot realize a shell not added to a display server'
}.
wind := self.displayServer __create_window(nil, self.x, self.y, self.width, self.height, self.fgcolor, self.bgcolor, self). wind := self.displayServer __create_window(nil, self.x, self.y, self.width, self.height, self.fgcolor, self.bgcolor, self).
if (wind isError) if (wind isError)
@ -341,24 +356,37 @@ class X11.Shell(X11.Composite)
[ [
self.children do: [:child | child realize ]. self.children do: [:child | child realize ].
] on: System.Exception do: [:ex | ] on: System.Exception do: [:ex |
self.displayServer _destroy_window(wind). self.displayServer __destroy_window(wind).
self.windowHandle := nil. self.windowHandle := nil.
ex pass ex pass
]. ].
### call displayOn: from the exposure handler... ### call displayOn: from the exposure handler...
self paint: nil. self onPaintEvent: nil.
} }
method dispose method dispose
{ {
super dispose. 'Shell dispose XXXXXXXXXXXXXX' dump.
if (self.displayServer notNil)
{
if (self.windowHandle notNil) if (self.windowHandle notNil)
{ {
self.displayServer _destroy_window (self.windowHandle). super dispose.
self.displayServer __destroy_window (self.windowHandle).
self.windowHandle := nil. self.windowHandle := nil.
}.
self.displayServer removeShell: self.
} }
} }
method onCloseEvent
{
'ON CLOSE EVENT .............' dump.
self dispose.
}
} }
## --------------------------------------------------------------------------- ## ---------------------------------------------------------------------------
@ -394,9 +422,6 @@ extend X11
self _close_display. self _close_display.
##self.display_base := nil. ##self.display_base := nil.
}. }.
## TODO: check if _fini_trailer is not called for some exception throwing...
##self _fini_trailer.
} }
method initialize method initialize
@ -415,30 +440,31 @@ extend X11
self.llevent_blocks := System.Dictionary new. self.llevent_blocks := System.Dictionary new.
self.llevent_blocks self.llevent_blocks
at: self.LLEventType.KEY_PRESS put: #__handle_key_event:; at: self.LLEventType.KEY_PRESS put: #__handle_key_event:on:;
at: self.LLEventType.KEY_RELEASE put: #__handle_key_event:; at: self.LLEventType.KEY_RELEASE put: #__handle_key_event:on:;
at: self.LLEventType.BUTTON_PRESS put: #__handle_button_event:; at: self.LLEventType.BUTTON_PRESS put: #__handle_button_event:on:;
at: self.LLEventType.BUTTON_RELEASE put: #__handle_button_event:; at: self.LLEventType.BUTTON_RELEASE put: #__handle_button_event:on:;
at: self.LLEventType.MOTION_NOTIFY put: #__handle_notify:; at: self.LLEventType.MOTION_NOTIFY put: #__handle_notify:on:;
at: self.LLEventType.ENTER_NOTIFY put: #__handle_notify:; at: self.LLEventType.ENTER_NOTIFY put: #__handle_notify:on:;
at: self.LLEventType.LEAVE_NOTIFY put: #__handle_notify:; at: self.LLEventType.LEAVE_NOTIFY put: #__handle_notify:on:;
at: self.LLEventType.EXPOSE put: #__handle_expose:; at: self.LLEventType.EXPOSE put: #__handle_expose:on:;
at: self.LLEventType.DESTROY_NOTIFY put: #__handle_destroy_notify:; at: self.LLEventType.DESTROY_NOTIFY put: #__handle_destroy_notify:on:;
at: self.LLEventType.CONFIGURE_NOTIFY put: #__handle_configure_notify:; at: self.LLEventType.CONFIGURE_NOTIFY put: #__handle_configure_notify:on:;
at: self.LLEventType.CLIENT_MESSAGE put: #__handle_client_message:. at: self.LLEventType.CLIENT_MESSAGE put: #__handle_client_message:on:.
*) *)
self.llevent_blocks := %{ self.llevent_blocks := %{
self.LLEventType.KEY_PRESS -> #__handle_key_event:, self.LLEventType.KEY_PRESS -> #__handle_key_event:on:,
self.LLEventType.KEY_RELEASE -> #__handle_key_event:, self.LLEventType.KEY_RELEASE -> #__handle_key_event:on:,
self.LLEventType.BUTTON_PRESS -> #__handle_button_event:, self.LLEventType.BUTTON_PRESS -> #__handle_button_event:on:,
self.LLEventType.BUTTON_RELEASE -> #__handle_button_event:, self.LLEventType.BUTTON_RELEASE -> #__handle_button_event:on:,
self.LLEventType.MOTION_NOTIFY -> #__handle_notify:, self.LLEventType.MOTION_NOTIFY -> #__handle_notify:on:,
self.LLEventType.ENTER_NOTIFY -> #__handle_notify:, self.LLEventType.ENTER_NOTIFY -> #__handle_notify:on:,
self.LLEventType.LEAVE_NOTIFY -> #__handle_notify:, self.LLEventType.LEAVE_NOTIFY -> #__handle_notify:on:,
self.LLEventType.EXPOSE -> #__handle_expose:, self.LLEventType.EXPOSE -> #__handle_expose:on:,
self.LLEventType.DESTROY_NOTIFY -> #__handle_destroy_notify:, self.LLEventType.DESTROY_NOTIFY -> #__handle_destroy_notify:on:,
self.LLEventType.CONFIGURE_NOTIFY -> #__handle_configure_notify:, self.LLEventType.CONFIGURE_NOTIFY -> #__handle_configure_notify:on:,
self.LLEventType.CLIENT_MESSAGE -> #__handle_client_message: self.LLEventType.CLIENT_MESSAGE -> #__handle_client_message:on:,
self.LLEventType.SHELL_CLOSE -> #__handle_shell_close:on:
}. }.
} }
@ -461,7 +487,6 @@ extend X11
} }
} }
method enterEventLoop method enterEventLoop
{ {
if (self.event_loop_sem isNil) if (self.event_loop_sem isNil)
@ -537,36 +562,41 @@ extend X11
}. }.
(llevent window asString) dump. (llevent window asString) dump.
^self perform (mthname, llevent). ^self perform (mthname, llevent, widget).
} }
method __handle_notify: type method __handle_notify: llevent on: widget
{
^9999999999
}
method __handle_expose: event
{ {
} }
method __handle_button_event: event method __handle_expose: llevent on: widget
{ {
} }
method __handle_destroy_notify: event method __handle_button_event: event on: widget
{ {
} }
method __handle_configure_notify: event method __handle_destroy_notify: event on: widget
{ {
} }
method __handle_client_message: event method __handle_configure_notify: event on: widget
{ {
} }
method __handle_key_event: type method __handle_client_message: event on: widget
{ {
widget close: event.
}
method __handle_key_event: event on: widget
{
}
method __handle_shell_close: llevent on: widget
{
widget onCloseEvent.
} }
} }

6
moo/lib/main.c
View File

@ -800,6 +800,12 @@ static int _add_poll_fd (moo_t* moo, int fd, int event_mask, moo_oow_t event_dat
MOO_ASSERT (moo, xtn->ep >= 0); MOO_ASSERT (moo, xtn->ep >= 0);
ev.events = event_mask; ev.events = event_mask;
#if defined(USE_THREAD) && defined(EPOLLET)
/* epoll_wait may return again if the worker thread consumes events.
* switch to level-trigger. */
/* TODO: verify if EPOLLLET is desired */
ev.events |= EPOLLET;
#endif
ev.data.ptr = (void*)event_data; ev.data.ptr = (void*)event_data;
if (epoll_ctl (xtn->ep, EPOLL_CTL_ADD, fd, &ev) == -1) if (epoll_ctl (xtn->ep, EPOLL_CTL_ADD, fd, &ev) == -1)
{ {

4
moo/mod/x11.c
View File

@ -188,6 +188,7 @@ static moo_pfrc_t pf_get_llevent (moo_t* moo, moo_ooi_t nargs)
case ClientMessage: case ClientMessage:
if (event->xclient.data.l[0] == tr->wm_delete_window) if (event->xclient.data.l[0] == tr->wm_delete_window)
{ {
e->type = MOO_SMOOI_TO_OOP(65537); /* match SHELL_CLOSE in X11.LLEventType */
e->window = MOO_SMOOI_TO_OOP(event->xclient.window); e->window = MOO_SMOOI_TO_OOP(event->xclient.window);
/* WINDOW CLSOE EVENT */ /* WINDOW CLSOE EVENT */
} }
@ -219,6 +220,7 @@ static moo_pfrc_t pf_get_llevent (moo_t* moo, moo_ooi_t nargs)
else else
{ {
/* nil if there is no event */ /* nil if there is no event */
MOO_DEBUG0 (moo, "NO PENDING EVENT....\n");
MOO_STACK_SETRET (moo, nargs, moo->_nil); MOO_STACK_SETRET (moo, nargs, moo->_nil);
} }
@ -329,7 +331,7 @@ static moo_pfrc_t pf_destroy_window (moo_t* moo, moo_ooi_t nargs)
moo_oow_t wind; moo_oow_t wind;
x11 = (oop_x11_t)MOO_STACK_GETRCV(moo, nargs); x11 = (oop_x11_t)MOO_STACK_GETRCV(moo, nargs);
a0 = MOO_STACK_GETARG(moo, nargs, 1); /* window - Integer (Window) */ a0 = MOO_STACK_GETARG(moo, nargs, 0); /* window - Integer (Window) */
if (moo_inttooow(moo, a0, &wind) <= 0) if (moo_inttooow(moo, a0, &wind) <= 0)
{ {