IUP

Check-in [a04b3fd0a4]
Login

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: a04b3fd0a447cb5e27cb88eefa2f7a5d7931cc9d
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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)