我想卸载魅力工具包(在我看来是超限版本的经典Smalltalk工具)在法老4或5。
这是我的代码:
| config configName |
configName := #ConfigurationOfGTInspectorCore.
config := (MBConfigurationInfo
configurationClass: (Smalltalk globals at: (configName asSymbol)))
configurationRoot: MBConfigurationRoot new;
yourself.
config workingCopy unload
但是我的脚本卸载配置,但不卸载它包含的包或类和方法,我想卸载配置中的所有GT包。
我做错了什么?如有任何帮助,我们将不胜感激!
提前谢谢你。
发布于 2016-01-14 14:33:12
我也希望GT是可选的,事实上法老董事会将在即将到来的法老中默认强制使用GT,这让我想到了透明的过程,以及如果这种政策继续下去,一个法老叉还有多远。
尽管如此,GT工具并不容易卸载(而且需要很长时间):
Workspace openContents: 'GTPlayground setGTPlaygroundEnabledStatus: false.
" ========== Debuggers ========== "
Nautilus pluginClasses: nil.
SpecDebugger closeAllDebuggers.
GTGenericStackDebugger closeAllDebuggers.
GTGenericStackDebugger setGTDebuggerEnabledStatus: false.
" ========== Miscellany ========== "
GTInspector setGTInspectorEnabledStatus: false.
GTExampleOrganizer stop.
GTEventRecorder cleanUp.
GTEventRecorderSettings cleanUp.
GTSnippets reset.
GTPlayBook reset.
GTPlayBook resetDirectories.
GTSpotter cleanUp.
GTSpotterGlobalShortcut reset.
GlobalIdentifier cleanUp.
Privacy cleanUp.
" ========== QA ========== "
QASettings inspectorPluggin: false.
QASettings spotterPlugin: false.
QAEventCollector unload.
(MCPackage named: ''QualityAssistant'') unload.
" ========== RPackage ========== "
RPackageOrganizer default packageNames
select: [ :each | each beginsWith: ''GT'' ]
thenDo: [ :each |
(MCPackage named: each) unload.
RPackageOrganizer default unregisterPackageNamed: each.
" Possibly unnecessary... "
Smalltalk removeEmptyMessageCategories.
Smalltalk cleanOutUndeclared.
Smalltalk fixObsoleteReferences.
Smalltalk globals flushClassNameCache ].
Behavior flushEvents.
Behavior flushObsoleteSubclasses.
SmalltalkImage current resetTools.'
发布于 2016-01-14 07:43:42
如果您想使用旧版本,只需转到设置并禁用它们(转到菜单中的设置: world menu/system/设置),然后查找“魅力工具包”。
卸载包要复杂得多:您需要按正确的顺序迭代每个包并卸载它。
现在,请注意GT工具是官方工具(对您来说重载,对我们来说强大).最有可能的是,未来版本的法老将不包含旧的工具。
我建议你试一试.你会很快看到好处的。
https://stackoverflow.com/questions/34781682
复制相似问题