Bwidget Source Code
Check-in [cf9a0e7e76]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:* panedw.tcl: Added a -class PanedWindow option to the main frame (the megawidget) of the paned window.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: cf9a0e7e76c66fbbf16ce36e54298c4b6978c877
User & Date: ericm 1999-10-20 22:15:28
Context
1999-10-21
17:41
Added support for keyboard traversal. The widget will now tab in even when it is not editible. Also the entry widget content will be selected when the user tabs in. The key bindings now allow a traversal of the list (<Down> brings up the list). The arrow button no longer switches to an up button, but instead changes relief. The button is now more Windows NT like (for Windows NT). check-in: 347d417b33 user: sven tags: trunk
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to panedw.tcl.

43
44
45
46
47
48
49
50

51
52
53
54
55
56
57
#  Command PanedWindow::create
# ------------------------------------------------------------------------------
proc PanedWindow::create { path args } {
    variable _panedw

    Widget::init PanedWindow $path $args

    frame $path -background [Widget::getoption $path -background]

    set _panedw($path,nbpanes) 0

    bind $path <Configure> "PanedWindow::_realize $path %w %h"
    bind $path <Destroy>   "PanedWindow::_destroy $path"

    rename $path ::$path:cmd
    proc ::$path { cmd args } "return \[eval PanedWindow::\$cmd $path \$args\]"






|
>







43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#  Command PanedWindow::create
# ------------------------------------------------------------------------------
proc PanedWindow::create { path args } {
    variable _panedw

    Widget::init PanedWindow $path $args

    frame $path -background [Widget::getoption $path -background] \
		-class PanedWindow
    set _panedw($path,nbpanes) 0

    bind $path <Configure> "PanedWindow::_realize $path %w %h"
    bind $path <Destroy>   "PanedWindow::_destroy $path"

    rename $path ::$path:cmd
    proc ::$path { cmd args } "return \[eval PanedWindow::\$cmd $path \$args\]"