Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Modifications to support wrapping |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 3176c54f0b4ada1658fa56c6d57e7ef2ebc1a91a |
| User & Date: | dennis 2001-02-04 01:04:06 |
Context
|
2001-02-05
| ||
| 17:52 | Changed method to get installdir, remodel backslash to foreslash when open files from command prompt check-in: 476cf3718c user: dennis tags: trunk | |
|
2001-02-04
| ||
| 01:04 | Modifications to support wrapping check-in: 3176c54f0b user: dennis tags: trunk | |
| 00:22 | Made special char interactive+ improvements check-in: b9e97f721a user: dennis tags: trunk | |
Changes
Changes to lib/edit.tcl.
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
...
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
|
} else {
#Windows
set installdir [file dirname [info script]]
set home $installdir
}
set numw 99
source $installdir/cfg.tcl
setup
for {set i 1} {$i <100 } {incr i } {
set window($i,name) "Untitled #$i"
set window($i,info) ""
set window($i,change) "0"
set window($i,pos) "1.0"
................................................................................
wm iconbitmap . @$installdir/mini-textedit.xbm
wm iconname . $prgname
wm title . $prgname
wm minsize . 56 1
wm protocol . WM_DELETE_WINDOW { file::eexit }
source $installdir/supertext.tcl
source $installdir/mclistbox.tcl
source $installdir/window.tcl
source $installdir/help.tcl
source $installdir/macro.tcl
source $installdir/findreplace.tcl
source $installdir/file.tcl
source $installdir/ftp_lib.tcl
source $installdir/cmds.tcl
source $installdir/exec.tcl
source $installdir/flist.tcl
source $installdir/textsh.tcl
source $installdir/specc.tcl
source $installdir/gui.tcl
source $installdir/txt.tcl
source $installdir/bindings.tcl
source $installdir/speed.tcl
#------------------------------------------------------------------------------+
#Check if user supplied anything at the command line
set i 1
|
>
>
|
>
>
>
<
>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<
>
>
>
>
|
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
...
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
|
} else {
#Windows
set installdir [file dirname [info script]]
set home $installdir
}
set numw 99
set op [pwd]
cd $installdir
source cfg.tcl
cd $op
setup
for {set i 1} {$i <100 } {incr i } {
set window($i,name) "Untitled #$i"
set window($i,info) ""
set window($i,change) "0"
set window($i,pos) "1.0"
................................................................................
wm iconbitmap . @$installdir/mini-textedit.xbm
wm iconname . $prgname
wm title . $prgname
wm minsize . 56 1
wm protocol . WM_DELETE_WINDOW { file::eexit }
set op [pwd]
cd $installdir
source supertext.tcl
source mclistbox.tcl
source window.tcl
source help.tcl
source macro.tcl
source findreplace.tcl
source file.tcl
source ftp_lib.tcl
source cmds.tcl
source exec.tcl
source flist.tcl
source textsh.tcl
source specc.tcl
source gui.tcl
source txt.tcl
source bindings.tcl
source speed.tcl
cd $op
#------------------------------------------------------------------------------+
#Check if user supplied anything at the command line
set i 1
|
Added lib/wraplist.
> > > > > > > > > > > > > > > > > > > |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
edit.tcl cfg.tcl supertext.tcl mclistbox.tcl window.tcl help.tcl macro.tcl findreplace.tcl file.tcl ftp_lib.tcl cmds.tcl exec.tcl flist.tcl textsh.tcl specc.tcl gui.tcl txt.tcl bindings.tcl speed.tcl |