Unnamed Fossil Project

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

namespace eval ::ntk {

::itcl::extendedclass treeview {
    inherit classes::widget classes::utils

    protected variable paned
    protected variable panedManagerSpec

    public option [list -orient orient Orient] -default vertical



    public option [list -height height Height] -default 0
    public option [list -width width Width] -default 0




    constructor {args} {}

    private method IsMapped {widget}
    private method PaneRequest {managerData index width height}
    private method PaneRemoved {managerData index}
    private method PanedPlaceSlaves {managerData}
    public method PanedInitialize {recordPtr}
    public method PanedCleanup {args}
    private method ShoveUp {index pos}
    private method ShoveDown {index pos}
    private method SashLayout {index}
    private method PlaceSashes {panedInfo width height}
    public method PanedPostConfigure {recordPtr mask}
    public method PanedConfigure {args}
    public method PanedGetLayout {theme recordPtr}
    private method ReqHeight {window}
    private method ReqWidth {window}
    public method PanedSize {recordPtr widthVar heightVar}
    private method DrawSash {index}

    public method PanedDisplay {}







    private method CreatePane {slaveWindow}
    private method DestroyPane {widget}
    private method ConfigurePane {pane slaveWindow args}
    private method AddPane {destIndex slaveWindow args}
    public method PanedAddCommand {args} 
    public method add {args}
    public method PanedForgetCommand {args} 
    public method PanedIdentify {args} 
    public method PanedInsertCommand {args} 
    public method PanedPaneCommand {args} 
    public method PanedPanesCommand {args} 
    public method PanedSashposCommand {args} 





}

#================================ constructor ============================
#     
#=========================================================================

::itcl::body treeview::constructor {args} {
#puts stderr "treeview::constructor!"

    dict set core optionTable -orient [dict create];








    dict set core optionTable -orient type string
    dict set core optionTable -orient clientData ""
    dict set core optionTable -orient typeMask [list readonlyOption styleChanged]







    dict set core optionTable -height [dict create];
    dict set core optionTable -height type int
    dict set core optionTable -height clientData ""
    dict set core optionTable -height typeMask geometryChanged

    dict set core optionTable -width [dict create];
    dict set core optionTable -width type int
    dict set core optionTable -width clientData ""



    dict set core optionTable -width typeMask geometryChanged








    set TreeviewCommands [dict create]
    dict set TreeviewCommands add PanedAddCommand

    dict set TreeviewCommands cget WidgetCget

    dict set TreeviewCommands configure WidgetConfigure




    dict set TreeviewCommands forget PanedForgetCommand

    dict set TreeviewCommands identify PanedIdentify
    dict set TreeviewCommands insert PanedInsertCommand
    dict set TreeviewCommands instate WidgetInState




    dict set TreeviewCommands pane PanedPaneCommand
    dict set TreeviewCommands panes PanedPanesCommand
    dict set TreeviewCommands sashpos PanedSashposCommand


    dict set TreeviewCommands state WidgetState




    set widgetSpec [dict create]
    dict set widgetSpec className "TTreeview"
    dict set widgetSpec commands $TreeviewCommands
    dict set widgetSpec initializeProc PanedInitialize
    dict set widgetSpec cleanupProc PanedCleanup
    dict set widgetSpec configureProc PanedConfigure
    dict set widgetSpec postConfigureProc PanedPostConfigure
    dict set widgetSpec getLayoutProc PanedGetLayout
    dict set widgetSpec sizeProc PanedSize
    dict set widgetSpec layoutProc WidgetDoLayout
    dict set widgetSpec displayProc PanedDisplay
    dict set core widgetSpec $widgetSpec
    
    set paned [dict create]
    dict set paned width 0
    dict set paned height 0
    set panedManagerSpec [dict create]

    WidgetInit $args

    dict set core takeFocus 1
}

#================================ IsMapped ============================
#
#=========================================================================

::itcl::body treeview::IsMapped {widget} {
puts stderr "IsMapped!$widget!"
    # FIXME !!! temporary
    return 1
}

#================================ PaneRequest ============================
# PaneRequest --
#     Only update pane request size if slave is currently unmapped.
#     Geometry requests from mapped slaves are not directly honored
#     in order to avoid unexpected pane resizes (esp. while the
#     user is dragging a sash [#1325286]).
#=========================================================================

::itcl::body treeview::PaneRequest {managerData index width height} {
puts stderr "PaneRequest"
    set pane [::ntk::classes::manager::SlaveData [dict get $managerData mgr] $index
    set slaveWindow [::ntk::classes::manager::SlaveWindow [dict get $managerData mgr] $index]
    if {[cget -orient] eq "horizontal"} {
        set horizontal 1
    } else {
        set horizontal 0
    }
    if {[IsMapped $slaveWindow]} {
        if {$horizontal} {
            dict set pane reqSize $width
        } else {
            dict set pane reqSize $height
        }
    }
    return 1
}

#================================ PaneRemove ============================
#     
#=========================================================================

::itcl::body treeview::PaneRemoved {managerData index} {
puts stderr "PaneRemoved"
    set pane [::ntk::classes::manager::SlaveData [dict get $managerData mgr] $index
    DestroyPane $pane
}

#================================ PanedPlaceSlaves ============================
#     
#=========================================================================

::itcl::body treeview::PanedPlaceSlaves {managerData} {
#puts stderr "PanedPlaceSlaves"
    PlaceSashes $managerData [dict get $core width] [dict get $core height]
    PlacePanes $managerData
}

#================================ PanedInitialize ============================
#     Initialization hooks.
#=========================================================================

::itcl::body treeview::PanedInitialize {recordPtr} {
#puts stderr "PanedInitialize!"

    dict set panedManagerSpec requestedSize PanedSize
    dict set panedManagerSpec placeSlaves PanedPlaceSlaves
    dict set panedManagerSpec slaveRequest PaneRequest
    dict set panedManagerSpec slaveRemoved PaneRemoved
    #
    # CreateEventHandler(pw->core.tkwin, PanedEventMask, PanedEventProc, recordPtr)
    dict set paned mgr [::ntk::classes::manager::CreateManager $panedManagerSpec $recordPtr [dict get $core tkwin]]
    dict set paned sashLayout 0
    dict set paned sashThickness 1
    dict set paned weight 0
}

#================================ PanedCleanup ============================
#     Cleanup hooks.
#=========================================================================

::itcl::body treeview::PanedCleanup {recordPtr} {
    dict set paned sashLayout ""
    ::ntk::classes::manager::DeleteManager [dict get $paned mgr]
    dict set paned mgr ""
}

#================================ PanedConfigure ============================
#     
#=========================================================================

::itcl::body treeview::PanedConfigure {recordPtr mask} {
#puts stderr "PanedConfigure!$mask!"
    CoreConfigure $mask
}

#================================ ShoveUp ============================
# ShoveUp --
#     Place sash i at specified position, recursively shoving
#     previous sashes upwards as needed, until hitting the top

#     of the window.  If that happens, shove back down.


# 
#     Returns: final position of sash i.


#=========================================================================

::itcl::body treeview::ShoveUp {index pos} {
puts stderr "ShoveUp!$i!$pos!"
    set pane [::ntk::classes::manager::SlaveData [dict get $paned mgr] $index]
    set sashThickness [dict get $paned sashThickness]

    if {$index == 0} {
        if {$pos < 0} {
            set pos 0
        }
    } else {
        set prevPane [::ntk::classes::manager::SlaveData [dict get $paned mgr] [expr {$index-1}]]
        if {$pos < [dict get $prevPane sashPos] + $sashThickness} {
            set pos [expr {[ShoveUp $panedInfo [expr {$index-1}] [expr {$pos - $sashThickness}]] + $sashThickness}]



        }





    }
    dict set pane sashPos $pos
    set mgr [dict get $paned mgr]
    ::ntk::classes::manager::SetSlaveData mgr $index $pane]
    dict set paned mgr $mgr
    return $pos
}


#================================ ShoveDown ============================
# ShoveDown --
#     Same as ShoveUp, but going in the opposite direction
#     and stopping at the sentinel sash.
#=========================================================================

::itcl::body treeview::ShoveDown {index pos} {
puts stderr "ShoveDown!$index!$pos!"
    set pane [::ntk::classes::manager::SlaveData [dict get $paned mgr] $index]
    set sashThickness [dict get $paned sashThickness]

    if {$index == [NumberSlaves [dict get $paned mgr]] - 1} {
        set pos [dict get $pane sashPos] ; # Sentinel value == master window size
    } else {
        set nextPane [::ntk::classes::manager::SlaveData [dict get $paned mgr] [expr {$index+1}]]
        if {$pos + $sashThickness > [dict get $nextPane sashPos]} {
            set pos [expr {[ShoveDown $panedInfo [expr {$index+1}] [expr {$pos + $sashThickness}]] - $sashThickness}]
        }



    }
    dict set paned sashPos $pos
    return $pos


}



#================================ PlaceSashes ============================
# PlaceSashes --
#     Set sash positions from pane request sizes and available space.
#     The sentinel sash position is set to the available space.
# 
#     Allocate pane->reqSize pixels to each pane, and distribute
#     the difference = available size - requested size according
#     to pane weight.



# 
#     If there's still some left over, squeeze panes from the bottom up
#     (This can happen if all weights are zero, or if one or more panes
#     are too small to absorb the required shrinkage).

# 
# Notes:
#     This doesn't distribute the remainder pixels as evenly as it could
#     when more than one pane has weight > 1.
#=========================================================================

::itcl::body treeview::PlaceSashes {panedInfo width height} {
#puts stderr "PlaceSashes!w!$width!h!$height!"
    set mgr [dict get $paned mgr]
    set nPanes [::ntk::classes::manager::NumberSlaves $mgr]
    set sashThickness [dict get $paned sashThickness]
    if {[cget -orient] eq "horizontal"} {
        set available $width
    } else {
        set available $height

    }
    set reqSize 0
    set totalWeight 0

    if {$nPanes == 0} {
       return



    }



    # Compute total required size and total available weight:

    set i 0
    while {$i < $nPanes} {
         set pane [::ntk::classes::manager::SlaveData $mgr $i]
         set reqSize [expr {$reqSize + [dict get $pane reqSize]}]
         set totalWeight [expr {$totalWeight + [dict get $pane weight] * ([dict get $pane reqSize] != 0)}];
	 incr i



    }
    # Compute difference to be redistributed:



    set difference [expr {$available - $reqSize - $sashThickness*($nPanes-1)}]
    if {$totalWeight != 0} {
        set delta [expr {$difference / $totalWeight}]
        set remainder [expr {$difference % $totalWeight}]
        if {$remainder < 0} {
            incr delta -1
            set remainder [expr {$remainder + $totalWeight}]
        }
     } else {
        set delta 0
	set remainder 0



     }
     # ASSERT: 0 <= remainder < totalWeight */



     # Place sashes:
     set pos 0
     set i 0
     while {$i < $nPanes} {
         set pane [::ntk::classes::manager::SlaveData $mgr $i]
         set weight [expr {[dict get $pane weight] * ([dict get $pane reqSize] != 0)}]
         set size [expr {[dict get $pane reqSize] + $delta * $weight}]

         if {$weight > $remainder} {
             set weight $remainder



         }
         set remainder [expr {$rmeainder - $weight}]
         set size [expr {$size + $weight}]



         if {$size < 0} {
             set size 0
         }


	 set pos [expr {$pos + $size}]
         dict set pane sashPos $pos
         ::ntk::classes::manager::SetSlaveData mgr $i $pane]
         dict set paned mgr $mgr
         set pos [expr {$pos + $sashThickness}]
	 incr i

    }



    # Handle emergency shrink/emergency stretch:
    # Set sentinel sash position to end of widget,
    # shove preceding sashes up.
    ShoveUp $pane [expr {$nPanes - 1}] $available
}


#================================ PanedPostConfigure ============================
#     Post-configuration hook.
#=========================================================================

::itcl::body treeview::PanedPostConfigure {recordPtr mask} {
#puts stderr "PanedPostConfigure!$mask!"
    if {[lsearch $mask "geometryChanged"]} {
        # User has changed -width or -height.
        # Recalculate sash positions based on requested size.

 
        set tkwin [dict get $core tkwin]
	set width [dict get $paned width]
	if {$width <= 0} {
            set width [dict get $core width]
	}
	set height [dict get $paned height]
	if {$height <= 0} {
            set height [dict get $core height]



	}
        PlaceSashes $paned $width $height


    }
}


#================================ PanedGetLayout ============================
# Layout management hooks.
#=========================================================================

::itcl::body treeview::PanedGetLayout {theme recordPtr} {
#puts stderr "PanedGetLayout!$theme!"
    set panedLayout [WidgetGetLayout $theme $recordPtr]


    if {$panedLayout ne ""} {
        if {[cget -orient] eq "horizontal"} {
            set  horizontal 1
        } else {
            set  horizontal 0
        }
	if {$horizontal} {
            set layoutName ".Vertical.Sash"
        } else {
            set layoutName ".Horizontal.Sash"



        }
        set sashLayout [::ntk::classes::layout::CreateSubLayout $theme $panedLayout $core $layoutName ""]



        if {$sashLayout ne ""} {
            ::ntk::classes::layout::LayoutSize $sashLayout 0 sashWidth sashHeight
	    if {$horizontal} {
                dict set paned sashThickness $sashWidth
            } else {
                dict set paned sashThickness $sashHeight
            }


            if {[dict get $paned sashLayout] ne ""} {
                dict set paned sashLayout ""

            }
            dict set paned sashLayout $sashLayout
        } else {
            return 0


        }
    }





#puts stderr "PanedGetLayout END"
    return $panedLayout
}

#================================ ReqHeight ============================
#
#=========================================================================

::itcl::body treeview::ReqHeight {window} {
# FIXME !!! temporary
    return 16

}

#================================ ReqWidth ============================
#
#=========================================================================

::itcl::body treeview::ReqWidth {window} {
# FIXME !!! temporary
    return 70

}

#================================ PanedSize ============================
# PanedSize --
#     Compute the requested size of the paned widget
#     from the individual pane request sizes.
# 
#     Used as the WidgetSpec sizeProc and the ManagerSpec sizeProc.
#=========================================================================

::itcl::body treeview::PanedSize {recordPtr widthVar heightVar} {
    upvar $widthVar width
    upvar $heightVar height
#puts stderr "PanedSize!"
    set nPanes [::ntk::classes::manager::NumberSlaves [dict get $paned mgr]]
    set nSashes [expr {$nPanes - 1}]
    set sashThickness [dict get $paned sashThickness]
#puts stderr "nPanes!$nPanes!$nSashes!$sashThickness!"
    set mywidth 0
    set myheight 0

    if {[cget -orient] eq "horizontal"} {
        set index 0
        while {$index < $nPanes} {
            set pane [::ntk::classes::manager::SlaveData [dict get $paned mgr] $index]
            set slaveWindow [::ntk::classes::manager::SlaveWindow [dict get $paned mgr] $index]

            if {$myheight < [ReqHeight $slaveWindow]} {
                set myheight [ReqHeight $slaveWindow]



            }
            set mywidth [expr {$mywidth + [dict get $pane reqSize]}]
            incr index


        }
        set mywidth [expr {$mywidth + $nSashes * $sashThickness}]
#puts stderr "mywidth!$mywidth!"
    } else {
        set index 0
        while {$index < $nPanes} {
            set pane [::ntk::classes::manager::SlaveData [dict get $paned mgr] $index]
            set slaveWindow [::ntk::classes::manager::SlaveWindow [dict get $paned mgr] $index]

            if {$mywidth < [ReqWidth $slaveWindow]} {
                set mywidth [ReqWidth $slaveWindow]



            }
            set mywidth [ReqWidth $slaveWindow]
            set myheight [expr {$myheight + [dict get $pane reqSize]}]
            incr index


        }
        set myheight [expr {$myheight + $nSashes * $sashThickness}]
    }


    if {[dict get $paned width] > 0} {
        set width [dict get $paned width]
    } else {
        set width $mywidth;

    }
    if {[dict get $paned height] > 0} {
        set height [dict get $paned height]
    } else {
        set height $myheight;


    }
puts stderr "PanedSize END!$width!$height!"
    return 1
}


#================================ SashLayout ============================
# SashLayout --
#     Place the sash sublayout after the specified pane,
#     in preparation for drawing.
#=========================================================================

::itcl::body treeview::SashLayout {index} {
#puts stderr "SashLayout!$index!"
#puts stderr "SashLayout!mgr!"
    set pane [::ntk::classes::manager::SlaveData [dict get $paned mgr] $index]
    set thickness [dict get $paned sashThickness]
    set height [dict get $core height]
    set width [dict get $core width]
    set sashPos [dict get $pane sashPos]

    if {[cget -orient] eq "horizontal"} {
        set box [list $sashPos 0 $thickness $height]
    } else {
        set box [list 0 $sashPos $width $thickness]
    }
    set sashLayout [dict get $paned sashLayout]
    ::ntk::classes::layout::PlaceLayout sashLayout [dict get $core state] $box
    dict set paned sashLayout $sashLayout
    return $sashLayout



}




#================================ DrawSash ============================
#     
#=========================================================================

::itcl::body treeview::DrawSash {index} {
puts stderr "DrawSash!$index!"
    ::ntk::classes::layout::DrawLayout [SashLayout $index] [dict get $core state]
}

#================================ PanedDisplay ============================
#     
#=========================================================================

::itcl::body treeview::PanedDisplay {} {
#puts stderr "PanedDisplay!"
    set nSashes [expr {[::ntk::classes::manager::NumberSlaves [dict get $paned mgr]] - 1}]
    WidgetDisplay
    set i 0
    while {$i < $nSashes} {
        DrawSash $i
        incr i
    }
}

#================================ CreatePane ============================
# CreatePane --
#     Create a new pane record.
#=========================================================================

::itcl::body treeview::CreatePane {slaveWindow} {
#puts stderr "CreatePane!$slaveWindow!"
    set mypane [dict create]
    if {[cget -orient] eq "horizontal"} {
        set reqSize [$slaveWindow cget -width]
    } else {
        set reqSize [$slaveWindow cget -height]
    }
    dict set mypane reqSize $reqSize
    dict set mypane sashPos 0
    dict set mypane weight 0
    return $mypane
}

#================================ DestroyPane ============================
# DestroyPane --
#     Free pane record.
#=========================================================================

::itcl::body treeview::DestroyPane {pane} {
puts stderr "DestroyPane!$pane!"
}

#================================ ConfigurePane ============================
# ConfigurePane --
#     Set pane options.
#=========================================================================

::itcl::body treeview::ConfigurePane {pane slaveWindow args} {
#puts stderr "ConfigurePane!$pane!"
    set mgr [dict get $paned mgr]
    set mask [list]
#    if (Tk_SetOptions(interp, (void*)pane, pw->paned.paneOptionTable,
#        objc, objv, slaveWindow, &savedOptions, &mask) != TCL_OK) {
#        return TCL_ERROR;
#    }

    # Sanity-check:
    if {[dict get $pane weight] < 0} {
#        Tk_RestoreSavedOptions(&savedOptions);
        return -code error "-weight must be nonnegative"
    }

    # Done.
#    Tk_FreeSavedOptions(&savedOptions);
    ::ntk::classes::manager::ManagerSizeChanged $mgr
    return 0
}

#================================ AddPane ============================
# 
#=========================================================================

::itcl::body treeview::AddPane {destIndex slaveWindow args} {
#puts stderr "AddPane!$destIndex!$slaveWindow!$args!"
#    if (!Ttk_Maintainable(interp, slaveWindow, pw->core.tkwin)) {
#        return TCL_ERROR;
#    }
    if {[::ntk::classes::manager::SlaveIndex [dict get $paned mgr] $slaveWindow] >= 0} {
        return -code error "$slaveWindow already added"
    }

    set pane [CreatePane $slaveWindow]
    if {[ConfigurePane $pane $slaveWindow $args] != 0} {
        DestroyPane $pane
        return
    }

    set mgr [dict get $paned mgr]
    ::ntk::classes::manager::InsertSlave mgr $destIndex $slaveWindow $pane
    dict set paned mgr $mgr
#puts stderr "AddPane end"
}

#================================ PanedAddCommand ============================
#     
#=========================================================================

::itcl::body treeview::PanedAddCommand {args} {
#puts stderr "PanedAddCommand!$args!"
    set slaveWindow [lindex $args 0]
    return [AddPane [::ntk::classes::manager::NumberSlaves [dict get $paned mgr]] $slaveWindow [lrange $args 1 end]]
}

#================================ add ============================
#     
#=========================================================================

::itcl::body treeview::add {args} {
#puts stderr "add!$args!"
    return [PanedAddCommand {*}$args]
}

#================================ PanedForgetCommand ============================
#     
#=========================================================================

::itcl::body treeview::PanedForgetCommand {args} {
puts stderr "PanedForgetCommand!$args!"
}

#================================ PanedIdentifyCommand ============================
#     
#=========================================================================

::itcl::body treeview::PanedIdentify {args} {
puts stderr "PanedIdentifyCommand!$args!"
}

#================================ PanedInsertCommand ============================
#     
#=========================================================================

::itcl::body treeview::PanedInsertCommand {args} {
puts stderr "PanedInsertCommand!$args!"
}

#================================ PanedPaneCommand ============================
#     
#=========================================================================

::itcl::body treeview::PanedPaneCommand {args} {
puts stderr "PanedPaneCommand!$args!"
}

#================================ PanedPanesCommand ============================
#     
#=========================================================================

::itcl::body treeview::PanedPanesCommand {args} {
puts stderr "PanedPanesCommand!$args!"
}

#================================ PanedSashposCommand ============================
#     
#=========================================================================

::itcl::body treeview::PanedSashposCommand {args} {
puts stderr "PanedSashposCommand!$args!"
}

} ; # end namespace ::ntk::classes

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

