Attachment #8742 for bug #16409

View | Details | Raw Unified | Return to bug 16409
Collapse All | Expand All




    catch { %W edit redo }
}

if {[string compare $tcl_platform(platform) "windows"]} {
bind Text <Control-v> {
    if {!$tk_strictMotif} {
	tk::TextScrollPages %W 1
    }
}
}

bind Text <Meta-b> {
    if {!$tk_strictMotif} {
	tk::TextSetCursor %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]

Return to bug 16409

Lines 347-360 Link Here

(-)library/text.tcl (-8 lines)
347	catch { %W edit redo }	347	catch { %W edit redo }
348	}	348	}
349		349
350	if {[string compare $tcl_platform(platform) "windows"]} {
351	bind Text <Control-v> {
352	if {!$tk_strictMotif} {
353	tk::TextScrollPages %W 1
354	}
355	}
356	}
357
358	bind Text <Meta-b> {	350	bind Text <Meta-b> {
359	if {!$tk_strictMotif} {	351	if {!$tk_strictMotif} {
360	tk::TextSetCursor %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]	352	tk::TextSetCursor %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]