Dolphin XMPP Message Sending

I'm starting to get something of a more working/functional set of classes to drive XMPP/Jabber from Dolphin Smalltalk. Now at the point that I need to think about HOW I want to use XMPP from Dolphin; how the API should look and be used.

From a fresh workspace, the following code sends my main client instance a chat message after successfully binding and authenticating to the jabber server.

| xmpp |
xmpp := XMPPConnection new.
xmpp jid: 'talios@myjabber.net'.
xmpp password: '********'.
xmpp resource: 'Dolphin'.
xmpp bind ifTrue: 
  [xmpp login ifTrue:
    [ xmpp sendChatMessage: 'hello mark from dolphin smalltalk'
      to: 'talios@myjabber.net/Pandion'.]]

The current library is quite flat with everything sitting on the XMPPConnection class, however I'm thinking of breaking things apart to allow something like the following:

chat := xmpp openChatTo: 'talios@myjabber.net/Pandion'.
chat onIncomingMessageDo: [ :message |
  message inspect.].
chat newMessage: 'Hello XMPP';
  send.

This would open a new chat to the specified jid, setup a callback handler/block to respond to chat message replies from this jid with simply "inspects" the incoming message, then make an initial message to the user and send it.

Michael Lucas-Smith of Software With Style has expressed an interest in seeing my XMPP packages appearing for Cincom Visual Works Smalltalk, which I'll definitely be looking into once I've got my head around this current Dolphin implemtation.

links: digg this    del.icio.us    technorati    reddit