[squeak-dev] The Trunk: System-cmm.913.mcz

1 Sep 2016


      Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.913.mcz
==================== Summary ====================
Name: System-cmm.913
Author: cmm
Time: 31 August 2016, 6:32:49.269005 pm
UUID: 5a79d2c3-b230-4998-a790-612dc6a3471c
Ancestors: System-tfel.912
- Don't use colored parentheses and brackets in the Community dark theme, and intensify #dbRed a bit, it was too washed out.
- A new hook in Smalltalk run: to allow temporarily patched production systems running to be re-patched in the event of a restart.
=============== Diff against System-tfel.912 ===============
Item was changed:
  ----- Method: CommunityTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----
  addDarkSyntaxHighlighting: aUserInterfaceTheme
    "self createDark apply."
    | normal bold italic underlined darkMap | normal  := TextEmphasis normal.  bold:=TextEmphasis bold.  italic:=TextEmphasis italic.  underlined := TextEmphasis underlined.  darkMap := StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9.
    aUserInterfaceTheme
    	set: #color for: #TextAction to: self dbBlue;
    
    	set: #default for: #SHTextStylerST80 to: {self dbForeground};
    	set: #invalid for: #SHTextStylerST80 to: {self dbInvalid};
    	set: #excessCode for: #SHTextStylerST80 to: {self dbInvalid twiceDarker};
    	"Descriptive text for humans, italicized."
    	set: #comment for: #SHTextStylerST80 to: {self dbComment. italic};
    	set: #unfinishedComment for: #SHTextStylerST80 to: {self dbComment darker. italic};
    	set: #'$' for: #SHTextStylerST80 to: {self dbConstant};
    	set: #character for: #SHTextStylerST80 to: {self dbConstant};
    	set: #integer for: #SHTextStylerST80 to: {self dbConstant};
    	set: #number for: #SHTextStylerST80 to: {self dbConstant};
    	set: #- for: #SHTextStylerST80 to: {self dbForeground. bold};
    	set: #= for: #SHTextStylerST80 to: {self dbForeground. bold};
    	set: #symbol for: #SHTextStylerST80 to: {self dbBedrock};
    	set: #stringSymbol for: #SHTextStylerST80 to: {self dbBedrock};
    	set: #literalArray for: #SHTextStylerST80 to: {self dbForeground};
    	set: #string for: #SHTextStylerST80 to: {self dbConstant};
    	set: #unfinishedString for: #SHTextStylerST80 to: {self dbConstant darker};
    	set: #assignment for: #SHTextStylerST80 to: {nil. bold};
    	set: #ansiAssignment for: #SHTextStylerST80 to: {nil. bold};
    	set: #literal for: #SHTextStylerST80 to: {nil. bold};
    	set: #keyword for: #SHTextStylerST80 to: {self dbMessage};
    	set: #binary for: #SHTextStylerST80 to: {self dbForeground. bold};
    	set: #unary for: #SHTextStylerST80 to: {self dbMessage};
    	set: #incompleteKeyword for: #SHTextStylerST80 to: {self dbMessage darker. {underlined. bold}};
    	set: #incompleteBinary for: #SHTextStylerST80 to: {self dbMessage darker. underlined};
    	set: #incompleteUnary for: #SHTextStylerST80 to: {self dbMessage darker. underlined};
    	set: #undefinedKeyword for: #SHTextStylerST80 to: {self dbInvalid};
    	set: #undefinedBinary for: #SHTextStylerST80 to: {self dbInvalid};
    	set: #undefinedUnary for: #SHTextStylerST80 to: {self dbInvalid};
    	"Delineate the selector (good for new users), and make the method look like a mini-document with a title."
    	set: #patternKeyword for: #SHTextStylerST80 to: {self dbMessage lighter.  {bold. underlined}};
    	set: #patternBinary for: #SHTextStylerST80 to: {nil. bold};
    	set: #patternUnary for: #SHTextStylerST80 to: {self dbMessage lighter.  {bold. underlined}};	
    	set: #self for: #SHTextStylerST80 to: {self dbBedrock. bold};
    	set: #super for: #SHTextStylerST80 to: {self dbBedrock. bold}; 
    	set: #true for: #SHTextStylerST80 to: {self dbBedrock. bold};
    	set: #false for: #SHTextStylerST80 to: {self dbBedrock. bold};
    	set: #nil for: #SHTextStylerST80 to: {self dbBedrock. bold};
    	set: #thisContext for: #SHTextStylerST80 to: {self dbBedrock. bold};
    	set: #return for: #SHTextStylerST80 to: {self dbForeground. bold};
    	set: #patternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"};	
    	set: #methodArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"};
    	set: #blockPatternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter};
    	set: #blockArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter};
    	set: #argument for: #SHTextStylerST80 to: {self dbSelection twiceLighter};
    	set: #blockArgColon for: #SHTextStylerST80 to: {self dbBedrock}; 
