Bwidget Source Code
Check-in [d8fdc9e35e]
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:I added an "update idletask" to the scrollbar update. This prevents the loss of update events. It used to be that under certain circumstances in Author the set command did not get processed (changing the content of a text widget after doing a raise of the notebook).
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d8fdc9e35e139ec0d01ff6dfb9d81186cb557aa7
User & Date: sven 1999-12-23 19:30:59
Context
2000-01-18
23:40
Updated to reflect recent TEA changes check-in: 56b768526d user: wart tags: trunk
1999-12-23
19:30
I added an "update idletask" to the scrollbar update. This prevents the loss of update events. It used to be that under certain circumstances in Author the set command did not get processed (changing the content of a text widget after doing a raise of the notebook). check-in: d8fdc9e35e user: sven tags: trunk
1999-12-14
20:12
When the selected item is changed, the selection is now set to the entire string. check-in: 5cd9b4a28c user: sven tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to scrollw.tcl.

1
2
3
4
5
6
7
8
9
10
11
...
202
203
204
205
206
207
208

209
210
211
212
213
214
215
...
230
231
232
233
234
235
236

237
238
239
240
241
242
243
# ------------------------------------------------------------------------------
#  scrollw.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: scrollw.tcl,v 1.1.1.1 1999/08/03 20:20:23 ericm Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - ScrolledWindow::create
#     - ScrolledWindow::getframe
#     - ScrolledWindow::setwidget
#     - ScrolledWindow::configure
#     - ScrolledWindow::cget
................................................................................
                grid configure $grid.f -rowspan 1
                if { $_widget($path,sb) & 2 } {
                    grid configure $grid.vscroll -rowspan 1
                }
                set _widget($path,hpack) 1
            }
        }

        $grid.hscroll set $vmin $vmax
    }
}


# ------------------------------------------------------------------------------
#  Command ScrolledWindow::_set_vscroll
................................................................................
                grid configure $grid.f -columnspan 1
                if { $_widget($path,sb) & 1 } {
                    grid configure $grid.hscroll -columnspan 1
                }
                set _widget($path,vpack) 1
            }
        }

        $grid.vscroll set $vmin $vmax
    }
}


# ------------------------------------------------------------------------------
#  Command ScrolledWindow::_realize


|







 







>







 







>







1
2
3
4
5
6
7
8
9
10
11
...
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
...
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
# ------------------------------------------------------------------------------
#  scrollw.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: scrollw.tcl,v 1.2 1999/12/23 19:30:59 sven Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - ScrolledWindow::create
#     - ScrolledWindow::getframe
#     - ScrolledWindow::setwidget
#     - ScrolledWindow::configure
#     - ScrolledWindow::cget
................................................................................
                grid configure $grid.f -rowspan 1
                if { $_widget($path,sb) & 2 } {
                    grid configure $grid.vscroll -rowspan 1
                }
                set _widget($path,hpack) 1
            }
        }
        update idletask
        $grid.hscroll set $vmin $vmax
    }
}


# ------------------------------------------------------------------------------
#  Command ScrolledWindow::_set_vscroll
................................................................................
                grid configure $grid.f -columnspan 1
                if { $_widget($path,sb) & 1 } {
                    grid configure $grid.hscroll -columnspan 1
                }
                set _widget($path,vpack) 1
            }
        }
        update idletask
        $grid.vscroll set $vmin $vmax
    }
}


# ------------------------------------------------------------------------------
#  Command ScrolledWindow::_realize