dany/DiyaSDK
1
0
Fork 0
mirror of https://github.com/lxsang/DiyaSDK.git synced 2024-09-28 20:46:40 +02:00
Code Issues Projects Releases Wiki Activity

Add classes that support image files reading

Browse Source
This commit is contained in:
Dany LE 2022-03-06 23:55:58 +01:00
parent 9d3814b58c
commit fd12bfa792
1 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
export.st
View File

@ -46,21 +46,8 @@ packages := #(
'System-Localization' 'System-Localization'
'STON-Core' 'STON-Core'
'Colors' 'Colors'
'Diya'
"
'Graphics-Primitives'
'Graphics-Transformations'
'Graphics-Canvas'
'FreeType'
'Graphics-Display Objects'
'EmbeddedFreeType'
'Text-Scanning'
'Multilingual-OtherLanguages'
'Multilingual-TextConverterOtherLanguages'
'Graphics-Fonts'
'System-FileRegistry'
'Graphics-Files' 'Graphics-Files'
'Graphics-Shapes'" 'Diya'
). ).
ignoresClasses := { ignoresClasses := {
@ -73,8 +60,18 @@ ignoresClasses := {
StringMorph. StringMorph.
AthensCairoSDLSurface. AthensCairoSDLSurface.
SourceFileArray. SourceFileArray.
GlyphForm GlyphForm.
}. }.
"remove some unused meothods"
Form class
removeSelector: #serviceOpenImageInWindow;
removeSelector: #openImageInWindow:;
removeSelector: #serviceImageAsBackground;
removeSelector: #setBackgroundFromImageFileNamed:;
removeSelector: #services.
Form
removeSelector: #setAsBackground;
removeSelector: #scaledByDisplayScaleFactor.
packages do:[:name | |pkg trait classes extensionMethods| packages do:[:name | |pkg trait classes extensionMethods|
Transcript show: 'Processing package ',name;cr. Transcript show: 'Processing package ',name;cr.
@ -99,7 +96,6 @@ pkg := RPackageOrganizer default packageNamed: 'OSWindow-SDL2' asSymbol.
core addClass:(HEClass for:e asClass) ]]. core addClass:(HEClass for:e asClass) ]].
"FreeType binding class" "FreeType binding class"
pkg := RPackageOrganizer default packageNamed: 'FreeType' asSymbol. pkg := RPackageOrganizer default packageNamed: 'FreeType' asSymbol.
(pkg classNamesForClassTag: 'Base') do:[:e| (pkg classNamesForClassTag: 'Base') do:[:e|
(ignoresClasses includes:e asClass) ifFalse:[ (ignoresClasses includes:e asClass) ifFalse:[
@ -107,12 +103,23 @@ pkg := RPackageOrganizer default packageNamed: 'FreeType' asSymbol.
(pkg classNamesForClassTag: 'Bindings') do:[:e| (pkg classNamesForClassTag: 'Bindings') do:[:e|
(ignoresClasses includes:e asClass) ifFalse:[ (ignoresClasses includes:e asClass) ifFalse:[
core addClass:(HEClass for:e asClass) ]]. core addClass:(HEClass for:e asClass) ]].
"fixing some missing classes" "fixing some missing classes"
core addClass: (HEClass for:OSWindowPlatformSpecificHandle); core addClass: (HEClass for:OSWindowPlatformSpecificHandle);
addClass: (HEClass for:ChunkWriteStream); addClass: (HEClass for:ChunkWriteStream);
addClass: (HEClass for:ChunkReadStream); addClass: (HEClass for:ChunkReadStream);
addClass: (HEClass for:STCommandLineHandler); addClass: (HEClass for:STCommandLineHandler);
addClass: (HEClass for:FreeTypeFace) addClass: (HEClass for:FreeTypeFace);
"form object support"
addClass: (HEClass for:DisplayObject);
addClass: (HEClass for:DisplayMedium);
addClass: (HEClass for:Form);
addClass: (HEClass for:ColorForm);
addClass: (HEClass for:Bitmap);
addClass: (HEClass for:BitBlt);
addClass: (HEClass for:ColorArray);
addClass: (HEClass for: AnimatedImageFrame);
addClass: (HEClass for: WarpBlt)
. .
fileReference := (dest,'/',(pkgn replaceAll: Character space with: $-),'.hermes') asFileReference. fileReference := (dest,'/',(pkgn replaceAll: Character space with: $-),'.hermes') asFileReference.