Unnamed Fossil Project

Check-in [55e6d4181b]
Login

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

Overview
Comment:fixes
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:55e6d4181b24d30a60d4c89926c0bfe0c48b901a
User & Date: arnulf 2013-09-14 21:45:02
Context
2013-09-15
09:02
initial version check-in: 89bb55d932 user: arnulf tags: trunk
2013-09-14
21:45
fixes check-in: 55e6d4181b user: arnulf tags: trunk
21:38
new code check-in: 8033b6180f user: arnulf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/ntkTTreeview.tcl.

57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
...
108
109
110
111
112
113
114

115
116
117
118
119
120
121
...
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
...
196
197
198
199
200
201
202


203
204
205
206
207
208
209
...
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
    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 ============================
#     
#=========================================================================
................................................................................
    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 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
................................................................................

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

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


}

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

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

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

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

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








|







 







>







 







|







 







>
>







 







|







57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
...
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
...
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
...
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
...
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
    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 TreeviewTagCommand {args}
    public method TreeviewXViewCommand {args}
    public method TreeviewYViewCommand {args}
}

#================================ constructor ============================
#     
#=========================================================================
................................................................................
    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 TreeviewTagCommands [list]
    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 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
................................................................................

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

::itcl::body treeview::TreeviewGetLayout {theme recordPtr} {
puts stderr "TreeviewGetLayout!$theme!"
# FIXME !!! Temporary
    return [WidgetGetLayout $theme $recordPtr]
}

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

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

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

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

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

Changes to library/tclIndex.

61
62
63
64
65
66
67
68
69
70

71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
set auto_index(::ntk::classes::ButtonBorderElement::ElementDraw) [list source [file join $dir ntkButtonBorderElement.tcl]]
set auto_index(::ntk::classes::IndicatorElement) [list source [file join $dir ntkIndicatorElement.tcl]]
set auto_index(::ntk::classes::IndicatorElement::InitializeOptionValues) [list source [file join $dir ntkIndicatorElement.tcl]]
set auto_index(::ntk::classes::IndicatorElement::ElementSize) [list source [file join $dir ntkIndicatorElement.tcl]]
set auto_index(::ntk::classes::IndicatorElement::ElementDraw) [list source [file join $dir ntkIndicatorElement.tcl]]
set auto_index(::ntk::treeview) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::constructor) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::IsMapped) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PaneRequest) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PaneRemoved) [list source [file join $dir ntkTTreeview.tcl]]

set auto_index(::ntk::treeview::PanedPlaceSlaves) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedInitialize) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedCleanup) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedConfigure) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::ShoveUp) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::ShoveDown) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PlaceSashes) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedPostConfigure) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedGetLayout) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::ReqHeight) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::ReqWidth) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedSize) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::SashLayout) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::DrawSash) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedDisplay) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::CreatePane) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::DestroyPane) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::ConfigurePane) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::AddPane) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedAddCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::add) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedForgetCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedIdentify) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedInsertCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedPaneCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedPanesCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::PanedSashposCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::classes::init) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::init) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::RegisterElements) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::RegisterWidgets) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::RegisterThemes) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::init) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::RegisterElements) [list source [file join $dir ntkInit.tcl]]







|
|
|
>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|







61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
set auto_index(::ntk::classes::ButtonBorderElement::ElementDraw) [list source [file join $dir ntkButtonBorderElement.tcl]]
set auto_index(::ntk::classes::IndicatorElement) [list source [file join $dir ntkIndicatorElement.tcl]]
set auto_index(::ntk::classes::IndicatorElement::InitializeOptionValues) [list source [file join $dir ntkIndicatorElement.tcl]]
set auto_index(::ntk::classes::IndicatorElement::ElementSize) [list source [file join $dir ntkIndicatorElement.tcl]]
set auto_index(::ntk::classes::IndicatorElement::ElementDraw) [list source [file join $dir ntkIndicatorElement.tcl]]
set auto_index(::ntk::treeview) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::constructor) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewInitialize) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewCleanup) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewConfigure) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewPostConfigure) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewGetLayout) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewSize) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewDoLayout) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewDisplay) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewBBoxCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewChildrenCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewColumnCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewDeleteCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewDetachCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewDragCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewExistsCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewFocusCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewHeadingCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewIdentifyCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewIndexCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewInsertCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewItemCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewMoveCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewNextCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewParentCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewPrevCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewSeeCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewSelectionCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewSetCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewTagCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewXViewCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::treeview::TreeviewYViewCommand) [list source [file join $dir ntkTTreeview.tcl]]
set auto_index(::ntk::classes::init) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::init) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::RegisterElements) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::RegisterWidgets) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::RegisterThemes) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::init) [list source [file join $dir ntkInit.tcl]]
set auto_index(::ntk::classes::init::RegisterElements) [list source [file join $dir ntkInit.tcl]]

Changes to nt1.tcl.

51
52
53
54
55
56
57
58
59
60
61
62
63
64
65



66
67
68
69
70
71
72

#set ::tf1 [::ntk::frame .tf1]
#::ntk::classes::place::place $::tf1 30 0

#set ::tlf1 [::ntk::labelframe .tlf1]
#::ntk::classes::place::place $::tlf1 30 0

set ::tpw1 [::ntk::panedwindow .tpw1 -orient horizontal]
set ::l2 [::ntk::label .l2 -text hello]
set ::l3 [::ntk::label .l3 -text world]
$::tpw1 add .l2
$::tpw1 add .l3
$::tpw1 UpdateLayout
$::tpw1 SizeChanged "" width height
::ntk::classes::place::place $::tpw1 30 0




set ch [read stdin 1]
#$::te1 insert insert "abc"
#$::tcb1 insert insert "abc"
#set ch [read stdin 1]
#$::te1 insert insert "def"
#$::tcb1 insert insert "abc"







|
|
|
|
|
|
|
|
>
>
>







51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

#set ::tf1 [::ntk::frame .tf1]
#::ntk::classes::place::place $::tf1 30 0

#set ::tlf1 [::ntk::labelframe .tlf1]
#::ntk::classes::place::place $::tlf1 30 0

#set ::tpw1 [::ntk::panedwindow .tpw1 -orient horizontal]
#set ::l2 [::ntk::label .l2 -text hello]
#set ::l3 [::ntk::label .l3 -text world]
#$::tpw1 add .l2
#$::tpw1 add .l3
#$::tpw1 UpdateLayout
#$::tpw1 SizeChanged "" width height
#::ntk::classes::place::place $::tpw1 30 0

set ::ttv1 [::ntk::treeview .ttv1]
::ntk::classes::place::place $::ttv1 30 0

set ch [read stdin 1]
#$::te1 insert insert "abc"
#$::tcb1 insert insert "abc"
#set ch [read stdin 1]
#$::te1 insert insert "def"
#$::tcb1 insert insert "abc"