Posted to tcl by Zarutian at Fri Sep 07 01:17:20 GMT 2007view raw

  1. proc ::tkchat::whiteboard_zarutian_transmit {wbitem} {
  2. set attrs [list xmlns urn:tkchat:whiteboard color $::Options(MyColor)]
  3.  
  4. set xlist [list [wrapper::createtag x -attrlist $attrs -chdata $wbitem]]
  5.  
  6. $tkjabber::jabber send_message $tkjabber::conference -type groupchat -xlist $xlist
  7.  
  8. catch {
  9. interp eval .wbinterp $wbitem
  10. }
  11.  
  12. .wb.e selection range 0 end
  13. }
  14.  
  15. ::tkchat::whiteboard_zarutian_transmit {
  16. .wb.c create image 150 150 -image ::tkchat::img::coffee -tags sv
  17. .wb.c bind sv <Enter> {
  18. set ::wbentry { # Yarr, my hearties! }
  19. if {[lsearch -exact [image names] ::tkchat::img::jolly_rogers_flag] == -1} {
  20. image create photo ::tkchat::img::jolly_rogers_flag
  21. ::tkchat::img::jolly_rogers_flag put [string map {0 #000000 1 #333333 2 #666666 3 #cccccc 4 #ffffff 5 #999999 6 #333366 7 #999966 8 #996666} {
  22. {0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
  23. {0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 3 4 4 4 4 3 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
  24. {0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 3 4 4 4 4 4 4 4 3 1 0 0 0 0 0 0 0 0 0 0 0 0 0}
  25. {0 0 0 0 0 0 0 0 0 0 0 0 0 5 3 3 4 4 4 4 4 4 4 4 5 0 0 0 0 0 0 0 0 0 0 0 0 0}
  26. {0 0 0 0 0 0 0 0 0 0 0 0 0 5 5 4 3 3 4 4 3 3 4 4 5 0 0 0 0 0 0 0 0 0 0 0 0 0}
  27. {0 0 0 0 0 0 0 0 0 0 0 0 0 2 5 2 0 0 3 3 0 0 5 5 2 0 0 0 0 0 0 0 0 0 0 0 0 0}
  28. {0 0 0 0 0 0 0 0 0 0 0 0 0 1 3 5 2 5 5 3 5 2 3 5 1 0 0 0 0 0 0 0 0 0 0 0 0 0}
  29. {0 0 0 0 0 0 0 0 0 0 0 0 0 1 5 3 4 4 2 5 4 4 3 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
  30. {0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 2 3 4 4 3 5 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
  31. {0 0 0 0 0 0 0 1 3 4 5 0 0 0 0 3 2 2 2 2 1 5 5 0 0 0 0 1 3 5 0 0 0 0 0 0 0 0}
  32. {0 0 0 0 0 0 5 4 4 4 4 3 1 0 0 2 3 5 5 2 2 4 1 0 0 0 2 4 4 4 3 1 0 0 0 0 0 0}
  33. {0 0 0 0 0 0 5 4 3 3 3 4 4 3 2 0 2 3 4 3 3 1 0 1 2 3 4 4 3 3 4 3 0 0 0 0 0 0}
  34. {0 0 0 0 0 0 0 0 0 1 2 5 3 4 4 4 5 6 0 0 1 5 3 4 4 4 3 5 5 2 2 1 0 0 0 0 0 0}
  35. {0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 3 4 4 3 3 3 4 3 5 2 1 0 0 0 0 0 0 0 0 0 0 0 0}
  36. {0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 5 3 3 3 4 4 3 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
  37. {0 0 0 0 0 0 5 3 3 3 3 3 3 4 4 4 5 2 0 1 5 3 4 4 3 5 2 2 2 1 1 0 0 0 0 0 0 0}
  38. {0 0 0 0 0 0 5 4 4 4 4 4 3 2 1 0 0 0 0 0 0 0 1 7 3 3 4 4 4 3 4 1 0 0 0 0 0 0}
  39. {0 0 0 0 0 0 0 1 3 3 3 2 0 0 0 0 0 0 0 0 0 0 0 0 0 8 3 3 4 5 2 0 0 0 0 0 0 0}
  40. {0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 0 0}
  41. }] -to 0 0
  42. }
  43. .wb.c itemconfig sv -image ::tkchat::img::jolly_rogers_flag
  44. }
  45. .wb.c bind sv <Leave> {
  46. .wb.c itemconfig sv -image ::tkchat::img::coffee
  47. }
  48. }
  49. ::tkchat::whiteboard_zarutian_transmit {}