Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Flush the main loop after widget destruction before clearing the registry |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
d42d57606e60f738ed0b8f209c7a8292 |
User & Date: | murphy 2015-08-07 16:01:58.930 |
Context
2015-10-15
| ||
05:58 | Canvas pointer marshalling for callbacks check-in: fb90ae1afa user: murphy tags: trunk | |
2015-08-07
| ||
16:01 | Flush the main loop after widget destruction before clearing the registry check-in: d42d57606e user: murphy tags: trunk | |
2015-08-06
| ||
15:17 | Improved return value marshalling in CHICKEN callback wrapper check-in: ab22068543 user: murphy tags: trunk | |
Changes
Changes to chicken/iup-base.scm.
︙ | ︙ | |||
417 418 419 420 421 422 423 424 425 426 427 428 429 430 | (fold-ec acc (:children child handle) child collect-handles)))] [handle-destroy! (foreign-safe-lambda void "IupDestroy" nonnull-ihandle)]) (lambda (handle) (let ([handles (collect-handles handle '())]) (handle-destroy! handle) (for-each registry-clear! handles))))) (define map-peer! (letrec ([map-peer/raw! (foreign-safe-lambda istatus "IupMap" nonnull-ihandle)]) (lambda (handle) (let ([status (map-peer/raw! handle)]) (case status | > | 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 | (fold-ec acc (:children child handle) child collect-handles)))] [handle-destroy! (foreign-safe-lambda void "IupDestroy" nonnull-ihandle)]) (lambda (handle) (let ([handles (collect-handles handle '())]) (handle-destroy! handle) (main-loop-flush) (for-each registry-clear! handles))))) (define map-peer! (letrec ([map-peer/raw! (foreign-safe-lambda istatus "IupMap" nonnull-ihandle)]) (lambda (handle) (let ([status (map-peer/raw! handle)]) (case status |
︙ | ︙ |
Changes to racket/base.rkt.
︙ | ︙ | |||
330 331 332 333 334 335 336 337 338 339 340 341 342 343 | [handle-destroy! (get-ffi-obj "IupDestroy" libiup (_fun [handle : _ihandle] -> _void))]) (λ (handle) (let ([handles (collect-handles handle null)]) (handle-destroy! handle) (for-each registry-clear! handles))))) (define map-peer! (get-ffi-obj "IupMap" libiup (_fun [handle : _ihandle] -> [status : _istatus] -> (case status | > | 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 | [handle-destroy! (get-ffi-obj "IupDestroy" libiup (_fun [handle : _ihandle] -> _void))]) (λ (handle) (let ([handles (collect-handles handle null)]) (handle-destroy! handle) (main-loop-flush) (for-each registry-clear! handles))))) (define map-peer! (get-ffi-obj "IupMap" libiup (_fun [handle : _ihandle] -> [status : _istatus] -> (case status |
︙ | ︙ |