Artifact 59607b9be202081477a2907ebb9beb0356067541:

• File sdl2/messagebox-types.ss — part of check-in [b358a80757] at 2016-09-04 14:50:46 on branch trunk — added missing file changes (user: aldo size: 1603)

;;
;; Copyright 2016 Aldo Nicolas Bruno
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;;     http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

 (define-flags sdl-message-box (error  #x10) (warning #x20) (information #x40))
                                     
 (define-flags sdl-message-box-button
   (returnkey-default 1) (escapekey-default 2))
                                       
 (define-enumeration* sdl-message-box-color-type-t
   (background text button-border button-backgrond
	       button-selected color-max))


 (define-ftype sdl-message-box-button-data-t (struct (flags uint32) (buttonid int) (text (* char))))
 (define-ftype sdl-message-box-color-t (struct (r uint8) (g uint8) (b uint8)))
 ;;FIXME USE THE VALUE OF SDL_MESSAGEBOX_COLOR_MAX (=6) ?
 (define-ftype sdl-message-box-color-scheme-t (struct (colors (array 6 sdl-message-box-color-t))))

 (define-ftype sdl-message-box-data-t
   (struct
       (flags unsigned-32)
     (window (* sdl-window-t))
     (title (* char))
     (message (* char))
     (numbuttons int)
     (buttons (* sdl-message-box-button-data-t))
     (color-scheme (* sdl-message-box-color-scheme-t))))