Tk Library Source Code

What is new in Tablelist 7.7?
-----------------------------

1. Added mouse and keyboard event bindings that invoke the "expand" and
   "collapse" subcommands with the "-fully" option.  See the updated
   subsection "TREE WIDGET BINDINGS:" in the reference manual for
   details (thanks to Torsten Berg for his proposal and testing).

2. Added explicit support for the "droid" theme, which is the default in
   AndroWish.

3. Improvements related to the themes provided by the awthemes package
   and the ones that are not explicitly supported by Tablelist.

          <td>Generated whenever the horizontal view in the tablelist widget's
          window changes (and the horizontal scrollbar, if any, is
          updated).</td>
          <td>A list consisting of the numerical indices of the leftmost and
          rightmost columns visible in the tablelist window, i.e., of the
          numerical equivalents of the <a href="#col_indices">column
          indices</a> <code><b>left</b></code> and
          <code><b>right</b></code>.</td>
        </tr>

        <tr valign="top">
          <td><code><b>&lt;&lt;TablelistYViewChanged&gt;&gt;</b></code></td>
          <td>Generated whenever the vertical view in the tablelist widget's
          window changes (and the vertical scrollbar, if any, is updated).</td>
          <td>A list consisting of the numerical indices of the topmost and
          bottommost body items visible in the tablelist window, i.e., of
          the numerical equivalents of the <a href="#row_indices">row
          indices</a> <code><b>top</b></code> and
          <code><b>bottom</b></code>.</td>
        </tr>
      </table>
    </dd>

    <dd class="tm">In addition, Tablelist_tile defines the virtual event
    <code><b>&lt;&lt;TablelistThemeDefaultsChanged&gt;&gt;</b></code> and sends
    it (without any user data) <i>to the main window</i> (!) after invoking the

      <ol>
        <li class="tm">Pressing mouse button 1 over an expand/collapse control
        toggles the expanded/collapsed state of the corresponding row by
        invoking the non-recursive version of the <code><b><a href=
        "#expand">expand</a></b></code> or <code><b><a href=
        "#collapse">collapse</a></b></code> subcommand (the one with the
        <code><b>-partly</b></code> argument).&nbsp; Pressing mouse button 1
        over an expand/collapse control with the <code>Alt</code> key down
        toggles the expanded/collapsed state of the corresponding row with the
        aid of the <code><b>expand</b></code> or <code><b>collapse</b></code>
        subcommand's recursive version (the one with the
        <code><b>-fully</b></code> argument).&nbsp; On Mac OS X/11+ Aqua the
        <code>Command</code> key is used instead of <code>Alt</code>.</li>

        <li class="tm">If the current active row contains an expand/collapse
        control in collapsed state then the <code>Right</code>,
        <code>plus</code>, and <code>KP_Add</code> keys expand that row by
        invoking the non-recursive version of the <code><b>expand</b></code>
        subcommand, while <code>Alt-Right</code>, <code>Alt-plus</code>, and
        <code>Alt-KP_Add</code> (<code>Command-Right</code>,
        <code>Command-plus</code>, and <code>Command-KP_Add</code> on Mac OS
        X/11+ Aqua) expand the row with the aid of the
        <code><b>expand</b></code> subcommand's recursive version.</li>

        <li class="tm">If the current active row contains an expand/collapse
        control in expanded state then the <code>Left</code>,
        <code>minus</code>, and <code>KP_Subtract</code> keys collapse that row
        by invoking the non-recursive version of the
        <code><b>collapse</b></code> subcommand, while <code>Alt-Left</code>,
        <code>Alt-minus</code>, and <code>Alt-KP_Subtract</code>
        (<code>Command-Left</code>, <code>Command-minus</code>, and
        <code>Command-KP_Subtract</code> on Mac OS X/11+ Aqua) collapse the row
        with the aid of the <code><b>collapse</b></code> subcommand's recursive
        version.</li>
      </ol>
    </dd>

    <dt class="tm" id="header_bindings"><b>DEFAULT AND INDIVIDUAL BINDINGS FOR
    THE HEADER ITEMS</b></dt>

    <dd>The header items are contained in a text widget whose binding tag

