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@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@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@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@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@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@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) #( ) #( ) #( ) #( ) #( ) #( ) #( ) #( ) #( ) ))! |
Free forum by Nabble | Edit this page |