carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 13:37:57 +03:00
Code Issues Projects Releases Wiki Activity

Added wrapped version of render text blended.

Browse Source
This commit is contained in:
Erik Svedäng 2018-03-23 07:55:55 +01:00
parent ce1ae410a8
commit 6b7804a5c1
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/SDL_ttf.carp
View File

@ -34,6 +34,10 @@
(Fn [(Ptr TTF_Font) (Ptr Char) SDL_Color] (Ptr SDL_Surface))
"TTF_RenderText_Blended")
(register render-text-blended-wrapped
(Fn [(Ptr TTF_Font) (Ptr Char) SDL_Color Int] (Ptr SDL_Surface))
"TTF_RenderText_Blended_Wrapped")
;; Helpers to make everything a bit nicer
(defn ok? [error-code]
(= 0 error-code))