Justin Heyes-Jones wrote:
> On 11/01/2008, Elliott Slaughter <[EMAIL PROTECTED]> wrote:
>   
>> Could you export sdl-enable-key-repeat as well?
>> Thanks.
>> Elliott Slaughter
>>     
>
> Elliot
>
> I have exported all the functions in the key_sym.lisp file now.
>
>   

Justin, thanks for that. I noticed some of these functions require 
passing pointers to e.g. retrieve the current DELAY and INTERVAL key 
repeat values, so I've made them little easier to use. (I haven't tested 
*get-key-state *yet, so someone please do). Functions exported from SDL.

*enable-unicode-p ()
  "Queries the current state of Unicode keyboard translation. Returns T 
if enabled, NIL if disabled."

enable-unicode (state)
  "Unicode translation is enabled with STATE is T, and disabled when 
STATE is NIL.
Returns the previous unicode translation state."

enable-key-repeat (delay interval &optional (defaults nil))
  "Enables the keyboard repeat rate.
DELAY specifies how long the key must be pressed before it begins 
repeating,
it then repeats at the speed specified by INTERVAL.
Setting :DEFAULTS to T will set delay and interval to the default values
of SDL-DEFAULT-REPEAT-DELAY and SDL-DEFAULT-REPEAT-INTERVAL."

disable-key-repeat ()
  "Disables keyboard repeat."

enable-key-repeat-p ()
  "Returns the current keyboard DELAY and INTERVAL repeat rate in 
milliseconds
as \(VALUES DELAY INTERVAL\)."

key-repeat-delay ()
  "Returns the current key repeat delay, in milliseconds."

key-repeat-interval ()
    "Returns the current key repeat interval, in milliseconds."

get-key-state (key)
  "Returns the current keypress state of the key KEY.
Returns T if the SDL-KEY is pressed, returns NIL if SDL-KEY is not pressed.
For example: \(SDL:GET-KEY-STATE :SDL-KEY-F1\)"
*
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder

Reply via email to