IUP

Check-in [ef300926a4]
Login

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

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)