Bwidget Source Code
Check-in [96b3418c47]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:The tkwait visibility .drag is now in a catch, so the destruction of the window can no longer cause a Tcl stack trace. Fixed bug # 3571.
Timelines: family | ancestors | scriptics-sc-1-0 | scriptics-sc-1-0-branch
Files: files | file ages | folders
SHA1: 96b3418c47320482fd725a5a5ed9331dbfd3f507
User & Date: sven 1999-11-12 04:12:46
Context
1999-11-12
04:12
The tkwait visibility .drag is now in a catch, so the destruction of the window can no longer cause a Tcl stack trace. Fixed bug # 3571. Leaf check-in: 96b3418c47 user: sven tags: scriptics-sc-1-0, scriptics-sc-1-0-branch
1999-11-05
03:38
Changed env(BWIDGET_LIBRARY) to ::BWIDGET::LIBRARY everywhere. This makes BWidgets behave more nicely with tcltest. check-in: 149d9e6ba2 user: ericm tags: trunk, scriptics-sc-1-0-base
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to dragsite.tcl.

1
2
3
4
5
6
7
8
9
10
11
...
155
156
157
158
159
160
161
162


163
164
165
166
167
168
169
# ------------------------------------------------------------------------------
#  dragsite.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: dragsite.tcl,v 1.1.1.1 1999/08/03 20:20:23 ericm Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - DragSite::include
#     - DragSite::setdrag
#     - DragSite::register
#     - DragSite::_begin_drag
#     - DragSite::_init_drag
................................................................................
            } else {
                label $_topw.l -image [Bitmap::get dragfile] -relief flat -bd 0
            }
            pack  $_topw.l
        }
        wm geometry $_topw +[expr $X+1]+[expr $Y+1]
        wm deiconify $_topw
        tkwait visibility $_topw


        BWidget::grab  set $_topw
        BWidget::focus set $_topw

        bindtags $_topw [list $_topw DragTop]
        DropSite::_init_drag $_topw $drag(evt) $source $state $X $Y $type $ops $data
    } else {
        destroy $_topw


|







 







|
>
>







1
2
3
4
5
6
7
8
9
10
11
...
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
# ------------------------------------------------------------------------------
#  dragsite.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: dragsite.tcl,v 1.1.1.1.2.1 1999/11/12 04:12:46 sven Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - DragSite::include
#     - DragSite::setdrag
#     - DragSite::register
#     - DragSite::_begin_drag
#     - DragSite::_init_drag
................................................................................
            } else {
                label $_topw.l -image [Bitmap::get dragfile] -relief flat -bd 0
            }
            pack  $_topw.l
        }
        wm geometry $_topw +[expr $X+1]+[expr $Y+1]
        wm deiconify $_topw
        if {[catch {tkwait visibility $_topw}]} {
            return
        }
        BWidget::grab  set $_topw
        BWidget::focus set $_topw

        bindtags $_topw [list $_topw DragTop]
        DropSite::_init_drag $_topw $drag(evt) $source $state $X $Y $type $ops $data
    } else {
        destroy $_topw