Tkabber contrib

2015-05-10  Sergei Golovan  <sgolovan@nes.ru>

	* chattoolbar/chattoolbar.tcl, chattoolbar/icon-table.tcl: Adapted the
	  Chattoolbar plugin to the Ttk based interface.

	* chattoolbar/msgs/ru.msg, chattoolbar/msgs/uk.msg: Fixed spelling
	  error. Converted CR/NL line endings to NL ones.

	}
	set chatwin [chat::chat_win $chatid]
	set input_win [chat::input_win $chatid]
	
	catch {destroy [winfo parent $chatwin].toolbar.bbox}
	catch {destroy [winfo parent $chatwin].toolbar}
	
	set toolFrame [Frame [winfo parent $chatwin].toolbar]
	set bbox [ButtonBox $toolFrame.bbox -spacing $user_variable(spacing)]	
	pack $bbox -side left -padx 1m

	foreach id [get_sorted_ids] {
		if {[get_button_state $id]} {
		$bbox add -image plugins/chattoolbar/$id \

		-takefocus 0 \
		-relief link \


		-command [list [namespace current]::button_$id $chatid] \
		-helptext $iconTable(text,$id)
		}
	}
	
	if {$user_variable(auto_show)} {change_state_toolbar $chatid $toolFrame show} 
	
	bind $chatwin <<ChattoolbarState>> \
	[double% [list [namespace current]::change_state_toolbar $chatid $toolFrame]]

	}
	
	add_win $w -title [::msgcat::mc "Chattoolbar manager"] \
	    -tabtitle [::msgcat::mc "Chattoolbar setting"] \
		-raisecmd [list focus $w]
	
	set scw [ScrolledWindow $w.sw]


	if {[catch {$w cget -background} bg]} {
	    set bg [ttk::style configure . -background]
	}

	set text [Text $w.buttonlist -wrap word -cursor arrow]
	$text configure -background $bg
		
	set apply [Button $w.apply \
		-text [::msgcat::mc "Apply"] \
		-command [namespace current]::apply]
	
	$scw setwidget $text	
	
	redraw_buttons_on_manager
	

		set stored_variable(button_state) [lreplace $stored_variable(button_state) \
			$idx $idx [list $state($ob) $ob]]
		} else {lappend stored_variable(button_state) [list $state($ob) $ob]}
	}
	
	redraw_all_chats
}

proc chattoolbar::redraw_temp_buttonbox {text} {
variable iconTable
variable state
variable spacing

	set idx [$text index $text.bbox]
	destroy $text.bbox

	ButtonBox $text.bbox -spacing $spacing
	foreach id [get_sorted_ids_temp] {
		if {$state($id)} {
		$text.bbox add -image plugins/chattoolbar/$id \
			-takefocus 0 \
			-relief link \
			-helptext $iconTable(text,$id)
		}
	}
	$text window create $idx -window $text.bbox
	after idle [list $text yview moveto 1.0]
}

