Tk Library Source Code

foreach w [list $txt $lb $tbl $tv] {
    bind $w <<TraverseIn>> [list seeScrollarea $sf %W]
}
proc seeScrollarea {sf w} { $sf see [scrollutil::getscrollarea $w] }

#
# Additional stuff related to the mouse wheel events:
# ---------------------------------------------------
#

#
# For the entry components of the mentry widget
# set the "focus check window" to the mentry
#
set entryList [$me entries]
scrollutil::setFocusCheckWindow {*}$entryList $me

#
# Create mouse wheel event bindings for the binding tag "all" and
# register the ScrollableFrame for scrolling by these bindings
#
scrollutil::createWheelEventBindings all
scrollutil::enableScrollingByWheel $sf

#
# Adapt the handling of the mouse wheel events for the text, listbox,
# ttk::combobox, ttk::spinbox, tablelist, and ttk::treeview widgets, as
# well as for the entry components of the mentry widget of type "Date"
#

### scrollutil::adaptWheelEventHandling $txt $lb $cb $sb {*}$entryList $tbl $tv
scrollutil::prepareScrollingByWheel $sf

#
# Variables used in the scan-related binding scripts below:
#
set origCursor [$c cget -cursor]
set scanCursor \
    [expr {[tk windowingsystem] eq "aqua" ? "pointinghand" : "hand2"}]

bind $c <Button-2>  { %W scan mark %x %y; %W configure -cursor $scanCursor }
bind $c <B2-Motion> { %W scan dragto %x %y }
bind $c <ButtonRelease-2> { %W configure -cursor $origCursor }

#
# Create a ttk::scale widget for setting the number of box rows
#
set fRows [ttk::frame $f.fRows]
pack [ttk::label $fRows.l1 -text "Rows:"] -side left -padx {0 3p}
pack [ttk::label $fRows.l2 -textvariable rows] -side left -padx {0 3p}

#
set cf [$sf childsite]
$cf configure -background $bg
source [file join $dir ScrolledFrmContent.tcl]

#
# Additional stuff related to the mouse wheel events:
# ---------------------------------------------------
#

#
# For the entry components of the mentry widget
# set the "focus check window" to the mentry
#
set entryList [$me entries]
scrollutil::setFocusCheckWindow {*}$entryList $me

#
# Create mouse wheel event bindings for the binding tag "all"
# and register the scrolledframe for scrolling by these bindings
#
scrollutil::createWheelEventBindings all
scrollutil::enableScrollingByWheel $sf

#
# Adapt the handling of the mouse wheel events for the text, listbox,
# ttk::combobox, ttk::spinbox, tablelist, and ttk::treeview widgets, as
# well as for the entry components of the mentry widget of type "Date"
#

### scrollutil::adaptWheelEventHandling $txt $lb $cb $sb {*}$entryList $tbl $tv
scrollutil::prepareScrollingByWheel $sf

		$w configure -values $values
		$w set [$tbl cget $opt]
		bind $w <<ComboboxSelected>> [list applyValue %W $tbl $opt]
		grid $w -row $row -column 1 -sticky w -padx 3p -pady {3p 0}

		#
		# Adapt the handling of the mouse wheel and mouse
		# button 2 events for the ttk::combobox widget
		#
		scrollutil::adaptWheelEventHandling $w
		scrollutil::adaptBtn2EventHandling $w
	    }

	    -autofinishediting -
	    -autoscan -
	    -customdragsource -
	    -displayondemand -
	    -editendonfocusout -

		    {expr {[string length %P] <= 3 && [regexp {^[0-9]*$} %S]}}
		foreach event {<Return> <KP_Enter> <FocusOut>} {
		    bind $w $event [list applyValue %W $tbl $opt]
		}
		grid $w -row $row -column 1 -sticky w -padx 3p -pady {3p 0}

		#
		# Adapt the handling of the mouse wheel and mouse
		# button 2 events for the ttk::spinbox widget
		#
		scrollutil::adaptWheelEventHandling $w
		scrollutil::adaptBtn2EventHandling $w
	    }

	    default {
		ttk::entry $w -width 25
		$w insert 0 [$tbl cget $opt]
		foreach event {<Return> <KP_Enter> <FocusOut>} {
		    bind $w $event [list applyValue %W $tbl $opt]
		}
		grid $w -row $row -column 1 -sticky we -padx 3p -pady {3p 0}

		#
		# Adapt the handling of the mouse button
		# 2 events for the ttk::entry widget
		#
		scrollutil::adaptBtn2EventHandling $w
	    }
	}

	#
	# Make the keyboard navigation more user-friendly
	#
	bind $w <<TraverseIn>> [list $sf see %W]

    #
    # Make the keyboard navigation more user-friendly
    #
    bind $w <<TraverseIn>> [list $sf see %W]

    #
    # Adapt the handling of the mouse wheel and mouse
    # button 2 events for the ttk::combobox widget
    #
    scrollutil::adaptWheelEventHandling $w
    scrollutil::adaptBtn2EventHandling $w

    set b [styleutil::createToolbutton $cf.b$row -text "Resolve" \
	   -command [list setCapital $w $country]]
    grid $b -row $row -column 2 -sticky w -padx 3p -pady $padY

    #
    # Make the keyboard navigation more user-friendly

foreach w [list $txt $lb $tbl $tv] {
    bind $w <<TraverseIn>> [list seeScrollarea $sf %W]
}
proc seeScrollarea {sf w} { $sf see [scrollutil::getscrollarea $w] }

#
# Additional stuff related to the mouse wheel events:
# ---------------------------------------------------
#

#
# For the entry components of the mentry widget
# set the "focus check window" to the mentry
#
set entryList [$me entries]
scrollutil::setFocusCheckWindow {*}$entryList $me

#
# Create mouse wheel event bindings for the binding tag "all"
#
scrollutil::createWheelEventBindings all

#
# Adapt the handling of the mouse wheel events for the text, listbox,
# ttk::combobox, ttk::spinbox, tablelist, and ttk::treeview widgets, as
# well as for the entry components of the mentry widget of type "Date"
#

### scrollutil::adaptWheelEventHandling $txt $lb $cb $sb {*}$entryList $tbl $tv
$sf preparescroll

#
# Additional stuff related to the mouse button 2 events:
# ------------------------------------------------------
#

#
# Adapt the handling of the mouse button 2 events for the text, listbox,
# ttk::combobox, ttk::spinbox, ttk::entry, and tablelist widgets, as
# well as for the entry components of the mentry widget of type "Date"

#
### scrollutil::adaptBtn2EventHandling $txt $lb $cb $sb $e {*}$entryList $tbl
$sf preparescan

What is new in Scrollutil 2.6?
------------------------------

1. The scanning in scrollableframe widgets is now supported with mouse
   button 2 rather than 1.  On Android this adds scan support via one-
   finger gestures (thanks to Christian Werner for his proposal).

2. Added the "scrollutil::adaptBtn2EventHandling" command, for user-
   friendly mouse button 2 event handling in scrollableframe widgets,
   which on Android means user-friendly support for scanning via one-
   finger gestures (thanks to Michael Nieren and Christian Werner for
   discussions on this subject).

3. Added the "preparescan" scrollableframe subcommand, designed to
   automate the invocations of scrollutil::adaptBtn2EventHandling".

4. Added the "scrollutil::prepareScrollingByWheel" command, designed to
   automate the invocations of "scrollutil::adaptWheelEventHandling" in
   scrollable widget containers.

5. Added the "preparescroll" scrollableframe subcommand, as a shortcut
   for the "scrollutil::prepareScrollingByWheel" command.

6. The "scrollutil::addMouseWheelSupport" command now accepts also the
   path name of a (ttk::)menubutton widget or the class name
   "(T)Menubutton" as argument, in which case the binding scripts for
   the mouse wheel and <TouchpadScroll> events will activate the
   cyclically next or previous entry of the menu associated with the
   widget and invoke the action of that menu entry.


7. The "scrollutil::addMouseWheelSupport" command now accepts also the
   path name of a (ttk::)scale widget or the class name "(T)Scale" as
   argument, in which case the binding scripts for the mouse wheel and
   <TouchpadScroll> events will increment or decrement the widget's
   value and move the slider accordingly.

8. The demo script "ScrolledCanvas.tcl" now adds mouse wheel and
   <TouchpadScroll> event support not only to the canvas but also to two
   ttk::scale widgets.

9. Improved the documentation by extending the CSS stylesheet used in
   the HTML files.

What was new in Scrollutil 2.5?
-------------------------------

1. Improvements in the error handling for the scrollednotebook and
   plainnotebook widgets.