#------------------------------------------------------------------------------
# tablelist::defineTablelistBody
#
# Defines the bindings for the binding tag TablelistBody.
#------------------------------------------------------------------------------
proc tablelist::defineTablelistBody {} {
    variable winSys
    variable priv
    array set priv {
	x			""
	y			""
	afterId			""
	prevRow			""
	prevCol			""

    bind TablelistBody <Control-Button-1> {
	foreach {tablelist::W tablelist::x tablelist::y} \
	    [tablelist::convEventFields %W %x %y] {}
	if {$tablelist::y < [winfo y [$tablelist::W bodypath]]} {
	    continue		;# on a vertical separator, outside the body
	}






	tablelist::beginToggle $tablelist::W \
	    [$tablelist::W nearest       $tablelist::y] \
	    [$tablelist::W nearestcolumn $tablelist::x]
	tablelist::condFinishEditing $tablelist::W $tablelist::x $tablelist::y
    }
    set modifier [expr {$winSys eq "aqua" ? "Command" : "Alt"}]
    bind TablelistBody <$modifier-Button-1> [format {
	foreach {tablelist::W tablelist::x tablelist::y} \
	    [tablelist::convEventFields %%W %%x %%y] {}
	if {$tablelist::y < [winfo y [$tablelist::W bodypath]]} {
	    continue		;# on a vertical separator, outside the body
	}

	if {[tablelist::wasExpCollCtrlClicked %%W %%x %%y <%s-Button-1>]} {
	    set tablelist::priv(clickedExpCollCtrl) 1
	}
    } $modifier]
    bind TablelistBody <Button-2> {
	tablelist::handleBtn2Event <Button-2> %W %x %y %X %Y
    }
    bind TablelistBody <B2-Motion> {
	tablelist::handleBtn2Event <B2-Motion> %W %x %y %X %Y
    }
    bind TablelistBody <ButtonRelease-2> {

    }
    bind TablelistBody <minus> {
	tablelist::plusMinus [tablelist::getTablelistPath %W] <minus>
    }
    bind TablelistBody <KP_Subtract> {
	tablelist::plusMinus [tablelist::getTablelistPath %W] <minus>
    }
    bind TablelistBody <$modifier-plus> [format {
	tablelist::plusMinus [tablelist::getTablelistPath %%W] <%s-plus>
    } $modifier]
    bind TablelistBody <$modifier-KP_Add> [format {
	tablelist::plusMinus [tablelist::getTablelistPath %%W] <%s-plus>
    } $modifier]
    bind TablelistBody <$modifier-minus> [format {
	tablelist::plusMinus [tablelist::getTablelistPath %%W] <%s-minus>
    } $modifier]
    bind TablelistBody <$modifier-KP_Subtract> [format {
	tablelist::plusMinus [tablelist::getTablelistPath %%W] <%s-minus>
    } $modifier]

    foreach {virtual event} {
	PrevLine <Up>		 NextLine <Down>
	PrevChar <Left>		 NextChar <Right>
	LineStart <Home>	 LineEnd <End>
	PrevWord <Control-Left>	 NextWord <Control-Right>

    }
    bind TablelistBody $eventArr(PrevChar) {
	tablelist::leftRight [tablelist::getTablelistPath %W] <Left>
    }
    bind TablelistBody $eventArr(NextChar) {
	tablelist::leftRight [tablelist::getTablelistPath %W] <Right>
    }
    set tag [expr {$winSys eq "aqua" ? "TablelistBody2" : "TablelistBody"}]
    bind $tag <$modifier-Left> [format {
	tablelist::leftRight [tablelist::getTablelistPath %%W] <%s-Left>
    } $modifier]
    bind $tag <$modifier-Right> [format {
	tablelist::leftRight [tablelist::getTablelistPath %%W] <%s-Right>
    } $modifier]
    bind TablelistBody <Prior> {
	tablelist::priorNext [tablelist::getTablelistPath %W] -1
    }
    bind TablelistBody <Next> {
	tablelist::priorNext [tablelist::getTablelistPath %W] 1
    }
    bind TablelistBody $eventArr(LineStart) {

		bind TablelistBody <$modifier-$pattern> [format {
		    mwutil::processTraversal %%W Tablelist <%s>
		} $pattern]
	    }
	}
    }


    if {$::tk_version >= 8.7 &&
	[package vcompare $::tk_patchLevel "8.7a4"] >= 0} {
	bind TablelistBody <MouseWheel> {
	    tablelist::handleWheelEvent <MouseWheel> y %W \
		%X %Y %D -40.0
	}
	bind TablelistBody <Option-MouseWheel> {

		    $tablelist::W selection clear 0 end
		    tablelist::genTablelistSelectEvent $tablelist::W
		}
	    }
	}
    }

    foreach event {<Control-Left> <<PrevWord>> <Control-Right> <<NextWord>>
		   <Control-Prior> <Control-Next> <<Copy>>} {
	if {[set script [bind Listbox $event]] eq ""} {
	    continue
	}

	set script [string map {
	    "%W" "$tablelist::W"  "%x" "$tablelist::x"  "%y" "$tablelist::y"
	} $script]


	##nagelfar ignore
	bind TablelistBody $event [format {
	    if {[winfo exists %%W]} {
		foreach {tablelist::W tablelist::x tablelist::y} \
		    [tablelist::convEventFields %%W %%x %%y] {}
		%s
	    }
	} $script]

    }
}

