IUP

Check-in [6c01896816]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Corrected label constructor argument name
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6c018968164435c85283204f1f93dc11b05441cc
User & Date: murphy 2015-05-01 22:49:40.303
Context
2015-05-01
22:50
Corrected plot sample insertion index argument checks check-in: 3ebc96c632 user: murphy tags: trunk
22:49
Corrected label constructor argument name check-in: 6c01896816 user: murphy tags: trunk
17:13
Documentation update check-in: 4693332543 user: murphy tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to chicken/iup-controls.scm.
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
  	(foreign-lambda* nonnull-ihandle ([ihandle-list handles])
  		"C_return(IupTabsv((Ihandle **)handles));")
  	#:apply-args list))

(define label
  (make-constructor-procedure
  	(foreign-lambda nonnull-ihandle "IupLabel" c-string)
  	#:apply-args (optional-args [action #f])))

(define button
  (make-constructor-procedure
  	(foreign-lambda nonnull-ihandle "IupButton" c-string iname/upcase)
  	#:apply-args (optional-args [title #f] [action #f])))

(define toggle







|







27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
  	(foreign-lambda* nonnull-ihandle ([ihandle-list handles])
  		"C_return(IupTabsv((Ihandle **)handles));")
  	#:apply-args list))

(define label
  (make-constructor-procedure
  	(foreign-lambda nonnull-ihandle "IupLabel" c-string)
  	#:apply-args (optional-args [title #f])))

(define button
  (make-constructor-procedure
  	(foreign-lambda nonnull-ihandle "IupButton" c-string iname/upcase)
  	#:apply-args (optional-args [title #f] [action #f])))

(define toggle