Index: api/base.wiki ================================================================== --- api/base.wiki +++ api/base.wiki @@ -323,23 +323,23 @@

(normalizer [child ihandle?] ... #: ...) → ihandle?

Normalizes all controls from a list so their natural size is the biggest natural size among them. -

(background-box [child ihandle?] #: ...) → ihandle?

+

(backgroundbox [child ihandle?] #: ...) → ihandle?

Creates a simple native container with no decorations. -

(detach-box [child ihandle?] #: ...) → ihandle?

+

(detachbox [child ihandle?] #: ...) → ihandle?

Creates a detachable void container. -

(expander [child ihandle?] #: ...) → ihandle?

+

(expandbox [child ihandle?] #: ...) → ihandle?

Creates a void container that can interactively show or hide its child. -

(scroll-box [child ihandle?] #: ...) → ihandle?

+

(scrollbox [child ihandle?] #: ...) → ihandle?

Creates a native container that allows its child to be scrolled.

(split [child0 ihandle?] [child1 ihandle?] #: ...) → ihandle?

Index: chicken/iup-base.scm ================================================================== --- chicken/iup-base.scm +++ chicken/iup-base.scm @@ -569,23 +569,23 @@ (define normalizer (make-constructor-procedure (foreign-lambda* nonnull-ihandle ([ihandle-list handles]) "C_return(IupNormalizerv((Ihandle **)handles));") #:apply-args list)) -(define background-box +(define backgroundbox (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupBackgroundBox" ihandle))) -(define detach-box +(define detachbox (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupDetachBox" ihandle))) -(define expander +(define expandbox (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupExpander" ihandle))) -(define scroll-box +(define scrollbox (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupScrollBox" ihandle))) (define split (make-constructor-procedure Index: chicken/iup.scm ================================================================== --- chicken/iup.scm +++ chicken/iup.scm @@ -22,11 +22,11 @@ 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 + 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 Index: racket/base.rkt ================================================================== --- racket/base.rkt +++ racket/base.rkt @@ -587,29 +587,29 @@ (get-ffi-obj "IupNormalizerv" libiup (_fun children :: [children : (_list i _ihandle/null) = (append children '(#f))] -> [handle : _ihandle])))) -(define background-box +(define backgroundbox (make-constructor-procedure (get-ffi-obj "IupBackgroundBox" libiup (_fun [child : _ihandle/null] -> [handle : _ihandle])))) -(define detach-box +(define detachbox (make-constructor-procedure (get-ffi-obj "IupDetachBox" libiup (_fun [child : _ihandle/null] -> [handle : _ihandle])))) -(define expander +(define expandbox (make-constructor-procedure (get-ffi-obj "IupExpander" libiup (_fun [child : _ihandle/null] -> [handle : _ihandle])))) -(define scroll-box +(define scrollbox (make-constructor-procedure (get-ffi-obj "IupScrollBox" libiup (_fun [child : _ihandle/null] -> [handle : _ihandle])))) @@ -791,10 +791,10 @@ 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 + 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)