Posted to tcl by Zarutian at Fri Sep 07 01:17:20 GMT 2007view raw
- proc ::tkchat::whiteboard_zarutian_transmit {wbitem} {
- set attrs [list xmlns urn:tkchat:whiteboard color $::Options(MyColor)]
- set xlist [list [wrapper::createtag x -attrlist $attrs -chdata $wbitem]]
- $tkjabber::jabber send_message $tkjabber::conference -type groupchat -xlist $xlist
- catch {
- interp eval .wbinterp $wbitem
- }
- .wb.e selection range 0 end
- }
- ::tkchat::whiteboard_zarutian_transmit {
- .wb.c create image 150 150 -image ::tkchat::img::coffee -tags sv
- .wb.c bind sv <Enter> {
- set ::wbentry { # Yarr, my hearties! }
- if {[lsearch -exact [image names] ::tkchat::img::jolly_rogers_flag] == -1} {
- image create photo ::tkchat::img::jolly_rogers_flag
- ::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} {
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- {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}
- }] -to 0 0
- }
- .wb.c itemconfig sv -image ::tkchat::img::jolly_rogers_flag
- }
- .wb.c bind sv <Leave> {
- .wb.c itemconfig sv -image ::tkchat::img::coffee
- }
- }
- ::tkchat::whiteboard_zarutian_transmit {}