Tkabber

Check-in [596eebf7f0]
Login
Home Timeline Branches Tags Tickets Wiki

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

Overview
Comment:Do not add the browsed URL to clipboard. It's confusing.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 596eebf7f00298f9f23c2d1273618d8500b6215d
User & Date: sgolovan 2015-05-14 12:24:08
Context
2015-05-14
12:34
Replaced %W in binding scripts by the explicit window name because of the Ttk border wrapper. check-in: d21de9a711 user: sgolovan tags: trunk
12:24
Do not add the browsed URL to clipboard. It's confusing. check-in: 596eebf7f0 user: sgolovan tags: trunk
2015-05-12
07:38
Fixed the Tkabber site link background and border for the Ttk based interface. check-in: 699215f17d user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog. 






1
2
3
4
5
6
7






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

	* ifacetk/iface.tcl: Fixed the Tkabber site link background and border
	  for the Ttk based interface.

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


>
>
>
>
>








1
2
3
4
5
6
7
8
9
10
11
12

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

	* default.tcl: Do not add the browsed URL to clipboard. It's
	  confusing.

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

	* ifacetk/iface.tcl: Fixed the Tkabber site link background and border
	  for the Ttk based interface.

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

Changes to default.tcl.

︙︙
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

	    }
	}
	lappend cmd &
	eval $cmd
	return
    }

    # Set the clipboard value to this url in-case the user needs to paste the
    # url in (some windows systems).

    clipboard clear
    clipboard append $url

    switch -- $tcl_platform(platform) {
        windows {
	    # The windows NT shell treats '&' as a special character. Using
	    # a '^' will escape it. See http://wiki.tcl.tk/557 for more info.

            if {[string compare $tcl_platform(os) "Windows NT"] == 0} {
                set url [string map {& ^&} $url]








<
<
<
<
<
<








46
47
48
49
50
51
52






53
54
55
56
57
58
59

	    }
	}
	lappend cmd &
	eval $cmd
	return
    }







    switch -- $tcl_platform(platform) {
        windows {
	    # The windows NT shell treats '&' as a special character. Using
	    # a '^' will escape it. See http://wiki.tcl.tk/557 for more info.

            if {[string compare $tcl_platform(os) "Windows NT"] == 0} {
                set url [string map {& ^&} $url]
︙︙

This page was generated in about 0.069s by Fossil version [66ee0beb9b] 2023-05-31 15:26:08