diff options
author | Loïc Hoguin <[email protected]> | 2014-04-08 19:44:05 +0200 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2014-04-08 19:44:05 +0200 |
commit | 7a37fe6b7fb2df472e86760859b1ac805589d383 (patch) | |
tree | ab8240fb7a996b5668398c8dad09eb14adae8c9e | |
parent | 01e4a7576ed89533a6ec78a3839c37ae06f309e8 (diff) | |
download | esdl2-7a37fe6b7fb2df472e86760859b1ac805589d383.tar.gz esdl2-7a37fe6b7fb2df472e86760859b1ac805589d383.tar.bz2 esdl2-7a37fe6b7fb2df472e86760859b1ac805589d383.zip |
Add typespecs to the sdl_clipboard module
The interface for sdl_clipboard:get_text/0 changed to be
easier to use as errors can happen.
-rw-r--r-- | c_src/sdl_clipboard.c | 5 | ||||
-rw-r--r-- | src/sdl_clipboard.erl | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/c_src/sdl_clipboard.c b/c_src/sdl_clipboard.c index 2ecc485..4ddaaa2 100644 --- a/c_src/sdl_clipboard.c +++ b/c_src/sdl_clipboard.c @@ -30,7 +30,10 @@ NIF_FUNCTION(get_clipboard_text) SDL_free(text); - return term; + return enif_make_tuple2(env, + atom_ok, + term + ); } // has_clipboard_text diff --git a/src/sdl_clipboard.erl b/src/sdl_clipboard.erl index 4ac3c9a..2d2bda1 100644 --- a/src/sdl_clipboard.erl +++ b/src/sdl_clipboard.erl @@ -18,11 +18,14 @@ -export([has_text/0]). -export([set_text/1]). +-spec get_text() -> {ok, string()} | sdl:error(). get_text() -> esdl2:get_clipboard_text(). +-spec has_text() -> boolean(). has_text() -> esdl2:has_clipboard_text(). +-spec set_text(string()) -> ok | sdl:error(). set_text(Text) -> esdl2:set_clipboard_text(Text). |