17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
;; along with Megatest. If not, see <http://www.gnu.org/licenses/>.
;;
;;======================================================================
(declare (unit gutils))
(module gutils
*
(import (prefix iup iup:)
canvas-draw)
(import scheme
chicken.base
chicken.condition
chicken.string
|
<
>
>
>
>
>
|
>
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
;; along with Megatest. If not, see <http://www.gnu.org/licenses/>.
;;
;;======================================================================
(declare (unit gutils))
(module gutils
(iuplistbox-fill-list
message-window
gutils:colors-similar?
gutils:colors
gutils:get-color-for-state-status
)
(import (prefix iup iup:)
canvas-draw)
(import scheme
chicken.base
chicken.condition
chicken.string
|