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 |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9315426b4f9897907ebd6ea7ebc7ae25 |
| User & Date: | murphy 2011-03-23 20:11:21.630 |
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 |
[handle-destroy!
(foreign-lambda void "IupDestroy" nonnull-ihandle)])
(lambda (handle)
(registry-destroy/recursive! handle)
(handle-destroy! handle))))
(define map-peer!
| | | | | | | | 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 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 save-attributes!
(foreign-lambda void "IupSaveClassAttributes" nonnull-ihandle))
(define parent
(foreign-lambda ihandle "IupGetParent" 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
|
| ︙ | ︙ |