Tk Text Edit

Check-in [96cb216518]
Login

Check-in [96cb216518]

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
Unified Diff Ignore Whitespace Patch Hide diffs
Changes to lib/edit.tcl. 
128
129
130
131
132
133
134

135
136
137
138
139
140
141

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)
}


#------------------------------------------------------------------------------+







>








128
129
130
131
132
133
134
135
136
137
138
139
140
141
142

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)
}


#------------------------------------------------------------------------------+

287
288
289
290
291
292
293

294
295
296
297

#Focus on text

updaterecent
macro::update

grab .


focus .text









>





288
289
290
291
292
293
294
295
296
297
298
299

#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
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

$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 ..
showdir $w *
} else {
if {[file isdir $file]} {
cd $file
showdir $w *
} else {
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
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

$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 ..
showdir $w *
} else {
if {[file isdir $file]} {
cd $file
showdir $w *
} else {
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

#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







>
>
>
>
>
>
>








139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159

#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

229
230
231
232
233
234
235
236
237
238
239
240
241
242
243

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"
}








<








236
237
238
239
240
241
242

243
244
245
246
247
248
249

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"
}


269
270
271
272
273
274
275


276
277
278
279
280
281




282
283
284
285
286
287
288
289

}

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) "

}

}








>
>






>
>
>
>









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

}

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) "

}

}