Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added calendar controls |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
6ae4ac5d1a92cadd5d8eaacd57695593 |
| User & Date: | murphy 2017-09-19 14:57:46 |
Context
|
2017-09-19
| ||
| 15:02 | Bumped egg version to 1.9.0 check-in: 4454a2e340 user: murphy tags: trunk, v1.9.0 | |
| 14:57 | Added calendar controls check-in: 6ae4ac5d1a user: murphy tags: trunk | |
|
2017-09-01
| ||
| 11:34 | Pointed CHICKEN release-info to main repository check-in: 3df4db720c user: murphy tags: trunk | |
Changes
Changes to api/controls.wiki.
67 68 69 70 71 72 73 74 75 76 77 78 79 80 |
Creates an interface element that displays a list of items with a given action callback name. <h3><a id="treebox"><code><nowiki>(treebox #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a tree containing nodes of branches or leaves. <h3><a id="progress-bar"><code><nowiki>(progress-bar #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a progress bar control. <h2>Extended Controls</h2> |
> > > > > > > > |
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
Creates an interface element that displays a list of items with a given action callback name. <h3><a id="treebox"><code><nowiki>(treebox #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a tree containing nodes of branches or leaves. <h3><a id="calendar"><code><nowiki>(calendar #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a calendar control. <h3><a id="date-picker"><code><nowiki>(date-picker #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a date picker control. <h3><a id="progress-bar"><code><nowiki>(progress-bar #:<name> <value> ...) → ihandle?</nowiki></code></a></h3> Creates a progress bar control. <h2>Extended Controls</h2> |
Changes to chicken/iup-controls.scm.
77 78 79 80 81 82 83 84 85 86 87 88 89 90 |
(foreign-lambda nonnull-ihandle "IupList" iname/upcase)
#:apply-args (optional-args [action #f])))
(define treebox
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupTree")))
(define progress-bar
(make-constructor-procedure
(foreign-lambda nonnull-ihandle "IupProgressBar")))
;; }}}
;; {{{ Extended controls
|
> > > > > > > > |
77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 |
(foreign-lambda nonnull-ihandle "IupList" iname/upcase) #:apply-args (optional-args [action #f]))) (define treebox (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupTree"))) (define calendar (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupCalendar"))) (define date-picker (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupDatePick"))) (define progress-bar (make-constructor-procedure (foreign-lambda nonnull-ihandle "IupProgressBar"))) ;; }}} ;; {{{ Extended controls |
Changes to chicken/iup.scm.
37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
(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 scheme chicken foreign iup-base) |
> |
37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
(module iup-controls
(canvas
frame tabs
label link button toggle
spin spinbox valuator
textbox listbox treebox
calendar date-picker
progress-bar
matrix matrix-listbox cells
color-bar color-browser
dial)
(import
scheme chicken foreign
iup-base)
|
Changes to racket/controls.rkt.
103
104
105
106
107
108
109
110
111
112
113
114
115
116
...
182
183
184
185
186
187
188
189
190
191
192
|
(define treebox
(make-constructor-procedure
(get-ffi-obj
"IupTree" libiup
(_fun -> [handle : _ihandle]))))
(define progress-bar
(make-constructor-procedure
(get-ffi-obj
"IupProgressBar" libiup
(_fun -> [handle : _ihandle]))))
;; Extended controls
................................................................................
(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)
|
>
>
>
>
>
>
>
>
>
>
>
>
>
|
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
...
194
195
196
197
198
199
200
201
202
203
204
205
|
(define treebox
(make-constructor-procedure
(get-ffi-obj
"IupTree" libiup
(_fun -> [handle : _ihandle]))))
(define calendar
(make-constructor-procedure
(get-ffi-obj
"IupCalendar" libiup
(_fun -> [handle : _ihandle]))))
(define date-picker
(make-constructor-procedure
(get-ffi-obj
"IupDatePick" libiup
(_fun -> [handle : _ihandle]))))
(define progress-bar
(make-constructor-procedure
(get-ffi-obj
"IupProgressBar" libiup
(_fun -> [handle : _ihandle]))))
;; Extended controls
................................................................................
(provide
canvas
frame tabs
label link button toggle
spin spinbox valuator
textbox listbox treebox
calendar date-picker
progress-bar
matrix matrix-listbox cells
color-bar color-browser
dial)
|