2001-09-07  Andreas Kupries  <[email protected]>

	* mclistbox.tcl: Added 'FirstVisibleColumn' to retrieve the id of
	  the first non-hidden column. Using this procedure in some place
	  which have trouble to compute a sensible value for a hidden
	  column (pointer location to row index for example). This fixes
	  bug [455732].

2000-09-24  Dan Kuchler  <[email protected]>

        * mclistbox.tcl: Added a column field to the mclistbox
        '-dropcmd' callback so that special things can be done
        based on both the column as well as the row.

    # brings tears to my eyes.
    if {[string compare [winfo class $w] "Mclistbox"] == 0} {
	namespace delete ::mclistbox::$w
	rename $w {}
    }

}

# ::mclistbox::FirstVisibleColumn --
#
#    this proc returns the id of the first visible column.
#
# Arguments:
#
#    w       widget pathname
#
# Results:
#
#    a string

proc ::mclistbox::FirstVisibleColumn {w} {
    upvar ::mclistbox::${w}::misc      misc
    upvar ::mclistbox::${w}::options      options

    foreach id $misc(columns) {
	if {$options($id:-visible)} {break}
    }

    return $id
}

# ::mclistbox::MassageIndex --
#
#    this proc massages indicies of the form @x,y such that 
#    the coordinates are relative to the first listbox rather 
#    than relative to the topmost frame. 
#

#    may be used directly by an internal listbox.

proc ::mclistbox::MassageIndex {w index} {
    upvar ::mclistbox::${w}::widgets   widgets
    upvar ::mclistbox::${w}::misc      misc

    if {[regexp {@([0-9]+),([0-9]+)} $index matchvar x y]} {
	set id [FirstVisibleColumn $w]
	
	incr y -[winfo y $widgets(listbox$id)]
	incr y -[winfo y $widgets(frame$id)]
	incr x [winfo x $widgets(listbox$id)]
	incr x [winfo x $widgets(frame$id)]

	set index @${x},${y}

	    if {[llength $args] != 1} {
		error "wrong \# of args: should be $w bbox index"
	    }
	    # get a real index. This will adjust @x,y indicies
	    # to account for the label, if any.
	    set index [::mclistbox::MassageIndex $w [lindex $args 0]]

	    set id [FirstVisibleColumn $w]

	    # we can get the x, y, and height from the first 
	    # column.
	    set bbox [$widgets(listbox$id) bbox $index]
	    if {[string length $bbox] == 0} {return ""}

	    foreach {x y width h} $bbox {}

	index {

	    if {[llength $args] != 1} {
		error "wrong \# of args: should be $w index index"
	    }

	    set index [::mclistbox::MassageIndex $w [lindex $args 0]]

	    # Select a visible column to convert the screen location
	    # into row ... Invisible columns are not mapped and can't
	    # do this. They always returns row 0.

	    set id     [FirstVisibleColumn $w]
	    set result [$widgets(listbox$id) index $index]
	}

	insert {
	    if {[llength $args] < 1} {
		error "wrong \# of args: should be $w insert ?element \
		      element...?"

	    set prefix "wrong \# of args: should be $w"
	    switch $subcommand {
		includes {
		    if {[llength $args] != 1} {
			error "$prefix selection $subcommand index"
		    }
		    set index [::mclistbox::MassageIndex $w [lindex $args 0]]
		    set id [FirstVisibleColumn $w]
		    set result [$widgets(listbox$id) selection includes $index]
		}

		set {
		    switch [llength $args] {
			1 {
			    set index1 [::mclistbox::MassageIndex $w \