#------------------------------------------------------------------------------
# tablelist::invokeMotionHandler
#
# Invokes the procedure handleMotionDelayed for the body of the tablelist

	}
    }

    if {$op ne ""} {
	#
	# Toggle the state of the expand/collapse control
	#
	set how [expr {$event eq "<plus>" || $event eq "<minus>" ?
		       "-partly" : "-fully"}]
	if {[::$win cget -showbusycursor]} { ::$win setbusycursor }
	::$win $op $row $how				;# can take long
	::$win restorecursor
    }
}

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

		set op "collapse"
	    }
	}
    }

    if {$op eq ""} {
	set amount [expr {[string match "*Right>" $event] ? 1 : -1}]




	switch $data(-selecttype) {
	    row {
		::$win xview scroll $amount units
	    }

	    cell {
		if {$data(editRow) >= 0} {
		    return ""
		}

		set col $data(activeCol)
		while 1 {
		    incr col $amount
		    if {$col < 0 || $col > $data(lastCol)} {
			return ""
		    } elseif {!$data($col-hide)} {
			condChangeSelection $win $row $col
			return ""

		    }
		}
	    }
	}
    } else {
	#
	# Toggle the state of the expand/collapse control
	#
	set how [expr {$event eq "<Left>" || $event eq "<Right>" ?
		       "-partly" : "-fully"}]
	if {[::$win cget -showbusycursor]} { ::$win setbusycursor }
	::$win $op $row $how				;# can take long
	::$win restorecursor
    }
}

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

			 -container 0 -cursor $data(-cursor) -height 2 \
			 -highlightthickness 0 -padx 0 -pady 0 -relief sunken \
			 -takefocus 0
	}
    }

    #
    # Create the body text widget within the main frame and replace the
    # binding tag Text with $data(bodyTag), TablelistBody, and
    # TablelistBody2 in the list of its binding tags.  TablelistBody2
    # is needed on the Mac to work around some binding-related problems.
    #
    set w $data(body)
    text $w -borderwidth 0 -exportselection 0 -highlightthickness 0 \
	    -insertwidth 0 -padx 0 -pady 0 -state normal -takefocus 0 -wrap none
    catch {$w configure -undo 0};  # because of a text widget issue in Tk 8.6.6
    bind $w <Configure> { tablelist::bodyConfigure %W %w %h }
    pack $w -expand 1 -fill both
    bindtags $w [list $w $data(bodyTag) TablelistBody TablelistBody2 \
		 $data(topWin) TablelistKeyNav all]

    #
    # Create the "stripe", "select", "curRow", "active", "disabled", "redraw",
    # "hiddenRow", "elidedRow", "hiddenCol", and "elidedCol" tags in the body
    # text widget.  Don't use the built-in "sel" tag because on Windows the
    # selection in a text widget only becomes visible when the window gets
    # the input focus.  DO NOT CHANGE the order of creation of these tags!