IUP

Check-in [6ae4ac5d1a]
Login

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:6ae4ac5d1a92cadd5d8eaacd57695593c7e5fad6
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
Hide Diffs Unified Diffs 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
...
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)