1
0
mirror of https://github.com/lxsang/DiyaSDK.git synced 2024-12-26 11:28:22 +01:00

add more classes to base image

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

View File

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

View File

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