fixed the io semaphore handling error when DEVPOLL is activated
This commit is contained in:
		| @ -575,26 +575,33 @@ extend X11 | ||||
|  | ||||
| class MyObject(Object) | ||||
| { | ||||
| 	var disp1, shell1, shell2. | ||||
| 	var disp1, disp2, shell1, shell2, shell3. | ||||
|  | ||||
| 	method main1 | ||||
| 	{ | ||||
| 		self.disp1 := X11 new. | ||||
| 		self.disp2 := X11 new. | ||||
|  | ||||
| 		shell1 := (X11.Shell new title: 'Shell 1'). | ||||
| 		shell2 := (X11.Shell new title: 'Shell 2'). | ||||
|  | ||||
| 		shell3 := (X11.Shell new title: 'Shell 3'). | ||||
|  | ||||
| 		shell1 x: 10; y: 20; width: 100; height: 100. | ||||
| 		shell2 x: 200; y: 200; width: 200; height: 200. | ||||
| 		shell3 x: 500; y: 200; width: 200; height: 200. | ||||
|  | ||||
| 		self.disp1 addShell: shell1. | ||||
| 		self.disp1 addShell: shell2. | ||||
| 		self.disp2 addShell: shell3. | ||||
|  | ||||
| 		self.shell1 add: (X11.Label new text: 'xxxxxxxx'). | ||||
| 		self.shell1 realize. | ||||
| 		self.shell2 realize. | ||||
| 		self.shell3 realize. | ||||
|  | ||||
| 		self.disp1 enterEventLoop. ## this is not a blocking call. it spawns another process. | ||||
| 		self.disp2 enterEventLoop. | ||||
| 	} | ||||
|  | ||||
| 	method(#class) main | ||||
|  | ||||
		Reference in New Issue
	
	Block a user