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:
parent
358fbf7bab
commit
9265ecb4d6
2
bin/diya
2
bin/diya
@ -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()
|
||||||
|
11
export.st
11
export.st
@ -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.
|
||||||
|
Loading…
Reference in New Issue
Block a user