Tkabber contrib

Check-in [564eb5731b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Removed dropped variable tk_borderwidth.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:564eb5731b33d9a76f7fb9e67750ffb46fa64eb3
User & Date: sgolovan 2015-04-12 19:00:49
Context
2015-04-14
16:25
Use [chat::input_win] to get chat input widget. check-in: 255ae6d144 user: sgolovan tags: trunk
2015-04-12
19:00
Removed dropped variable tk_borderwidth. check-in: 564eb5731b user: sgolovan tags: trunk
2015-04-03
08:31
windns: fix compilation with MinGW-w64 check-in: fb54407b1f user: vitalyster tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to chattoolbar/chattoolbar.tcl.

97
98
99
100
101
102
103

104
105

106
107
108
109
110
111
112
113
...
347
348
349
350
351
352
353

354
355
356
357
358
359
360
361
362
	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 \
		-highlightthickness 1 \

		-takefocus 0 -relief link \
		-bd $::tk_borderwidth -padx 2 \

		-pady 3 -command [list [namespace current]::button_$id $chatid] \
		-helptext $iconTable(text,$id) -justify left
		}
	}
	
	if {$user_variable(auto_show)} {change_state_toolbar $chatid $toolFrame show} 
	
	bind $chatwin <<ChattoolbarState>> \
................................................................................
		$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 \
			-highlightthickness 1 \

			-takefocus 0 -relief link \
			-bd $::tk_borderwidth -padx 2 \
			-pady 3 \
			-helptext $iconTable(text,$id) \
			-justify left
		}
		
		bindscroll $check $text
	}







>
|
|
>
|







 







>
|
|







97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
...
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
	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 \
		-highlightthickness 1 \
		-takefocus 0 \
		-relief link \
		-padx 2 \
		-pady 3 \
		-command [list [namespace current]::button_$id $chatid] \
		-helptext $iconTable(text,$id) -justify left
		}
	}
	
	if {$user_variable(auto_show)} {change_state_toolbar $chatid $toolFrame show} 
	
	bind $chatwin <<ChattoolbarState>> \
................................................................................
		$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 \
			-highlightthickness 1 \
			-takefocus 0 \
			-relief link \
			-padx 2 \
			-pady 3 \
			-helptext $iconTable(text,$id) \
			-justify left
		}
		
		bindscroll $check $text
	}