Tk Source Code

Check-in [fac81696]
Login

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

Overview
Comment:Remove unneeded calls
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | tka11y
Files: files | file ages | folders
SHA3-256: fac81696786486feca3f673f2e745b80f166483fec32590e1dd6e041ab07d10f
User & Date: kevin_walzer 2025-07-27 01:45:34.262
Context
2025-07-27
02:14
Additional refinements for at-spi integration Leaf check-in: 9067abb1 user: kevin_walzer tags: tka11y
01:45
Remove unneeded calls check-in: fac81696 user: kevin_walzer tags: tka11y
01:43
Minor adjustments check-in: b7bf7220 user: kevin_walzer tags: tka11y
Changes
Unified Diff Ignore Whitespace Patch
Changes to library/accessibility.tcl.
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
	bind Canvas <Map> {+::tk::accessible::acc_help %W "The canvas widget is not accessible."}
	bind Scrollbar <Map> {+::tk::accessible::acc_help %W "Use the touchpad or mouse wheel to move the scrollbar."}
	bind TScrollbar <Map> {+::tk::accessible::acc_help %W "Use the touchpad or mouse wheel to move the scrollbar."}
	bind Menubutton <Map> {+::tk::accessible::acc_help %W "Use the touchpad or mouse wheel to pop up the menu."}
	bind TMenubutton <Map> {+::tk::accessible::acc_help %W "Use the touchpad or mouse wheel to pop up the menu."}
	bind TNotebook <Map> {+::tk::accessible::acc_help %W "Use the Tab and Right/Left arrow keys to navigate between notebook tabs."}
	bind Text <Map> {+::tk::accessible::acc_help %W "Use normal keyboard shortcuts to navigate the text widget."}

	if {[tk windowingsystem] eq "x11" && [::tk::accessible::check_screenreader] eq "1"} {
	    wm title . "Tk Application"
	    ::tk::accessible::add_acc_object .
	}
	
	# Finally, export the main commands.
	namespace export acc_role acc_name acc_description acc_value acc_state acc_action acc_help get_acc_role get_acc_name get_acc_description get_acc_value get_acc_state get_acc_action get_acc_help add_acc_object emit_selection_change check_screenreader emit_focus_change
	namespace ensemble create
    }
}








<
<
<
<
<







681
682
683
684
685
686
687





688
689
690
691
692
693
694
	bind Canvas <Map> {+::tk::accessible::acc_help %W "The canvas widget is not accessible."}
	bind Scrollbar <Map> {+::tk::accessible::acc_help %W "Use the touchpad or mouse wheel to move the scrollbar."}
	bind TScrollbar <Map> {+::tk::accessible::acc_help %W "Use the touchpad or mouse wheel to move the scrollbar."}
	bind Menubutton <Map> {+::tk::accessible::acc_help %W "Use the touchpad or mouse wheel to pop up the menu."}
	bind TMenubutton <Map> {+::tk::accessible::acc_help %W "Use the touchpad or mouse wheel to pop up the menu."}
	bind TNotebook <Map> {+::tk::accessible::acc_help %W "Use the Tab and Right/Left arrow keys to navigate between notebook tabs."}
	bind Text <Map> {+::tk::accessible::acc_help %W "Use normal keyboard shortcuts to navigate the text widget."}





	
	# Finally, export the main commands.
	namespace export acc_role acc_name acc_description acc_value acc_state acc_action acc_help get_acc_role get_acc_name get_acc_description get_acc_value get_acc_state get_acc_action get_acc_help add_acc_object emit_selection_change check_screenreader emit_focus_change
	namespace ensemble create
    }
}