#UI_ENHANCEMENT
class: ToolApplicationModel
changed: #showHelp:for:
care for multiline help; only show first line
--- a/ToolApplicationModel.st Tue Oct 06 13:05:07 2015 +0200
+++ b/ToolApplicationModel.st Wed Oct 07 01:10:12 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -11,6 +13,8 @@
"
"{ Package: 'stx:libview2' }"
+"{ NameSpace: Smalltalk }"
+
ApplicationModel subclass:#ToolApplicationModel
instanceVariableNames:'timeBlock'
classVariableNames:''
@@ -1238,9 +1242,16 @@
"/ ^ masterApplication showHelp:aHelpText for:view
"/ ].
"/
- aHelpText isNil
- ifTrue: [self updateInfoLabel]
- ifFalse: [self infoLabelHolder value:aHelpText asString].
+ |lines|
+
+ aHelpText isNil ifTrue:[
+ self updateInfoLabel
+ ] ifFalse: [
+ |text|
+
+ lines := aHelpText asString asStringCollection.
+ self infoLabelHolder value:lines first
+ ].
!
showingHelp
@@ -1649,6 +1660,6 @@
!ToolApplicationModel class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.148 2014-07-08 13:24:05 cg Exp $'
+ ^ '$Header$'
! !