Fixes #9028.

4 files changed, 446 insertions, 0 deletions

diff --git a/dev-tcltk/tix/ChangeLog b/dev-tcltk/tix/ChangeLog
new file mode 100644
index 000000000000..345985e971e8
--- /dev/null
+++ b/dev-tcltk/tix/ChangeLog
@@ -0,0 +1,8 @@
+# ChangeLog for dev-tcltk/tix
+# Copyright 2002 Gentoo Technologies, Inc.; Distributed under the GPL, v2
+# $Header: /var/cvsroot/gentoo-x86/dev-tcltk/tix/ChangeLog,v 1.1 2002/10/31 22:31:16 karltk Exp $
+
+*tix-8.2.0b1 (11 Oct 2002)
+
+  11 Oct 2002; Karl Trygve Kalleberg <karltk@gentoo.org> tix-8.2.0b1.ebuild files/digest-tix-8.2.0b1 :
+  Initial import. Ebuild submitted by Pete Gale <pete@SoulCoffee.org>.
diff --git a/dev-tcltk/tix/files/digest-tix-8.2.0 b/dev-tcltk/tix/files/digest-tix-8.2.0
new file mode 100644
index 000000000000..cd3e7bfaa813
--- /dev/null
+++ b/dev-tcltk/tix/files/digest-tix-8.2.0
@@ -0,0 +1 @@
+MD5 dcc644d8d99cfeb9b365cf8647f600cc tix8.2.0b1.tar.gz 1374621
diff --git a/dev-tcltk/tix/files/tix-8.2.0-gentoo.diff b/dev-tcltk/tix/files/tix-8.2.0-gentoo.diff
new file mode 100644
index 000000000000..c254a0277f81
--- /dev/null
+++ b/dev-tcltk/tix/files/tix-8.2.0-gentoo.diff
@@ -0,0 +1,354 @@
+diff -aurN tix8.2.0/unix/Makefile.in funkhouser's/patch/Makefile.in 
+--- tix8.2.0/unix/Makefile.in	2001-01-10 23:43:46.000000000 -0800
++++ Makefile.in	2002-10-11 13:58:52.000000000 -0700
+@@ -44,6 +44,9 @@
+ # Directory in which to install libtix.so or libtix.a:
+ LIB_INSTALL_DIR		= $(INSTALL_ROOT)$(libdir)
+ 
++# Directory in which to install tix.h
++INCLUDE_INSTALL_DIR	= $(INSTALL_ROOT)$(includedir)
++
+ # Path name to use when installing library scripts.
+ SCRIPT_INSTALL_DIR	= $(INSTALL_ROOT)$(TIX_LIBRARY)
+ 
+@@ -584,7 +587,7 @@
+ 	-rm -f config.cache config.log stamp-h stamp-h[0-9]*
+ 	-rm -f config.status
+ 
+-install: install-binaries install-libraries install-doc
++install: install-binaries install-libraries install-doc install-headers install-tools
+ 
+ install-strip:
+ 	$(MAKE) install INSTALL_PROGRAM="$(INSTALL_PROGRAM) -s"
+@@ -619,6 +622,17 @@
+ 	    "Installing $(TIX_EXE_FILE) as $(BIN_INSTALL_DIR)/$(TIX_EXE_FILE)"
+ 	@$(INSTALL_PROGRAM) $(TIX_EXE_FILE) $(BIN_INSTALL_DIR)/$(TIX_EXE_FILE)
+ 
++install-headers: 
++	@echo "Installing header files";
++	@for i in $(GENERIC_DIR)/tix.h; \
++	    do \
++	    $(INSTALL_DATA) $$i $(INCLUDE_INSTALL_DIR); \
++	    done;
++
++install-tools:
++	@echo "installing the tixindex program for building tclIndex for Tix scripts"
++	@$(INSTALL_DATA) $(TIX_SRC_DIR)/tools/tixindex $(BIN_INSTALL_DIR)
++
+ install-libraries: libraries
+ 	@for i in $(SCRIPT_INSTALL_DIR); \
+ 	    do \
+
+diff -aurN tix8.2.0/library/HList.tcl haneef's/patch/HList.tcl 
+--- tix8.2.0/library/HList.tcl	2001-01-23 23:28:35.000000000 -0800
++++ HList.tcl	2002-10-11 13:57:35.000000000 -0700
+@@ -9,7 +9,7 @@
+ # See the file "license.terms" for information on usage and redistribution
+ # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ #
+-# $Id: tix-8.2.0-gentoo.diff,v 1.1 2002/10/31 22:31:16 karltk Exp $
++# $Id: tix-8.2.0-gentoo.diff,v 1.1 2002/10/31 22:31:16 karltk Exp $
+ 
+ 
+ #--------------------------------------------------------------------------
+@@ -394,6 +394,9 @@
+ 
+ proc tixHList:AutoScan {w} {
+     case [tixHList:GetState $w] {
++	{10 11} {
++	    tixHList:GoState 11 $w
++	}
+ 	{29 30} {
+ 	    tixHList:GoState 30 $w
+ 	}
+@@ -491,17 +494,19 @@
+     tixHList:GoState 0 $w
+ }
+ 
++# start auto-scanning inside a single/browse widget
+ proc tixHList:GoState-10 {w} {
+     tixHList:StartScan $w
+ }
+ 
++# repeat auto-scanning inside a single/browse widget
+ proc tixHList:GoState-11 {w} {
+     global tkPriv
+ 
+     tixHList:DoScan $w
+ 
+     set oldEnt [$w info anchor]
+-    set ent [tixHList:SetAnchor $w $tkPriv(x) $tkPriv(y)]
++    set ent [tixHList:SetAnchor $w $tkPriv(x) $tkPriv(y) 0 1]
+ 
+     if {$ent == "" || $oldEnt == $ent} {
+ 	return
+@@ -718,12 +723,18 @@
+     tixHList:GoState 0 $w
+ }
+ 
++# ctrl-button-1 has been pressed in extended selection mode
+ proc tixHList:GoState-33 {w x y} {
+     set ent [tixHList:GetNearest $w $y]
+     if {$ent != ""} {
+ 	$w anchor set $ent
+-	$w selection set $ent
+-	tixHList:Browse $w $ent
++        if { [lsearch [$w info selection] $ent] >= 0 } {
++            # toggle
++            $w selection clear $ent
++        } else {
++            $w selection set $ent
++            tixHList:Browse $w $ent
++        }
+     }
+ }
+ 
+@@ -745,13 +756,15 @@
+     return $ent
+ }
+ 
+-proc tixHList:SetAnchor {w x y {disableOK 0}} {
++proc tixHList:SetAnchor {w x y {disableOK 0} {dontsee 0}} {
+     set ent [tixHList:GetNearest $w $y $disableOK]
+ 
+     if {$ent != ""} {
+ 	if {[$w entrycget $ent -state] != "disabled"} {
+ 	    $w anchor set $ent
+-	    $w see $ent
++            if {!$dontsee} {
++                $w see $ent
++            }
+ 	    return $ent
+ 	} elseif $disableOK {
+ 	    return $ent
+@@ -846,3 +859,230 @@
+ }
+ 
+ 
++#----------------------------------------------------------------------
++#
++# Header resizing. Based on Art Morel's work.
++#
++#----------------------------------------------------------------------
++
++bind TixHListHeader <Motion> {
++    tixHList:header:setHeaderCursor [winfo parent %W] %W %x %y
++}
++bind TixHListHeader <Enter> {
++    tixHList:header:setHeaderCursor [winfo parent %W] %W %x %y
++}
++bind TixHListHeader <Leave> {
++    tixHList:header:setHeaderCursor [winfo parent %W] %W %x %y
++}
++bind TixHListHeader <1> {
++    tixHList:header:mark [winfo parent %W] %x
++}
++bind TixHListHeader <Button1-Enter> {
++    tixHList:header:drag [winfo parent %W] %x
++}
++bind TixHListHeader <Button1-Leave> {
++    tixHList:header:drag [winfo parent %W] %x
++}
++bind TixHListHeader <Button1-Motion> {
++    tixHList:header:drag [winfo parent %W] %x
++}
++bind TixHListHeader <ButtonRelease-1> {
++    tixHList:header:endDrag [winfo parent %W] %x
++}
++
++# tixHList:header:setHeaderCursor --
++#     Change the header window's cursor to <-> when it's placed on top
++#     of the border between two header columns.
++# Arguments:
++#     hlist     The HList whose column is being resized.
++#     header    The private header window of the HList.
++#     x         Mouse X location (relative to header window)
++#     y         Mouse Y location (relative to header window)
++# Results:
++#     Returns nothing
++#
++proc tixHList:header:setHeaderCursor {hlist header x y} {
++    global tixPriv
++
++    if {$y >= 0 && $y < [winfo height $header] &&
++            [tixHList:header:getColumn $hlist $x] != -1} {
++        if {![info exists tixPriv(hlist:oldcursor)]} {
++	    set col [tixHList:header:getColumn $hlist $x]
++	    set colx [tixHList:header:getColumnX $hlist $col]
++            set tixPriv(hlist:col) $col
++            set tixPriv(hlist:startx) $colx
++            set tixPriv(hlist:oldcursor) [$hlist cget -cursor]
++            $hlist config -cursor sb_h_double_arrow
++        }
++    } else {
++        if {[info exists tixPriv(hlist:oldcursor)]} {
++            $hlist config -cursor $tixPriv(hlist:oldcursor)
++            unset tixPriv(hlist:oldcursor)
++        }
++    }
++}
++
++# tixHList:header:mark --
++#     Initialize the header dragging indicator line.
++# Arguments:
++#     hlist     The Hlist whose column is being resized.
++#     x         Mouse X location (relative to header window)
++# Results:
++#     Returns nothing
++#
++proc tixHList:header:mark {hlist x} {
++    global tixPriv
++
++    if {![info exists tixPriv(hlist:oldcursor)]} {
++        return
++    }
++
++    set col [tixHList:header:getColumn $hlist $x]
++    set colx [tixHList:header:getColumnX $hlist $col]
++    tixHList:header:drawDragLines set $hlist $colx
++
++    set tixPriv(hlist:startx) $x
++    set tixPriv(hlist:col)  $col
++}
++
++# tixHList:header:drag --
++#     Move the header dragging indicator line.
++# Arguments:
++#     hlist     The Hlist whose column is being resized.
++#     x         Mouse X location (relative to header window)
++# Results:
++#     Returns nothing
++#
++proc tixHList:header:drag {hlist x} {
++    global tixPriv
++
++    if {![info exists tixPriv(hlist:oldcursor)]} {
++        return
++    }
++
++    set x [tixHList:header:restrictDrag $hlist $tixPriv(hlist:col) $x]
++    set delta [expr $x - $tixPriv(hlist:startx)]
++    set colx [tixHList:header:getColumnX $hlist $tixPriv(hlist:col)]
++
++    tixHList:header:drawDragLines update $hlist [expr $colx + $delta]
++}
++
++# tixHList:header:endDrag --
++#     End header dragging and resize the affected column
++# Arguments:
++#     hlist     The Hlist whose column is being resized.
++#     x         Mouse X location (relative to header window)
++# Results:
++#     Returns nothing
++#
++proc tixHList:header:endDrag {hlist x} {
++    global tixPriv
++
++    if {![info exists tixPriv(hlist:oldcursor)]} {
++        return
++    }
++    tixHList:header:drawDragLines cancel $hlist
++
++    set x [tixHList:header:restrictDrag $hlist $tixPriv(hlist:col) $x]
++    set width [$hlist column width $tixPriv(hlist:col)]
++    set delta [expr $x - $tixPriv(hlist:startx)]
++    set nwidth [expr $delta + $width]
++    if {$nwidth < 8} {
++        set nwidth 8
++    }
++    $hlist column width $tixPriv(hlist:col) $nwidth
++    $hlist config -cursor $tixPriv(hlist:oldcursor)
++
++    unset tixPriv(hlist:startx)
++    unset tixPriv(hlist:oldcursor)
++    unset tixPriv(hlist:col)
++    $hlist config -cursor {}
++}
++
++# Returns the vertical line that divides col and col+1
++proc tixHList:header:getColumnX {hlist col} {
++    set colx 0
++    for {set i 0} {$i <= $col} {incr i} {
++        incr colx [$hlist column width $i]
++    }
++    incr colx -[$hlist xview]
++
++    return $colx
++}
++
++proc tixHList:header:restrictDrag {hlist col x} {
++    set min [expr [tixHList:header:getColumnX $hlist [expr $col - 1]] + 8]
++    set max [expr [winfo width $hlist] - [$hlist cget -bd] - 2]
++
++    if {$x < $min} {
++        set x $min
++    }
++    if {$x > $max} {
++        set x $max
++    }
++
++    if {$x < 0} {
++        set x 0
++    }
++    if {$x > [winfo width $hlist]} {
++        set x [expr [winfo width $hlist] - 1]
++    }
++    return $x
++}
++
++
++proc tixHList:header:drawDragLines {mode {hlist {}} {x {}}} {
++    global tixPriv
++
++    if {$mode != "set"} {
++        if {[info exists tixPriv(hlist:drX)]} {
++            set oldX  $tixPriv(hlist:drX)
++            set oldY1 $tixPriv(hlist:drY1)
++            set oldY2 $tixPriv(hlist:drY2)
++
++            tixTmpLine $oldX $oldY1 $oldX $oldY2 $hlist
++        }
++    }
++    
++    if {$mode == "cancel"} {
++        catch {
++            unset tixPriv(hlist:drX)
++            unset tixPriv(hlist:drY1)
++            unset tixPriv(hlist:drY2)
++        }
++        return
++    }
++
++    set y1 [$hlist cget -bd]
++    set y2 [expr [winfo height $hlist] - 2 * $y1]
++
++    incr x  [winfo rootx $hlist]
++    incr y1 [winfo rooty $hlist]
++    incr y2 [winfo rooty $hlist]
++
++    tixTmpLine $x $y1 $x $y2 $hlist
++
++    set tixPriv(hlist:drX)  $x
++    set tixPriv(hlist:drY1) $y1
++    set tixPriv(hlist:drY2) $y2
++}
++
++# Returns the column which is just to the left of the mouse cursor
++proc tixHList:header:getColumn {hlist x} {
++    set fuzzy 3
++    set sum 0
++    set max [expr [$hlist cget -columns] - 1]
++    incr x [$hlist xview] 
++
++    for {set col 0} {$col < $max} {incr col} {
++        set width [$hlist column width $col]
++        incr sum $width
++        if {abs($x - $sum) <= $fuzzy} {
++            return $col
++            break
++        }
++    }
++
++    return -1
++}
++
diff --git a/dev-tcltk/tix/tix-8.2.0.ebuild b/dev-tcltk/tix/tix-8.2.0.ebuild
new file mode 100644
index 000000000000..aee19c40f1fd
--- /dev/null
+++ b/dev-tcltk/tix/tix-8.2.0.ebuild
@@ -0,0 +1,83 @@
+# Copyright 1999-2002 Gentoo Technologies, Inc.
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-tcltk/tix/tix-8.2.0.ebuild,v 1.1 2002/10/31 22:31:16 karltk Exp $
+
+IUSE="gcc tcl tk threads shared"
+MY_P=${PN}${PV}
+S=${WORKDIR}/${MY_P}
+DESCRIPTION="A widget library for Tcl/Tk. Has been ported to Python and Perl, too."
+HOMEPAGE="http://sourceforge.net/projects/tixlibrary/"
+#SRC_URI="http://unc.dl.sourceforge.net/sourceforge/${PN}/${MY_P}.tar.gz"
+SRC_URI="http://easynews.dl.sourceforge.net/sourceforge/tixlibrary/tix8.2.0b1.tar.gz"
+#SRC_URI="http://easynews.dl.sourceforge.net/sourceforge/tixlibrary/Tix_Reference_Manual.pdf"
+#SRC_URI="http://unc.dl.sourceforge.net/sourceforge/tixlibrary/tix8.2.0b1.tar.gz"
+HOMEPAGE="http://sourceforge.net/projects/tixlibrary/"
+
+LICENSE="as-is BSD"
+SLOT="0"
+KEYWORDS="x86"
+
+DEPEND="dev-lang/tk"
+#RDEPEND=""
+
+fix_makefile() {
+	mv ${S}/$1/Makefile ${S}/$1/Makefile_orig
+	sed -e "s:$2:$3:" \
+		${S}/$1/Makefile_orig \
+		> ${S}/$1/Makefile
+}
+
+src_unpack() {
+	unpack ${A}
+	cd ${S}
+	patch -p1 < ${FILESDIR}/${PF}-gentoo.diff || die
+}
+
+src_compile() {
+	cd ${S}/unix ; ./configure \
+		--host=${CHOST} \
+		--prefix=/usr \
+		--infodir=/usr/share/info \
+		--mandir=/usr/share/man \
+		--enable-gcc \
+		--with-tcl=/usr/lib \
+		--with-tk=/usr/lib \
+		--enable-stubs \
+		--enable-threads \
+		--enable-shared || die "./configure failed"
+
+	echo "##"
+	echo "## Fixing the Makefile..."
+	echo "##"
+	fix_makefile unix	"\$(TK_SRC_DIR)"	"/usr/lib/tk8.3/include"
+
+	# emake (previously known as pmake) is a script that calls the
+	# standard GNU make with parallel building options for speedier
+	# builds (especially on SMP systems).  Try emake first.  It might
+	# not work for some packages, in which case you'll have to resort
+	# to normal "make".
+	make || die
+	#make test || die
+	#emake || die
+}
+
+src_install() {
+	# You must *personally verify* that this trick doesn't install
+	# anything outside of DESTDIR; do this by reading and
+	# understanding the install part of the Makefiles.
+	#make DESTDIR=${D} install || die
+	# For Makefiles that don't make proper use of DESTDIR, setting
+	# prefix is often an alternative.  However if you do this, then
+	# you also need to specify mandir and infodir, since they were
+	# passed to ./configure as absolute paths (overriding the prefix
+	# setting).
+	#make \
+	#	prefix=${D}/usr \
+	#	mandir=${D}/usr/share/man \
+	#	infodir=${D}/usr/share/info \
+	#	install || die
+	# Again, verify the Makefiles!  We don't want anything falling
+	# outside of ${D}.
+	#make install || die
+	cd ${S}/unix ; einstall || die
+}