Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added some new colour coding to the flist |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 96cb2165182f59191e0e521654cd8cfa2ac9dcbb |
| User & Date: | dennis 2000-06-17 02:13:53 |
Context
|
2000-06-17
| ||
| 02:16 | Ooops not binary check-in: 8de84a772b user: dennis tags: trunk | |
| 02:13 | Added some new colour coding to the flist check-in: 96cb216518 user: dennis tags: trunk | |
| 00:57 | Fixed several bugs in findreplace routines check-in: 8155d67dc7 user: dennis tags: trunk | |
Changes
Changes to lib/edit.tcl.
128
129
130
131
132
133
134
135
136
137
138
139
140
141
...
287
288
289
290
291
292
293
294
295
296
297
|
set cfg::file "$home/rc"
cfg::load
# Load images
image create photo warn -file [file join $installdir/stop.gif]
image create photo i_folder -file [file join $installdir/folder.gif]
image create photo i_openfile -file [file join $installdir/openfile.gif]
image create photo i_file -file [file join $installdir/file.gif]
tk_setPalette background $c(color-background)
}
#------------------------------------------------------------------------------+
................................................................................
#Focus on text
updaterecent
macro::update
grab .
focus .text
|
>
>
|
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
...
288
289
290
291
292
293
294
295
296
297
298
299
|
set cfg::file "$home/rc" cfg::load # Load images image create photo warn -file [file join $installdir/stop.gif] image create photo i_folder -file [file join $installdir/folder.gif] image create photo i_openfile -file [file join $installdir/openfile.gif] image create photo i_savedfile -file [file join $installdir/savedfile.gif] image create photo i_file -file [file join $installdir/file.gif] tk_setPalette background $c(color-background) } #------------------------------------------------------------------------------+ ................................................................................ #Focus on text updaterecent macro::update grab . focus .text |
Changes to lib/flist.tcl.
43
44
45
46
47
48
49
50
51
52
53
54
55
56
..
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
|
$w create rectangle 1 $y 800 [expr $y+15] -tag marking -fill $c(color-listactivebg) -outline $c(color-listactivebg)
$w lower marking
$w itemconfigure $tag -fill $c(color-listactivetext)
set lasttag $tag
}
proc click {w tag} {
mark $w $tag
}
proc dclick {w file} {
if {$file==".."} {
cd ..
................................................................................
flist::open
}
}
}
proc showdir {w path} {
set list ".."
set typs "i_folder"
set openlist [win::pathnames]
foreach f [glob $path] {
set list "$list $f"
if {[file isdir $f]} {
set typs "$typs i_folder"
} else {
if {[lsearch $openlist [file join [pwd] $f]]==-1} {
set typs "$typs i_file"
} else {
set typs "$typs i_openfile"
}
}
}
showlist $w $list $typs
$w configure -scrollregion "0 0 200 [expr 15*[llength $list]]"
}
|
>
>
>
>
>
|
>
<
>
|
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
..
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
|
$w create rectangle 1 $y 800 [expr $y+15] -tag marking -fill $c(color-listactivebg) -outline $c(color-listactivebg)
$w lower marking
$w itemconfigure $tag -fill $c(color-listactivetext)
set lasttag $tag
}
proc click {w tag} {
c
mark $w $tag
}
proc dclick {w file} {
if {$file==".."} {
cd ..
................................................................................
flist::open
}
}
}
proc showdir {w path} {
global current_window window
set list ".."
set typs "i_folder"
set openlist [win::pathnames]
#c $window($current_window,info)
foreach f [glob $path] {
set list "$list $f"
if {[file isdir $f]} {
set typs "$typs i_folder"
} else {
set pos [lsearch $openlist [file join [pwd] $f]]
if {$pos==-1} {
set typs "$typs i_file"
} else {
if {$window([expr $pos +1],change)==0} { set typs "$typs i_savedfile" } else { set typs "$typs i_openfile"}
}
}
}
showlist $w $list $typs
$w configure -scrollregion "0 0 200 [expr 15*[llength $list]]"
}
|
Added lib/savedfile.gif.
cannot compute difference between binary files
Changes to lib/window.tcl.
139 140 141 142 143 144 145 146 147 148 149 150 151 152 ... 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 ... 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 |
#set last window
set lw $n
win::status_change
}
}
set undo_active 1
}
### Proc to update line number in status line
proc updateln {} {
global window current_window
set n [.text index insert]
set window($current_window,pos) $n
................................................................................
proc update {} {
global prgname current_window numw c window
c
wm title . "$prgname - [pton $window($current_window,name)]"
.menu.windowmenu delete 0 [expr $numw+1]
for {set i 1} {$i < $numw+1 } {incr i} {
if {$window($i,echange)==1} {
.menu.windowmenu add command -label "$i. [pton $window($i,name)]" -command "win::activate $i"
}
................................................................................
}
proc status_change {args} {
global window current_window c prgname
.status.l2 configure -text "Filename: $window($current_window,name) "
if {$window($current_window,change)==0} {
.status.l1 configure -foreground $c(color-statustext) -text "Unchanged"
} else {
.status.l1 configure -foreground $c(color-statustextchanged) -text "Changed"
}
.status.l3 configure -text "Line: $window($current_window,pos)"
.status.l2 configure -text "Filename: $window($current_window,name) "
}
}
|
> > > > > > > < > > > > > > |
139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 ... 236 237 238 239 240 241 242 243 244 245 246 247 248 249 ... 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 |
#set last window set lw $n win::status_change } } set undo_active 1 if {$c(flist)==1} { flist::mark .flist [pton $window($current_window,name)] } } ### Proc to update line number in status line proc updateln {} { global window current_window set n [.text index insert] set window($current_window,pos) $n ................................................................................ proc update {} { global prgname current_window numw c window c wm title . "$prgname - [pton $window($current_window,name)]" .menu.windowmenu delete 0 [expr $numw+1] for {set i 1} {$i < $numw+1 } {incr i} { if {$window($i,echange)==1} { .menu.windowmenu add command -label "$i. [pton $window($i,name)]" -command "win::activate $i" } ................................................................................ } proc status_change {args} { global window current_window c prgname .status.l2 configure -text "Filename: $window($current_window,name) " set ca [.status.l1 cget -text] if {$window($current_window,change)==0} { .status.l1 configure -foreground $c(color-statustext) -text "Unchanged" } else { .status.l1 configure -foreground $c(color-statustextchanged) -text "Changed" } if {$ca!=[.status.l1 cget -text]} { if {$c(flist)==1} {flist::showdir .flist *} } .status.l3 configure -text "Line: $window($current_window,pos)" .status.l2 configure -text "Filename: $window($current_window,name) " } } |