Hi
Where's the problem with calling the image with 'patch.st' in the first place? It looks a little bit out of place for me here. Also, Why Kill MNU and Halt from the list? I'm a bit confused about this part of the pathc…
Best regards -tobias On 31.08.2016, at 23:33, commits@source.squeak.org wrote:
Item was added:
- ----- Method: SmalltalkImage>>patchSystem (in category 'command line') -----
- patchSystem
- (FileDirectory default fileExists: 'patch.st') ifTrue:
[Notification signal: 'Patching system...'.
FileStream
fileNamed: 'patch.st'
do: [ : stream | stream fileIn ] ]!
Item was changed: ----- Method: SmalltalkImage>>run: (in category 'command line') ----- run: aBlock
- [ [ self patchSystem.
- (aBlock numArgs = 1 and: [ self arguments size > 1 ])
- [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ]) ifTrue: [ "Allow a large, variable number of arguments to be passed as an Array to aBlock." aBlock value: self arguments ] ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] on: ProgressInitiationException do:
[ : pie | "Don't want to log this notification."
on: Notification , Warning do: [ : noti | FileStream stdout nextPutAll: DateAndTime now asString ; space ; nextPutAll: noti description ; cr. noti resume ] on: SyntaxErrorNotification do: [ : err | FileStream stdout nextPutAll: err errorCode ; cr; flush. self isHeadless ifTrue: [ self snapshot: false andQuit: true ] ifFalse: [ err pass ] ][ : pie | "Don't want to log these notifications." pie defaultAction ] ]
on: Error
do: [ : err | err printVerboseOn: FileStream stderr. FileStream stderr flush. self isHeadless ifTrue: [ self snapshot: false andQuit: true ] ifFalse: [ err pass ] ]!on: Error, MessageNotUnderstood, Halt