1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(require-library iup-base)
(module iup-controls
(canvas
frame tabs
label button toggle
spin spinbox valuator
textbox listbox treebox
progress-bar
matrix cells
color-bar color-browser
dial)
(import
scheme chicken foreign
iup-base)
|
<
|
<
<
<
<
<
<
<
<
<
<
<
<
<
|
1
2
3
4
5
6
7
8
|
;; -*- mode: Scheme; tab-width: 2; -*- ;;
;; {{{ Data types
(foreign-declare
"#include <iup.h>\n"
"#include <iupcontrols.h>\n")
|
120
121
122
123
124
125
126
127
128
|
(let ([status (foreign-value "IupControlsOpen()" istatus)])
(case status
[(#t ignore) (void)]
[else (error 'iup "failed to initialize library (~s)" status)]))
;; }}}
)
|
<
<
|
106
107
108
109
110
111
112
|
(let ([status (foreign-value "IupControlsOpen()" istatus)])
(case status
[(#t ignore) (void)]
[else (error 'iup "failed to initialize library (~s)" status)]))
;; }}}
|