"{ Package: 'stx:libjava/examples/chat' }"

ApplicationModel subclass:#ChatWindow

	instanceVariableNames:'client reader conversationHolder buddyHolder messageHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'stx-libjava-examples-chat'

!

!ChatWindow class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:ChatWindow andSelector:#windowSpec

     ChatWindow new openInterface:#windowSpec

     ChatWindow open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'NewApplication'

         name: 'NewApplication'

         bounds: (Rectangle 0 0 592 525)

       )

       component: 

      (SpecCollection

         collection: (

          (LabelSpec

             label: 'Buddy...'

             name: 'Label1'

             layout: (LayoutFrame 0 0 0 0 0 1 30 0)

             translateLabel: true

             labelChannel: buddyHolder

           )

          (TextEditorSpec

             name: 'TextEditor1'

             layout: (LayoutFrame 0 0 30 0 0 1 -30 1)

             model: conversationHolder

             hasHorizontalScrollBar: true

             hasVerticalScrollBar: true

             hasKeyboardFocusInitially: false

           )

          (InputFieldSpec

             name: 'EntryField1'

             layout: (LayoutFrame 0 0 -25 1 0 1 0 1)

             model: messageHolder

             acceptOnLeave: false

             acceptOnReturn: true

             acceptOnTab: false

             acceptOnLostFocus: false

             acceptOnPointerLeave: false

             valueChangeCallBackSelector: send

           )

          )

       )

     )

! !

!ChatWindow methodsFor:'accessing'!

buddy: aString

    self buddyHolder value: aString

    "Created: / 23-09-2013 / 23:27:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

client: jclient

    client := jclient.

    "Created: / 23-09-2013 / 23:31:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChatWindow methodsFor:'actions'!

receive: message

    conversationHolder value:

        (conversationHolder value , Character cr, message getFrom , ': ', message getBody)

    "Created: / 23-09-2013 / 23:34:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

send

    | m |

    m := JAVA org jivesoftware smack packet Message new.

    m setTo: self buddyHolder value.

    m setBody: self messageHolder value.

    client send: m.

    conversationHolder value:

            (conversationHolder value , Character cr, 'me: ', self messageHolder value).

    self messageHolder setValue: ''.

    "Created: / 23-09-2013 / 23:30:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChatWindow methodsFor:'aspects'!

buddyHolder

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    buddyHolder isNil ifTrue:[

        buddyHolder := ValueHolder new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       buddyHolder addDependent:self.

"/       buddyHolder onChangeSend:#buddyHolderChanged to:self.

    ].

    ^ buddyHolder.

!

conversationHolder

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    conversationHolder isNil ifTrue:[

        conversationHolder := '' asValue.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       conversationHolder addDependent:self.

"/       conversationHolder onChangeSend:#conversationHolderChanged to:self.

    ].

    ^ conversationHolder.

!

messageHolder

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    messageHolder isNil ifTrue:[

        messageHolder := ValueHolder new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       messageHolder addDependent:self.

"/       messageHolder onChangeSend:#messageHolderChanged to:self.

    ].

    ^ messageHolder.

! !

!ChatWindow methodsFor:'hooks'!

closeDownViews

    reader terminate.

    super closeDownViews.

    "Created: / 23-09-2013 / 23:35:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

commonPostOpen

    reader := [

         [

            | m |        

            client await.

            [ (m := client receive: self buddyHolder value) notNil ] whileTrue:[

                self receive: m.

            ].

         ] loop.

    ] fork.

    "Created: / 23-09-2013 / 23:34:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChatWindow class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !