Anubis / Anubis

Commit 35a1e0ba9979613235b1794bcd45b8764cbfdab1

Authored by Alain Prouté
1 parent 95bcbb46

*** empty log message ***

Showing 1 changed file with 14 additions and 27 deletions   Show diff stats
Inline Side-by-side
anubis_dev/library/widgets4/host_window.anubis
  Show/Hide comments   View file @35a1e0b
... ... @@ -288,12 +288,10 @@ define (HostWindow,HostWindowEvent(One)) -> List(Rectangle)
288 288  
289 289 pointer_entering then
290 290 mouse_capture_ticket_v <- failure;
291   - keyboard_capture_ticket_v <- failure;
292 291 [],
293 292  
294 293 pointer_leaving then
295 294 //mouse_capture_ticket_v <- failure;
296   - //keyboard_capture_ticket_v <- failure;
297 295 with result = translate(win,
298 296 transmit(event_tool_box(0,0,*pmx_v,*pmy_v))(root_widget,0,0,
299 297 mouse_gone),
... ... @@ -305,23 +303,17 @@ define (HostWindow,HostWindowEvent(One)) -&gt; List(Rectangle)
305 303  
306 304 key_down(ks,kk) then
307 305 (
308   - if mouse_left(ks)
309   - then unique
310   - else (
311   - mouse_capture_ticket_v <- failure;
312   - keyboard_capture_ticket_v <- failure
313   - )
  306 + if mouse_left(ks)
  307 + then unique
  308 + else mouse_capture_ticket_v <- failure
314 309 );
315 310 [],
316 311  
317 312 mouse_move(ks,x,y) then
318 313 (
319   - if mouse_left(ks)
320   - then unique
321   - else (
322   - mouse_capture_ticket_v <- failure;
323   - keyboard_capture_ticket_v <- failure
324   - )
  314 + if mouse_left(ks)
  315 + then unique
  316 + else mouse_capture_ticket_v <- failure
325 317 );
326 318 if *mouse_capture_ticket_v is
327 319 {
... ... @@ -360,12 +352,9 @@ define (HostWindow,HostWindowEvent(One)) -&gt; List(Rectangle)
360 352  
361 353 mouse_click(ks,mc,x,y) then
362 354 (
363   - if mouse_left(ks)
364   - then unique
365   - else (
366   - mouse_capture_ticket_v <- failure;
367   - keyboard_capture_ticket_v <- failure
368   - )
  355 + if mouse_left(ks)
  356 + then unique
  357 + else mouse_capture_ticket_v <- failure
369 358 );
370 359 with result = translate(win,
371 360 transmit(event_tool_box(0,0,*pmx_v,*pmy_v))(root_widget,0,0,
... ... @@ -380,12 +369,9 @@ define (HostWindow,HostWindowEvent(One)) -&gt; List(Rectangle)
380 369  
381 370 mouse_wheel(ks,d,x,y) then
382 371 (
383   - if mouse_left(ks)
384   - then unique
385   - else (
386   - mouse_capture_ticket_v <- failure;
387   - keyboard_capture_ticket_v <- failure
388   - )
  372 + if mouse_left(ks)
  373 + then unique
  374 + else mouse_capture_ticket_v <- failure
389 375 );
390 376 [],
391 377  
... ... @@ -402,7 +388,8 @@ define (HostWindow,HostWindowEvent(One)) -&gt; List(Rectangle)
402 388 last,
403 389  
404 390 repaint(l) then
405   - l,
  391 + store_v <- *store_v + l;
  392 + [],
406 393  
407 394 specific(se) then
408 395 []
... ...