[Tix-developers] Looking for status of tix
Brought to you by:
idiscovery,
mikeclarkson
|
From: Larry W. V. <lv...@ca...> - 2003-06-25 13:03:21
|
I'm using Tcl/Tk 8.4.[23]. I would like to use Tix 8.2.0 . Is it
still being developed?
Has anyone resolved some of its problems, such as these
results from doing a "make test":
running old-style tests
====================================================
env TCL_LIBRARY=/vol/tclsrcsol/tcl84/tcl8.4.3/library TK_LIBRARY=/vol/tclsrcsol/
tcl84/tk8.4.3/library TIX_LIBRARY=/vol/tclsrcsol/tcl84/tix/library LD_LIBRARY_PA
TH=/vol/tclsrcsol/tcl84/tcl8.4.3/unix:/vol/tclsrcsol/tcl84/tk8.4.3/unix:.:${LD_L
IBRARY_PATH} ./tixwish8.2g ../tests/Driver.tcl
tcl_version = 8.4, tcl_patchLevel = 8.4.3
tcl_precision = 12, tcl_library = /vol/tclsrcsol/tcl84/tcl8.4.3/library
tk_version = 8.4, tk_patchLevel = 8.4.3
tix_version = 8.2, tix_patchLevel = 8.2.0
tix_release = 8.2.0
tcl_platform = 'osVersion 5.6 byteOrder bigEndian machine sun4u platform unix os
SunOS user lwv26 wordSize 4'
:
:
general/labentry.tcl
Failed Assertion "[focus -lastfor $t] == [$w subwidget entry]"
evaluated as "[focus -lastfor .t] == [.t.c subwidget entry]" :: .t.c == .t.
c.frame.entry
---- labent-1.1 FAILED
Script is
set t [toplevel .t]
set w [tixLabelEntry .t.c -label "Stuff(c): "]
pack $w -padx 20 -pady 10
tixLabelEntry .t.d -label "Stuff(d): "
pack .t.d -padx 20 -pady 10
focus $w
update
set px [winfo pointerx $t]
set py [winfo pointery $t]
set W [winfo width $t]
set H [winfo height $t]
if {$W < 100} {
set W 100
}
if {$H < 100} {
set H 100
}
set mx [expr $px - $W / 2]
set my [expr $py - $H / 2]
# We must move the window under the cursor in order to test
# the current focus
#
wm geometry $t $W\x$H+$mx+$my
raise $t
update
# On some platforms (e.g. Red Hat Linux 5.2/x86), this fails
# because we get: LHS = .t.c, RHS = .t.c.frame.entry
# (not clear why).
#
Assert {[focus -lastfor $t] == [$w subwidget entry]}
destroy $t
Error message:
general/dirbox.tcl
Bus Error - core dumped
make: *** [oldtest] Error 138
--
Tcl - The glue of a new generation. <URL: http://wiki.tcl.tk/ >
Larry W. Virden <mailto:lv...@ca...> <URL: http://www.purl.org/NET/lvirden/>
Even if explicitly stated to the contrary, nothing in this posting should
be construed as representing my employer's opinions.
-><-
|