dany/Diya-API
1
0
Fork 0
mirror of https://github.com/lxsang/Diya-API.git synced 2024-12-27 20:08:22 +01:00
Code Issues Projects Releases Wiki Activity

Dont restart system after a snap when init the image

Browse Source
This commit is contained in:
Dany LE 2021-12-19 10:47:27 +01:00
parent 7371fd5032
commit 48fe04d362
3 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Diya/DiyaBoot.class.st
View File

@ -13,11 +13,6 @@ DiyaBoot class >> getLoadedClasses [
ifFalse: [ c ] ] ifFalse: [ c ] ]
] ]
{ #category : #'class initialization' }
DiyaBoot class >> initialize [
Smalltalk addToStartUpList: DiyaBoot
]
{ #category : #'system startup' } { #category : #'system startup' }
DiyaBoot class >> startUp: status [ DiyaBoot class >> startUp: status [
" "

5
Diya/DiyaInit.class.st
View File

@ -37,12 +37,15 @@ DiyaInit >> checkDrivers [
{ #category : #events } { #category : #events }
DiyaInit >> eventLoop [ DiyaInit >> eventLoop [
|status| |status dm|
self checkDrivers. self checkDrivers.
status := SDL2 init: SDL_INIT_EVERYTHING. status := SDL2 init: SDL_INIT_EVERYTHING.
status = 0 ifFalse:[ status = 0 ifFalse:[
^ self error: SDL2 getErrorMessage. ^ self error: SDL2 getErrorMessage.
]. ].
Transcript show: 'Current selected video driver ', (SDL2 SDLGetCurrentVideoDriver); cr. Transcript show: 'Current selected video driver ', (SDL2 SDLGetCurrentVideoDriver); cr.
dm := SDL_DisplayMode new.
SDL2 SDLGetCurrentDisplayMode: dm from:0.
Transcript show: dm w asString, 'x',dm h asString;cr.
SDL2 quit SDL2 quit
] ]

3
Diya/ImageInitializer.class.st
View File

@ -89,7 +89,8 @@ ImageInitializer >> preloadSystem: loaded [
ImageInitializer >> snap [ ImageInitializer >> snap [
Smalltalk globals at: #codeName put: 'diya'. Smalltalk globals at: #codeName put: 'diya'.
self class removeFromSystem. self class removeFromSystem.
Smalltalk addToShutDownList: DiyaBoot.
Smalltalk garbageCollect. Smalltalk garbageCollect.
Smalltalk snapshot: true andQuit: false. Smalltalk snapshot: true andQuit: true.
] ]