Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | added some keyboard functions |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3c717fb0e55501e71c546ac62eed6d98 |
| User & Date: | aldo 2016-09-12 17:31:52 |
Context
|
2016-10-26
| ||
| 16:03 | implemented finalize! on sqlite3, fixed bind! bug with inexact integers check-in: 150009ee9b user: aldo tags: trunk | |
|
2016-09-12
| ||
| 17:31 | added some keyboard functions check-in: 3c717fb0e5 user: aldo tags: trunk | |
|
2016-09-04
| ||
| 14:55 | added auxiliary-keyword check-in: 8d5903b93c user: aldo tags: trunk | |
Changes
Changes to sdl2.sls.
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
...
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
|
;;KEYCODE scancode->keycode sdl-keycode sdl-keycode-ref sdl-keycode-decode sdl-keycode-t sdl-keymod-t ;;MAIN sdl-main sdl-set-main-ready ;;MESSAGEBOX sdl-show-message-box sdl-show-simple-message-box ;types ................................................................................ sdl-get-default-assertion-handler sdl-get-assertion-handler sdl-get-assertion-report sdl-reset-assertion-report ;;EXTRAS event-keyboard-keysym-sym event-mouse-button char-array char*-array->string ) (import (chezscheme) (ffi-utils) (only (srfi s1 lists) fold) |
>
>
|
|
>
|
|
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
...
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
|
;;KEYCODE scancode->keycode sdl-keycode sdl-keycode-ref sdl-keycode-decode sdl-keycode-t sdl-keymod-t sdl-keymod-ref sdl-keymod-decode ;;MAIN sdl-main sdl-set-main-ready ;;MESSAGEBOX sdl-show-message-box sdl-show-simple-message-box ;types ................................................................................ sdl-get-default-assertion-handler sdl-get-assertion-handler sdl-get-assertion-report sdl-reset-assertion-report ;;EXTRAS sdl-event-keyboard-keysym-sym sdl-event-keyboard-keysym-mod sdl-event-mouse-button char-array char*-array->string ) (import (chezscheme) (ffi-utils) (only (srfi s1 lists) fold) |
Changes to sdl2/extras.ss.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
(define (event-keyboard-keysym-sym e) (let* ([keyboard (ftype-&ref sdl-event-t (key) e)] [keysym (ftype-&ref sdl-keyboard-event-t (keysym) keyboard)] [sym (ftype-ref sdl-keysym-t (sym) keysym)]) sym)) (define (event-mouse-button e) (let* ([button (ftype-&ref sdl-event-t (button) e)] [button* (ftype-ref sdl-mouse-button-event-t (button) button)]) button*)) (define-ftype char-array (array 0 char)) ;; THIS IS FOR DECODING sdl-text-input-event text |
| > > > > > > | |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
(define (sdl-event-keyboard-keysym-sym e) (let* ([keyboard (ftype-&ref sdl-event-t (key) e)] [keysym (ftype-&ref sdl-keyboard-event-t (keysym) keyboard)] [sym (ftype-ref sdl-keysym-t (sym) keysym)]) sym)) (define (sdl-event-keyboard-keysym-mod e) (let* ([keyboard (ftype-&ref sdl-event-t (key) e)] [keysym (ftype-&ref sdl-keyboard-event-t (keysym) keyboard)] [mod (ftype-ref sdl-keysym-t (mod) keysym)]) mod)) (define (sdl-event-mouse-button e) (let* ([button (ftype-&ref sdl-event-t (button) e)] [button* (ftype-ref sdl-mouse-button-event-t (button) button)]) button*)) (define-ftype char-array (array 0 char)) ;; THIS IS FOR DECODING sdl-text-input-event text |