Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Bindings for GridBox constructor |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ef300926a4c118e3fb36f5b3e4bfdc3d |
| User & Date: | murphy 2015-07-25 14:29:44 |
Context
|
2015-07-26
| ||
| 23:57 | Use external callback registry - prevents attribute lookup chaining problems - creates fewer garbage collection roots check-in: 8f6bdb17f4 user: murphy tags: trunk | |
|
2015-07-25
| ||
| 14:29 | Bindings for GridBox constructor check-in: ef300926a4 user: murphy tags: trunk | |
|
2015-05-03
| ||
| 22:43 | Updated CHICKEN release information file check-in: 6cbe5a56c8 user: murphy tags: trunk | |
Changes
Changes to api/base.wiki.
282 283 284 285 286 287 288 289 290 291 292 293 294 295 |
<h3><a id="dialog"><code><nowiki>(dialog [child (or/c ihandle? #f)] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a new dialog with the given child. <h3><a id="fill"><code><nowiki>(fill #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a new fill element. <h3><a id="hbox"><code><nowiki>(hbox [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a new horizontal box with the given children. <h3><a id="vbox"><code><nowiki>(vbox [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> |
> > > > |
282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 |
<h3><a id="dialog"><code><nowiki>(dialog [child (or/c ihandle? #f)] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a new dialog with the given child. <h3><a id="fill"><code><nowiki>(fill #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a new fill element. <h3><a id="gridbox"><code><nowiki>(gridbox [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a new grid box with the given children. <h3><a id="hbox"><code><nowiki>(hbox [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a new horizontal box with the given children. <h3><a id="vbox"><code><nowiki>(vbox [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> |
Changes to chicken/iup-base.scm.
510 511 512 513 514 515 516 517 518 519 520 521 522 523 |
(make-constructor-procedure (foreign-lambda nonnull-ihandle "IupDialog" ihandle))) (define fill (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupFill"))) (define hbox (make-constructor-procedure (foreign-lambda* nonnull-ihandle ([ihandle-list handles]) "C_return(IupHboxv((Ihandle **)handles));") #:apply-args list)) (define vbox (make-constructor-procedure |
> > > > > |
510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 |
(make-constructor-procedure (foreign-lambda nonnull-ihandle "IupDialog" ihandle))) (define fill (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupFill"))) (define gridbox (make-constructor-procedure (foreign-lambda* nonnull-ihandle ([ihandle-list handles]) "C_return(IupGridBoxv((Ihandle **)handles));") #:apply-args list)) (define hbox (make-constructor-procedure (foreign-lambda* nonnull-ihandle ([ihandle-list handles]) "C_return(IupHboxv((Ihandle **)handles));") #:apply-args list)) (define vbox (make-constructor-procedure |
Changes to chicken/iup.scm.
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
child-add! child-remove! child-move! child-ref child-pos child-count :children children refresh redraw child-x/y->pos show hide dialog fill hbox vbox zbox cbox sbox radio normalizer split image/palette image/rgb image/rgba image/file image-save current-focus focus-next focus-previous menu menu-item menu-separator clipboard timer send-url) (import scheme chicken foreign |
| |
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
child-add! child-remove! child-move!
child-ref child-pos child-count
:children children
refresh redraw
child-x/y->pos
show hide
dialog
fill gridbox hbox vbox zbox cbox sbox
radio normalizer split
image/palette image/rgb image/rgba image/file image-save
current-focus focus-next focus-previous
menu menu-item menu-separator
clipboard timer send-url)
(import
scheme chicken foreign
|
Changes to racket/base.rkt.
532
533
534
535
536
537
538
539
540
541
542
543
544
545
...
758
759
760
761
762
763
764
765
766
767
768
769
770
|
(define fill
(make-constructor-procedure
(get-ffi-obj
"IupFill" libiup
(_fun -> [handle : _ihandle]))))
(define hbox
(make-constructor-procedure
(get-ffi-obj
"IupHboxv" libiup
(_fun children :: [children : (_list i _ihandle/null) = (append children '(#f))]
-> [handle : _ihandle]))))
................................................................................
child-add! child-remove! child-move!
child-ref child-pos child-count
in-children children
refresh redraw
child-x/y->pos
show hide
dialog
fill hbox vbox zbox cbox sbox
radio normalizer split
image/palette image/rgb image/rgba image/file image-save
current-focus focus-next focus-previous
menu menu-item menu-separator
clipboard timer send-url)
|
>
>
>
>
>
>
>
|
|
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
...
765
766
767
768
769
770
771
772
773
774
775
776
777
|
(define fill
(make-constructor-procedure
(get-ffi-obj
"IupFill" libiup
(_fun -> [handle : _ihandle]))))
(define gridbox
(make-constructor-procedure
(get-ffi-obj
"IupGridBoxv" libiup
(_fun children :: [children : (_list i _ihandle/null) = (append children '(#f))]
-> [handle : _ihandle]))))
(define hbox
(make-constructor-procedure
(get-ffi-obj
"IupHboxv" libiup
(_fun children :: [children : (_list i _ihandle/null) = (append children '(#f))]
-> [handle : _ihandle]))))
................................................................................
child-add! child-remove! child-move!
child-ref child-pos child-count
in-children children
refresh redraw
child-x/y->pos
show hide
dialog
fill gridbox hbox vbox zbox cbox sbox
radio normalizer split
image/palette image/rgb image/rgba image/file image-save
current-focus focus-next focus-previous
menu menu-item menu-separator
clipboard timer send-url)
|