Check-in [091e09e209]
Overview
Comment:Added patches to Tcl 8.4 to make it usable
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 091e09e20963350cc8614a0b2a8c1c77924b9960
User & Date: rkeene on 2011-09-05 20:05:41
Other Links: manifest | tags
Context
2011-09-06
10:40
Added Tkimg check-in: 7488229692 user: rkeene tags: trunk
2011-09-05
20:05
Added patches to Tcl 8.4 to make it usable check-in: 091e09e209 user: rkeene tags: trunk
19:57
Added Tk 8.4 and Tk 8.5 builds -- Tk 8.4 needs patches still check-in: d99bfde8a7 user: rkeene tags: trunk
Changes

Modified server/buildpkgs/Tk84/build.sh from [a8e897cdb5] to [afef541d02].

12
13
14
15
16
17
18
19

20
21
22
23
24
25
26
27







28

29
30
31
32
33
34
35
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







-
+








+
+
+
+
+
+
+
-
+








# Do not build if the "tcl" platform has been requested
not_platforms 'tcl'

# Download source
download_src

# Build package
# Extract source
(
	rm -rf build
	mkdir -p "${PLATDIR}" >/dev/null 2>/dev/null
	mkdir build

	cd build/ || exit 1

	gzip -dc "../${SRC}" | tar -xf -
) || exit 1

# Apply patches
apply_patches

# Build package
(
	cd "${BUILDDIR}" || exit 1
	cd "build/${BUILDDIR}" || exit 1

	TCL_PLAT_BUILD_DIR="$(basename "${TCLBUILDDIR}")"

	cd "${TCL_PLAT_BUILD_DIR}" || exit 1

	bash ./configure --enable-shared --with-tcl="${TCLCONFIGDIR}" --prefix="${PLATDIR}" --libdir="${PLATDIR}" --bindir="${PLATDIR}" ${CONFIGUREEXTRA}

Added server/buildpkgs/Tk84/patches/8.4.19/tk-8.4-removemousewheel.diff version [9b577b61e0].





























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
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff -uNr tk8.4.19.orig/library/listbox.tcl tk8.4.19-1rsk/library/listbox.tcl
--- tk8.4.19.orig/library/listbox.tcl	2006-01-25 12:21:41.000000000 -0600
+++ tk8.4.19-1rsk/library/listbox.tcl	2010-09-18 16:18:34.000000000 -0500
@@ -191,10 +191,6 @@
     bind Listbox <Shift-Option-MouseWheel> {
         %W xview scroll [expr {-10 * (%D)}] units
     }
-} else {
-    bind Listbox <MouseWheel> {
-        %W yview scroll [expr {- (%D / 120) * 4}] units
-    }
 }
 
 if {"x11" eq [tk windowingsystem]} {
diff -uNr tk8.4.19.orig/library/text.tcl tk8.4.19-1rsk/library/text.tcl
--- tk8.4.19.orig/library/text.tcl	2006-09-10 12:07:36.000000000 -0500
+++ tk8.4.19-1rsk/library/text.tcl	2010-09-18 16:18:30.000000000 -0500
@@ -467,10 +467,6 @@
     bind Text <Shift-Option-MouseWheel> {
         %W xview scroll [expr {-10 * (%D)}] units
     }
-} else {
-    bind Text <MouseWheel> {
-        %W yview scroll [expr {- (%D / 120) * 4}] units
-    }
 }
 
 if {"x11" eq [tk windowingsystem]} {