Bwidget Source Code
Check-in [6c488ce999]
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:* dialog.tcl: Added an overrideredirect option to Dialog::draw, which allows the user to control the overrideredirect state of the dialog.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6c488ce9995d24f66a1919934d2fea8b914e4c41
User & Date: ericm 1999-10-16 01:06:31
Context
1999-10-20
22:15
* panedw.tcl: Added a -class PanedWindow option to the main frame (the megawidget) of the paned window. check-in: cf9a0e7e76 user: ericm tags: trunk
1999-10-16
01:06
* dialog.tcl: Added an overrideredirect option to Dialog::draw, which allows the user to control the overrideredirect state of the dialog. check-in: 6c488ce999 user: ericm tags: trunk
1999-10-14
20:23
Added an additional x and y offset for the see command. This allows me to move the visible area to a widget that is inside of a scrolled frame child. check-in: 89c469e792 user: sven tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

1
2
3
4
5
6
7
8
9
10
11
12
1999-09-21  Eric Melski  <[email protected]>

	* buttonbox.tcl: Fixed ButtonBox::add input list, as the change I
	made to allow tagging was not backwards compatible.  Now tags are
	specified with -tags $tags, and all is well.

1999-09-19  Eric Melski  <[email protected]>

	* mainframe.tcl:  Fixed _destroy to unset ALL state variables, so that
	when a new MainFrame of the same name as an old one is created, it
	doesn't pick up residual state from the old one.

|

|
|
<







1
2
3
4

5
6
7
8
9
10
11
1999-10-15  Eric Melski  <[email protected]>

	* dialog.tcl: Added an overrideredirect option to Dialog::draw, which
	allows the user to control the overrideredirect state of the dialog.


1999-09-19  Eric Melski  <[email protected]>

	* mainframe.tcl:  Fixed _destroy to unset ALL state variables, so that
	when a new MainFrame of the same name as an old one is created, it
	doesn't pick up residual state from the old one.

Changes to dialog.tcl.

1
2
3
4
5
6
7
8
9
10
11
...
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
...
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
# ------------------------------------------------------------------------------
#  dialog.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: dialog.tcl,v 1.1.1.1 1999/08/03 20:20:23 ericm Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - Dialog::create
#     - Dialog::configure
#     - Dialog::cget
#     - Dialog::getframe
#     - Dialog::add
................................................................................
    set _widget($path,result) $result
}


# ------------------------------------------------------------------------------
#  Command Dialog::draw
# ------------------------------------------------------------------------------
proc Dialog::draw { path {focus ""}} {
    variable _widget

    set parent [Widget::getoption $path -parent]
    if { !$_widget($path,realized) } {
        set _widget($path,realized) 1
        if { [llength [winfo children $path.bbox]] } {
            set side [Widget::getoption $path -side]
................................................................................

    if { [winfo exists $parent] } {
        BWidget::place $path 0 0 center $parent
    } else {
        BWidget::place $path 0 0 center
    }
    update idletasks
    wm overrideredirect $path 0
    wm deiconify $path

    tkwait visibility $path
    BWidget::focus set $path
    if { [winfo exists $focus] } {
        focus -force $focus
    } else {


|







 







|







 







|







1
2
3
4
5
6
7
8
9
10
11
...
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
...
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
# ------------------------------------------------------------------------------
#  dialog.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: dialog.tcl,v 1.2 1999/10/16 01:06:31 ericm Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - Dialog::create
#     - Dialog::configure
#     - Dialog::cget
#     - Dialog::getframe
#     - Dialog::add
................................................................................
    set _widget($path,result) $result
}


# ------------------------------------------------------------------------------
#  Command Dialog::draw
# ------------------------------------------------------------------------------
proc Dialog::draw { path {focus ""} {overrideredirect 0}} {
    variable _widget

    set parent [Widget::getoption $path -parent]
    if { !$_widget($path,realized) } {
        set _widget($path,realized) 1
        if { [llength [winfo children $path.bbox]] } {
            set side [Widget::getoption $path -side]
................................................................................

    if { [winfo exists $parent] } {
        BWidget::place $path 0 0 center $parent
    } else {
        BWidget::place $path 0 0 center
    }
    update idletasks
    wm overrideredirect $path $overrideredirect
    wm deiconify $path

    tkwait visibility $path
    BWidget::focus set $path
    if { [winfo exists $focus] } {
        focus -force $focus
    } else {