#UI_ENHANCEMENT
authorClaus Gittinger <cg@exept.de>
Wed, 07 Oct 2015 01:10:12 +0200
changeset 3508 ba75f68aaa04
parent 3507 039fedc083d3
child 3509 5695dc1969e8
child 3510 c74ee13b72d8
#UI_ENHANCEMENT class: ToolApplicationModel changed: #showHelp:for: care for multiline help; only show first line
ToolApplicationModel.st
--- 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$'
 ! !