namespace eval ::ntk {

::itcl::extendedclass treeview {
    inherit classes::widget classes::utils

    protected variable treeview


    public option [list -columns columns Columns] -default ""
    public option [list -displaycolumns displayColumns DisplayColumns] -default "#all"
    public option [list -show show Show] -default "tree headings"
    public option [list -selectmode selectMode SelectMode] -default "extended"
    public option [list -height height Height] -default 10

    public option [list -padding padding Padding] -default [list 0 0 0 0]
    public option [list -xscrollcommand xScrollCommand ScrollCommand] -default ""
    public option [list -yscrollcommand yScrollCommand ScrollCommand] -default ""

    constructor {args} {}





    public method TreeviewInitialize {recordPtr}
    public method TreeviewCleanup {args}




    public method TreeviewPostConfigure {recordPtr mask}
    public method TreeviewConfigure {args}
    public method TreeviewGetLayout {theme recordPtr}


    public method TreeviewSize {recordPtr widthVar heightVar}

    public method TreeviewDoLayout {recordPtr}
    public method TreeviewDisplay {}

    public method TreeviewBBoxCommand {args} 
    public method TreeviewChildrenCommand {args} 
    public method TreeviewColumnCommand {args} 
    public method TreeviewDeleteCommand {args} 
    public method TreeviewDetachCommand {args} 
    public method TreeviewDragCommand {args} 
    public method TreeviewExistsCommand {args} 
    public method TreeviewFocusCommand {args} 
    public method TreeviewHeadingCommand {args} 
    public method TreeviewIdentifyCommand {args} 
    public method TreeviewIndexCommand {args} 
    public method TreeviewInsertCommand {args} 
    public method TreeviewItemCommand {args} 
    public method TreeviewMoveCommand {args} 
    public method TreeviewNextCommand {args} 
    public method TreeviewParentCommand {args} 
    public method TreeviewPrevCommand {args} 
    public method TreeviewSeeCommand {args} 
    public method TreeviewSelectionCommand {args} 
    public method TreeviewSetCommand {args} 
    public method TreeviewTagCommands {args}
    public method TreeviewXViewCommand {args}
    public method TreeviewYViewCommand {args}
}

#================================ constructor ============================
#     
#=========================================================================

::itcl::body treeview::constructor {args} {
#puts stderr "treeview::constructor!"
    dict set core optionTable -columns [dict create];
    dict set core optionTable -columns type string
    dict set core optionTable -columns clientData ""
    dict set core optionTable -columns typeMask [list columnsChanged geometryChanged]

    dict set core optionTable -displaycolumns [dict create];
    dict set core optionTable -displaycolumns type string
    dict set core optionTable -displaycolumns clientData ""
    dict set core optionTable -displaycolumns typeMask [list dcolumnsChanged geometryChanged]

    dict set core optionTable -show [dict create];
    dict set core optionTable -show type string
    dict set core optionTable -show clientData ""
    dict set core optionTable -show typeMask [list showChanged geometryChanged]

    dict set core optionTable -selectmode [dict create];
    dict set core optionTable -selectmode type string_table
    dict set core optionTable -selectmode clientData [list "none" "browse" "extended"]
    dict set core optionTable -selectmode typeMask ""

    dict set core optionTable -height [dict create];
    dict set core optionTable -height type pixels
    dict set core optionTable -height clientData ""
    dict set core optionTable -height typeMask geometryChanged

    dict set core optionTable -padding [dict create];
    dict set core optionTable -padding type string
    dict set core optionTable -padding clientData ""
    dict set core optionTable -padding typeMask geometryChanged

    dict set core optionTable -xscrollcommand [dict create];
    dict set core optionTable -xscrollcommand type string
    dict set core optionTable -xscrollcommand clientData ""
    dict set core optionTable -xscrollcommand typeMask scrollcmdChanged

    dict set core optionTable -yscrollcommand [dict create];
    dict set core optionTable -yscrollcommand type string
    dict set core optionTable -yscrollcommand clientData ""
    dict set core optionTable -yscrollcommand typeMask scrollcmdChanged

    set TreeviewCommands [dict create]
    dict set TreeviewCommands bbox      TreeviewBBoxCommand
    dict set TreeviewCommands children  TreeviewChildrenCommand
    dict set TreeviewCommands cget      WidgetCgetCommand
    dict set TreeviewCommands column    TreeviewColumnCommand
    dict set TreeviewCommands configure WidgetConfigureCommand
    dict set TreeviewCommands delete    TreeviewDeleteCommand
    dict set TreeviewCommands detach    TreeviewDetachCommand
    dict set TreeviewCommands drag      TreeviewDragCommand
    dict set TreeviewCommands exists    TreeviewExistsCommand
    dict set TreeviewCommands focus     TreeviewFocusCommand
    dict set TreeviewCommands heading   TreeviewHeadingCommand
    dict set TreeviewCommands identify  TreeviewIdentifyCommand
    dict set TreeviewCommands index     TreeviewIndexCommand
    dict set TreeviewCommands instate   WidgetInstateCommand
    dict set TreeviewCommands insert    TreeviewInsertCommand
    dict set TreeviewCommands item      TreeviewItemCommand
    dict set TreeviewCommands move      TreeviewMoveCommand
    dict set TreeviewCommands next      TreeviewNextCommand
    dict set TreeviewCommands parent    TreeviewParentCommand
    dict set TreeviewCommands prev      TreeviewPrevCommand
    dict set TreeviewCommands see       TreeviewSeeCommand
    dict set TreeviewCommands selection TreeviewSelectionCommand
    dict set TreeviewCommands set       TreeviewSetCommand
    dict set TreeviewCommands state     WidgetStateCommand
    dict set TreeviewCommands tag       TreeviewTagCommands
    dict set TreeviewCommands xview     TreeviewXViewCommand
    dict set TreeviewCommands yview     TreeviewYViewCommand

    set widgetSpec [dict create]
    dict set widgetSpec className "Treeview"
    dict set widgetSpec commands $TreeviewCommands
    dict set widgetSpec initializeProc TreeviewInitialize
    dict set widgetSpec cleanupProc TreeviewCleanup
    dict set widgetSpec configureProc TreeviewConfigure
    dict set widgetSpec postConfigureProc TreeviewPostConfigure
    dict set widgetSpec getLayoutProc TreeviewGetLayout
    dict set widgetSpec sizeProc TreeviewSize
    dict set widgetSpec layoutProc TreeviewDoLayout
    dict set widgetSpec displayProc TreeviewDisplay
    dict set core widgetSpec $widgetSpec
    
    set treeview [dict create]




    WidgetInit $args

    dict set core takeFocus 1
}


























































#================================ TreeviewInitialize ============================
#     Initialization hooks.
#=========================================================================

::itcl::body treeview::TreeviewInitialize {recordPtr} {
puts stderr "TreeviewInitialize!"











}

#================================ TreeviewCleanup ============================
#     Cleanup hooks.
#=========================================================================

::itcl::body treeview::TreeviewCleanup {recordPtr} {



}

#================================ TreeviewConfigure ============================
#     
#=========================================================================

::itcl::body treeview::TreeviewConfigure {recordPtr mask} {
puts stderr "TreeviewConfigure!$mask!"
    CoreConfigure $mask
}

#================================ TreeviewPostConfigure ============================
#     Post-configuration hook.
#=========================================================================


::itcl::body treeview::TreeviewPostConfigure {recordPtr mask} {
#puts stderr "TreeviewPostConfigure!$mask!"
}


#================================ TreeviewGetLayout ============================
# Layout management hooks.
#=========================================================================

::itcl::body treeview::TreeviewGetLayout {theme recordPtr} {
puts stderr "TreeviewGetLayout!$theme!"


}








#================================ TreeviewSize ============================
# TreeviewSize --
#=========================================================================

::itcl::body treeview::TreeviewSize {recordPtr widthVar heightVar} {
    upvar $widthVar width
    upvar $heightVar height
#puts stderr "TreeviewSize!"
puts stderr "TreeviewSize END!$width!$height!"
}






#================================ TreeviewDoLayout ============================
#     




#=========================================================================

::itcl::body treeview::TreeviewDoLayout {} {
puts stderr "TreeviewDoLayout!"


}







#================================ TreeviewDisplay ============================
#     
#=========================================================================



::itcl::body treeview::TreeviewDisplay {} {
puts stderr "TreeviewDisplay!"
}

#================================ TreeviewBBoxCommand ============================
#     
#=========================================================================







::itcl::body treeview::TreeviewBBoxCommand {args} {
puts stderr "TreeviewBBoxCommand!$args!"
}




#================================ TreeviewChildrenCommand ============================
#     



#=========================================================================

::itcl::body treeview::TreeviewChildrenCommand {args} {








puts stderr "TreeviewChildrenCommand!$args!"
}





#================================ TreeviewColumnCommand ============================
#     
#=========================================================================

::itcl::body treeview::TreeviewColumnCommand {args} {
puts stderr "TreeviewColumnCommand!$args!"
}








#================================ TreeviewDeleteCommand ============================
#     
#=========================================================================


::itcl::body treeview::TreeviewDeleteCommand {args} {
puts stderr "TreeviewDeleteCommand!$args!"
}











#================================ TreeviewDetachCommand ============================
#     
#=========================================================================


::itcl::body treeview::TreeviewDetachCommand {args} {
puts stderr "TreeviewDetachCommand!$args!"
}










#================================ TreeviewDragCommand ============================
#     
#=========================================================================



::itcl::body treeview::TreeviewDragCommand {args} {
puts stderr "TreeviewDragCommand!$args!"
}



#================================ TreeviewExistsCommand ============================
#     






#=========================================================================

::itcl::body treeview::TreeviewExistsCommand {args} {
puts stderr "TreeviewExistsCommand!$args!"
}





#================================ TreeviewFocusCommand ============================
#     


#=========================================================================

::itcl::body treeview::TreeviewFocusCommand {args} {




puts stderr "TreeviewFocusCommand!$args!"
}








#================================ TreeviewHeadingCommand ============================
#     
#=========================================================================


::itcl::body treeview::TreeviewHeadingCommand {args} {
puts stderr "TreeviewHeadingCommand!$args!"
}

#================================ TreeviewIdentifyCommand ============================
#     


#=========================================================================

::itcl::body treeview::TreeviewIdentifyCommand {args} {


puts stderr "TreeviewIdentifyCommand!$args!"
}










#================================ TreeviewIndexCommand ============================
#     
#=========================================================================


::itcl::body treeview::TreeviewIndexCommand {args} {
puts stderr "TreeviewIndexCommand!$args!"
}







#================================ TreeviewInsertCommand ============================
#     


#=========================================================================




::itcl::body treeview::TreeviewInsertCommand {args} {
puts stderr "TreeviewInsertCommand!$args!"
}

#================================ TreeviewItemCommand ============================
#     
#=========================================================================

::itcl::body treeview::TreeviewItemCommand {args} {
puts stderr "TreeviewItemCommand!$args!"

}

#================================ TreeviewMoveCommand ============================
#     
#=========================================================================

::itcl::body treeview::TreeviewMoveCommand {args} {


puts stderr "TreeviewMoveCommand!$args!"
}

#================================ TreeviewNextCommand ============================
#     
#=========================================================================

::itcl::body treeview::TreeviewNextCommand {args} {


puts stderr "TreeviewNextCommand!$args!"
}

#================================ TreeviewParentCommand ============================



#     

#=========================================================================

::itcl::body treeview::TreeviewParentCommand {args} {


puts stderr "TreeviewParentCommand!$args!"






}








#================================ TreeviewPrevCommand ============================
#     
#=========================================================================



::itcl::body treeview::TreeviewPrevCommand {args} {
puts stderr "TreeviewPrevCommand!$args!"
}










#================================ TreeviewSeeCommand ============================
#     
#=========================================================================




::itcl::body treeview::TreeviewSeeCommand {args} {
puts stderr "TreeviewSeeCommand!$args!"
}


#================================ TreeviewSelectionCommand ============================
#     




#=========================================================================





::itcl::body treeview::TreeviewSelectionCommand {args} {
puts stderr "TreeviewSelectionCommand!$args!"
}



#================================ TreeviewSetCommand ============================
#     




#=========================================================================

::itcl::body treeview::TreeviewSetCommand {args} {

puts stderr "TreeviewSetCommand!$args!"





}









#================================ TreeviewTagCommand ============================
#     
#=========================================================================

::itcl::body treeview::TreeviewTagCommand {args} {
puts stderr "TreeviewTagCommand!$args!"
}

#================================ TreeviewXViewCommand ============================
#     
#=========================================================================

::itcl::body treeview::TreeviewXViewCommand {args} {































































































puts stderr "TreeviewXViewCommand!$args!"
}











#================================ TreeviewYViewCommand ============================
#     
#=========================================================================

::itcl::body treeview::TreeviewYViewCommand {args} {
puts stderr "TreeviewYViewCommand!$args!"

}

















































} ; # end namespace ::ntk::classes