[squeak-dev] The Inbox: Tools-pre.659.mcz
karl ramberg
karlramberg at gmail.com
Tue Dec 8 21:47:13 UTC 2015
Nice.
Best,
Karl
On Tue, Dec 8, 2015 at 7:16 PM, <commits at source.squeak.org> wrote:
> A new version of Tools was added to project The Inbox:
> http://source.squeak.org/inbox/Tools-pre.659.mcz
>
> ==================== Summary ====================
>
> Name: Tools-pre.659
> Author: pre
> Time: 8 December 2015, 7:16:41.034 pm
> UUID: a7cb3cba-074b-46a6-8a83-fada58007b25
> Ancestors: Tools-eem.658
>
> This adds balloon help texts to the message list of the standard browser
> to explain the symbols shown in front of message names.
>
> =============== Diff against Tools-eem.658 ===============
>
> Item was changed:
> ----- Method: Browser>>messageHelpAt: (in category 'message list') -----
> messageHelpAt: anIndex
> "Show the first n lines of the sources code of the selected
> message."
>
> + | source formatted |
> - | source formatted lineCount |
> Preferences balloonHelpInMessageLists ifFalse: [^ nil].
> self messageList size < anIndex ifTrue: [^ nil].
>
> source := (self selectedClassOrMetaClass >> (self messageList at:
> anIndex)) getSource.
> + source lineCount > 5 ifTrue: [
> + | sourceLines |
> + sourceLines := (source asString lines copyFrom: 1 to: 5)
> asOrderedCollection.
> + sourceLines add: ' [...]'.
> + source := sourceLines joinSeparatedBy: Character cr].
> +
> formatted := SHTextStylerST80 new
> classOrMetaClass: self selectedClassOrMetaClass;
> styledTextFor: source asText.
> -
> - lineCount := 0.
> - source doWithIndex: [:char :index |
> - char = Character cr ifTrue: [lineCount := lineCount + 1].
> - lineCount > 10 ifTrue: [
> - formatted := formatted copyFrom: 1 to: index-1.
> - formatted append: ' [...]'.
> - ^ formatted]].
>
> + ^ (Text newFrom: ((self messageIconHelpAt: anIndex) ifNotEmpty:
> [:t | t , Character cr, Character cr]))
> + append: formatted;
> + yourself!
> - ^ formatted!
>
> Item was added:
> + ----- Method: Browser>>messageIconHelpAt: (in category 'message list')
> -----
> + messageIconHelpAt: anIndex
> +
> + self class showMessageIcons
> + ifFalse: [^ nil].
> +
> + ^ ToolIconHelp iconHelpNamed: (ToolIcons
> + iconForClass: self selectedClassOrMetaClass
> + selector: (self messageList at: anIndex))!
>
> Item was added:
> + Object subclass: #ToolIconHelp
> + instanceVariableNames: ''
> + classVariableNames: 'HelpTexts'
> + poolDictionaries: ''
> + category: 'Tools-Base'!
>
> Item was added:
> + ----- Method: ToolIconHelp class>>abstract (in category 'as yet
> unclassified') -----
> + abstract
> +
> + ^ 'This method is abstract.' !
>
> Item was added:
> + ----- Method: ToolIconHelp class>>arrowDown (in category 'as yet
> unclassified') -----
> + arrowDown
> +
> + ^ 'This method is overriden by another method.'!
>
> Item was added:
> + ----- Method: ToolIconHelp class>>arrowUp (in category 'as yet
> unclassified') -----
> + arrowUp
> +
> + ^ 'This method overrides a super method.'!
>
> Item was added:
> + ----- Method: ToolIconHelp class>>arrowUpAndDown (in category 'as yet
> unclassified') -----
> + arrowUpAndDown
> +
> + ^ 'This method overrides and is overridden by other methods.'!
>
> Item was added:
> + ----- Method: ToolIconHelp class>>blank (in category 'as yet
> unclassified') -----
> + blank
> +
> + ^ ''!
>
> Item was added:
> + ----- Method: ToolIconHelp class>>breakpoint (in category 'as yet
> unclassified') -----
> + breakpoint
> +
> + ^ 'This method contains a breakpoint.'!
>
> Item was added:
> + ----- Method: ToolIconHelp class>>flag (in category 'as yet
> unclassified') -----
> + flag
> +
> + ^ 'This method needs attention of some kind.' !
>
> Item was added:
> + ----- Method: ToolIconHelp class>>helpTexts (in category 'as yet
> unclassified') -----
> + helpTexts
> +
> + ^ HelpTexts ifNil: [HelpTexts := IdentityDictionary new]!
>
> Item was added:
> + ----- Method: ToolIconHelp class>>iconHelpNamed: (in category 'as yet
> unclassified') -----
> + iconHelpNamed: aSymbol
> +
> + (self respondsTo: aSymbol)
> + ifTrue: [^self helpTexts at: aSymbol ifAbsentPut: [self
> perform: aSymbol]]
> + ifFalse: [^ '']
> + !
>
> Item was added:
> + ----- Method: ToolIconHelp class>>no (in category 'as yet unclassified')
> -----
> + no
> +
> + ^ 'This method should not be implemented.' !
>
> Item was added:
> + ----- Method: ToolIconHelp class>>notOverridden (in category 'as yet
> unclassified') -----
> + notOverridden
> +
> + ^ 'This method is abstract and has not been overridden.' !
>
> Item was added:
> + ----- Method: ToolIconHelp class>>primitive (in category 'as yet
> unclassified') -----
> + primitive
> +
> + ^ 'This method implements a primitive.'!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20151208/9a55cb1f/attachment-0001.htm
More information about the Squeak-dev
mailing list
|