Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Somewhat more consistent names: background-box -> backgroundbox, detach-box -> detachbox, expander -> expandbox, scroll-box -> scrollbox |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a04b3fd0a447cb5e27cb88eefa2f7a5d |
| User & Date: | murphy 2015-08-05 15:23:01 |
Context
|
2015-08-05
| ||
| 16:05 | Exception handlers and dynamic exit traps for CHICKEN callback trampolines check-in: 59297e2f3f user: murphy tags: trunk | |
| 15:23 | Somewhat more consistent names: background-box -> backgroundbox, detach-box -> detachbox, expander -> expandbox, scroll-box -> scrollbox check-in: a04b3fd0a4 user: murphy tags: trunk | |
|
2015-08-04
| ||
| 16:59 | Additional constructors: background-box detach-box expander scroll-box check-in: 4596413016 user: murphy tags: trunk | |
Changes
Changes to api/base.wiki.
321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 |
Creates the radio element for grouping mutually exclusive toggles. <h3><a id="normalizer"><code><nowiki>(normalizer [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Normalizes all controls from a list so their natural size is the biggest natural size among them. <h3><a id="background-box"><code><nowiki>(background-box [child ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a simple native container with no decorations. <h3><a id="detach-box"><code><nowiki>(detach-box [child ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a detachable void container. <h3><a id="expander"><code><nowiki>(expander [child ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a void container that can interactively show or hide its child. <h3><a id="scroll-box"><code><nowiki>(scroll-box [child ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a native container that allows its child to be scrolled. <h3><a id="split"><code><nowiki>(split [child0 ihandle?] [child1 ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a container that splits its client area in two. |
| | | | |
321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 |
Creates the radio element for grouping mutually exclusive toggles. <h3><a id="normalizer"><code><nowiki>(normalizer [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Normalizes all controls from a list so their natural size is the biggest natural size among them. <h3><a id="backgroundbox"><code><nowiki>(backgroundbox [child ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a simple native container with no decorations. <h3><a id="detachbox"><code><nowiki>(detachbox [child ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a detachable void container. <h3><a id="expandbox"><code><nowiki>(expandbox [child ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a void container that can interactively show or hide its child. <h3><a id="scrollbox"><code><nowiki>(scrollbox [child ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a native container that allows its child to be scrolled. <h3><a id="split"><code><nowiki>(split [child0 ihandle?] [child1 ihandle?] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a container that splits its client area in two. |
Changes to chicken/iup-base.scm.
567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 |
(foreign-lambda nonnull-ihandle "IupRadio" ihandle))) (define normalizer (make-constructor-procedure (foreign-lambda* nonnull-ihandle ([ihandle-list handles]) "C_return(IupNormalizerv((Ihandle **)handles));") #:apply-args list)) (define background-box (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupBackgroundBox" ihandle))) (define detach-box (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupDetachBox" ihandle))) (define expander (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupExpander" ihandle))) (define scroll-box (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupScrollBox" ihandle))) (define split (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupSplit" ihandle ihandle))) |
| | | | |
567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 |
(foreign-lambda nonnull-ihandle "IupRadio" ihandle)))
(define normalizer
(make-constructor-procedure
(foreign-lambda* nonnull-ihandle ([ihandle-list handles]) "C_return(IupNormalizerv((Ihandle **)handles));")
#:apply-args list))
(define backgroundbox
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupBackgroundBox" ihandle)))
(define detachbox
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupDetachBox" ihandle)))
(define expandbox
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupExpander" ihandle)))
(define scrollbox
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupScrollBox" ihandle)))
(define split
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupSplit" ihandle ihandle)))
|
Changes to chicken/iup.scm.
20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
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 background-box detach-box expander scroll-box 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 lolevel data-structures extras srfi-1 srfi-13 srfi-42 srfi-69 irregex |
| |
20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
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 backgroundbox detachbox expandbox scrollbox 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
lolevel data-structures extras srfi-1 srfi-13 srfi-42 srfi-69 irregex
|
Changes to racket/base.rkt.
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
...
789
790
791
792
793
794
795
796
797
798
799
800
|
(define normalizer
(make-constructor-procedure
(get-ffi-obj
"IupNormalizerv" libiup
(_fun children :: [children : (_list i _ihandle/null) = (append children '(#f))]
-> [handle : _ihandle]))))
(define background-box
(make-constructor-procedure
(get-ffi-obj
"IupBackgroundBox" libiup
(_fun [child : _ihandle/null] -> [handle : _ihandle]))))
(define detach-box
(make-constructor-procedure
(get-ffi-obj
"IupDetachBox" libiup
(_fun [child : _ihandle/null] -> [handle : _ihandle]))))
(define expander
(make-constructor-procedure
(get-ffi-obj
"IupExpander" libiup
(_fun [child : _ihandle/null] -> [handle : _ihandle]))))
(define scroll-box
(make-constructor-procedure
(get-ffi-obj
"IupScrollBox" libiup
(_fun [child : _ihandle/null] -> [handle : _ihandle]))))
(define split
(make-constructor-procedure
................................................................................
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 background-box detach-box expander scroll-box 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)
|
|
|
|
|
|
|
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
...
789
790
791
792
793
794
795
796
797
798
799
800
|
(define normalizer
(make-constructor-procedure
(get-ffi-obj
"IupNormalizerv" libiup
(_fun children :: [children : (_list i _ihandle/null) = (append children '(#f))]
-> [handle : _ihandle]))))
(define backgroundbox
(make-constructor-procedure
(get-ffi-obj
"IupBackgroundBox" libiup
(_fun [child : _ihandle/null] -> [handle : _ihandle]))))
(define detachbox
(make-constructor-procedure
(get-ffi-obj
"IupDetachBox" libiup
(_fun [child : _ihandle/null] -> [handle : _ihandle]))))
(define expandbox
(make-constructor-procedure
(get-ffi-obj
"IupExpander" libiup
(_fun [child : _ihandle/null] -> [handle : _ihandle]))))
(define scrollbox
(make-constructor-procedure
(get-ffi-obj
"IupScrollBox" libiup
(_fun [child : _ihandle/null] -> [handle : _ihandle]))))
(define split
(make-constructor-procedure
................................................................................
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 backgroundbox detachbox expandbox scrollbox 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)
|