proc chattoolbar::redraw_buttons_on_manager { } {
variable iconTable
variable state
variable spacing
variable user_variable

	set text .chattoolbar_manager.buttonlist

	$text configure -state normal
	$text delete 1.0 end

	ButtonBox $text.bbox -spacing $spacing
	Label $text.spacing_text -text [::msgcat::mc "Spacing between buttons"]

	Spinbox $text.spacing 0 10 1 [namespace current]::spacing \
		-width 5 \
		-command [list [namespace current]::redraw_temp_buttonbox $text] \
		-validate key \
		-validatecommand {string is integer %P} 
		
	normalize_sort_temp
	foreach id [get_sorted_ids_temp] {
		set check [Checkbutton $text.check_$id \
			-image plugins/chattoolbar/$id \
			-variable [namespace current]::state($id)]
		
		Button $text.check_${id}_up -image plugins/chattoolbar/up \
			-command [list [namespace current]::button_move - $id] \
			-relief link
			
		Button $text.check_${id}_down -image plugins/chattoolbar/down \
			-command [list [namespace current]::button_move + $id] \
			-relief link
		
		$text window create end -window $text.check_${id}_up
		$text window create end -window $text.check_${id}_down
		$text window create end -window $check
		$text insert end \t$iconTable(text,$id)\n
		
		if {$state($id)} {
		$text.bbox add -image plugins/chattoolbar/$id \

			-takefocus 0 \
			-relief link \


			-helptext $iconTable(text,$id)

		}
		
		bindscroll $check $text
	}
	
	$text insert end \n\n
	$text window create end -window $text.bbox

	}

	add_win $w -title [::msgcat::mc "Change subject"] \
	    -tabtitle [::msgcat::mc "%s subject" $node] \
	    -raisecmd [list focus $w]
		
	set scw [ScrolledWindow $w.sw]
	set text [Text $w.subject -wrap word]
		
	$scw setwidget $text
		
	set btn [Button $w.apply \
		-text [::msgcat::mc "Save subject"] \
		-command [list [namespace current]::button_topic:send_new_subject $chatid $text $w]]
		
	set sw [chat::winid $chatid].status.subject
	$text insert end [$sw get]
	
	place $scw -in $w -relwidth 1 -relheight 1 \

}

# ___________________________
set iconTable(icon,smile) {
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAwNJREFUOI1tk99vU2UYxz/ve87p2rVr67DtbFcGCGqIxV+RoOECo9GoV/y4wgWWGBMvtzv8J9RLEyDIjBcqw5AQE5cQTYgzukQSgZlNYGtLRwft2rU9tD3nvO/rBT+C6PfqeZLP8716PoLH0pjfibSjUjgjeRlKj4GFCWpF7VXLiRfn9OO8/ehy+yfQXu0Da/C5KSe+Z5cV2e4gbFS/4getXy/X54qfaa/ydWof5sGNeDBULxCTduzUYPbwwYHkK0LQAePeQ8QQ2KP0W0vGLX36vfZqR0fepPOwoPIjSDvyXXzLxKHQYAqhN8AvgZ271x5UwMmDncVXSZqLn5zVfuNQ7m2MLP0AWnM4PPzaQSc0AP4a2p3n5IlZuo1f6DbmOHF8FuXOo/vL2FSJZif2a8U4gFQKiRWfisTzAv8ORrlUN9Kc+kZzbTXD9VsZvvxWc6uRBuVietcIJ3YIEcpOrpxH2lozaodiLwjTxRgFQvLU2E6mjm3imUIOIWDyWJbc1hF0ewmwEKqJE91R6HdW82LpLHuTqc0XE5ldQAAyhJAOhFIQNACJCGUxQRfEIMZvoToLtNf/Mhvr9X22VggduASdBdzeAInhJNpKIvprIGxAo91FTLAOXoVW0yUa9jFGohXYSlH0PO2jW46w81y9tMDzhTBaPnG/ADAKSze4unCX3LanEdZNPF8FSlGUWnPTbXt/IiPEIi7V3rvMnOmzsrhCp36DTv0GK0vLzMz0WO2+x1C0C1YEt92/ojVlAXBpmvF0Pj89nAoLYru58HOYi+dn0SoAQFoWe99/h7fe6EPnd9ZrPXO7VJp46QjTAuCP0wikc2bzs9sPDCXCyKECrthNebkFQH5LnCjz6M5l2s2eKS/+fc5o/8DLRzEPX3n+JDFhOaczW7ftT49mhBUKI5wkCIHxmii/x53ymqkuXz9nlH/k1Q9p/8sFgN+OI7RhPBSJT8af3FSIxBM2CHrtZrBRq1/x7rY+F4Kv9nz0PzI9mrkvkAbyGMbuU0UB5dc/5j86/wMWOFy7mPTPEgAAAABJRU5ErkJggg==
}

set iconTable(text,smile) [::msgcat::mc "Pick smile"]

