"{ Package: 'stx:libwidg2' }"

"{ NameSpace: Smalltalk }"

TextBox subclass:#TextCollectorBox
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Views-DialogBoxes'
!

!TextCollectorBox class methodsFor:'documentation'!

documentation
"
    has a textcollector as textview
"
!

examples
"
  Example (using ok-action callBack):
                                                                        [exBegin]
    |textBox|

    textBox := TextCollectorBox new.
    textBox title:'text coming...'.
    [
        10 timesRepeat:[
            textBox textView showCR:'hello'.
            Delay waitForSeconds:1.
        ].
    ] fork.        
    textBox showAtPointer.
                                                                        [exEnd]
"
! !

!TextCollectorBox methodsFor:'initialization'!

initialize
    textViewClass := TextCollector.
    super initialize

    "Created: / 04-11-2018 / 20:43:12 / Claus Gittinger"
! !

!TextCollectorBox class methodsFor:'documentation'!

version_CVS
    ^ '$Header$'
! !