author | Claus Gittinger <cg@exept.de> |
Tue, 26 Nov 2013 22:31:44 +0100 | |
changeset 3257 | 382b74692cfc |
parent 3256 | 1eaaec0de5fe |
child 3258 | b0c9d06f22ef |
FlyByHelp.st | file | annotate | diff | comparison | revisions |
--- a/FlyByHelp.st Wed Nov 13 19:19:53 2013 +0100 +++ b/FlyByHelp.st Tue Nov 26 22:31:44 2013 +0100 @@ -363,7 +363,9 @@ lastHelpText := aHelpText. helpTextShown := aHelpText. - textLines := helpTextShown withCRs asCollectionOfLines asStringCollection. + "/ the text originator must already have generated CRs; + "/ no longer done here (otherwise, we could not generate tooltips with windows filenames in it) + textLines := helpTextShown "withCRs" asCollectionOfLines asStringCollection. textLines size > (self class maxNumberOfLines) ifTrue:[ textLines := (textLines copyTo:(self class maxNumberOfLines)) copyWith:'...' ]. @@ -450,10 +452,10 @@ !FlyByHelp class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.62 2013-10-14 15:44:31 cg Exp $' + ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.63 2013-11-26 21:31:44 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.62 2013-10-14 15:44:31 cg Exp $' + ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.63 2013-11-26 21:31:44 cg Exp $' ! !