The Inbox: Tools-pre.659.mcz

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.'!

On Tue, Dec 08, 2015 at 10:47:13PM +0100, karl ramberg wrote:
>
> On Tue, Dec 8, 2015 at 7:16 PM, <[hidden email]> 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.
> >
>
> Nice.
>
> Best,
> Karl

This sounds really good, but are there more updates on the way? I loaded
Tools-pre.659, but I do not see balloon help when I hold the mouse cursor
over the icons.

Thanks,
Dave

I don't know. There has been one for a long time. It just never worked. :-)

Best,
Marcel



--
View this message in context: http://forum.world.st/The-Inbox-Tools-pre-659-mcz-tp4866102p4866519.html
Sent from the Squeak - Dev mailing list archive at Nabble.com.