Bwidget Source Code
Check-in [1d263889a1]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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 | descendants | both | trunk | scriptics-sc-1-1 | scriptics-sc-1-1-b1 | scriptics-sc-1-1-base
Files: files | file ages | folders
SHA1: 1d263889a1e3c486ab2d1fa14905154fce386a6a
User & Date: sven 1999-11-12 04:12:11
Context
1999-11-24
00:38
Updated to reflect recent TEA changes check-in: 33a10c5030 user: wart tags: trunk
1999-11-12
04:12
Creating branch scriptics-sc-1-1-branch Leaf check-in: 6d5e62120f user: cvs tags: scriptics-sc-1-1-branch
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. check-in: 1d263889a1 user: sven tags: trunk, scriptics-sc-1-1, scriptics-sc-1-1-b1, scriptics-sc-1-1-base
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.2 1999/11/12 04:12:11 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