AssistantApplication.st
changeset 3858 ff45d1fe56cb
parent 3857 7c22a27c99ae
child 3861 2c920a8bab56
--- a/AssistantApplication.st	Sun Nov 15 23:17:18 2009 +0100
+++ b/AssistantApplication.st	Mon Nov 16 14:34:22 2009 +0100
@@ -5,7 +5,7 @@
 		backButtonVisible forwardButtonVisible finishButtonVisible
 		finishButtonEnabled currentPageInfoHTMLHolder
 		currentPageIndexHolder backButtonLabelHolder
-		nextButtonLabelHolder pageLabelsInList pageInfoHolder'
+		nextButtonLabelHolder pageLabelsInList pageInfoHolder infoHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-DialogBoxes'
@@ -562,6 +562,17 @@
     ^ forwardButtonVisible.
 !
 
+infoHolder
+    "info message at the bottom"
+
+    <resource: #uiAspect>
+
+    infoHolder isNil ifTrue:[
+        infoHolder := false asValue.
+    ].
+    ^ infoHolder.
+!
+
 nextButtonLabelHolder
     <resource: #uiAspect>
 
@@ -808,5 +819,5 @@
 !AssistantApplication class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/AssistantApplication.st,v 1.17 2009-11-15 22:17:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/AssistantApplication.st,v 1.18 2009-11-16 13:34:22 cg Exp $'
 ! !