2025-06-07  Csaba Nemethi <[email protected]>

	* README.txt:  Updated to reflect the changes.
	* CHANGES.txt:
	* doc/*.html:

	* scripts/scrollableframe.tcl: The scanning is now supported with mouse
	  button 2 rather than 1; added the
	  "scrollutil::adaptBtn2EventHandling" command; added the "preparescan"
	  and "preparescroll" scrollableframe subcommands.

	* scripts/wheelEvent.tcl: Added the
	  "scrollutil::prepareScrollingByWheel" command.

	* scripts/tclIndex: Newly generated.

	* doc/ScrollableFrmDemo2.png: Updated screenshots.
	* doc/TablelistConfig.png:
	* doc/TablelistConfig2.png:

	* ../../examples/scrollutil/ScrolledCanvas.tcl: Scanning now with
	  mouse button 2 rather than 1.

	* ../../examples/scrollutil/BwScrollableFrmDemo2.tcl:   Updated to
	* ../../examples/scrollutil/ScrolledFrmDemo2.tcl:       use the new
	* ../../examples/scrollutil/SuScrollableFrmContent.tcl: commands.
	* ../../examples/scrollutil/SuScrollableFrmDemo1.tcl:
	* ../../examples/scrollutil/SuScrollableFrmDemo2.tcl:

2025-05-16  Csaba Nemethi <[email protected]>

	* *.tcl:         Bumped the version number to 2.6.
	* COPYRIGHT.txt:
	* README.txt:

	* CHANGES.txt: Updated to reflect the changes.

  - the command "scrollutil::addMouseWheelSupport", which creates mouse
    wheel event bindings for a given binding tag;
  - commands for user-friendly mouse wheel event handling in scrollable
    widget containers like scrollutil::scrollableframe, BWidget
    ScrollableFrame, and iwidgets::scrolledframe.  These commands
    require Tcl/Tk versions 8.4 or higher on X11 and Mac OS X and Tk
    8.6b2 or later on Windows;
  - commands for user-friendly mouse button 2 event handling in
    scrollutil::scrollableframe widgets;
  - demo scripts illustrating the use of the Scrollutil package in
    connection with various scrollable widgets and the above-mentioned
    scrollable widget containers;
  - demo scripts illustrating the use of the scrollednotebook,
    plainnotebook, and pagesman widgets;
  - a tutorial in HTML format;
  - reference pages in HTML format.

  <p><a href="scrollarea.html">The <code>scrollutil::scrollarea</code> and
  <code>scrollutil::getscrollarea</code> Commands</a></p>

  <p><a href="scrollsync.html">The <code>scrollutil::scrollsync</code> and
  <code>scrollutil::getscrollsync</code> Commands</a></p>

  <p><a href="scrollableframe.html">The
  <code>scrollutil::scrollableframe</code> and
  <code>scrollutil::adaptBtn2EventHandling</code> Commands</a></p>

  <p><a href="scrollednotebook.html">The
  <code>scrollutil::scrollednotebook</code> Command and the
  <code>closetab</code> Style Element</a></p>

  <p><a href="plainnotebook.html">The <code>scrollutil::plainnotebook</code>
  Command</a></p>

<!DOCTYPE html>
<html>
<head>
  <title>The scrollutil::scrollableframe and scrollutil::adaptBtn2EventHandling
  Commands</title>

  <meta name="Author" content="Csaba Nemethi">
  <meta name="Keywords" content="scrollableframe, widget, frame, scrollable">

  <link rel="stylesheet" type="text/css" href="stylesheet.css">
</head>

<body>
  <div>
    <h1>The <code><b>scrollutil::scrollableframe</b></code> and<br>
    <code><b>scrollutil::adaptBtn2EventHandling</b></code> Commands</h1>

    <h2>For Scrollutil Version 2.6</h2>

    <h3>by</h3>

    <h2>Csaba Nemethi</h2>

    <address>
      <a href="mailto:[email protected]">[email protected]</a>
    </address>
  </div>

  <hr>

  <h2 id="contents">Contents</h2>

  <ul>
    <li><a href="#quick_ref">The
    <code><b>scrollutil::scrollableframe</b></code> Command &ndash; Quick
    Reference</a></li>

    <li><a href="#detailed_ref">The
    <code><b>scrollutil::scrollableframe</b></code> Command &ndash; Detailed
    Reference</a></li>

    <li><a href="#adapt">The
    <code><b>scrollutil::adaptBtn2EventHandling</b></code> Command</a></li>

    <li><a href="#comparison">Comparison with BWidget ScrollableFrame and
    iwidgets::scrolledframe</a></li>
  </ul>

  <div>
    <p><a href="index.html">Start page</a></p>
  </div>

  <hr>

  <h2 id="quick_ref">The <code><b>scrollutil::scrollableframe</b></code>
  Command &ndash; Quick Reference</h2>

  <dl>
    <dt><a href="#name">NAME</a></dt>

    <dd><code>scrollutil::scrollableframe</code> &ndash; Create and manipulate
    scrollableframe widgets</dd>

    <dd><code><i>pathName</i> <b><a href=
    "#contentframe">contentframe</a></b></code></dd>

    <dd><code><i>pathName</i> <b><a href="#hasattrib">hasattrib</a></b>
    <i>name</i></code></dd>

    <dd><code><i>pathName</i> <b><a href=
    "#preparescan">preparescan</a></b></code></dd>

    <dd><code><i>pathName</i> <b><a href=
    "#preparescroll">preparescroll</a></b></code></dd>

    <dd>
      <code><i>pathName</i> <b><a href="#scan">scan</a></b> <i>option
      args</i></code>

      <dl>
        <dd><code><i>pathName</i> <b>scan mark</b> <i>x y</i></code></dd>

  <div>
    <p><a href="#contents">Contents</a>&nbsp;&nbsp;&nbsp;&nbsp; <a href=
    "index.html">Start page</a></p>
  </div>

  <hr>

  <h2 id="detailed_ref">The <code><b>scrollutil::scrollableframe</b></code>
  Command &ndash; Detailed Reference</h2>

  <dl>
    <dt id="name"><b>NAME</b></dt>

    <dd><code>scrollutil::scrollableframe</code> &ndash; Create and manipulate
    scrollableframe widgets</dd>

        <dd>Returns the path name of the widget's content frame.</dd>

        <dt class="tm" id="hasattrib"><code><i>pathName</i> <b>hasattrib</b>
        <i>name</i></code></dt>

        <dd>Returns <code>1</code> if the attribute <code><i>name</i></code>
        exists and <code>0</code> otherwise.</dd>

        <dt class="tm" id="preparescan"><code><i>pathName</i>
        <b>preparescan</b></code></dt>

        <dd>Prepares the scrollableframe for scanning, by passing its
        descendants located in the same toplevel and having bindings for mouse
        button 2 events to the <code><b><a href=
        "#adapt">scrollutil::adaptBtn2EventHandling</a></b></code>
        command.</dd>

        <dd class="tm"><b>REMARK:</b>&nbsp; If the scrollableframe has many
        descendants then it is much safer to invoke this subcommand than to
        manually pass a lot of widgets to
        <code><b>scrollutil::adaptBtn2EventHandling</b></code>, because
        deciding which descendants to process can become tedious and
        error-prone.</dd>

        <dt class="tm" id="preparescroll"><code><i>pathName</i>
        <b>preparescroll</b></code></dt>

        <dd>Prepares the scrollableframe for scrolling with the mouse wheel and
        touchpad, by passing its descendants located in the same toplevel and
        having bindings for mouse wheel or
        <code><b>&lt;TouchpadScroll&gt;</b></code> events to the
        <code><b><a href=
        "wheelEvent.html#adapt">scrollutil::adaptWheelEventHandling</a></b></code>
        command.</dd>

        <dd class="tm"><b>REMARK:</b>&nbsp; Invoking this subcommand is just a
        shortcut for passing <code><i>pathName</i></code> to the
        <code><b><a href=
        "wheelEvent.html#prepare">scrollutil::prepareScrollingByWheel</a></b></code>
        command.</dd>

        <dt class="tm" id="scan"><code><i>pathName</i> <b>scan</b> <i>option
        args</i></code></dt>

        <dd>This command is used to implement scanning on scrollableframe
        widgets.&nbsp; It has two forms, depending on
        <code><i>option</i></code>:</dd>

            <dd>This command computes the difference between its
            <code><i>x</i></code> and <code><i>y</i></code> arguments (which
            are typically mouse coordinates) and the <code><i>x</i></code> and
            <code><i>y</i></code> arguments to the last&nbsp; <code><b>scan</b>
            <b>mark</b></code>&nbsp; command for the widget.&nbsp; It then
            adjusts the view by <code><i>gain</i></code> times the difference
            in coordinates, where <code><i>gain</i></code> defaults to
            <code>10</code>, except on Android, where the default is
            <code>2</code>, being that this value suits better the emulation of
            mouse button 2 events with one-finger gestures.&nbsp; This command
            is typically associated with mouse motion events in the widget, to
            produce the effect of dragging the content frame at high speed
            through the window.&nbsp; The return value is an empty string.</dd>
          </dl>
        </dd>

        <dt class="tm" id="see"><code><i>pathName</i> <b>see</b> <i>widget</i>
        ?<i>corner</i>?</code></dt>

        <dd>This command adjusts the view in the scrollableframe's window so

          </dl>
        </dd>
      </dl>
    </dd>

    <dt class="tm" id="bindings"><b>BINDINGS</b></dt>

    <dd>Mouse button 2 may be used for scanning.&nbsp; If it is pressed and
    dragged over a free area of the scrollableframe window, the content frame
    drags at high speed in the direction the mouse moves.&nbsp; The same
    happens if a descendant was clicked that either has no bindings for mouse
    button 2 events, or was passed to the <code><b><a href=
    "#adapt">scrollutil::adaptBtn2EventHandling</a></b></code> command, and the
    focus is outside the window&nbsp; <code>[<b><a href=
    "wheelEvent.html#focusCkWin">focusCheckWindow</a></b>
    <i>descendant</i>]</code>.</dd>

    <dd class="tm"><b>REMARK:</b>&nbsp; On Android, the support for scanning
    with mouse button 2 implies scan support via one-finger gestures, because
    fast wipes with one finger are translated by AndroWish to
    <code><b>&lt;Button-2&gt;</b></code>,
    <code><b>&lt;B2-Motion&gt;</b></code>, and
    <code><b>&lt;ButtonRelease-2&gt;</b></code> events.</dd>

    <dt class="tm" id="keywords"><b>KEYWORDS</b></dt>

    <dd>scrollableframe, widget, frame, scrollable</dd>
  </dl>

  <div>
    <p><a href="#contents">Contents</a>&nbsp;&nbsp;&nbsp;&nbsp; <a href=
    "index.html">Start page</a></p>
  </div>

  <hr>

  <h2 id="adapt">The <code><b>scrollutil::adaptBtn2EventHandling</b></code>
  Command</h2>

  <dl>
    <dt><b>NAME</b></dt>

    <dd><code>scrollutil::adaptBtn2EventHandling</code> &ndash; Adapt mouse
    button 2 event handling</dd>

    <dt class="tm"><b>SYNOPSIS</b></dt>

    <dd>
      <pre>
<b>scrollutil::adaptBtn2EventHandling</b> ?<i>widget</i> <i>widget</i> ...?
</pre>
    </dd>

    <dt><b>DESCRIPTION</b></dt>

    <dd>For each <code><i>widget</i></code> argument, the command performs the
    following actions:</dd>

    <dd class="tm">
      <ul>
        <li>
          If <code><i>widget</i></code> is the path name of a <a href=
          "https://www.nemethi.de/tablelist/">tablelist</a> widget then it sets
          the latter's <code><b>-button2window</b></code> option to the path
          name of the containing toplevel window, provided that the Tablelist
          version is 7.6 or later (for earlier Tablelist versions the command
          silently ignores any tablelist widget passed to it as
          argument).&nbsp; As a result, a <code><b>&lt;Button-2&gt;</b></code>,
          <code><b>&lt;B2-Motion&gt;</b></code>, or
          <code><b>&lt;ButtonRelease-2&gt;</b></code> event sent to the
          tablelist's body or edit window (more precisely, a mouse button 2
          event sent to any component of the tablelist having the binding tag
          <code><b>TablelistBody</b></code> or
          <code><b>TablelistEdit</b></code>) will be handled as follows:

          <ul class="tm">
            <li>If the focus is inside the tablelist widget then the event will
            will trigger a scanning of the content of the tablelist or its edit
            window and no further processing of the event will take place.</li>

            <li class="tm">If the focus is outside the tablelist widget then no
            scanning within the tablelist's body or edit window will
            happen.&nbsp; Instead, the event will be redirected to the
            containing toplevel window via&nbsp; <code><b>event
            generate</b></code>.&nbsp; This in turn will trigger a scanning of
            the content of the (innermost) scrollableframe that is an ancestor
            of <code><i>widget</i></code> and has the same toplevel (if there
            is such a scrollableframe widget).</li>
          </ul>
        </li>

        <li class="tm">
          Otherwise it locates the (first) binding tag that has mouse button 2
          event bindings and is different from both the path name of the
          containing toplevel window and <code><b>all</b></code>.&nbsp; If the
          search for this tag was successful then the command modifies the
          widget's list of binding tags by prepending the tag
          <code><b>Btn2EventRedir</b></code> and appending the tag
          <code><b>Btn2EventBreak</b></code> to this binding tag.&nbsp; As a
          result, a <code><b>&lt;Button-2&gt;</b></code>,
          <code><b>&lt;B2-Motion&gt;</b></code>, or
          <code><b>&lt;ButtonRelease-2&gt;</b></code> event sent to this widget
          will be handled as follows:

          <ul class="tm">
            <li>If the focus is on or inside the window&nbsp;
            <code>[<b><a href=
            "wheelEvent.html#focusCkWin">focusCheckWindow</a></b>
            <i>widget</i>]</code>&nbsp; then the event will be handled by the
            binding script associated with this tag and no further processing
            of the event will take place.</li>

            <li class="tm">If the focus is outside the window&nbsp;
            <code>[<b>focusCheckWindow</b> <i>widget</i>]</code>&nbsp; then the
            event will be redirected to the containing toplevel window
            via&nbsp; <code><b>event generate</b></code>&nbsp; rather than
            being handled by the binding script associated with the
            above-mentioned tag.&nbsp; This in turn will trigger a scanning of
            the content of the (innermost) scrollableframe that is an ancestor
            of <code><i>widget</i></code> and has the same toplevel (if there
            is such a scrollableframe widget).</li>
          </ul>
        </li>
      </ul>
    </dd>

    <dd class="tm"><b>REMARK 1:</b>&nbsp; This command is designed to be
    invoked for widgets that have mouse button 2 event bindings and are
    descendants of a scrollableframe.&nbsp; The Tk and tile widgets
    having class bindings for mouse button 2 events area: Tk core entry,
    ttk::entry, ttk::combobox, listbox, panedwindow, Tk core scale, ttk::scale,
    Tk core spinbox, ttk::spinbox, Tk core scrollbar, ttk::scrollbar, and
    text.&nbsp; Examples of widgets with binding tags other than their class
    names that have mouse button 2 event bindings are ctext and tablelist
    widgets.&nbsp; (In case of a ctext widget <code><i>w</i></code>, the
    binding tags mentioned in the description above refer to the widget's main
    text widget child <code><i>w</i>.t</code> rather than to the widget
    itself.)</dd>

    <dd class="tm"><b>REMARK 2:</b>&nbsp; As mentioned above, Tk core scrollbar
    and ttk::scrollbar widgets have class bindings for mouse button 2 events,
    hence this command should be invoked for them in case they are descendants
    of a scrollableframe widget.&nbsp; Since this task can become tedious,
    Scrollutil makes sure that if you pass a widget to this command and that
    widget is embedded into a <a href="scrollarea.html">scrollarea</a> via the
    latter's <code><b><a href=
    "scrollarea.html#setwidget">setwidget</a></b></code> subcommand, then this
    command will automatically be invoked for the scrollbars of that
    scrollarea, too.</dd>

    <dd class="tm"><b>REMARK 3:</b>&nbsp; When handling a mouse button 2 event
    sent to a Tk core or tile scrollbar whose path name was passed to this
    command, if the focus is on or inside the associated widget then the event
    will be processed by the scrollbar rather than being redirected to the
    containing toplevel, just as if the focus were on the scrollbar
    itself.</dd>

    <dt class="tm"><b>KEYWORDS</b></dt>

    <dd>mouse button 2 event, binding, event handling, scanning,
    scrollableframe, focus</dd>
  </dl>

  <div>
    <p><a href="#contents">Contents</a>&nbsp;&nbsp;&nbsp;&nbsp; <a href=
    "index.html">Start page</a></p>
  </div>

  <hr>

    <tr>
      <td><code><b>hasattrib</b></code></td>
      <td bgcolor="#e0e0e0"></td>
      <td bgcolor="#e0e0e0"></td>
    </tr>

    <tr>
      <td><code><b>preparescan</b></code></td>
      <td bgcolor="#e0e0e0"></td>
      <td bgcolor="#e0e0e0"></td>
    </tr>

    <tr>
      <td><code><b>preparescroll</b></code></td>
      <td bgcolor="#e0e0e0"></td>
      <td bgcolor="#e0e0e0"></td>
    </tr>

    <tr>
      <td><code><b>scan</b></code>&nbsp; (with mouse event bindings)</td>
      <td bgcolor="#e0e0e0"></td>
      <td bgcolor="#e0e0e0"></td>
    </tr>

    <tr>

        <dt class="tm" id="snb_closetabstate"><code><i>pathName</i>
        <b>closetabstate</b> <i>tabId</i>
        ?<b>normal</b>|<b>disabled</b>?</code></dt>

        <dd>Sets or queries the state of the <code><b><a href=
        "#closetab">closetab</a></b></code> element of the tab specified by
        <code><i>tabId</i></code>.</dd>

	<dd class="tm"><b>REMARK:</b>&nbsp; Invoking this subcommand is just a
        shortcut for passing <code><i>pathName</i></code>,
        <code><i>tabId</i></code>, and the optional argument (if present) to
        the <code><b><a href=
        "#closetabstate">scrollutil::closetabstate</a></b></code> command.</dd>

        <dt class="tm" id="configure"><code><i>pathName</i> <b>configure</b>
        ?<i>option</i> ?<i>value</i> <i>option</i> <i>value</i>

    which creates mouse wheel event bindings for a given binding tag;</li>

    <li>commands for <i>user-friendly</i> mouse wheel event handling in
    <b>scrollable widget containers</b> like scrollutil::scrollableframe,
    BWidget ScrollableFrame, and iwidgets::scrolledframe.&nbsp; These commands
    require Tcl/Tk versions 8.4 or higher on X11 and Mac OS X/11+ and Tk 8.6b2
    or later on Windows;</li>

    <li>commands for <i>user-friendly</i> mouse button 2 event handling in
    scrollutil::scrollableframe widgets;</li>

    <li>demo scripts illustrating the use of the Scrollutil package in
    connection with various scrollable widgets and the above-mentioned
    scrollable widget containers;</li>

    <li>demo scripts illustrating the use of the scrollednotebook,
    plainnotebook, and pagesman widgets;</li>

    registered scrollable widget container that is an ascendant of the widget
    under the pointer and is contained in the latter's toplevel.</li>

    <li class="tm">Invoke the <code><a href=
    "wheelEvent.html#adapt">scrollutil::adaptWheelEventHandling</a></code>
    command for those widgets contained in registered scrollable widget
    containers that have mouse wheel or <code>&lt;TouchpadScroll&gt;</code>
    event (class) bindings.&nbsp; This step modifies the mouse wheel and

    <code>&lt;TouchpadScroll&gt;</code> event handling as follows:&nbsp; If the
    focus is on the widget under the pointer then the above-mentioned events
    will be handled by the (class bindings of the) widget only, otherwise by
    the bindings created with the
    <code>scrollutil::createWheelEventBindings</code> command.&nbsp; Note that






    this command accepts as optional argument the <code>-ignorefocus</code>
    switch, which specifies that the above-mentioned events are to be handled
    by the widget under the pointer (only), ragardless of whether that widget
    has the focus or not.</li>

    <li class="tm">For some widgets it can be desirable to make the focus check
    within this modified event handling less restrictive.&nbsp; For example, if
    the widget under the pointer is an entry component of a <a href=
    "https://www.nemethi.de/mentry/">mentry</a> of type <code>"Date"</code>,
    <code>"Time"</code>, <code>"DateTime"</code>, <code>"IPAddr"</code>, or
    <code>"IPv6Addr"</code> and the focus is on any of its siblings, then the

  with the aid of the Scrollutil package was also tested to work with the
  <code>scrolledframe::scrolledframe</code> command of the Scrolledframe
  package by Maurice Bredelet (ulis) and its optimized and enhanced version
  contributed by Keith Nash, as well as with the <code>sframe</code> command
  implemented by Paul Walton.&nbsp; For details on these commands (which
  provide further implementations of scrollable widget containers) see the
  above-mentioned wiki page.</p>

  <p><b>The comands related to mouse button 2 event handling</b> are restricted
  to the scrollutil::scrollableframe widget, which provides scan support via
  the&nbsp; <code>scan mark</code>&nbsp; and&nbsp; <code>scan
  dragto</code>&nbsp; commands.&nbsp; The mouse button 2 event bindings for the
  binding tag <code>"all"</code>, created automatically by Scrollutil, handle
  the <code>&lt;Button-2&gt;</code>, <code>&lt;B2-Motion&gt;</code>, and
  <code>&lt;ButtonRelease-2&gt;</code> events by scanning the content of the
  (innermost) scrollableframe widget that is an ascendant of the clicked widget
  and is contained in the latter's toplevel.&nbsp; By invoking the
  <code><a href=
  "scrollableframe.html#adapt">scrollutil::adaptBtn2EventHandling</a></code>
  command for the widgets that are contained in a scrollableframe  and have
  mouse button 2 (class) bindings, the handling of these events will be
  modified as follows:&nbsp; If the focus is on the clicked widget then the
  events will be handled by the (class bindings of the) widget only, otherwise
  by the bindings created for the <code>"all"</code> tag.&nbsp; This comes in
  handy especially on Android, where it provides user-friendly scan support for
  scrollableframe widgets via one-finger gestures.</p>

  <h3 id="ov_get">How to Get It?</h3>

  <p>Scrollutil is available for free download from the Web page</p>

  <blockquote>
    <address>

    <span class="cmt">#
    # Make the keyboard navigation more user-friendly
    #</span>
    bind $w &lt;&lt;TraverseIn&gt;&gt; [list <span class="red">$sf see %W</span>]

    <span class="cmt">#
    # Adapt the handling of the mouse wheel and mouse
    # button 2 events for the ttk::combobox widget
    #</span>
    <span class="red">scrollutil::adaptWheelEventHandling $w
    scrollutil::adaptBtn2EventHandling $w</span>

    . . .

    incr row
}

. . .

  <code><a href=
  "wheelEvent.html#adapt">scrollutil::adaptWheelEventHandling</a></code>
  command for every ttk::combobox widget, which is needed for a user-friendly
  event handling, being that this widget has built-in bindings for the mouse
  wheel and <code>&lt;TouchpadScroll&gt;</code> events.&nbsp; Due to this
  command, these events over one of the ttk::combobox widgets will only select
  the next/previous capital city if the widget has the focus, otherwise they
  will scroll the scrollableframe.&nbsp; For every ttk::combobox widget, we
  also invoke the <code><a href=
  "scrollableframe.html#adapt">scrollutil::adaptBtn2EventHandling</a></code>
  command, thus making sure that the mouse button 2 events sent to the widget
  will only be handled by the widget itself if it has the focus, otherwise they
  will result in scanning the scrollableframe's content.</p>



  <p>During the scan with mouse button 2, the cursor will take on the shape of
  a pointing hand, and by draggging the mouse, the content frame will drag at
  high speed through the window, in the direction the mouse moves.</p>

  <h3 id="ex_BwScrollableFrameDemo1">A Script Using a BWidget ScrollableFrame
  Widget</h3>

  <p>The script <code>BwScrollableFrmDemo1.tcl</code> in the <code>demos</code>
  directory creates a BWidget ScrollableFrame embedded into a <a href=
  "scrollarea.html">scrollarea</a> widget, creates mouse wheel and

<span class="cmt">#
# Get the content frame and populate it
#</span>

set cf [$sf childsite]
. . .

<i>&lt;exactly as in the previous example, except the stuff related to keyboard navigation&gt;</i>

. . .
</pre>
  </blockquote>

  <p>The code related to keyboard navigation is not present in this example,
  because the iwidgets::scrolledframe widget doesn't provide a <code>see</code>

    <li>a scrolled ttk::treeview widget <code>$tv</code> within a
    scrollarea.</li>
  </ul>

  <p>With the exception of ttk::label, ttk::entry, and ttk::separator, all
  these widgets have bult-in mouse wheel and
  <code>&lt;TouchpadScroll&gt;</code> event bindings.&nbsp; And with the
  exception of ttk::label, ttk::separator, and ttk::treeview, all these
  widgets have bult-in mouse button 2 event bindings.</p>

  <blockquote>
    <img src="ScrollableFrmDemo2.png" alt="ScrollableFrmDemo2" width="684"
    height="577">
  </blockquote>

  <p>Here is the relevant code:</p>

  <p>Here is the additional stuff related to the mouse wheel and
  <code>&lt;TouchpadScroll&gt;</code> events, using the Scrollutil commands
  described in the <a href="#ov_what">What Is Scrollutil?</a> section:</p>

  <blockquote>
    <pre>
<span class="cmt">#
# For the entry components of the mentry widget
# set the "focus check window" to the mentry
#</span>
set entryList [$me entries]
<span class="red">scrollutil::setFocusCheckWindow {*}$entryList $me</span>

<span class="cmt">#
# Create mouse wheel event bindings for the binding tag "all"
#</span>
<span class="red">scrollutil::createWheelEventBindings all</span>

<span class="cmt">#
# Adapt the handling of the mouse wheel events for the text, listbox,
# ttk::combobox, ttk::spinbox, tablelist, and ttk::treeview widgets, as
# well as for the entry components of the mentry widget of type "Date"



#
### scrollutil::adaptWheelEventHandling $txt $lb $cb $sb {*}$entryList $tbl $tv</span>
<span class="red">$sf preparescroll</span>




</pre>
  </blockquote>


  <p>Notice that the invocation of the <code><a href=
  "wheelEvent.html#adapt">scrollutil::adaptWheelEventHandling</a></code>
  command is commented out and replaced with the much simpler and safer
  invocation of the <code><a href=
  "scrollableframe.html#preparescroll">preparescroll</a></code> scrollableframe
  subcommand.</p>

  <p>We also have additional stuff related to the mouse button 2 events:</p>

  <blockquote>
    <pre>
<span class="cmt">#
# Adapt the handling of the mouse wheel events for the text, listbox,
# ttk::combobox, ttk::spinbox, tablelist, and ttk::treeview widgets, as
# well as for the entry components of the mentry widget of type "Date"
#
### scrollutil::adaptWheelEventHandling $txt $lb $cb $sb {*}$entryList $tbl $tv</span>
<span class="red">$sf preparescan</span>
</pre>
  </blockquote>

  <p>Again, the invocation of the <code><a href=
  "scrollableframe.html#adapt">scrollutil::adaptBtn2EventHandling</a></code>
  command is commented out and replaced with the much simpler and safer
  invocation of the <code><a href=
  "scrollableframe.html#preparescan">preparescan</a></code> scrollableframe
  subcommand.</p>

  <p>As already mentioned, in the file <code>SuScrollableFrmContent.tcl</code>
  the scrolled text, listbox, tablelist, and ttk::treeview widgets are created
  within <a href="scrollarea.html">scrollarea</a> widgets:</p>

  <blockquote>
    <pre>

  checkbuttons.  The procedure handles the
  <code>&lt;&lt;TraverseIn&gt;&gt;</code> virtual event sent to one of these
  widgets with the aid of the scrollableframe's <code><a href=
  "scrollableframe.html#see">see</a></code> subcommand.&nbsp; Whenever a
  ttk::combobox or ttk::spinbox is created, the <code><a href=
  "wheelEvent.html#adapt">scrollutil::adaptWheelEventHandling</a></code>
  command is invoked for it, being that these widgets have built-in bindings
  for the mouse wheel and <code>&lt;TouchpadScroll&gt;</code> events.&nbsp;
  Similarly, we pass the ttk::combobox, ttk::spinbox, and ttk::entry widgets
  to the <code><a href=
  "scrollableframe.html#adapt">scrollutil::adaptBtn2EventHandling</a></code>
  command, because these widgets have built-in bindings for the mouse button 2
  events.</p>

  <p>The widgets populating the content frame are managed using
  <code>grid</code>.&nbsp; In case of the ttk::entry widgets we invoke
  <code>grid</code> with&nbsp; <code>-sticky we</code>.&nbsp; Due to this and
  the&nbsp; <code>-fitcontentwidth yes</code>&nbsp; scrollableframe setting,
  the ttk::entry widgets will stretch or shrink whenever the width of the
  scrollableframe changes as a result of resizing the toplevel window.</p>

</pre>
  </blockquote>

  <p>The additional stuff related to the mouse wheel and
  <code>&lt;TouchpadScroll&gt;</code> events contains the same Scrollutil
  command invocations as the one in the previous example, except that in
  addition it registers the ScrollableFrame for scrolling with the mouse wheel
  and touchpad, and invokes the <code><a href=
  "wheelEvent.html#prepare">scrollutil::prepareScrollingByWheel</a></code>
  command:</p>

  <blockquote>
    <pre>
. . .

<span class="cmt">#
# Create mouse wheel event bindings for the binding tag "all" and
# register the ScrollableFrame for scrolling by these bindings
#</span>
<span class="red">scrollutil::createWheelEventBindings all
scrollutil::enableScrollingByWheel $sf</span>

<span class="cmt">#
# Adapt the handling of the mouse wheel events for the text, listbox,
# ttk::combobox, ttk::spinbox, tablelist, and ttk::treeview widgets, as
# well as for the entry components of the mentry widget of type "Date"
#
### scrollutil::adaptWheelEventHandling $txt $lb $cb $sb {*}$entryList $tbl $tv</span>
<span class="red">scrollutil::prepareScrollingByWheel $sf</span>
</pre>
  </blockquote>

  <p>The file <code>BwScrollableFrmContent.tcl</code> contains also the
  implementation of the procedure <code>configTablelist</code>, associated with
  the "Configure Tablelist Widget" button as the value of its
  <code>-command</code> option.&nbsp; This procedure opens a toplevel window
  that contains a BWidget ScrollableFrame created with the&nbsp;
  <code>-constrainedwidth yes</code>&nbsp; setting within a <a href=
  "scrollarea.html">scrollarea</a> widget and invokes the <code><a href=
  "wheelEvent.html#enable">scrollutil::enableScrollingByWheel</a></code>
  command for this ScrollableFrame, thus registering the latter for scrolling
  by the already created mouse wheel and <code>&lt;TouchpadScroll&gt;</code>
  event bindings for the binding tag <code>"all"</code>.&nbsp; After that it
  populates the content frame of the ScrollableFrame with ttk::label,
  ttk::combobox, ttk::spinbox, ttk::entry, and ttk::checkbutton or
  tsw::toggleswitch widgets used to display and edit the configuration options
  of the tablelist widget.&nbsp; The procedure handles the
  <code>&lt;&lt;TraverseIn&gt;&gt;</code> virtual event sent to one of these
  widgets with the aid of the ScrollableFrame's <code>see</code>
  subcommand.&nbsp; Whenever a ttk::combobox or ttk::spinbox is created, the
  <code><a href=
  "wheelEvent.html#adapt">scrollutil::adaptWheelEventHandling</a></code>
  command is invoked for it, being that these widgets have built-in bindings
  for the mouse wheel and <code>&lt;TouchpadScroll&gt;</code> events.</p>


  <p>Again, all this is nearly identical to what we did in the previous
  example.</p>

  <h3 id="ex_ScrolledFrameDemo2">A Script Using Two iwidgets::scrolledframe
  Widgets</h3>

  invokes the <code><a href=
  "wheelEvent.html#enable">scrollutil::enableScrollingByWheel</a></code>
  command for this scrolledframe, thus registering the latter for scrolling by
  the already created mouse wheel and
  <code>&lt;TouchpadScroll&gt;</code> event bindings for the binding tag
  <code>"all"</code>.&nbsp; After that it populates the content frame of the
  scrolledframe with ttk::label, ttk::combobox, ttk::spinbox, ttk::entry, and
  ttk::checkbutton or tsw::toggleswitch widgets used to display and edit the
  configuration options of the tablelist widget.&nbsp; Whenever a
  ttk::combobox or ttk::spinbox is created, the <code><a href=
  "wheelEvent.html#adapt">scrollutil::adaptWheelEventHandling</a></code>
  command is invoked for it, being that these widgets have built-in bindings
  for the mouse wheel and <code>&lt;TouchpadScroll&gt;</code>
  events.</p>

  <p>Again, all this is nearly identical to what we did in the two previous
  examples.</p>

    <li><a href="#disable">The
    <code><b>scrollutil::disableScrollingByWheel</b></code> Command</a></li>

    <li><a href="#adapt">The
    <code><b>scrollutil::adaptWheelEventHandling</b></code> Command</a></li>

    <li><a href="#prepare">The
    <code><b>scrollutil::prepareScrollingByWheel</b></code> Command</a></li>

    <li><a href="#setFocusCkWin">The
    <code><b>scrollutil::setFocusCheckWindow</b></code> Command</a></li>

    <li><a href="#focusCkWin">The
    <code><b>scrollutil::focusCheckWindow</b></code> Command</a></li>
  </ul>

    <code>"Date"</code>, <code>"Time"</code>, <code>"DateTime"</code>,
    <code>"IPAddr"</code>, and <code>"IPv6Addr"</code> (for Mentry versions 3.2
    and above).&nbsp; (In case of a ctext widget <code><i>w</i></code>, the
    binding tags mentioned in the description above refer to the widget's main
    text widget child <code><i>w</i>.t</code> rather than to the widget
    itself.)</dd>

    <dd class="tm"><b>REMARK 2:</b>&nbsp; As mentioned above, Tk core scrollbar
    and ttk::scrollbar widgets have class bindings for mouse wheel and
    <code><b>&lt;TouchpadScroll&gt;</b></code> events, hence this command
    should be invoked for them in case they are descendants of a scrollable
    widget container.&nbsp; Since this task can become tedious, Scrollutil
    makes sure that if you pass a widget to this command and that widget is
    embedded into a <a href="scrollarea.html">scrollarea</a> via the latter's
    <code><b><a href="scrollarea.html#setwidget">setwidget</a></b></code>
    subcommand, then this command will automatically be invoked for the
    scrollbars of that scrollarea, too.</dd>

    <dd class="tm"><b>REMARK 3:</b>&nbsp; When handling a mouse wheel or
    <code><b>&lt;TouchpadScroll&gt;</b></code> event sent to a Tk core or tile
    scrollbar whose path name was passed to this command without the
    <code><b>-ignorefocus</b></code> option, if the focus is on or inside the
    associated widget then the event will be processed by the scrollbar rather
    than being redirected to the containing toplevel, just as if the focus were
    on the scrollbar itself.</dd>

    <dd class="tm"><b>REMARK 4:</b>&nbsp; The mouse wheel event class bindings
    for the Tk core scrollbar on Windows and X11 were added in Tk 8.6.&nbsp;
    Prior to this Tk version there were such bindings only for the windowing
    system <code><b>aqua</b></code> on the Macintosh.&nbsp; Scrollutil
    eliminates this discrepancy by automatically creating the
    <code><b>Scrollbar</b></code> class bindings for mouse wheel events on
    Windows and X11.&nbsp; Note also that in Tk versions prior to 8.7a4 the
    ttk::scrollbar widget had no <i>built-in</i> class bindings for mouse wheel
    events, but Scrollutil automatically creates the missing bindings by
    copying the mouse wheel event bindings of the widget class
    <code><b>Scrollbar</b></code> to the binding tag
    <code><b>TScrollbar</b></code>.</dd>




















    <dd class="tm"><b>REMARK 5:</b>&nbsp; The mouse wheel event class bindings
    for the ttk::notebook widget were added in Tk 8.7a4, but Scrollutil
    automatically creates them for all Tk versions starting with 8.4.&nbsp;
    These bindings implement the navigation between the tabs of a ttk::notebook
    or <a href="scrollednotebook.html">scrollutil::scrollednotebook</a> widget
    via the mouse wheel.</dd>

    <dd class="tm"><b>REMARK 6:</b>&nbsp; The recommended invocation of this













    command is without the <code><b>-ignorefocus</b></code> option, because it
    significantly reduces the probability that the user will inadvertently
    scroll a window within a widget container containing many scrollable
    widgets.</dd>

    <dt class="tm"><b>KEYWORDS</b></dt>

    <dd>mouse wheel event, binding, event handling, scrolling, scrollable
    widget container, focus</dd>
  </dl>

  <div>
    <p><a href="#contents">Contents</a>&nbsp;&nbsp;&nbsp;&nbsp; <a href=
    "index.html">Start page</a></p>
  </div>

  <hr>

  <h2 id="prepare">The <code><b>scrollutil::prepareScrollingByWheel</b></code>
  Command</h2>

  <dl>
    <dt><b>NAME</b></dt>

    <dd><code>scrollutil::prepareScrollingByWheel</code> &ndash; Prepare
    scrollable widget containers for scrolling by the mouse wheel</dd>

    <dt class="tm"><b>SYNOPSIS</b></dt>

    <dd>
      <pre>
<b>scrollutil::prepareScrollingByWheel</b> ?<b>-ignorefocus</b>? ?<i>scrollableWidgetContainer</i> <i>scrollableWidgetContainer</i> ...?
</pre>
    </dd>

    <dt><b>REQUIRED TK VERSION</b></dt>

    <dd>8.4 or higher on X11 and Mac OS X/11+; 8.6b2 or later on Windows.</dd>

    <dt class="tm"><b>DESCRIPTION</b></dt>

    <dd>For each scrollable widget container specified as argument, this
    command prepares the scrolling with the mouse wheel and touchpad, by
    passing its descendants located in the same toplevel and having bindings
    for mouse wheel or <code><b>&lt;TouchpadScroll&gt;</b></code> events to
    <code><b><a href=
    "#adapt">scrollutil::adaptWheelEventHandling</a></b></code>.</dd>

    <dd class="tm"><b>REMARK:</b>&nbsp; If a scrollable widget container has
    many descendants then it is much safer to invoke this command than to
    manually pass a lot of widgets to
    <code><b>scrollutil::adaptWheelEventHandling</b></code>, because deciding
    which descendants to process can become tedious and error-prone.</dd>

    <dt class="tm"><b>KEYWORDS</b></dt>

    <dd>mouse wheel event, binding, scrollable widget container</dd>
  </dl>

  <div>
    <p><a href="#contents">Contents</a>&nbsp;&nbsp;&nbsp;&nbsp; <a href=
    "index.html">Start page</a></p>
  </div>

  <hr>

      <pre>
<b>scrollutil::setFocusCheckWindow</b> <i>widget</i> ?<i>widget</i> ...? <i>otherWidget</i>
</pre>
    </dd>

    <dt><b>REQUIRED TK VERSION</b></dt>

    <dd>8.4 or higher.</dd>

    <dt class="tm"><b>DESCRIPTION</b></dt>

    <dd>For each <code><i>widget</i></code> argument, the command sets the
    associated "focus check window" to <code><i>otherWidget</i></code>.&nbsp;
    This is the window to be used in the binding scripts for the tags
    <code><b><a href="#adapt">WheeleventRedir</a></b></code> and
    <code><b><a href="scrollableframe.html#adapt">Btn2EventRedir</a></b></code>
    instead of the widget when checking whether the focus is on/inside or
    outside that window.&nbsp; For each <code><i>widget</i></code> argument,
    <code><i>otherWidget</i></code> must be an ancestor of or identical to
    <code><i>widget</i></code>.</dd>

    <dd class="tm"><b>REMARK 1:</b>&nbsp; When a widget whose path name was
    passed to this command as one of its <code><i>widget</i></code> arguments
    gets destroyed, the association between the widget and its "focus check
    window" is automatically removed.</dd>

    <dd class="tm"><b>REMARK 2:</b>&nbsp; This command comes in handy if for
    some widgets you want to make the focus check within the binding scripts
    for the tags <code><b>WheeleventRedir</b></code> and
    <code><b>Btn2EventRedir</b></code> less restrictive.&nbsp; For example, if
    the widget under the pointer is an entry component of a <a href=
    "https://www.nemethi.de/mentry/">mentry</a> <code><i>me</i></code> of type
    <code>"Date"</code>, <code>"Time"</code>, <code>"DateTime"</code>,
    <code>"IPAddr"</code>, or <code>"IPv6Addr"</code> and the focus is on any
    of its siblings, then the mouse wheel and
    <code><b>&lt;TouchpadScroll&gt;</b></code> events sent to this entry should
    be handled by the entry widget itself rather than scrolling the widget
    container that is an ascendant of the mentry.&nbsp; You can achieve this by
    invoking</dd>

      <pre>
<b>scrollutil::focusCheckWindow</b> <i>widget</i>
</pre>
    </dd>

    <dt><b>REQUIRED TK VERSION</b></dt>

    <dd>8.4 or higher.</dd>

    <dt class="tm"><b>DESCRIPTION</b></dt>

    <dd>Returns the path name of the "focus check window" associated with the
    <code><i>widget</i></code> argument.&nbsp; This is the window that is used
    in the binding scripts for the tags <code><b><a href=
    "#adapt">WheeleventRedir</a></b></code> and
    <code><b><a href="scrollableframe.html#adapt">Btn2EventRedir</a></b></code>
    instead of the widget when checking whether the focus is on/inside or
    outside that window.&nbsp; If the command <code><b><a href=
    "#setFocusCkWin">scrollutil::setFocusCheckWindow</a></b></code> was not
    invoked for <code><i>widget</i></code> then the return value is
    <code><i>widget</i></code> itself.</dd>

    <dt class="tm"><b>KEYWORDS</b></dt>

    <dd>binding, focus, "focus check window"</dd>

#==============================================================================
# Contains the implementation of the scrollableframe widget.
#
# Structure of the module:
#   - Namespace initialization
#   - Private procedure creating the default bindings
#   - Public procedures
#   - Private configuration procedures
#   - Private procedures implementing the scrollableframe widget command
#   - Private procedures used in bindings
#
# Copyright (c) 2019-2025  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

    variable configOpts [lsort [array names configSpecs]]

    #
    # Use lists to facilitate the handling
    # of various options and corner values
    #
    variable cmdOpts	[list attrib autofillx autofilly autosize cget \
			 configure contentframe hasattrib preparescan \
			 preparescroll scan see seerect unsetattrib xview \
			 yview]
    variable scanOpts	[list mark dragto]
    variable dimensions	[list w h wh]
    variable corners	[list nw ne sw se]

    #
    # Variable used in scan-related binding scripts:
    #

    variable scanCursor
    switch [tk windowingsystem] {
	aqua	{ set scanCursor pointinghand }
	default	{ set scanCursor hand2 }
    }

    #
    # The list of all scrollableframe widgets
    #
    variable sfList {}

    variable onAndroid [expr {[info exists ::tk::android] && $::tk::android}]
}

#
# Private procedure creating the default bindings
# ===============================================
#

#------------------------------------------------------------------------------
# scrollutil::sf::createBindings
#
# Creates the default bindings for the binding tags Scrollableframe,
# ScrollableframeMf, ScrollableframeCf, Btn2EventRedir, Btn2EventBreak, and
# all.
#------------------------------------------------------------------------------
proc scrollutil::sf::createBindings {} {
    bind Scrollableframe <KeyPress> continue
    bind Scrollableframe <<TraverseIn>> {
	set scrollutil::ns%W::data(traversedIn) 1
    }
    bind Scrollableframe <FocusIn> { scrollutil::sf::onFocusIn %W %d }
    bind Scrollableframe <Map> {
	scrollutil::sf::updateHorizPlaceOpts %W
	scrollutil::sf::updateVertPlaceOpts  %W
    }
    bind Scrollableframe <Destroy> { scrollutil::sf::onDestroy %W }

    bind ScrollableframeCf <<NoManagedChild>> {
	scrollutil::sf::onNoManagedChild %W
    }

    foreach class {ScrollableframeMf ScrollableframeCf} isCf {0 1} {
	bind $class <Configure> \
	    [list scrollutil::sf::on${class}Configure %W %w %h]
    }

    ##nagelfar ignore
    foreach event {<Button-2> <B2-Motion> <ButtonRelease-2>} {
	bind Btn2EventRedir $event [format {
	    if {![scrollutil::hasFocus %%W]} {
		event generate [winfo toplevel %%W] %s -rootx %%X -rooty %%Y
		break

	    }
	} $event]

	bind Btn2EventBreak $event { break }

    }

    bind all <Button-2>		{+ scrollutil::sf::onButton2  %W %X %Y }
    bind all <B2-Motion>	{+ scrollutil::sf::onB2Motion %W %X %Y }
    bind all <ButtonRelease-2>	{+ scrollutil::sf::onButtonRelease2 %W }
}

#
# Public procedures
# =================
#

#------------------------------------------------------------------------------
# scrollutil::scrollableframe
#
# Creates a new scrollableframe widget whose name is specified as the first
# command-line argument, and configures it according to the options and their

    #
    # Move the original widget command into the namespace sf within the current
    # one and create an alias of the original name for a new widget procedure
    #
    rename ::$win sf::$win
    interp alias {} ::$win {} scrollutil::sf::scrollableframeWidgetCmd $win

    #
    # Add the scrollableframe widget to the list of all scrollableframe widgets
    #
    lappend sf::sfList $win
    set sf::sfList [lsort -command comparePaths $sf::sfList]

    #
    # Register the scrollableframe widget for scrolling by the mouse wheel
    #
    if {$::tcl_platform(platform) eq "windows"} {
	if {$::tk_version >= 8.6 &&
	    [package vcompare $::tk_patchLevel "8.6b2"] >= 0} {
	    enableScrollingByWheel $win
	}
    } else {
	enableScrollingByWheel $win
    }

    return $win
}

#------------------------------------------------------------------------------
# scrollutil::adaptBtn2EventHandling
#
# Usage: scrollutil::adaptBtn2EventHandling ?widget widget ...?
#
# For each widget argument, the command performs the following actions:
#
#   * If $widget is a tablelist then it sets the latter's -button2window option
#     to the path name of the containing toplevel window (for Tablelist
#     versions 7.6 and later).
#
#   * Otherwise it locates the (first) binding tag that has mouse button 2
#     event bindings and is different from both the path name of the containing
#     toplevel window and "all".  If the search for this tag was successful
#     then the command modifies the widget's list of binding tags by prepending
#     the tag "Btn2EventRedir" and appending the tag "Btn2EventBreak" to this
#     binding tag.  As a result, a <Button-2>, <B2-Motion>, or
#     <ButtonRelease-2> event sent to this widget will be handled as follows:
#
#       - If the focus is on or inside the window [focusCheckWindow $widget]
#         then the event will be handled by the binding script associated with
#         this tag and no further processing of the event will take place.
#
#       - If the focus is outside the window [focusCheckWindow $widget] then
#         the event will be redirected to the containing toplevel window via
#         event generate rather than being handled by the binding script
#         associated with the above-mentioned tag.
#------------------------------------------------------------------------------
proc scrollutil::adaptBtn2EventHandling args {
    foreach w $args {
	if {![winfo exists $w]} {
	    return -code error "bad window path name \"$w\""
	}

	set class [winfo class $w]
	set wTop [winfo toplevel $w]
	if {$class eq "Tablelist"} {
	    if {[package vcompare $::tablelist::version "7.6"] >= 0} {
		$w configure -button2window $wTop
	    }
	} else {
	    set w2 [expr {$class eq "Ctext" ? "$w.t" : $w}]
	    set tagList [bindtags $w2]
	    foreach tag {Btn2EventRedir Btn2EventBreak} {
		if {[set idx [lsearch -exact $tagList $tag]] >= 0} {
		    set tagList [lreplace $tagList $idx $idx]
		}
	    }

	    set idx 0
	    foreach tag $tagList {
		if {$tag eq $wTop || $tag eq "all" ||
		    [bind $tag <Button-2>] eq "" ||
		    [bind $tag <B2-Motion>] eq ""} {
		    incr idx
		    continue
		}

		bindtags $w2 [lreplace $tagList $idx $idx \
			      Btn2EventRedir $tag Btn2EventBreak]
		break
	    }
	}

	#
	# If $w is embedded into a scrollarea then invoke this
	# procedure for the scrollbars of that scrollarea, too
	#
	if {[set sa [getscrollarea $w]] ne "" && ([info level] == 1 ||
	    [lindex [info level -1] 0] ne "preparescanSubCmd")} {
	    adaptBtn2EventHandling $sa.hsb $sa.vsb
	}
    }
}

#
# Private configuration procedures
# ================================
#

#------------------------------------------------------------------------------

	    if {$argCount != 2} {
		mwutil::wrongNumArgs "$win $cmd name"
	    }

	    return [::scrollutil::${cmd}SubCmd $win "widget" [lindex $args 1]]
	}

	preparescan { return [preparescanSubCmd $win $argList] }

	preparescroll {
	    if {$argCount != 1} {
		mwutil::wrongNumArgs "$win $cmd"
	    }

	    return [::scrollutil::prepareScrollingByWheel $win]
	}

	scan	{ return [scanSubCmd	$win $argList] }

	see	{ return [seeSubCmd	$win $argList] }

	seerect	{ return [seerectSubCmd	$win $argList] }

	xview	{ return [xviewSubCmd	$win $argList] }

	yview	{ return [yviewSubCmd	$win $argList] }
    }
}

#------------------------------------------------------------------------------
# scrollutil::sf::autofillxSubCmd
#
# Processes the scrollableframe autofillx subcommmand.

	}

	after 100 [list scrollutil::sf::doAutosize $win $dimList]
    }

    return ""
}

#------------------------------------------------------------------------------
# scrollutil::sf::preparescanSubCmd
#
# Processes the scrollableframe preparescan subcommmand.
#------------------------------------------------------------------------------
proc scrollutil::sf::preparescanSubCmd {win argList} {
    if {[llength $argList] != 0} {
	mwutil::wrongNumArgs "$win preparescan"
    }

    set widgetList {}
    upvar ::scrollutil::ns${win}::data data
    set winTop [winfo toplevel $win]

    #
    # Level-order traversal
    #
    set lst1 [winfo children $data(cf)]
    while {[llength $lst1] != 0} {
	set lst2 {}
	foreach w $lst1 {
	    if {[winfo toplevel $w] eq $winTop &&
		([winfo class $w] eq "Tablelist" || [hasBtn2Bindings $w])} {
		lappend widgetList $w
	    }
	    foreach child [winfo children $w] {
		lappend lst2 $child
	    }
	}
	set lst1 $lst2
    }

    eval scrollutil::adaptBtn2EventHandling $widgetList
    return ""
}

#------------------------------------------------------------------------------
# scrollutil::sf::scanSubCmd
#
# Processes the scrollableframe scan subcommmand.
#------------------------------------------------------------------------------
proc scrollutil::sf::scanSubCmd {win argList} {

	set data(scanX) $x
	set data(scanY) $y
	set data(scanXOffset) $data(xOffset)
	set data(scanYOffset) $data(yOffset)
    } else {
	if {$argCount == 3} {
	    variable onAndroid
	    set gain [expr {$onAndroid ? 2 : 10}]
	} elseif {$argCount == 4} {
	    ##nagelfar ignore
	    set gain [format "%d" [lindex $argList 3]]
	} else {
	    mwutil::wrongNumArgs "$win scan dragto x y ?gain?"
	}

    }

    upvar ::scrollutil::ns${win}::data data
    foreach dim $dimList {
	doConfig $win -$dim [winfo req$dim $data(cf)]
    }
}

#------------------------------------------------------------------------------
# scrollutil::sf::hasBtn2Bindings
#------------------------------------------------------------------------------
proc scrollutil::sf::hasBtn2Bindings w {
    set wTop [winfo toplevel $w]
    foreach tag [bindtags $w] {
	if {$tag eq $wTop || $tag eq "all"} {
	    continue
	}

	if {[bind $tag <Button-2>] ne "" && [bind $tag <B2-Motion>] ne ""} {
	    return 1
	}
    }

    return 0
}

#------------------------------------------------------------------------------
# scrollutil::sf::roundUp
#------------------------------------------------------------------------------
proc scrollutil::sf::roundUp {pixelsName scrlIncr} {
    upvar $pixelsName pixels
    if {$pixels < 0} {

	} else {
	    focus $data(cf)
	}
    }

    set data(traversedIn) 0
}

#------------------------------------------------------------------------------
# scrollutil::sf::onDestroy
#------------------------------------------------------------------------------
proc scrollutil::sf::onDestroy win {
    variable sfList
    set idx [lsearch -exact $sfList $win]
    set sfList [lreplace $sfList $idx $idx]

    namespace delete ::scrollutil::ns$win
    catch {rename ::$win ""}
}

#------------------------------------------------------------------------------
# scrollutil::sf::onNoManagedChild
#------------------------------------------------------------------------------
proc scrollutil::sf::onNoManagedChild cf {
    set win [winfo parent [winfo parent $cf]]
    upvar ::scrollutil::ns${win}::data data

    if {!$data(-fitcontentwidth) && $data(-contentwidth) <= 0} {
	$cf configure -width 1
	$cf configure -width $data(-contentwidth)
    }

    if {!$data(-fitcontentheight) && $data(-contentheight) <= 0} {
	$cf configure -height 1
	$cf configure -height $data(-contentheight)
    }
}

#------------------------------------------------------------------------------
# scrollutil::sf::onScrollableframeMfConfigure
#------------------------------------------------------------------------------
proc scrollutil::sf::onScrollableframeMfConfigure {mf mfWidth mfHeight} {
    set win [winfo parent $mf]
    upvar ::scrollutil::ns${win}::data data

    if {$cfHeight != $data(cfHeight)} {
	set data(cfHeight) $cfHeight
	yviewSubCmd $win {scroll 0 units}
    }
}

#------------------------------------------------------------------------------
# scrollutil::sf::onButton2
#------------------------------------------------------------------------------
proc scrollutil::sf::onButton2 {w rootX rootY} {
    if {[hasBtn2Bindings $w]} {


	return ""



    }

    variable sfList
    variable btn2Win [winfo containing -displayof $w $rootX $rootY]
    foreach win $sfList {
	if {[mayScan $win $btn2Win]} {
	    set x [expr {$rootX - [winfo x $win]}]
	    set y [expr {$rootY - [winfo y $win]}]
	    ::$win scan mark $x $y


	    variable origCursor [::$win cget -cursor]
	    variable scanCursor
	    ::$win configure -cursor $scanCursor
	    catch {$btn2Win configure -cursor $scanCursor}

	    return ""
	}
    }
}

#------------------------------------------------------------------------------
# scrollutil::sf::onB2Motion
#------------------------------------------------------------------------------
proc scrollutil::sf::onB2Motion {w rootX rootY} {

    if {[hasBtn2Bindings $w]} {
	return ""
    }

    variable sfList

    variable btn2Win
    foreach win $sfList {

	if {[mayScan $win $btn2Win]} {
	    set x [expr {$rootX - [winfo x $win]}]

	    set y [expr {$rootY - [winfo y $win]}]
	    ::$win scan dragto $x $y








	    return ""
	}
    }

}

#------------------------------------------------------------------------------
# scrollutil::sf::onButtonRelease2
#------------------------------------------------------------------------------
proc scrollutil::sf::onButtonRelease2 w {
    if {[hasBtn2Bindings $w]} {
	return ""
    }

    variable sfList
    variable btn2Win
    foreach win $sfList {
	if {[mayScan $win $btn2Win]} {
	    variable origCursor
	    ::$win configure -cursor $origCursor

	    catch {$btn2Win configure -cursor $origCursor}

	    return ""
	}
    }
}

#------------------------------------------------------------------------------
# scrollutil::sf::mayScan
#------------------------------------------------------------------------------
proc scrollutil::sf::mayScan {sf w} {


    if {[string first $sf. $w.] != 0} {    ;# $w is not (a descendant of) $sf
	return 0
    }




    set sfTop [winfo toplevel $sf]
    set wTop [winfo toplevel $w]
    if {$sfTop ne $wTop} {		;# $sf and $w have different toplevels
	return 0
    }




    return 1
}

set auto_index(::scrollutil::pnb::tabToWidget) [list source [file join $dir plainnotebook.tcl]]
set auto_index(::scrollutil::pnb::tabToPnb) [list source [file join $dir plainnotebook.tcl]]
set auto_index(::scrollutil::pnb::mfToPnb) [list source [file join $dir plainnotebook.tcl]]
set auto_index(::scrollutil::pnb::destroyed) [list source [file join $dir plainnotebook.tcl]]
set auto_index(::scrollutil::sf::extendConfigSpecs) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::createBindings) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::scrollableframe) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::adaptBtn2EventHandling) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::doConfig) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::doCget) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::updateHorizPlaceOpts) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::updateVertPlaceOpts) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::scrollableframeWidgetCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::autofillxSubCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::autofillySubCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::autosizeSubCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::preparescanSubCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::scanSubCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::seeSubCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::seerectSubCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::xviewSubCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::yviewSubCmd) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::doAutosize) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::hasBtn2Bindings) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::roundUp) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::roundDn) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::roundUpOrDn) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::applyOffset) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::onFocusIn) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::onDestroy) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::onNoManagedChild) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::onScrollableframeMfConfigure) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::onScrollableframeCfConfigure) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::onButton2) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::onB2Motion) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::onButtonRelease2) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::sf::mayScan) [list source [file join $dir scrollableframe.tcl]]
set auto_index(::scrollutil::restoreScalingpct) [list source [file join $dir scrollarea.tcl]]
set auto_index(::scrollutil::sa::extendConfigSpecs) [list source [file join $dir scrollarea.tcl]]
set auto_index(::scrollutil::sa::createBindings) [list source [file join $dir scrollarea.tcl]]
set auto_index(::scrollutil::scrollarea) [list source [file join $dir scrollarea.tcl]]
set auto_index(::scrollutil::getscrollarea) [list source [file join $dir scrollarea.tcl]]
set auto_index(::scrollutil::sa::doConfig) [list source [file join $dir scrollarea.tcl]]
set auto_index(::scrollutil::sa::doCget) [list source [file join $dir scrollarea.tcl]]

set auto_index(::scrollutil::ss::unlockView) [list source [file join $dir scrollsync.tcl]]
set auto_index(::scrollutil::createBindings) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::addMouseWheelSupport) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::createWheelEventBindings) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::enableScrollingByWheel) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::disableScrollingByWheel) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::adaptWheelEventHandling) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::prepareScrollingByWheel) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::setFocusCheckWindow) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::focusCheckWindow) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::bindMouseWheel) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::condScrollByUnits) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::hasFocus) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::isCompatible) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::cycleMenuEntry1) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::cycleMenuEntry2) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::scaleIncrement1) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::ttkScaleIncrement1) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::scaleIncrement2) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::ttkScaleIncrement2) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::comparePaths) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::scrollByUnits) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::hasWheelBindings) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::mayScroll) [list source [file join $dir wheelEvent.tcl]]
set auto_index(::scrollutil::onScrlWidgetContDestroy) [list source [file join $dir wheelEvent.tcl]]

#==============================================================================
# Contains procedures related to mouse wheel event handling in scrollable
# widgets and scrollable widget containers like scrollutil::scrollableframe,
# BWidget ScrollableFrame, and iwidgets::scrolledframe.  Tested also with the
# scrolledframe::scrolledframe command of the Scrolledframe package by Maurice
# Bredelet (ulis) and its optimized and enhanced version contributed by Keith
# Nash, as well as with the sframe command implemented by Paul Walton (see
# https://wiki.tcl-lang.org/page/A+scrolled+frame).
#
# Structure of the module:
#   - Namespace initialization
#   - Private procedure creating mouse wheel and <Destroy> event bindings
#   - Public procedures
#   - Private procedures
#
# Copyright (c) 2019-2025  Csaba Nemethi (E-mail: [email protected])
#==============================================================================

#

	[package vcompare $::tk_patchLevel "8.7a4"] >= 0}]

    variable touchpadScrollSupport [expr {
	[llength [info commands ::tk::PreciseScrollDeltas]] != 0}]
}

#
# Private procedure creating mouse wheel and <Destroy> event bindings
# ===================================================================
#

#------------------------------------------------------------------------------
# scrollutil::createBindings
#
# Creates mouse wheel event bindings for the binding tags Scrollbar,
# TScrollbar, WheeleventRedir, and WheeleventBreak, as well as <Destroy> event
# bindings for the binding tags ScrlWidgetCont and WheeleventWidget.
#------------------------------------------------------------------------------
proc scrollutil::createBindings {} {
    variable winSys
    variable uniformWheelSupport

    #
    # On the windowing systems win32 and x11 there are no built-in mouse wheel
    # event bindings for the binding tag Scrollbar if the Tk version is earlier
    # than 8.6 -- create them here.  In addition, implement the behavior
    # specified by TIP 563 (i.e., the mouse wheel should scroll a horizontal or
    # vertical scrollbar regardless of whether the "Shift" key is down or not)
    #
    bind Scrollbar <Enter> {+
	if {![info exists tk::Priv(xEvents)]} {
	    set scrollutil::xWheelEvents 0; set scrollutil::yWheelEvents 0
	}
    }
    if {$uniformWheelSupport} {
	bind Scrollbar <MouseWheel> {
	    scrollutil::condScrollByUnits %W vh %D -40.0
	}
	bind Scrollbar <Option-MouseWheel> {
	    scrollutil::condScrollByUnits %W vh %D -12.0
	}
	bind Scrollbar <Shift-MouseWheel> {
	    scrollutil::condScrollByUnits %W hv %D -40.0
	}
	bind Scrollbar <Shift-Option-MouseWheel> {
	    scrollutil::condScrollByUnits %W hv %D -12.0
	}
    } else {
	if {$winSys eq "aqua"} {
	    bind Scrollbar <MouseWheel> {
		scrollutil::condScrollByUnits %W vh [expr {-(%D)}]
	    }
	    bind Scrollbar <Option-MouseWheel> {
		scrollutil::condScrollByUnits %W vh [expr {-10 * (%D)}]
	    }
	    bind Scrollbar <Shift-MouseWheel> {
		scrollutil::condScrollByUnits %W hv [expr {-(%D)}]
	    }
	    bind Scrollbar <Shift-Option-MouseWheel> {
		scrollutil::condScrollByUnits %W hv [expr {-10 * (%D)}]
	    }
	} else {
	    bind Scrollbar <MouseWheel> {
		scrollutil::condScrollByUnits %W vh \
		    [expr {%D >= 0 ? (-%D) / 30 : (-(%D) + 29) / 30}]
	    }
	    bind Scrollbar <Shift-MouseWheel> {
		scrollutil::condScrollByUnits %W hv \
		    [expr {%D >= 0 ? (-%D) / 30 : (-(%D) + 29) / 30}]
	    }

	    if {$winSys eq "x11"} {
		bind Scrollbar <Button-4> {
		    scrollutil::condScrollByUnits %W vh -5
		}
		bind Scrollbar <Button-5> {
		    scrollutil::condScrollByUnits %W vh  5
		}
		bind Scrollbar <Shift-Button-4> {
		    scrollutil::condScrollByUnits %W hv -5
		}
		bind Scrollbar <Shift-Button-5> {
		    scrollutil::condScrollByUnits %W hv  5
		}

		if {$::tk_patchLevel eq "8.7a3"} {
		    bind Scrollbar <Button-6> {
			scrollutil::condScrollByUnits %W hv -5
		    }
		    bind Scrollbar <Button-7> {
			scrollutil::condScrollByUnits %W hv  5
		    }
		}
	    }
	}
    }

    set eventList [list <MouseWheel> <Shift-MouseWheel>]

	    set tagList [bindtags $w2]
	    foreach tag {WheeleventRedir WheeleventBreak} {
		if {[set idx [lsearch -exact $tagList $tag]] >= 0} {
		    set tagList [lreplace $tagList $idx $idx]
		}
	    }

	    set idx 0
	    foreach tag $tagList {
		if {$tag eq $wTop || $tag eq "all"} {
		    incr idx
		    continue
		}

		if {$winSys ne "x11" || $uniformWheelSupport} {


		    set hasWheelBindings [expr {
			[bind $tag <MouseWheel>] ne "" ||
			[bind $tag <TouchpadScroll>] ne ""}]
		} else {
		    set hasWheelBindings [expr {[bind $tag <Button-4>] ne ""}]
		}
		if {!$hasWheelBindings} {
		    incr idx
		    continue
		}


		if {$ignoreFocus} {
		    bindtags $w2 [lreplace $tagList $idx $idx \
				  $tag WheeleventBreak]
		} else {
		    bindtags $w2 [lreplace $tagList $idx $idx \
				  WheeleventRedir $tag WheeleventBreak]
		}
		break

	    }
	}

	#
	# If $w is embedded into a scrollarea then invoke this
	# procedure for the scrollbars of that scrollarea, too
	#
	if {[set sa [getscrollarea $w]] ne "" && ([info level] == 1 ||
	    [lindex [info level -1] 0] ne
	    "scrollutil::prepareScrollingByWheel")} {
	    if {$ignoreFocus} {
		adaptWheelEventHandling -ignorefocus $sa.hsb $sa.vsb
	    } else {
		adaptWheelEventHandling $sa.hsb $sa.vsb
	    }
	}
    }
}

#------------------------------------------------------------------------------
# scrollutil::prepareScrollingByWheel
#
# Usage: scrollutil::prepareScrollingByWheel ?-ignorefocus?
#	 ?scrlWidgetCont scrlWidgetCont ...?
#
# For each scrollable widget container specified as argument, this command
# passes its descendants located in the same toplevel and having bindings for
# mouse wheel or <TouchpadScroll> events to scrollutil::adaptWheelEventHandling.
#------------------------------------------------------------------------------
proc scrollutil::prepareScrollingByWheel args {
    variable winSys
    if {$winSys eq "win32"} {
	package require Tk 8.6b2-
    }

    set ignoreFocus 0
    set arg0 [lindex $args 0]
    if {[string length $arg0] > 1 && [string first $arg0 "-ignorefocus"] == 0} {
	set ignoreFocus 1
	set args [lrange $args 1 end]
    }

    foreach swc $args {
	if {![winfo exists $swc]} {
	    return -code error "bad window path name \"$swc\""
	}

	if {[catch {$swc xview scroll 0 units}] != 0} {
	    return -code error \
		"widget $swc fails to support horizontal scrolling by units"
	}

	if {[catch {$swc yview scroll 0 units}] != 0} {
	    return -code error \
		"widget $swc fails to support vertical scrolling by units"
	}

	set widgetList {}
	set swcTop [winfo toplevel $swc]

	#
	# Level-order traversal
	#
	set lst1 [winfo children $swc]
	while {[llength $lst1] != 0} {
	    set lst2 {}
	    foreach w $lst1 {
		if {[winfo toplevel $w] eq $swcTop &&
		    ([winfo class $w] eq "Tablelist" ||
		     [hasWheelBindings $w])} {
		    lappend widgetList $w
		}
		foreach child [winfo children $w] {
		    lappend lst2 $child
		}
	    }
	    set lst1 $lst2
	}

	if {$ignoreFocus} {
	    eval adaptWheelEventHandling -ignorefocus $widgetList
	} else {
	    eval adaptWheelEventHandling $widgetList
	}
    }
}

#------------------------------------------------------------------------------
# scrollutil::setFocusCheckWindow
#
# Usage: scrollutil::setFocusCheckWindow widget ?widget ...? otherWidget
#
# For each widget argument, the command sets the associated "focus check
# window" to otherWidget.  This is the window to be used instead of the widget
# when checking whether the focus is on/inside or outside that window.  It must
# be an ancestor of or identical to widget.
#------------------------------------------------------------------------------
proc scrollutil::setFocusCheckWindow args {





    set argCount [llength $args]
    if {$argCount < 2} {
	return -code error "wrong # args: should be\
	    \"scrollutil::setFocusCheckWindow widget ?widget ...? otherWidget\""
    }

    foreach w $args {

#
# Returns the "focus check window" associated with widget.  This is the window
# that is used instead of the widget when checking whether the focus is
# on/inside or outside that window.  If the command setFocusCheckWindow was not
# invoked for widget then the return value is widget itself.
#------------------------------------------------------------------------------
proc scrollutil::focusCheckWindow w {





    if {![winfo exists $w]} {
	return -code error "bad window path name \"$w\""
    }

    variable focusCheckWinArr
    return [expr {[info exists focusCheckWinArr($w)] ?
		  $focusCheckWinArr($w) : $w}]

#
# Private procedures
# ==================
#

#------------------------------------------------------------------------------
# scrollutil::condScrollByUnits
#------------------------------------------------------------------------------
proc scrollutil::condScrollByUnits {w orient amount {divisor 1.0}} {
    if {![info exists ::tk::Priv(xEvents)]} {
	#
	# Count both the <MouseWheel> and <Shift-MouseWheel>
	# events, and ignore the non-dominant ones
	#
	variable xWheelEvents
	variable yWheelEvents

    if {[string match "*Scrollbar" [winfo class $w]] &&
	[string match {<Shift-*>} $event]} {
	return 1
    } else {
	set tagList [bindtags $w]
	set idx [lsearch -exact $tagList "WheeleventRedir"]
	set tag [lindex $tagList [incr idx]]
	if {$tag eq "Btn2EventRedir"} {
	    set tag [lindex $tagList [incr idx]]
	}
	return [expr {[bind $tag $event] ne ""}]
    }
}

#------------------------------------------------------------------------------
# scrollutil::cycleMenuEntry1
#------------------------------------------------------------------------------

    }
}

#------------------------------------------------------------------------------
# scrollutil::scrollByUnits
#------------------------------------------------------------------------------
proc scrollutil::scrollByUnits {w rootX rootY axis delta divisor} {
    if {[hasWheelBindings $w]} {
	return ""
    }

    set w [winfo containing -displayof $w $rootX $rootY]
    variable scrlWidgetContList
    foreach swc $scrlWidgetContList {
	if {[mayScroll $swc $w]} {
	    set number [expr {$delta/$divisor}]
	    set number \
		[expr {int($number > 0 ? ceil($number) : floor($number))}]
	    $swc ${axis}view scroll $number units
	    return -code break ""
	}
    }
}

#------------------------------------------------------------------------------
# scrollutil::hasWheelBindings
#------------------------------------------------------------------------------
proc scrollutil::hasWheelBindings w {
    variable winSys
    variable uniformWheelSupport

    set wTop [winfo toplevel $w]
    foreach tag [bindtags $w] {
	if {$tag eq $wTop || $tag eq "all"} {
	    continue
	}

	if {$winSys ne "x11" || $uniformWheelSupport} {
	    if {[bind $tag <MouseWheel>] ne "" ||
		[bind $tag <TouchpadScroll>] ne ""} {
		return 1
	    }
	} else {
	    if {[bind $tag <Button-4>] ne ""} {
		return 1
	    }
	}
    }

    return 0
}

#------------------------------------------------------------------------------
# scrollutil::mayScroll
#------------------------------------------------------------------------------
proc scrollutil::mayScroll {swc w} {
    if {[string first $swc. $w.] != 0} {    ;# $w is not (a descendant of) $swc
	return 0

    if {[winfo class $swc] eq "Scrolledframe" &&
	[llength [info commands ::iwidgets::scrolledframe]] != 0 &&
	($w eq [$swc component horizsb] || $w eq [$swc component vertsb])} {
	return 0
    }

    #
    # Don't scroll the widget $swc if the toplevel window of any
    # combobox widget contained in it is currently popped down
    #
    set toplevelList [wm stackorder $swcTop]
    if {[llength $toplevelList] == 1} {
	return 1
    } else {
	foreach top $toplevelList {