[Pkg] The Trunk: Tools-topa.545.mcz

[commits at source.squeak.org]

Tobias Pape uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-topa.545.mcz

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

Name: Tools-topa.545
Author: topa
Time: 8 March 2015, 11:07:48.63 pm
UUID: 6998ddde-1a82-4e70-b316-44bca20ac1e7
Ancestors: Tools-mt.544

Icons for 

 - abstract but not implemented methods
 - prmitives
 - methods that should not be implemented

=============== Diff against Tools-mt.544 ===============

Item was changed:
  ----- Method: ToolIcons class>>iconForClass:selector: (in category 'support') -----
  iconForClass: aClassDescription selector: aSelector
  	"Answer an icon to be shown for the selector aSymbol in aClassDescription."
  	| classDescription |
  	classDescription := (aClassDescription isKindOf: PseudoClass)
  		ifTrue: [aClassDescription realClass ifNil: [^ #blank ]]
  		ifFalse: [aClassDescription].
  	classDescription methodDictionary at: aSelector ifPresent: [ :method |
  		method literalsDo: [ :literal |
+ 			(#(halt halt: haltIfNil haltIf: haltOnce haltOnce: haltOnCount: halt:onCount:) includes: literal)
- 			(literal == #halt or: [ literal == #halt: or: [ literal == #haltIfNil or: [ literal == #haltIf: or: [ literal == #haltOnce or: [ literal == #haltOnce: or: [ literal == #haltOnCount: or: [ literal == #halt:onCount: ] ] ] ] ] ] ])
  				ifTrue: [^ #breakpoint].
+ 			(#(flag: needsWork notYetImplemented) includes: literal)
- 			(literal == #flag: or: [ literal == #needsWork or: [ literal == #notYetImplemented ] ])
  				ifTrue: [^ #flag].
+ 			(#(shouldBeImplemented subclassResponsibility) includes: literal)
+ 				ifTrue: [
+ 					(classDescription isSelectorOverridden: aSelector)
+ 						ifTrue: [^ #abstract]
+ 						ifFalse: [^ #notOverridden]].
+ 			literal == #shouldNotImplement
+ 				ifTrue: [^ #no]]].
- 
- 			(literal == #shouldBeImplemented or: [literal == #subclassResponsibility])
- 				ifTrue: [^ #abstract] ] ].
  		
+ 	(classDescription isSelectorOverride: aSelector)
- 	^ (classDescription isSelectorOverride: aSelector)
  		ifTrue: [
  			(classDescription isSelectorOverridden: aSelector)
+ 				ifTrue: [ ^ #arrowUpAndDown ]
+ 				ifFalse: [ ^ #arrowUp ] ]
- 				ifTrue: [ #arrowUpAndDown ]
- 				ifFalse: [ #arrowUp ] ]
  		ifFalse: [
  			(classDescription isSelectorOverridden: aSelector)
+ 				ifTrue: [^ #arrowDown ]].
+ 
+ 	classDescription methodDictionary at: aSelector ifPresent: [ :method |
+ 		(method primitive ~= 0 and: [method isQuick not])
+ 			ifTrue: [^ #primitive]].
+ 	
+ 
+ 	^ #blank!
- 				ifTrue: [ #arrowDown ]
- 				ifFalse: [#blank ] ]!

Item was added:
+ ----- Method: ToolIcons class>>no (in category 'private') -----
+ no
+ 
+ 	^  ((ColorForm
+ 	extent: 12 at 12
+ 	depth: 4
+ 	fromArray: #( 3149642683 3149594624 3137833640 2075852800 2956634794 2746941440 3081263778 2323316736 3097859609 1514864640 3131730326 2863333376 3131709846 2863333376 3097663081 1514864640 3081263781 2323316736 3141184170 2797273088 3149351588 2075852800 3149642683 3149594624)
+ 	offset: 0 at 0)
+ 	colorsFromArray: #(#(0.995 0.956 0.96) #(0.972 0.753 0.757) #(0.956 0.63 0.634) #(0.936 0.466 0.47) #(0.933 0.423 0.431) #(0.944 0.548 0.552) #(0.952 0.587 0.591) #(0.96 0.671 0.674) #(0.925 0.384 0.388) #(1 1 1) #(0.921 0.341 0.349) #( ) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0)  ))!

Item was added:
+ ----- Method: ToolIcons class>>notOverridden (in category 'private') -----
+ notOverridden
+ 
+ 	^ ((ColorForm
+ 		extent: 12 at 12
+ 		depth: 4
+ 		fromArray: #( 2863311530 2863267840 2863311530 2863267840 2863311530 2863267840 2863241625 2594832384 2863237248 2594832384 2863235600 2594832384 2863235607 2594832384 2863236471 1252655104 2863241619 1789526016 2863311530 2863267840 2863311530 2863267840 2863311530 2863267840)
+ 		offset: 0 at 0)
+ 		colorsFromArray: #(#(1 0.525 0.533) #(1 0.552 0.56) #(1 0.541 0.552) #(0.87 0.305 0.313) #(0.878 0.301 0.313) #(1 0.529 0.541) #(0.839 0.325 0.309) #(0.976 0.415 0.419) #(1 0.591 0.599) #(0.882 0.301 0.313) #( ) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0)  ))!

Item was added:
+ ----- Method: ToolIcons class>>primitive (in category 'private') -----
+ primitive
+ 
+ 	^  ((ColorForm
+ 	extent: 12 at 12
+ 	depth: 4
+ 	fromArray: #( 2004318071 2004287488 2004318071 2004287488 2004318071 2004287488 2004248166 1735852032 2004243796 1735852032 2004242692 1735852032 2004242947 1735852032 2004243507 1735852032 2004248166 1735852032 2004318071 2004287488 2004318071 2004287488 2004318071 2004287488)
+ 	offset: 0 at 0)
+ 	colorsFromArray: #(#(0.369 0.369 0.369) #(0.328 0.328 0.328) #(0.325 0.325 0.325) #(0.353 0.353 0.353) #(0.412 0.412 0.412) #(0.345 0.345 0.345) #(0.27 0.27 0.27) #( ) #( ) #( ) #( ) #( ) #( ) #( ) #( ) #( )  ))!