Unnamed Fossil Project

Check-in [4711f9ace7]
Login

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

Overview
Comment:initial version
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:4711f9ace76cd7ff8ce233d7a83d9a890b73b05f
User & Date: arnulf 2013-09-21 19:24:27
Context
2013-09-21
20:38
initial version check-in: 5c2b7dd74b user: arnulf tags: trunk
19:24
initial version check-in: 4711f9ace7 user: arnulf tags: trunk
19:20
fixes mostly for treeview check-in: 8f7ff3a44e user: arnulf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added nt3.tcl.







































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
package require Itcl 4.0
package require Tk
set auto_path [concat [list .] $auto_path]
package require themedntk
#load /home/arnulf/lib/libtk8.6.so 
package require gles2
lappend auto_path library

#TEMPORARY!!!
source /home/arnulf/SOURCES/TCL/itcl4.0head/itcl/library/itclHullCmds.tcl

#set cmd "puts stderr \"======= frame button 1 pressed\""
#bind .gles2 <Button-1> $cmd

::ntk::Debug::DebugInit
#source library/ntkStyleTheme.tcl
#source library/styleThemeInit.tcl
lappend auto_path library

::gles2::builtin::setuprenderbuffer
::gles2::builtin::setupframebuffer
::gles2::builtin::clearbuffer 216 216 216 255
::gles2::builtin::compileshaders notexture
::gles2::swapbuffers

set depth 0
if {[llength $argv] > 0} {
    set depth [lindex $argv 0]
}
puts stderr "depth!$depth!"
if {0} {
#set ::tb1 [::ntk::button .b1 -text HelloB -depth $depth]
#puts stderr "button created!$::tb1!"
#::ntk::classes::place::place $::tb1 30 0

#::ntk::classes::theme::ThemeUse classic
#set ::tmb1 [::ntk::menubutton .mb1 -text HelloMB -depth $depth]
#::ntk::classes::place::place $::tmb1 30 0

#set ::trb1 [::ntk::radiobutton .rb1 -text HelloRB]
#::ntk::classes::place::place $::trb1 30 0

#set ::te1 [::ntk::entry .te1]
#::ntk::classes::place::place $::te1 30 0

#set ::tcb1 [::ntk::combobox .tcb1 -values [list val1 val2 val3]]
#::ntk::classes::place::place $::tcb1 30 0

#set ::tsb1 [::ntk::scrollbar .tsb1]
#::ntk::classes::place::place $::tsb1 30 0

#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 -columns [list a b c]]
::ntk::classes::place::place $::ttv1 30 0
$::ttv1 insert {} end -id newnode -text "New node"
$::ttv1 insert newnode 0 -id newnode.n1 -text "Foo1"
$::ttv1 insert newnode 0 -id newnode.n2 -text "Foo2"

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"
#set ch [read stdin 1]
#$::te1 insert insert "ghi123"
#$::tcb1 insert insert "abc"
#set ch [read stdin 1]
}

if {1} {
proc MakeButtons {num} {
if {1} {
set ::ttv1 [::ntk::treeview .ttv1 -columns [list a b c]]
}
}

MakeButtons 1

proc ShowButtons {xoffset} {
if {1} {
#puts stderr "Treeview"
::ntk::classes::place::place $::ttv1 30 0
$::ttv1 insert {} end -id newnode -text "New node"
$::ttv1 insert newnode 0 -id newnode.n1 -text "Foo1"
$::ttv1 insert newnode 0 -id newnode.n2 -text "Foo2"
}

}

proc ShowButtons2 {xoffset} {
if {1} {
#puts stderr "Treeview"
::ntk::classes::place::place $::ttv1 -60 10
}

}

proc ShowButtons3 {xoffset} {
if {1} {
#puts stderr "Treeview"
::ntk::classes::place::place $::ttv1 90 120
}

}

proc GenerateEvents {} {
if {1} {
set ch [read stdin 1]
$::ttv1 item newnode -open 1
set ch [read stdin 1]
$::ttv1 item newnode -open 0
set ch [read stdin 1]
}

}

if {1} {
ShowButtons 0
GenerateEvents
set ch [read stdin 1]
::gles2::builtin::rotate 0 0 45
ShowButtons2 0
::gles2::builtin::rotate -45 -45 -45
set ch [read stdin 1]
ShowButtons3 0
}

set ch [read stdin 1]
#::ntk::classes::theme::ShowPkg
#$tb1 ShowCore

}