Added accessors #message and #buttons.
Mostly for tests...
--- a/Tools__InlineMessageDialog.st Mon Mar 02 17:53:28 2015 +0100
+++ b/Tools__InlineMessageDialog.st Tue Mar 03 11:42:31 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
Copyright (c) 2009-2010 eXept Software AG
@@ -318,7 +320,7 @@
!InlineMessageDialog class methodsFor:'others'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.16 2014-12-19 01:34:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.17 2015-03-03 10:42:31 vrany Exp $'
! !
!InlineMessageDialog methodsFor:'accessing'!
@@ -335,6 +337,25 @@
"Created: / 10-04-2012 / 19:38:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+buttons
+ panelView isNil ifTrue:[ ^ #() ].
+ ^ OrderedCollection streamContents:[ :s |
+ panelView allSubViewsDo:[:v |
+ (v class == Button or:[ v class == LinkButton ]) ifTrue:[
+ s nextPut: v
+ ].
+ ]
+ ]
+
+ "Created: / 03-03-2015 / 10:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+message
+ ^ self messageHolder value
+
+ "Created: / 03-03-2015 / 10:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
message: aString
self messageHolder value: aString
@@ -980,7 +1001,7 @@
!InlineMessageDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.16 2014-12-19 01:34:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.17 2015-03-03 10:42:31 vrany Exp $'
!
version_HG
@@ -989,6 +1010,6 @@
!
version_SVN
- ^ '$Id: Tools__InlineMessageDialog.st,v 1.16 2014-12-19 01:34:01 cg Exp $'
+ ^ '$Id: Tools__InlineMessageDialog.st,v 1.17 2015-03-03 10:42:31 vrany Exp $'
! !