The Trunk: 39Deprecated-ar.19.mcz

Andreas Raab uploaded a new version of 39Deprecated to project The Trunk:
http://source.squeak.org/trunk/39Deprecated-ar.19.mcz

==================== Summary ====================

Name: 39Deprecated-ar.19
Author: ar
Time: 5 March 2010, 9:44:11.754 pm
UUID: 8da20c38-7d28-3241-9f29-da261d6f9bfe
Ancestors: 39Deprecated-dtl.18

Clean up after Smalltalk/SystemDictionary refactoring.

=============== Diff against 39Deprecated-dtl.18 ===============

Item was removed:
- SystemOrganization addCategory: #'39Deprecated'!

Item was removed:
- ----- Method: SystemDictionary>>getFileNameFromUser (in category '*39Deprecated') -----
- getFileNameFromUser
-
- | newName |
- self deprecated: 'Use SmalltalkImage current getFileNameFromUser'.
- newName := UIManager default
- request: 'New File Name?' translated
- initialAnswer: (FileDirectory localNameFor: SmalltalkImage current imageName).
- newName = '' ifTrue: [^nil].
- ((FileDirectory default fileOrDirectoryExists: (SmalltalkImage current fullNameForImageNamed: newName)) or:
- [FileDirectory default fileOrDirectoryExists: (SmalltalkImage current fullNameForChangesNamed: newName)]) ifTrue: [
- (self confirm: ('{1} already exists. Overwrite?' translated format: {newName})) ifFalse: [^nil]].
- ^newName
- !

Item was removed:
- ----- Method: SystemDictionary>>vmParameterAt: (in category '*39Deprecated') -----
- vmParameterAt: parameterIndex
- "See comment for SmalltalkImage>vmParameterAt:"
-
- ^ self deprecated: 'Use SmalltalkImage current vmParameterAt:'
- block: [SmalltalkImage current vmParameterAt: parameterIndex]
- !