Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added support for wrapping |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | e7c784832e02634feeb984763edf57caf359e983 |
| User & Date: | dennis 2000-07-27 21:32:39 |
Context
|
2000-07-27
| ||
| 23:18 | Remove unecessary wrap check check-in: 6dd5738330 user: dennis tags: trunk | |
| 21:32 | Added support for wrapping check-in: e7c784832e user: dennis tags: trunk | |
|
2000-06-18
| ||
| 00:37 | Fixed mark only when target is located check-in: 28d704bd29 user: dennis tags: trunk | |
Changes
Changes to lib/edit.tcl.
232 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 |
wm iconbitmap . @$installdir/mini-textedit.xbm
wm iconname . $prgname
wm title . $prgname
wm minsize . 56 1
wm protocol . WM_DELETE_WINDOW { file::eexit }
wm geometry . $c(geometry)
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/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
set fil [lindex $argv 0]
|
> > > | | | | | | | | | | | | | | | > |
232 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 265 |
wm iconbitmap . @$installdir/mini-textedit.xbm
wm iconname . $prgname
wm title . $prgname
wm minsize . 56 1
wm protocol . WM_DELETE_WINDOW { file::eexit }
wm geometry . $c(geometry)
# Check the existance of _freewrap_stubsize to determin if we are wrapped or not
# cause if we are wrapped these files shouldn't be included
if {![info exists _freewrap_stubsize]} {
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/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
set fil [lindex $argv 0]
|