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

fixed a bug of not updating the system multiplexer when moving an IO semphoare object

Browse Source
This commit is contained in:
hyunghwan.chung
2017-04-08 07:23:31 +00:00
parent 88b2a0787f
commit 89c0a406f3
4 changed files with 166 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
moo/kernel/X11.moo
View File

@ -599,7 +599,7 @@ extend X11
Processor unsignal: self.event_loop_sem.
self.event_loop_sem := nil.
self disconnect.
] fork.
}
@ -953,7 +953,7 @@ class MyObject(Object)
method(#class) main
{
| f q x11 |
| f q p disp1 disp2 disp3 |
f := 20.
(q:=:{ 10 -> 20, 20 -> 30, f + 40 -> self abc, (Association key: 10 value: 49), f -> f })dump.
@ -974,9 +974,15 @@ class MyObject(Object)
f do: [:v | v dump ].
(f size asString & ' elements in list') dump.
disp1 := X11 new.
disp2 := X11 new.
disp3 := X11 new.
##X11 connect.
## f := MyFrame new: d.
q := MyFrame new.
f := MyFrame new: disp2.
q := MyFrame new: disp1.
p := MyFrame new: disp3.
## MyButton new: q.
## MyButton new: f.
@ -987,7 +993,9 @@ class MyObject(Object)
f show.
*)
X11 enterEventLoop. ## this is not a blocking call. it spawns another process.
disp1 enterEventLoop. ## this is not a blocking call. it spawns another process.
disp2 enterEventLoop.
disp3 enterEventLoop.
(*while (true)
{