Bwidget Source Code
Check-in [39dcb910f3]
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 a new parameter to the draw procedure that allows me to pass in the desired geometry for the window. This was needed to support tracking of dialog window geometries.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 39dcb910f3f04934406eeaad6e57f671d0e12506
User & Date: sven 2000-02-16 20:18:53
Context
2000-02-16
20:19
*** empty log message *** check-in: d5371a4cad user: sven tags: trunk
20:18
* dialog.tcl: Added a new parameter to the draw procedure that allows me to pass in the desired geometry for the window. This was needed to support tracking of dialog window geometries. check-in: 39dcb910f3 user: sven tags: trunk
16:43
*** empty log message *** check-in: 83391d43ae user: sven tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
...
223
224
225
226
227
228
229

230
231
232
233



234
235
236
237
238
239
240
# ------------------------------------------------------------------------------
#  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 $path.label] } {
            pack $path.label -side left -anchor n -padx 3m -pady 3m
        }
        pack $path.frame -padx 1m -pady 1m -fill both -expand yes
    }


    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


|







 







|







 







>
|
|
|
|
>
>
>







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
...
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
# ------------------------------------------------------------------------------
#  dialog.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: dialog.tcl,v 1.3 2000/02/16 20:18:53 sven 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} {geometry ""}} {
    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 $path.label] } {
            pack $path.label -side left -anchor n -padx 3m -pady 3m
        }
        pack $path.frame -padx 1m -pady 1m -fill both -expand yes
    }

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

    tkwait visibility $path
    BWidget::focus set $path