Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Added calendar controls |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
6ae4ac5d1a92cadd5d8eaacd57695593 |
User & Date: | murphy 2017-09-19 14:57:46.900 |
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 | (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 | > > > > > > > > > > > > | 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 | (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 |
︙ | ︙ | |||
182 183 184 185 186 187 188 189 190 191 192 | (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) | > | 194 195 196 197 198 199 200 201 202 203 204 205 | (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) |