IUP

Check-in [5c793b4936]
Login

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

Overview
Comment:Link control bindings
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5c793b4936393db1d7d767f632ba4f0812d2c9d6
User & Date: murphy 2015-05-02 14:20:48
Context
2015-05-02
14:47
CHICKEN bindings for IUP GL controls check-in: 43e92362a7 user: murphy tags: trunk
14:20
Link control bindings check-in: 5c793b4936 user: murphy tags: trunk
13:38
Extended matrix functionality bindings check-in: 951ad214a6 user: murphy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to api/controls.wiki.

29
30
31
32
33
34
35




36
37
38
39
40
41
42
<h3><a id="tabs"><code><nowiki>(tabs [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3>

Creates a tabs element with the given children.

<h3><a id="label"><code><nowiki>(label [title (or/c string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3>

Creates a label interface element, which displays a separator, a text or an image.





<h3><a id="button"><code><nowiki>(button [title (or/c string? #f) #f] [action (or/c symbol? string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3>

Creates a button element with the given title and action callback name.

<h3><a id="toggle"><code><nowiki>(toggle [title (or/c string? #f) #f] [action (or/c symbol? string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3>








>
>
>
>







29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
<h3><a id="tabs"><code><nowiki>(tabs [child ihandle?] ... #:<name> <value> ...) → ihandle?</nowiki></code></a></h3>

Creates a tabs element with the given children.

<h3><a id="label"><code><nowiki>(label [title (or/c string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3>

Creates a label interface element, which displays a separator, a text or an image.

<h3><a id="link"><code><nowiki>(label [url (or/c string? #f) #f] [title (or/c string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3>

Creates a link interface element, which displays some text like a label and links to a URL.

<h3><a id="button"><code><nowiki>(button [title (or/c string? #f) #f] [action (or/c symbol? string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3>

Creates a button element with the given title and action callback name.

<h3><a id="toggle"><code><nowiki>(toggle [title (or/c string? #f) #f] [action (or/c symbol? string? #f) #f] #:<name> <value> ...) → ihandle?</nowiki></code></a></h3>

Changes to chicken/iup-controls.scm.

35
36
37
38
39
40
41





42
43
44
45
46
47
48
  	#: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
  (make-constructor-procedure







>
>
>
>
>







35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
  	#:apply-args list))

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

(define link
  (make-constructor-procedure
  	(foreign-lambda nonnull-ihandle "IupLink" c-string c-string)
  	#:apply-args (optional-args [url #f] [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
  (make-constructor-procedure

Changes to chicken/iup.scm.

34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
		lolevel data-structures extras srfi-1 srfi-13 srfi-42 irregex
		(only posix setenv))
	(include "iup-base.scm"))

(module iup-controls
	(canvas
	 frame tabs
	 label button toggle
	 spin spinbox valuator
	 textbox listbox treebox
	 progress-bar
	 matrix matrix-listbox cells
	 color-bar color-browser
	 dial)
	(import







|







34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
		lolevel data-structures extras srfi-1 srfi-13 srfi-42 irregex
		(only posix setenv))
	(include "iup-base.scm"))

(module iup-controls
	(canvas
	 frame tabs
	 label link button toggle
	 spin spinbox valuator
	 textbox listbox treebox
	 progress-bar
	 matrix matrix-listbox cells
	 color-bar color-browser
	 dial)
	(import

Changes to racket/controls.rkt.

47
48
49
50
51
52
53






54
55
56
57
58
59
60
...
173
174
175
176
177
178
179
180
181
182
183
184
185
186

(define label
  (make-constructor-procedure
   (get-ffi-obj
    "IupLabel" libiup
    (_fun ([title #f]) :: [title : _string/utf-8] -> [handle : _ihandle]))))







(define button
  (make-constructor-procedure
   (get-ffi-obj
    "IupButton" libiup
    (_fun ([title #f] [action #f]) :: [title : _string/utf-8] [action : _iname/upcase]
          -> [handle : _ihandle]))))

................................................................................
            (_fun -> _void)))])
  (open)
  (when matrixex (matrixex)))

(provide
 canvas
 frame tabs
 label button toggle
 spin spinbox valuator
 textbox listbox treebox
 progress-bar
 matrix matrix-listbox cells
 color-bar color-browser
 dial)







>
>
>
>
>
>







 







|






47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
...
179
180
181
182
183
184
185
186
187
188
189
190
191
192

(define label
  (make-constructor-procedure
   (get-ffi-obj
    "IupLabel" libiup
    (_fun ([title #f]) :: [title : _string/utf-8] -> [handle : _ihandle]))))

(define link
  (make-constructor-procedure
   (get-ffi-obj
    "IupLink" libiup
    (_fun ([url #f] [title #f]) :: [url : _string/utf-8] [title : _string/utf-8] -> [handle : _ihandle]))))

(define button
  (make-constructor-procedure
   (get-ffi-obj
    "IupButton" libiup
    (_fun ([title #f] [action #f]) :: [title : _string/utf-8] [action : _iname/upcase]
          -> [handle : _ihandle]))))

................................................................................
            (_fun -> _void)))])
  (open)
  (when matrixex (matrixex)))

(provide
 canvas
 frame tabs
 label link button toggle
 spin spinbox valuator
 textbox listbox treebox
 progress-bar
 matrix matrix-listbox cells
 color-bar color-browser
 dial)