Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Changed # to slash043 to get rid of generate help file bug |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 4d1893ec20de2ae6120713373000a0b867f368fe |
| User & Date: | dennis 2000-08-22 01:49:48 |
Context
|
2000-11-09
| ||
| 23:58 | Add rename feature in macromanager check-in: df8decbfa6 user: dennis tags: trunk | |
|
2000-08-22
| ||
| 01:49 | Changed # to slash043 to get rid of generate help file bug check-in: 4d1893ec20 user: dennis tags: trunk | |
| 01:27 | Resizing function uout commented because it malfunctioned check-in: cd1fac0358 user: dennis tags: trunk | |
Changes
Changes to lib/help.tcl.
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 .. 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 ... 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 |
proc getindex {} {
global toprow filen
set result ""
set f [open $filen "r"]
while {![eof $f]} {
set s [gets $f]
if { [string first "#?-" $s ] == 0 } { set result "$result {%i[string range $s 3 end ]%}" }
}
close $f
set r ""
foreach n [lsort $result] {
set r "$r $n\n"
}
return "$toprow$r"
................................................................................
if {$topic=="INDEX"} {
return [getindex]
}
set result ""
set f [open $filen "r"]
while {![eof $f] && $result==""} {
set s [gets $f]
if { [string first "#?-" $s ] == 0 } {
if {$topic == [string toupper [string range $s 3 end ] ] } {
set result $toprow
set s [gets $f]
while {![eof $f] && [string first "#?-" $s ] != 0} {
set result "$result[string range $s 2 end ]\n"
set s [gets $f]
}
}
}
}
close $f
................................................................................
proc topics {} {
global filen
set result ""
set f [open $filen "r"]
while {![eof $f]} {
set s [gets $f]
if { [string first "#?-" $s ] == 0 } {
set result "$result {[string range $s 3 end ]}"
}
}
close $f
return $result
}
|
| | | | |
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 .. 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 ... 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 |
proc getindex {} {
global toprow filen
set result ""
set f [open $filen "r"]
while {![eof $f]} {
set s [gets $f]
if { [string first "\043?-" $s ] == 0 } { set result "$result {%i[string range $s 3 end ]%}" }
}
close $f
set r ""
foreach n [lsort $result] {
set r "$r $n\n"
}
return "$toprow$r"
................................................................................
if {$topic=="INDEX"} {
return [getindex]
}
set result ""
set f [open $filen "r"]
while {![eof $f] && $result==""} {
set s [gets $f]
if { [string first "\043?-" $s ] == 0 } {
if {$topic == [string toupper [string range $s 3 end ] ] } {
set result $toprow
set s [gets $f]
while {![eof $f] && [string first "\043?-" $s ] != 0} {
set result "$result[string range $s 2 end ]\n"
set s [gets $f]
}
}
}
}
close $f
................................................................................
proc topics {} {
global filen
set result ""
set f [open $filen "r"]
while {![eof $f]} {
set s [gets $f]
if { [string first "\043?-" $s ] == 0 } {
set result "$result {[string range $s 3 end ]}"
}
}
close $f
return $result
}
|
Changes to lib/helpfile.
326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 |
#? Press INDEX to get to the index page #? Press BACK to go to the recently accessed page #? Press FORWARD to go to the page you were on when you pressed the BACK button #? To exit help choose anoter window in the Windows menu #? #? If you want to send me a message here is my mail address %lAbout% #? if { [string first "#?-" $s ] == 0 } { set result "$result {%i[string range $s 3 end ]%}" } if { [string first "#?-" $s ] == 0 } { while {![eof $f] && [string first "#?-" $s ] != 0} { if { [string first "#?-" $s ] == 0 } { #?-Macros #? #? Tcltextedit has the ability to record and play macros. #? Macros are by default stored in $HOME/.tcltextedit/???.mac #? where ??? stands for the name of the macro. #? The macro files are plain tcl scripts, that makes it possible #? for any person with knowledge of tcl to customize your own macros. |
< < < < |
326 327 328 329 330 331 332 333 334 335 336 337 338 339 |
#? Press INDEX to get to the index page #? Press BACK to go to the recently accessed page #? Press FORWARD to go to the page you were on when you pressed the BACK button #? To exit help choose anoter window in the Windows menu #? #? If you want to send me a message here is my mail address %lAbout% #? #?-Macros #? #? Tcltextedit has the ability to record and play macros. #? Macros are by default stored in $HOME/.tcltextedit/???.mac #? where ??? stands for the name of the macro. #? The macro files are plain tcl scripts, that makes it possible #? for any person with knowledge of tcl to customize your own macros. |