Bwidget Source Code
Changes On Branch scriptics-sc-1-0-branch
Not logged in
Core Home Timeline Branches Tags Tickets Wiki Login
Hide Diff Patch Unified Diff

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

Changes In Branch scriptics-sc-1-0-branch Excluding Merge-Ins

This is equivalent to a diff from 149d9e6ba2 to 96b3418c47

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
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
1999-10-30
00:31
* buttonbox.tcl: Added a gettags function, which allows the user to query the tags that are used on buttons in the buttonbox. check-in: 133c515858 user: ericm tags: trunk

Changes to dragsite.tcl. 

1
2
3
4
5
6
7
8
9
10
11

# ------------------------------------------------------------------------------
#  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




|








1
2
3
4
5
6
7
8
9
10
11

# ------------------------------------------------------------------------------
#  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
︙︙
155
156
157
158
159
160
161
162


163
164
165
166
167
168
169

            } 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








|
>
>








155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171

            } 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
︙︙