Comment 4 for bug 140336

I updated the patch (need to upload it )to:
A) in GroupChat.tcl not use directly the jabber:iq:private, but use jabber:iq::annotations instead. This allows to remove even more code from GroupChat.tcl and use functionality from annotations.tcl

B) Add stuff to Profiles.tcl to store and retrieve the notes from the server (not yet displaying them, due to problems mentioned below).

However, to get it working similar to the stuff in the "Client/Service" tab, I need to implement sth. like that:

 http://wiki.tcl.tk/1917

In the "Client/Service" Tab there it uses ttk::label which supports a -textvariable but not a -yscrollcommand (as far as I researched)

The tk text widget doesn't seem to support a -textvariable. The stuff mentioned at the link above would add a -textvariable to the tk text widget.

Would it be OK to add those files to the coccinella sources at some place? The license refers to the "Standard TCL license agreement", which is sth. like BSD license.

However, when the note becomes larger than the twelve lines, then an exception is shown. There seems to be a problem with the scrollbar, which also exists in the actual version.

window ".juserinfo12318433273icql00-bugdead-prodsde.frall.nb.not.f.s" isn't packed
window ".juserinfo12318433273icql00-bugdead-prodsde.frall.nb.not.f.s" isn't packed
    while executing
"$manager info $wscrollbar"
    (procedure "::UI::ScrollSet" line 12)
    invoked from within
"::UI::ScrollSet .juserinfo12318433273icql00-bugdead-prodsde.frall.nb.not.f.s {pack .juserinfo12318433273icql00-bugdead-prodsde.frall.nb.not.f.s -side righ..."
    (vertical scrolling command executed by text)