[Tcl-bugs] [ tktoolkit-Bugs-1581932 ] wm $win -alpha returns old value

[SourceForge.net <no...@so...>]

Bugs item #1581932, was opened at 2006-10-21 11:52
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=1581932&group_id=12997

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: 66. Aqua Window Operations
Group: development: 8.5a5
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Daniel A. Steffen (das)
Summary: wm $win -alpha returns old value

Initial Comment:
The following script simply fixes the window's alpha at 0.02, instead of 
fading it in nicely. I believe this used to work some months ago.

#!/usr/bin/wish
toplevel .startup
frame .startup.f -bg red -width 500 -height 500
wm attributes .startup -alpha 0.02

proc fadeIn {win increment} {
    set alpha [wm attributes $win -alpha]
    set alpha [expr {$alpha + $increment}]
    if {$alpha > 1.0} {
	return
    }
    puts $alpha
    wm attributes $win -alpha $alpha
    after 20 [list fadeIn $win $increment]
}

fadeIn .startup 0.02

puts "done"


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=1581932&group_id=12997