NetBSD Problem Report #4623
Received: (qmail 19536 invoked from network); 2 Dec 1997 11:46:58 -0000
Message-Id: <199712021146.MAA01874@cosinus.cs.uni-bonn.de>
Date: Tue, 2 Dec 1997 12:46:37 +0100 (CET)
From: Ignatios Souvatzis <ignatios@cosinus.cs.uni-bonn.de>
Reply-To: ignatios@cosinus.cs.uni-bonn.de
To: gnats-bugs@gnats.netbsd.org
Subject: tk80 fails its own test
X-Send-Pr-Version: 3.95
>Number: 4623
>Category: pkg
>Synopsis: tk80 fails its own test
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: pkg-manager
>State: closed
>Class: sw-bug
>Submitter-Id: net
>Arrival-Date: Tue Dec 02 03:50:01 +0000 1997
>Closed-Date: Fri Mar 16 16:22:59 +0000 2001
>Last-Modified: Thu Aug 20 15:57:19 +0000 2009
>Originator: Ignatios Souvatzis
>Release: see below
>Organization:
computer science department, university of Bonn, Germany
>Environment:
System: NetBSD cosinus.cs.uni-bonn.de 1.3_ALPHA NetBSD 1.3_ALPHA (GENERIC) #0: Thu Nov 6 10:43:17 CET 1997 ignatios@cosinus.cs.uni-bonn.de:/usr/local/obj/kernel/GENERIC i386
>Description:
When doing "make test" in the x11/tk8.0 directory, first it failed
to build "tktest" because ld was supplied a -L/lib (looks like some
empty variable).
After doing the linking manually, providing -L/usr/pkg/lib additionally,
I got this output (window manager used was AfterStep 1.0):
LD_LIBRARY_PATH=`pwd`:/usr/pkg/lib/tcl8.0:; export LD_LIBRARY_PATH; TCL_LIBRARY=/usr/pkg/include/tcl8.0/library; export TCL_LIBRARY; TK_LIBRARY=./../library; export TK_LIBRARY; ( echo cd ./../tests\; source all\; exit ) | ./tktest -geometry +0+0
bell.test
(will skip non-portable tests)
Bell should ring now ...
bgerror.test
bind.test
button.test
canvImg.test
canvPs.test
canvRect.test
canvText.test
canvas.test
clipboard.test
clrpick.test
cmds.test
color.test
entry.test
event.test
filebox.test
focus.test
focusTcl.test
font.test
frame.test
geometry.test
grid.test
id.test
image.test
imgBmap.test
imgPPM.test
imgPhoto.test
listbox.test
macEmbed.test
macFont.test
macMenu.test
macWinMenu.test
macscrollbar.test
menu.test
menuDraw.test
menubut.test
==== menubutton-4.5 ConfigureMenuButton procedure
==== Contents of test case:
catch {destroy .mb1}
button .mb1 -text "Sample text" -width 10 -height 2
pack .mb1
set result "[winfo reqwidth .mb1] [winfo reqheight .mb1]"
.mb1 configure -bitmap questhead
lappend result [winfo reqwidth .mb1] [winfo reqheight .mb1]
==== Result was:
98 44 20 12
---- Result should have been:
102 46 20 12
---- menubutton-4.5 FAILED
==== menubutton-7.13 ComputeMenuButtonGeometry procedure
==== Contents of test case:
catch {destroy .mb}
menubutton .mb -text String -bd 2 -relief raised -highlightthickness 1 -indicatoron 1
pack .mb
list [winfo reqwidth .mb] [winfo reqheight .mb]
==== Result was:
71 26
---- Result should have been:
78 28
---- menubutton-7.13 FAILED
msgbox.test
oldpack.test
option.test
pack.test
place.test
raise.test
safe.test
scale.test
==== scale-7.1 ComputeScaleGeometry procedure
==== Contents of test case:
catch {destroy .s}
scale .s -from 0 -to 10 -label "Short" -orient vertical -length 5i
pack .s
update
list [winfo reqwidth .s] [winfo reqheight .s]
==== Result was:
88 383
---- Result should have been:
88 458
---- scale-7.1 FAILED
==== scale-7.5 ComputeScaleGeometry procedure
==== Contents of test case:
catch {destroy .s}
scale .s -from 0 -to 10 -label "Short" -orient horizontal -length 5i
pack .s
update
list [winfo reqwidth .s] [winfo reqheight .s]
==== Result was:
383 61
---- Result should have been:
458 61
---- scale-7.5 FAILED
scrollbar.test
select.test
send.test
text.test
==== text-20.1 TextSearchCmd procedure, argument parsing
==== Contents of test case:
list [catch {.t search -} msg] $msg
==== Result was:
1 {bad switch "-": must be -forward, -backward, -exact, -regexp, -nocase, -count, -elide, or --}
---- Result should have been:
1 {bad switch "-": must be -forward, -backward, -exact, -regexp, -nocase, -count, or --}
---- text-20.1 FAILED
textBTree.test
textDisp.test
textImage.test
textIndex.test
textMark.test
textTag.test
textWind.test
tk.test
unixButton.test
unixEmbed.test
==== unixEmbed-3.1 ContainerEventProc procedure, detect creation
==== Contents of test case:
foreach w [winfo child .] {
catch {destroy $w}
}
frame .f1 -container 1 -width 200 -height 50
pack .f1
dobg "set w1 [winfo id .f1]"
set x [testembed]
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1
wm withdraw .t1
}
list $x [testembed]
==== Result was:
{{XXX .f1 {} {}}} {{XXX .f1 {} {}}}
---- Result should have been:
{{XXX .f1 {} {}}} {{XXX .f1 XXX {}}}
---- unixEmbed-3.1 FAILED
==== unixEmbed-4.1 EmbedStructureProc procedure, configure events
==== Contents of test case:
foreach w [winfo child .] {
catch {destroy $w}
}
frame .f1 -container 1 -width 200 -height 50
pack .f1
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1
}
update
dobg {
.t1 configure -width 180 -height 100
}
update
dobg {
winfo geometry .t1
}
==== Result was:
bad window path name ".t1"
---- Result should have been:
180x100+0+0
---- unixEmbed-4.1 FAILED
==== unixEmbed-7.2 TkpRedirectKeyEvent procedure, don't forward keystroke width
==== Contents of test case:
foreach w [winfo child .] {
catch {destroy $w}
}
frame .f1 -container 1 -width 200 -height 50
pack .f1
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1
}
update
focus -force .f1
update
bind . <KeyPress> {lappend x {key %A}}
set x {}
set y [dobg {
update
bind .t1 <KeyPress> {lappend y {key %A}}
set y {}
event generate .t1 <KeyPress> -keysym b
set y
}]
update
bind . <KeyPress> {}
list $x $y
==== Result was:
{} {bad window path name ".t1"}
---- Result should have been:
{} {{key b}}
---- unixEmbed-7.2 FAILED
==== unixEmbed-9.2 EmbedWindowDeleted procedure, check embeddedPtr
==== Contents of test case:
foreach w [winfo child .] {
catch {destroy $w}
}
frame .f1 -container 1 -width 200 -height 50
pack .f1
dobg "set w1 [winfo id .f1]"
dobg {
eval destroy [winfo child .]
toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken
set x {}
lappend x [testembed]
destroy .t1
lappend x [testembed]
}
==== Result was:
couldn't create child of window "0x3400906"
---- Result should have been:
{{XXX {} {} .t1}} {}
---- unixEmbed-9.2 FAILED
unixFont.test
==== unixfont-8.3 AllocFont procedure: can't parse info from name
==== Contents of test case:
if [catch {set a [font actual a12biluc]}]==0 {
string compare $a "-family a12biluc -size 0 -weight normal -slant roman -underline 0 -overstrike 0"
} else {
set a 0
}
==== Result was:
1
---- Result should have been:
0
---- unixfont-8.3 FAILED
unixMenu.test
unixWm.test
==== unixWm-41.2 ConfigureEvent procedure, menubars
==== Contents of test case:
catch {destroy .t}
toplevel .t -width 300 -height 200 -bd 2 -relief raised
wm geom .t +0+0
update
set x [winfo rootx .t]
set y [winfo rooty .t]
frame .t.m -bd 2 -relief raised -height 20
testmenubar window .t .t.m
update
set result {}
bind .t <Configure> {
if {"%W" == ".t"} {
lappend result "%W: %wx%h"
}
}
bind .t.m <Configure> {lappend result "%W: %wx%h"}
wm geometry .t 200x300
update
lappend result [expr [winfo rootx .t.m] - $x] [expr [winfo rooty .t.m] - $y] [winfo width .t.m] [winfo height .t.m] [expr [winfo rootx .t] - $x] [expr [winfo rooty .t] - $y] [winfo width .t] [winfo height .t]
==== Result was:
{.t.m: 200x20} {.t: 200x300} -1 -23 200 20 -1 -3 200 300
---- Result should have been:
{.t.m: 200x20} {.t: 200x300} 0 0 200 20 0 20 200 300
---- unixWm-41.2 FAILED
==== unixWm-47.1 WaitRestrictProc procedure
==== Contents of test case:
catch {destroy .t}
toplevel .t -width 300 -height 200
frame .t.f -bd 2 -relief raised
place .t.f -x 20 -y 30 -width 100 -height 20
wm geometry .t +0+0
tkwait visibility .t
set result {}
bind .t.f <Configure> {lappend result {configure on .t.f}}
bind .t <Map> {lappend result {map on .t}}
bind .t <Unmap> {lappend result {unmap on .t}; bind .t <Unmap> {}}
bind .t <Button> {lappend result {button %b on .t}}
event generate .t.f <Configure> -when tail
event generate .t <Configure> -when tail
event generate .t <Button> -button 3 -when tail
event generate .t <Map> -when tail
lappend result iconify
wm iconify .t
lappend result done
update
set result
==== Result was:
iconify {unmap on .t} done {button 3 on .t} {map on .t}
---- Result should have been:
iconify {unmap on .t} done {configure on .t.f} {button 3 on .t} {map on .t}
---- unixWm-47.1 FAILED
util.test
visual.test
winButton.test
winClipboard.test
winFont.test
winMenu.test
winWm.test
window.test
winfo.test
>How-To-Repeat:
see above.
>Fix:
not known.
>Release-Note:
>Audit-Trail:
State-Changed-From-To: open->feedback
State-Changed-By: frueauf
State-Changed-When: Wed Feb 25 01:59:30 PST 1998
State-Changed-Why:
Does this bug still show up after we switched to tk80p2?
From: Ignatios Souvatzis <ignatios@theory.cs.uni-bonn.de>
To: gnats-bugs@netbsd.org
Cc: Subject: pkg/4623
Date: Thu, 10 Sep 1998 11:30:39 +0200
I didn't verify that the error messages are the same, but the same
class of problems appear (geometry of some screen object is off by a
few pixels, looking suspiciously like window manager effects are not
taken into account).
I tested with Afterstep-1.4 and with twm.
Regards,
Ignatios
State-Changed-From-To: feedback->open
State-Changed-By: is
State-Changed-When: Thu Sep 10 02:36:03 PDT 1998
State-Changed-Why:
Question answered.
Responsible-Changed-From-To: gnats-admin->packages
Responsible-Changed-By: fair
Responsible-Changed-When: Tue Dec 29 23:56:04 PST 1998
Responsible-Changed-Why:
This PR is the responsibility of the NetBSD packages folks,
not the GNATS database administrator.
Responsible-Changed-From-To: packages->jwise@netbsd.org
Responsible-Changed-By: jwise
Responsible-Changed-When: Fri Sep 8 10:44:17 PDT 2000
Responsible-Changed-Why:
I will take care of this.
The test target for tk-8.3.2 needs to be repaired. I will do so, and then
verify this PR.
Responsible-Changed-From-To: jwise@netbsd.org->jwise
Responsible-Changed-By: fair
Responsible-Changed-When: Mon Sep 18 10:47:45 PDT 2000
Responsible-Changed-Why:
no @'s in the responsible person.
State-Changed-From-To: open->closed
State-Changed-By: is
State-Changed-When: Fri Mar 16 08:21:47 PST 2001
State-Changed-Why:
tk-80 is long gone.
Whether the problem appears for tk-8.3.2, is undecidable right know
because the test script doesn't link.
Responsible-Changed-From-To: jwise->pkg-manager
Responsible-Changed-By: jwise@narn.netbsd.org
Responsible-Changed-When: Thu, 20 Aug 2009 15:57:19 +0000
Responsible-Changed-Why:
I am no longer MAINTAINER for this package.
>Unformatted:
(Contact us)
$NetBSD: query-full-pr,v 1.39 2013/11/01 18:47:49 spz Exp $
$NetBSD: gnats_config.sh,v 1.8 2006/05/07 09:23:38 tsutsui Exp $
Copyright © 1994-2007
The NetBSD Foundation, Inc. ALL RIGHTS RESERVED.