dany/DiyaSDK
1
0
Fork 0
mirror of https://github.com/lxsang/DiyaSDK.git synced 2024-12-26 03:18:21 +01:00
Code Issues Projects Releases Wiki Activity

add more classes to base image

Browse Source
This commit is contained in:
DanyLE 2022-03-16 00:02:31 +01:00
parent 358fbf7bab
commit 9265ecb4d6
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/diya
View File

@ -44,7 +44,7 @@ sdk()
build "$ARCH"
[ ! -e "$W/../$ARCH/builder/pharo-ui" ] && echo "Unable to init SDK" && exit 1
fi
"$W/../$ARCH/builder/pharo-ui" "$W/../$ARCH/builder/Pharo.image"
"$W/../$ARCH/builder/pharo-ui" "$W/../$ARCH/builder/Pharo.image" &
}
run()

11
export.st
View File

@ -46,6 +46,7 @@ packages := #(
'System-Localization'
'STON-Core'
'Colors'
'Graphics-Primitives'
'Graphics-Files'
'Diya'
).
@ -61,6 +62,9 @@ ignoresClasses := {
AthensCairoSDLSurface.
SourceFileArray.
GlyphForm.
ManifestGraphicsPrimitives.
EllipseMidpointTracer.
GrafPort
}.
"remove some unused meothods"
Form class
@ -79,7 +83,7 @@ packages do:[:name | |pkg trait classes extensionMethods|
pkg := RPackageOrganizer default packageNamed: name asSymbol.
traits := (pkg definedClasses select: #isTrait) do: [ :e | core traits add:(HETrait for: e) ].
(pkg definedClasses reject: #isTrait) do: [ :e |
(ignoresClasses includes:e superclass) ifFalse:[
(ignoresClasses includes:e) ifFalse:[
core addClass: (HEClass for: e) ].
].
pkg extensionMethods do: [ :e |
@ -115,11 +119,8 @@ core addClass: (HEClass for:OSWindowPlatformSpecificHandle);
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)
addClass: (HEClass for: AnimatedImageFrame)
.
fileReference := (dest,'/',(pkgn replaceAll: Character space with: $-),'.hermes') asFileReference.