Skip to content

Instantly share code, notes, and snippets.

@abstraktor

abstraktor/migrate.st

Created December 9, 2015 12:14
Show Gist options
  • Save abstraktor/52783271175ee6e44e57 to your computer and use it in GitHub Desktop.
Save abstraktor/52783271175ee6e44e57 to your computer and use it in GitHub Desktop.
Download ZIP
Squeak Vivide migrate Archive
Raw
migrate.st
QoppaScriptsArchive class methodsDo: [:method|
|aClass aSelector browser|
aClass := QoppaScriptsArchive class.
aSelector := method selector.
browser := VersionsBrowser new scanVersionsOf: (aClass compiledMethodAt: aSelector) class: aClass meta: aClass isMeta category: (aClass organization categoryOfElement: aSelector) selector: aSelector.
((browser list first beginsWith: 'jr') or: [browser list first beginsWith: 'ck'])
ifTrue: [QoppaScriptsArchive2 class compile: method getSource]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment