Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Some more CHICKEN bindings should be foreign-safe-lambdas for good measure |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9315426b4f9897907ebd6ea7ebc7ae25 |
| User & Date: | murphy 2011-03-23 20:11:21 |
Context
|
2011-04-11
| ||
| 14:33 | Synchronized CHICKEN meta information with eggs repository check-in: 43214e7304 user: murphy tags: trunk | |
|
2011-03-23
| ||
| 20:11 | Some more CHICKEN bindings should be foreign-safe-lambdas for good measure check-in: 9315426b4f user: murphy tags: trunk | |
| 19:51 | Added bindings for the IUP Web library check-in: c247cf621b user: murphy tags: trunk | |
Changes
Changes to chicken/iup-base.scm.
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
...
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
|
[handle-destroy!
(foreign-lambda void "IupDestroy" nonnull-ihandle)])
(lambda (handle)
(registry-destroy/recursive! handle)
(handle-destroy! handle))))
(define map-peer!
(letrec ([map-peer/raw! (foreign-lambda istatus "IupMap" nonnull-ihandle)])
(lambda (handle)
(let ([status (map-peer/raw! handle)])
(case status
[(#t) (void)]
[else (error 'map-peer! (format "failed to map peer (~s)" status) handle)])))))
(define unmap-peer!
(foreign-lambda void "IupUnmap" nonnull-ihandle))
(define class-name
(foreign-lambda iname/downcase "IupGetClassName" nonnull-ihandle))
(define class-type
(foreign-lambda iname/downcase "IupGetClassType" nonnull-ihandle))
................................................................................
(define parent-dialog
(foreign-lambda ihandle "IupGetDialog" nonnull-ihandle))
(define sibling
(foreign-lambda ihandle "IupGetBrother" nonnull-ihandle))
(define child-add!
(letrec ([append! (foreign-lambda ihandle "IupAppend" nonnull-ihandle nonnull-ihandle)]
[insert! (foreign-lambda ihandle "IupInsert" nonnull-ihandle nonnull-ihandle nonnull-ihandle)])
(lambda (child container #!optional [anchor #f])
(or (if anchor
(insert! container anchor child)
(append! container child))
(error 'child-add! "failed to add child" child container anchor)))))
(define child-remove!
(foreign-lambda void "IupDetach" nonnull-ihandle))
(define child-move!
(letrec ([move! (foreign-lambda istatus "IupReparent" nonnull-ihandle nonnull-ihandle ihandle)])
(lambda (child parent #!optional ref-child)
(let ([status (move! child parent ref-child)])
(case status
[(#t) (void)]
[else (error 'child-move! (format "failed to move child (~s)" status) child parent)])))))
(define child-ref
|
|
|
|
|
|
|
|
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
...
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
|
[handle-destroy!
(foreign-lambda void "IupDestroy" nonnull-ihandle)])
(lambda (handle)
(registry-destroy/recursive! handle)
(handle-destroy! handle))))
(define map-peer!
(letrec ([map-peer/raw! (foreign-safe-lambda istatus "IupMap" nonnull-ihandle)])
(lambda (handle)
(let ([status (map-peer/raw! handle)])
(case status
[(#t) (void)]
[else (error 'map-peer! (format "failed to map peer (~s)" status) handle)])))))
(define unmap-peer!
(foreign-safe-lambda void "IupUnmap" nonnull-ihandle))
(define class-name
(foreign-lambda iname/downcase "IupGetClassName" nonnull-ihandle))
(define class-type
(foreign-lambda iname/downcase "IupGetClassType" nonnull-ihandle))
................................................................................
(define parent-dialog
(foreign-lambda ihandle "IupGetDialog" nonnull-ihandle))
(define sibling
(foreign-lambda ihandle "IupGetBrother" nonnull-ihandle))
(define child-add!
(letrec ([append! (foreign-safe-lambda ihandle "IupAppend" nonnull-ihandle nonnull-ihandle)]
[insert! (foreign-safe-lambda ihandle "IupInsert" nonnull-ihandle nonnull-ihandle nonnull-ihandle)])
(lambda (child container #!optional [anchor #f])
(or (if anchor
(insert! container anchor child)
(append! container child))
(error 'child-add! "failed to add child" child container anchor)))))
(define child-remove!
(foreign-safe-lambda void "IupDetach" nonnull-ihandle))
(define child-move!
(letrec ([move! (foreign-safe-lambda istatus "IupReparent" nonnull-ihandle nonnull-ihandle ihandle)])
(lambda (child parent #!optional ref-child)
(let ([status (move! child parent ref-child)])
(case status
[(#t) (void)]
[else (error 'child-move! (format "failed to move child (~s)" status) child parent)])))))
(define child-ref
|