proc button_smile {chatid} {
	set way ::plugins::emoticons
	if {[info exist ${way}::options(show_emoticons)] && [set ${way}::options(show_emoticons)] && \
		[info exist ${way}::options(theme)] && [string length [set ${way}::options(theme)]] > 0} {
			event generate [chat::input_win $chatid] <<EmoticonsMenu>>
	} 

	}
	
	if {[winfo exist .change_nick]} {
	focus .change_nick
	return
	}
	
	Toplevel .change_nick
	wm title .change_nick [::msgcat::mc "Change nick"]
	pack [Label .change_nick.lab -text [::msgcat::mc "Change nick"]]
	pack [Entry .change_nick.nick]
	pack [Button .change_nick.ok -text OK -command \
		[list [namespace current]::button_change_nick:new_nick $chatid]] \
	[Button .change_nick.cancel -text Cancel -command \
	[list destroy .change_nick]] \
		-side left -fill x -padx 3 -pady 3 -expand 1
	focus .change_nick.nick
}

proc button_change_nick:new_nick {chatid} {
	muc::change_nick $chatid [.change_nick.nick get]

	variable notes
	
	custom::defvar notes($chatid) {} {} \
	-type string -group Hidden
	
	if {[winfo exist .notes]} return
	
	Toplevel .notes
	
	foreach {option value} [wm attributes .notes] {
		if {[string equal $option "-topmost"]} {
		wm attributes .notes -topmost 1
		}
	}
	
	wm title .notes [::msgcat::mc "Edit notes"]
	
	Text .notes.win -font $::default_Roster_font \
		-yscrollcommand [list .notes.scroll set] \
		-wrap word
	Scrollbar .notes.scroll -orient vertical \
		-command [list .notes.win yview]
	Button .notes.ok -text [::msgcat::mc "Save"] \
		-command [list [namespace current]::save_notes $chatid]
	Button .notes.cancel -text [::msgcat::mc "Cancel"] \
		-command {destroy .notes}
	
	pack .notes.win -fill both -expand 1
	pack .notes.scroll -fill y -side right -in .notes.win
	
	pack .notes.cancel .notes.ok -padx 3 \
	-pady 3 -side right

::msgcat::mcset ru "Available" "Доступен"
::msgcat::mcset ru "Free to chat" "Свободен для разговора"
::msgcat::mcset ru "Away" "Отошёл"
::msgcat::mcset ru "Extended away" "Давно отошёл"
::msgcat::mcset ru "Do not disturb" "Не беспокоить"
::msgcat::mcset ru "Paste" "Вставить"
::msgcat::mcset ru "Copy" "Копировать"
::msgcat::mcset ru "Pick smile" "Выбрать эмоциконку"
::msgcat::mcset ru "Add new user..." "Добавить нового пользователя..."
::msgcat::mcset ru "Change nick" "Сменить псевдоним"
::msgcat::mcset ru "Disco" "Обзор служб"
::msgcat::mcset ru "Join conference" "Войти в комнату"
::msgcat::mcset ru "%s subject" "%s тема"
::msgcat::mcset ru "Save subject" "Сохранить тему"
::msgcat::mcset ru "PING" "ПИНГ"

::msgcat::mcset uk "Available" "Доступний"
::msgcat::mcset uk "Free to chat" "Вільний для розмови"
::msgcat::mcset uk "Away" "Відійшов"
::msgcat::mcset uk "Extended away" "Давно відійшов"
::msgcat::mcset uk "Do not disturb" "Не турбувати"
::msgcat::mcset uk "Paste" "Вставити"
::msgcat::mcset uk "Copy" "Копіювати"
::msgcat::mcset uk "Pick smile" "Вибрати емоциконку"
::msgcat::mcset uk "Add new user..." "Додати нового користувача..."
::msgcat::mcset uk "Change nick" "Змінити псевдонім"
::msgcat::mcset uk "Disco" "Огляд служб"
::msgcat::mcset uk "Join conference" "Увійти до кімнати"
::msgcat::mcset uk "%s subject" "%s тема"
::msgcat::mcset uk "Save subject" "Зберегти тему"
::msgcat::mcset uk "PING" "ПІНГ"