+ 		set: #leftParenthesis for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; 
+ 		set: #rightParenthesis for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; 
+ 		set: #leftParenthesis1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; 
+ 		set: #rightParenthesis1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; 
+ 		set: #leftParenthesis2 for: #SHTextStylerST80 to: {self dbBedrock}; 
+ 		set: #rightParenthesis2 for: #SHTextStylerST80 to: {self dbBedrock}; 
+ 		set: #leftParenthesis3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; 
+ 		set: #rightParenthesis3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; 
+ 		set: #leftParenthesis4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; 
+ 		set: #rightParenthesis4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; 
+ 		set: #leftParenthesis5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; 
+ 		set: #rightParenthesis5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; 
+ 		set: #leftParenthesis6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; 
+ 		set: #rightParenthesis6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; 
+ 		set: #leftParenthesis7 for: #SHTextStylerST80 to: {Color yellow}; 
+ 		set: #rightParenthesis7 for: #SHTextStylerST80 to: {Color yellow}; 
+ 		set: #blockStart for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; 
+ 		set: #blockEnd for: #SHTextStylerST80 to: {self dbBedrock muchLighter}; 
+ 		set: #blockStart1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; 
+ 		set: #blockEnd1 for: #SHTextStylerST80 to: {self dbBedrock twiceLighter}; 
+ 		set: #blockStart2 for: #SHTextStylerST80 to: {self dbBedrock}; 
+ 		set: #blockEnd2 for: #SHTextStylerST80 to: {self dbBedrock}; 
+ 		set: #blockStart3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; 
+ 		set: #blockEnd3 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; 
+ 		set: #blockStart4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; 
+ 		set: #blockEnd4 for: #SHTextStylerST80 to: {self dbPurple muchLighter}; 
+ 		set: #blockStart5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; 
+ 		set: #blockEnd5 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; 
+ 		set: #blockStart6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; 
+ 		set: #blockEnd6 for: #SHTextStylerST80 to: {self dbOrange muchLighter}; 
+ 		set: #blockStart7 for: #SHTextStylerST80 to: {Color yellow}; 
+ 		set: #blockEnd7 for: #SHTextStylerST80 to: {Color yellow}; 																																					
- 		set: #leftParenthesis for: #SHTextStylerST80 to: {self dbBedrock}; 
- 		set: #rightParenthesis for: #SHTextStylerST80 to: {self dbBedrock}; 
- 		set: #leftParenthesis1 for: #SHTextStylerST80 to: {self dbGreen}; 
- 		set: #rightParenthesis1 for: #SHTextStylerST80 to: {self dbGreen}; 
- 		set: #leftParenthesis2 for: #SHTextStylerST80 to: {self dbPurple}; 
- 		set: #rightParenthesis2 for: #SHTextStylerST80 to: {self dbPurple}; 
- 		set: #leftParenthesis3 for: #SHTextStylerST80 to: {self dbRed}; 
- 		set: #rightParenthesis3 for: #SHTextStylerST80 to: {self dbRed}; 
- 		set: #leftParenthesis4 for: #SHTextStylerST80 to: {self dbGreen}; 
- 		set: #rightParenthesis4 for: #SHTextStylerST80 to: {self dbGreen}; 
- 		set: #leftParenthesis5 for: #SHTextStylerST80 to: {self dbOrange}; 
- 		set: #rightParenthesis5 for: #SHTextStylerST80 to: {self dbOrange}; 
- 		set: #leftParenthesis6 for: #SHTextStylerST80 to: {self dbPurple}; 
- 		set: #rightParenthesis6 for: #SHTextStylerST80 to: {self dbPurple}; 
- 		set: #leftParenthesis7 for: #SHTextStylerST80 to: {self dbBlue}; 
- 		set: #rightParenthesis7 for: #SHTextStylerST80 to: {self dbBlue}; 
- 		set: #blockStart for: #SHTextStylerST80 to: {self dbBedrock}; 
- 		set: #blockEnd for: #SHTextStylerST80 to: {self dbBedrock}; 
- 		set: #blockStart1 for: #SHTextStylerST80 to: {self dbGreen}; 
- 		set: #blockEnd1 for: #SHTextStylerST80 to: {self dbGreen}; 
- 		set: #blockStart2 for: #SHTextStylerST80 to: {self dbPurple}; 
- 		set: #blockEnd2 for: #SHTextStylerST80 to: {self dbPurple}; 
- 		set: #blockStart3 for: #SHTextStylerST80 to: {self dbRed}; 
- 		set: #blockEnd3 for: #SHTextStylerST80 to: {self dbRed}; 
- 		set: #blockStart4 for: #SHTextStylerST80 to: {self dbGreen}; 
- 		set: #blockEnd4 for: #SHTextStylerST80 to: {self dbGreen}; 
- 		set: #blockStart5 for: #SHTextStylerST80 to: {self dbOrange}; 
- 		set: #blockEnd5 for: #SHTextStylerST80 to: {self dbOrange}; 
- 		set: #blockStart6 for: #SHTextStylerST80 to: {self dbPurple}; 
- 		set: #blockEnd6 for: #SHTextStylerST80 to: {self dbPurple}; 
- 		set: #blockStart7 for: #SHTextStylerST80 to: {self dbBlue}; 
- 		set: #blockEnd7 for: #SHTextStylerST80 to: {self dbBlue}; 																																																		
    	set: #arrayStart for: #SHTextStylerST80 to: {self dbBedrock}; 
    	set: #arrayEnd for: #SHTextStylerST80 to: {self dbBedrock}; 
    	set: #arrayStart1 for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #arrayEnd1 for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #byteArrayStart for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #byteArrayEnd for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #byteArrayStart1 for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #leftBrace for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #rightBrace for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #cascadeSeparator for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #statementSeparator for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #externalCallType for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self dbForeground}; 
    	set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self dbForeground};
    	set: #methodTempBar for: #SHTextStylerST80 to: {self dbBedrock};
    	set: #blockTempBar for: #SHTextStylerST80 to: {self dbBedrock};
    	set: #blockArgsBar for: #SHTextStylerST80 to: {self dbBedrock};
    	set: #primitive for: #SHTextStylerST80 to: {self dbGreen lighter. bold};
    	set: #pragmaKeyword for: #SHTextStylerST80 to: {self dbGreen. bold};
    	set: #pragmaUnary for: #SHTextStylerST80 to: {self dbGreen. bold};
    	set: #pragmaBinary for: #SHTextStylerST80 to: {self dbGreen. bold};									
    	set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self dbGreen. bold}; 
    	set: #module for: #SHTextStylerST80 to: {self dbGreen. bold};
    	set: #blockTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
    	set: #blockPatternTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
    	set: #instVar for: #SHTextStylerST80 to: {self dbYellow. normal };
    	set: #workspaceVar for: #SHTextStylerST80 to: {self dbLocal. italic};
    	set: #undefinedIdentifier for: #SHTextStylerST80 to: {self dbInvalid};
    	set: #incompleteIdentifier for: #SHTextStylerST80 to: {self dbGray. underlined};
    	set: #tempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
    	set: #patternTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
    	set: #poolConstant for: #SHTextStylerST80 to: {self dbConstant };
    	set: #classVar for: #SHTextStylerST80 to: {self dbReference};
    	set: #globalVar for: #SHTextStylerST80 to: {self dbClass. normal}.
    "And the text differ"
    aUserInterfaceTheme	
    	set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self dbRed };
    	set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self dbBlue };
    	set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!
Item was changed:
  ----- Method: CommunityTheme class>>dbRed (in category 'colors') -----
  dbRed 
+ 	^Color r: 0.75 g: 0.25 b: 0.25!
- 	^Color r: 0.6 g: 0.3 b: 0.3!
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 ] ]!