@@ -1,20 +1,6 @@ -(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) +;; -*- mode: Scheme; tab-width: 2; -*- ;; ;; {{{ Data types (foreign-declare "#include \n" @@ -122,7 +108,5 @@ (case status [(#t ignore) (void)] [else (error 'iup "failed to initialize library (~s)" status)])) ;; }}} - -)