Thanks, Hans. Much appreciated.
cheers, felix On 8/28/06, Hans Bulfone <[EMAIL PROTECTED]> wrote:
hi, as i've gotten no reply from tony and also because the current version of the sdl egg did not compile on 2.41 anyway, i've commited my changes to svn and updated the egg. besides the changes shown below i've also removed these two lines and the #include <c_defaults.h> from sdl-csi.scm: (define-foreign-variable installation-home c-string "C_INSTALL_HOME") (set! ##sys#include-pathnames (list installation-home)) those two lines don't seem to have an effect on my system because ##sys#include-pathnames by default has the value of C_INSTALL_HOME. i've also changed the version number to v0.4.51117.3 bye, hans. ----- Forwarded message from Hans Bulfone <[EMAIL PROTECTED]> ----- From: Hans Bulfone <[EMAIL PROTECTED]> To: Tony Garnock-Jones <[EMAIL PROTECTED]> Subject: sdl.egg Date: Fri, 11 Aug 2006 23:35:47 +0200 User-Agent: Mutt/1.5.9i hi, i've added a few functions to the sdl egg. may i commit them to the egg svn repo and update the egg? $ svn diff Index: sdl.scm =================================================================== --- sdl.scm (revision 1387) +++ sdl.scm (working copy) @@ -293,6 +293,17 @@ (define sdl-set-color-key! (foreign-lambda int "SDL_SetColorKey" SDL_Surface unsigned-integer unsigned-integer)) +;; Modifies its first argument. +(define sdl-set-alpha! + (foreign-lambda int "SDL_SetAlpha" SDL_Surface unsigned-integer unsigned-byte)) + +(define sdl-display-format + (foreign-lambda SDL_Surface "SDL_DisplayFormat" SDL_Surface)) +(define sdl-display-format-alpha + (foreign-lambda SDL_Surface "SDL_DisplayFormatAlpha" SDL_Surface)) +(define sdl-convert-surface + (foreign-lambda SDL_Surface "SDL_ConvertSurface" SDL_Surface SDL_PixelFormat unsigned-integer)) + ;--------------------------------------------------------------------------- ;; NOTE: sdl-init does not work on MacOS X when called from a @@ -552,6 +563,8 @@ ; You can pass NULL for the args if you just want the button state (define sdl-get-mouse-state (foreign-lambda int "SDL_GetMouseState" s32vector s32vector)) +(define sdl-enable-unicode (foreign-lambda bool "SDL_EnableUNICODE" bool)) + ;--------------------------------------------------------------------------- (define sdl-get-video-surface (foreign-lambda SDL_Surface "SDL_GetVideoSurface")) $ bye, hans. ----- End forwarded message ----- _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
-- http://galinha.ucpel.tche.br:8081/blog/blog.ssp _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
