dany/Diya-API
1
0
Fork 0
mirror of https://github.com/lxsang/Diya-API.git synced 2025-03-12 18:42:48 +01:00
Code Issues Projects Releases Wiki Activity

Allow to test Diya directly in the Pharo image

Browse Source
This commit is contained in:
Dany LE 2021-12-19 19:45:16 +01:00
parent 4ecbd0af73
commit cb9cf2f49e
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Diya/DiyaBoot.class.st
View File

@ -87,7 +87,10 @@ DiyaBoot >> createWindow [
{ #category : #events } { #category : #events }
DiyaBoot >> init [ DiyaBoot >> init [
| status nvdrivers | | status nvdrivers |
Transcript show:'System: ', (Smalltalk globals at: #CODENAME),'-v',(Smalltalk globals at: #VERSION);cr. Transcript show:'System: ',
(Smalltalk globals at: #CODENAME ifAbsent:['']),
'-v',(Smalltalk globals at: #VERSION ifAbsent: ['']);
cr.
status := SDL2 init: SDL_INIT_EVERYTHING. status := SDL2 init: SDL_INIT_EVERYTHING.
status = 0 status = 0
ifFalse: [ ^ self error: SDL2 getErrorMessage ]. ifFalse: [ ^ self error: SDL2 getErrorMessage ].
@ -108,10 +111,10 @@ DiyaBoot >> initialize [
DiyaBoot >> processEvent: event [ DiyaBoot >> processEvent: event [
|mappedEvt| |mappedEvt|
mappedEvt := event mapped. mappedEvt := event mapped.
mappedEvt type = SDL_KEYDOWN ifTrue: [ Transcript show: 'keydown...'. running := false. ]. mappedEvt type = SDL_KEYDOWN ifTrue: [ Transcript show: 'keydown...'. ^running := false. ].
mappedEvt type = SDL_QUIT ifTrue:[ running:= false ]. mappedEvt type = SDL_QUIT ifTrue:[ ^running:= false ].
mappedEvt type = SDL_FINGERDOWN ifTrue:[self setCursorPosition: mappedEvt ]. mappedEvt type = SDL_FINGERDOWN ifTrue:[^self setCursorPosition: mappedEvt ].
mappedEvt type = SDL_FINGERMOTION ifTrue:[self setCursorPosition: mappedEvt ]. mappedEvt type = SDL_FINGERMOTION ifTrue:[^self setCursorPosition: mappedEvt ].
] ]
{ #category : #events } { #category : #events }