Bwidget Source Code
Check-in [4460aae437]
Not logged in

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

Overview
Comment:For Unix, also Bind KP_Enter for default dialog button invokation. Ticket [3e31f04367]
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA3-256: 4460aae43749e7be1b344c9cd21dcf584cc47fdd4a784ba42cc04987fb72ba01
User & Date: oehhar 2018-11-26 10:20:21.092
References
2018-11-26
10:22 Pending ticket [3e31f04367]: Add KP_Enter bindign to Dialog wwidget plus 5 other changes artifact: 15f2254d25 user: oehhar
Context
2018-12-06
10:39
Update changelog to Tag 1.9.13 check-in: a82a8e507a user: oehhar tags: bwidget
2018-11-26
10:20
For Unix, also Bind KP_Enter for default dialog button invokation. Ticket [3e31f04367] check-in: 4460aae437 user: oehhar tags: bwidget
2018-01-13
14:03
Spanish translation enhanced: de el -> del (by neko on clt) check-in: dd7b03451d user: oehhar tags: bwidget
Changes
Unified Diff Ignore Whitespace Patch
Changes to ChangeLog.





1
2
3
4
5
6
7





2018-01-09 Harald Oehlmann <[email protected]>
	Spanish translation enhanced by Neko.
	Ticket [a947e33526]

2018-01-10 Harald Oehlmann <[email protected]>

	**** BWidget 1.9.12 tagged ****
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2018-11-26 Harald Oehlmann <[email protected]>
	dialog.c: For Unix, also Bind KP_Enter for default dialog
	button invokation. Ticket [3e31f04367].
	Thanks to Jos for the proposal.

2018-01-09 Harald Oehlmann <[email protected]>
	Spanish translation enhanced by Neko.
	Ticket [a947e33526]

2018-01-10 Harald Oehlmann <[email protected]>

	**** BWidget 1.9.12 tagged ****
Changes to dialog.tcl.
120
121
122
123
124
125
126




127
128
129
130
131
132
133

    set cancel [Widget::getoption $path -cancel]
    bind $path <Escape>  [list ButtonBox::invoke $path.bbox $cancel]
    if {$cancel != -1} {
        wm protocol $path WM_DELETE_WINDOW [list ButtonBox::invoke $path.bbox $cancel]
    }
    bind $path <Return>  [list ButtonBox::invoke $path.bbox default]





    return [Widget::create Dialog $path]
}


# ----------------------------------------------------------------------------
#  Command Dialog::configure







>
>
>
>







120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137

    set cancel [Widget::getoption $path -cancel]
    bind $path <Escape>  [list ButtonBox::invoke $path.bbox $cancel]
    if {$cancel != -1} {
        wm protocol $path WM_DELETE_WINDOW [list ButtonBox::invoke $path.bbox $cancel]
    }
    bind $path <Return>  [list ButtonBox::invoke $path.bbox default]
    # Tk8.5 (TIP158) separated numeric keyboard enter and main keyboard
    # enter on Unix. So bind for both. This does not harm on Tk8.4 so no
    # check required. BWidget Ticket [3e31f04367].
    bind $path <KP_Enter>  [list ButtonBox::invoke $path.bbox default]

    return [Widget::create Dialog $path]
}


# ----------------------------------------------------------------------------
#  Command Dialog::configure