1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
|
# $Id: itemedit.tcl,v 1.15 2006/04/09 19:45:37 aleksey Exp $
namespace eval itemedit {}
proc itemedit::show_dialog {connid jid} {
set allowed_name [jid_to_tag $jid]
set w .gredit_${connid}_$allowed_name
if {[winfo exists $w]} {
destroy $w
}
Dialog $w -title [format [::msgcat::mc "Edit properties for %s"] $jid] \
-separator 1 -anchor e \
-default 0 -cancel 1
set f [$w getframe]
hook::run roster_itemedit_setup_hook $f $connid $jid
set g [[TitleFrame $f.gr -text [format [::msgcat::mc "Edit groups for %s"] $jid]] getframe]
pack $f.gr -side top -expand yes -fill both
TitleFrame $g.available -text [::msgcat::mc "Available groups"]
pack $g.available -side left -expand yes -fill both
set ga [$g.available getframe]
frame $ga.gr
label $ga.gr.lab -text [::msgcat::mc "Group:"]
set gae [entry $ga.gr.oup]
pack $ga.gr.lab -side left
pack $ga.gr.oup -side left -fill x -expand yes
pack $ga.gr -side top -fill x
set gasw [ScrolledWindow $ga.grouplist_sw]
set gal [listbox $ga.grouplist]
$gasw setwidget $gal
pack $gasw -side top -expand yes -fill both
TitleFrame $g.current -text [::msgcat::mc "Current groups"]
pack $g.current -side right -expand yes -fill both
set gc [$g.current getframe]
set gcsw [ScrolledWindow $gc.grouplist_sw]
set gcl [listbox $gc.grouplist]
$gcsw setwidget $gcl
pack $gcsw -side top -expand yes -fill both
frame $g.buttons
button $g.buttons.add -text [::msgcat::mc "Add ->"] \
-command "itemedit::add_group $gcl \[$ga.gr.oup get\]"
button $g.buttons.remove -text [::msgcat::mc "<- Remove"] \
-command [list itemedit::remove_current_group $gcl]
pack $g.buttons.add $g.buttons.remove -side top -fill x -anchor c
pack $g.buttons -side left
$w add -text [::msgcat::mc "OK"] \
-command [list [namespace current]::commit_changes $gcl $connid $jid]
$w add -text [::msgcat::mc "Cancel"] -command [list destroy $w]
foreach group [roster::get_groups $connid \
-nested $::ifacetk::roster::options(nested) \
-delimiter $::ifacetk::roster::options(nested_delimiter)] {
$gal insert end $group
}
foreach group [roster::itemconfig $connid $jid -group] {
$gcl insert end $group
}
bindtags $gal [list Listbox $gal . all]
bind $gal <1> [list itemedit::select_available_group $gal $gae]
$w draw
}
proc itemedit::edit_item_setup_fallback {f connid jid} {
variable gra_name
set tf [TitleFrame $f.name -text [format [::msgcat::mc "Edit nickname for %s"] $jid]]
pack $tf -side top -expand yes -fill both
set g [$tf getframe]
label $g.lname -text [::msgcat::mc "Nickname:"]
set gn [entry $g.name -textvariable [namespace current]::gra_name]
set name [roster::itemconfig $connid $jid -name]
if {$name == ""} {
if {[info exists userinfo::userinfo(nickname,$jid)] && \
![cequal $userinfo::userinfo(nickname,$jid) ""]} {
set name $userinfo::userinfo(nickname,$jid)
} else {
set name [node_from_jid $jid]
jlib::send_iq get \
[jlib::wrapper:createtag vCard \
-vars [list xmlns vcard-temp]] \
-to [node_and_server_from_jid [get_jid_of_user $connid $jid]] \
-connection $connid \
-command [list [namespace current]::fetch_nickname $gn $name $jid]
}
}
$g.name delete 0 end
$g.name insert 0 $name
pack $g.lname -side left
pack $g.name -side left -expand yes -fill x
}
hook::add roster_itemedit_setup_hook \
[namespace current]::itemedit::edit_item_setup_fallback 100
proc itemedit::prefs_user_menu {m connid jid} {
set rjid [roster::find_jid $connid $jid]
$m add command -label [::msgcat::mc "Edit item..."] \
-command [list [namespace current]::show_dialog $connid $rjid]
}
hook::add chat_create_user_menu_hook \
[namespace current]::itemedit::prefs_user_menu 74
hook::add roster_conference_popup_menu_hook \
[namespace current]::itemedit::prefs_user_menu 74
hook::add roster_service_popup_menu_hook \
[namespace current]::itemedit::prefs_user_menu 74
hook::add roster_jid_popup_menu_hook \
[namespace current]::itemedit::prefs_user_menu 74
proc itemedit::add_group {grlist group} {
set group [string trim $group]
if {![cequal $group ""]} {
set groups [$grlist get 0 end]
lappend groups $group
set groups [lrmdups $groups]
$grlist delete 0 end
eval $grlist insert end $groups
}
}
proc itemedit::select_available_group {grlist grentry} {
if {![lempty [$grlist curselection]]} {
set group [$grlist get [$grlist curselection]]
$grentry delete 0 end
$grentry insert 0 $group
}
}
proc itemedit::remove_current_group {grlist} {
if {![lempty [$grlist curselection]]} {
$grlist delete [$grlist curselection]
}
}
proc itemedit::commit_changes {grlist connid jid} {
hook::run roster_itemedit_commit_hook $connid $jid [$grlist get 0 end]
destroy [winfo toplevel $grlist]
}
proc itemedit::commit_changes_fallback {connid jid groups} {
variable gra_name
roster::itemconfig $connid $jid \
-name $gra_name \
-group $groups
roster::send_item $connid $jid
}
hook::add roster_itemedit_commit_hook \
[namespace current]::itemedit::commit_changes_fallback 100
proc itemedit::fetch_nickname {name_entry name jid res child} {
if {![winfo exists $name_entry] || ![cequal $res OK]} {
return
}
jlib::wrapper:splitxml $child tag vars isempty chdata children
foreach item $children {
userinfo::parse_vcard_item $jid $item
}
if {[info exists userinfo::userinfo(nickname,$jid)] && \
![cequal $userinfo::userinfo(nickname,$jid) ""] && \
[winfo exists $name_entry] && \
[cequal [$name_entry get] $name]} {
$name_entry delete 0 end
$name_entry insert 0 $userinfo::userinfo(nickname,$jid)
}
}
|
