Changeset 27086 in project for release/4/sdl/trunk/sdl.scm


Ignore:
Timestamp:
07/21/12 00:56:40 (9 years ago)
Author:
megane
Message:
  • added img-init (as suggested by `iisjmii') and img-quit
File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sdl/trunk/sdl.scm

    r26977 r27086  
    183183
    184184  ; SDL image
     185  img-init
     186  img-quit
    185187  img-load
    186188  rotozoom-surface
     
    390392  TTF_STYLE_ITALIC
    391393  TTF_STYLE_UNDERLINE
     394
     395  ;; SDL_image
     396  IMG_INIT_JPG
     397  IMG_INIT_PNG
     398  IMG_INIT_TIF
    392399
    393400  ;; scancodes
     
    797804; General button/key states
    798805(--sdl-flags
    799         "SDL_PRESSED"
    800         "SDL_RELEASED"
    801 )
     806 "SDL_PRESSED"
     807 "SDL_RELEASED")
     808
     809;; SDL_image constants
     810(--sdl-flags
     811 "IMG_INIT_JPG"
     812 "IMG_INIT_PNG"
     813 "IMG_INIT_TIF")
    802814
    803815; Mouse button states
     
    16601672;---------------------------------------------------------------------------
    16611673
     1674(define img-init (foreign-lambda unsigned-int "IMG_Init" unsigned-int))
     1675(define img-quit (foreign-lambda void "IMG_Quit"))
    16621676(define img-load (foreign-lambda SDL_Surface "IMG_Load" c-string))
    16631677
Note: See TracChangeset for help on using the changeset viewer.