Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove unecessary wrap check |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 6dd5738330950d8330dd8b03bcf89c0473595277 |
| User & Date: | dennis 2000-07-27 23:18:07 |
Context
|
2000-08-05
| ||
| 00:49 | Added textshell + cleaned up gui.tcl check-in: 59de1ec366 user: dennis tags: trunk | |
|
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 | |
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 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]
|
< < < < | | | | | | | | | | | | | | | < |
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 |
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]
|