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:

Home	PR Database Search