IUP

Check-in [6ae4ac5d1a]
Login

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: 6ae4ac5d1a92cadd5d8eaacd57695593c7e5fad6
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
Unified Diff Ignore Whitespace Patch
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)