Skip to content

Instantly share code, notes, and snippets.

@despotadesdibujau
Last active November 19, 2017 00:45
Show Gist options
  • Save despotadesdibujau/5c26d74763005a7e6bcf67954de811ef to your computer and use it in GitHub Desktop.
Save despotadesdibujau/5c26d74763005a7e6bcf67954de811ef to your computer and use it in GitHub Desktop.
ChangesLog subclass: 'NoChangesLog'.
"and installed that as its DefaultInstance (as accessed by #default), with an #install class side message."
NoChangesLog class compile:'default
^DefaultInstance ifNil: [
DefaultInstance := self new.
self registerInterestToSystemAnnouncement.
DefaultInstance]'.
NoChangesLog compile:'logChange:aStringOrText'.
NoChangesLog compile:'logSnapshot:boolean andQuit:anotheBoolean'.
NoChangesLog class compile:'install
DefaultInstance := self new'.
NoChangesLog install.
PharoFilesOpener subclass: 'NoPharoFilesOpener'.
NoPharoFilesOpener compile:'sourcesFileOrNil ^nil'.
NoPharoFilesOpener compile:'changesFileOrNil ^nil'.
NoPharoFilesOpener class compile:'install Default:=self new'.
NoPharoFilesOpener install.
Smalltalk snapshot:true andQuit:true
@despotadesdibujau
Copy link
Author

despotadesdibujau commented Nov 18, 2017

It works!!!!!!!!!!!!
The minimal image just doesn't need nor changes nor sources

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment