Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed bug with remote loading of http |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 6d4090ffa0cad13c5de9ad0c750f30965d69fafc |
| User & Date: | dennis2 2002-12-17 09:44:46 |
Context
|
2002-12-17
| ||
| 09:45 | Fixed resizeing bugs Leaf check-in: c02a06dc34 user: dennis2 tags: trunk | |
| 09:44 | Fixed bug with remote loading of http check-in: 6d4090ffa0 user: dennis2 tags: trunk | |
| 09:31 | Add reuse of first opened editor check-in: 35fd5133a1 user: dennis2 tags: trunk | |
Changes
Changes to lib/edit.tcl.
357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 |
set fil [fixname $fil]
set tmp [string toupper $fil]
if {[string first "HTTP://" $tmp]=="0"} {
set type "http"
} else {
set type "file"
}
set fil [fullpath $fil]
send ttedit "file::Load" "{$type {$fil}}" -force
set fil [lindex $argv $i]
incr i
}
if {$i==1} {
|
> < |
357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 |
set fil [fixname $fil]
set tmp [string toupper $fil]
if {[string first "HTTP://" $tmp]=="0"} {
set type "http"
} else {
set type "file"
set fil [fullpath $fil]
}
send ttedit "file::Load" "{$type {$fil}}" -force
set fil [lindex $argv $i]
incr i
}
if {$i==1} {
|