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 12 13 13 # Do not build if the "tcl" platform has been requested 14 14 not_platforms 'tcl' 15 15 16 16 # Download source 17 17 download_src 18 18 19 -# Build package 19 +# Extract source 20 20 ( 21 21 rm -rf build 22 22 mkdir -p "${PLATDIR}" >/dev/null 2>/dev/null 23 23 mkdir build 24 24 25 25 cd build/ || exit 1 26 26 27 27 gzip -dc "../${SRC}" | tar -xf - 28 - cd "${BUILDDIR}" || exit 1 28 +) || exit 1 29 + 30 +# Apply patches 31 +apply_patches 32 + 33 +# Build package 34 +( 35 + cd "build/${BUILDDIR}" || exit 1 29 36 30 37 TCL_PLAT_BUILD_DIR="$(basename "${TCLBUILDDIR}")" 31 38 32 39 cd "${TCL_PLAT_BUILD_DIR}" || exit 1 33 40 34 41 bash ./configure --enable-shared --with-tcl="${TCLCONFIGDIR}" --prefix="${PLATDIR}" --libdir="${PLATDIR}" --bindir="${PLATDIR}" ${CONFIGUREEXTRA} 35 42
Added server/buildpkgs/Tk84/patches/8.4.19/tk-8.4-removemousewheel.diff version [9b577b61e0].
1 +diff -uNr tk8.4.19.orig/library/listbox.tcl tk8.4.19-1rsk/library/listbox.tcl 2 +--- tk8.4.19.orig/library/listbox.tcl 2006-01-25 12:21:41.000000000 -0600 3 ++++ tk8.4.19-1rsk/library/listbox.tcl 2010-09-18 16:18:34.000000000 -0500 4 +@@ -191,10 +191,6 @@ 5 + bind Listbox <Shift-Option-MouseWheel> { 6 + %W xview scroll [expr {-10 * (%D)}] units 7 + } 8 +-} else { 9 +- bind Listbox <MouseWheel> { 10 +- %W yview scroll [expr {- (%D / 120) * 4}] units 11 +- } 12 + } 13 + 14 + if {"x11" eq [tk windowingsystem]} { 15 +diff -uNr tk8.4.19.orig/library/text.tcl tk8.4.19-1rsk/library/text.tcl 16 +--- tk8.4.19.orig/library/text.tcl 2006-09-10 12:07:36.000000000 -0500 17 ++++ tk8.4.19-1rsk/library/text.tcl 2010-09-18 16:18:30.000000000 -0500 18 +@@ -467,10 +467,6 @@ 19 + bind Text <Shift-Option-MouseWheel> { 20 + %W xview scroll [expr {-10 * (%D)}] units 21 + } 22 +-} else { 23 +- bind Text <MouseWheel> { 24 +- %W yview scroll [expr {- (%D / 120) * 4}] units 25 +- } 26 + } 27 + 28 + if {"x11" eq [tk windowingsystem]} {