[squeak-dev] The Trunk: System-cmm.913.mcz
Tobias Pape
Das.Linux at gmx.de
Wed Aug 31 23:38:42 UTC 2016
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 at 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."
> - [ : pie | "Don't want to log these notifications."
> pie defaultAction ] ]
> 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 ] ]
> + on: Error
> - on: Error, MessageNotUnderstood, Halt
> do:
> [ : err | err printVerboseOn: FileStream stderr.
> FileStream stderr flush.
> self isHeadless
> ifTrue: [ self snapshot: false andQuit: true ]
> ifFalse: [ err pass ] ]!
More information about the Squeak-dev
mailing list
|