Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added compensation factors for geometry management |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | bb2981d67ef452ea7b4e232308d1596ea06e3067 |
| User & Date: | dennis 2000-08-22 01:08:15 |
Context
|
2000-08-22
| ||
| 01:27 | Resizing function uout commented because it malfunctioned check-in: cd1fac0358 user: dennis tags: trunk | |
| 01:08 | Added compensation factors for geometry management check-in: bb2981d67e user: dennis tags: trunk | |
|
2000-08-18
| ||
| 23:51 | Added macro manager and ability to exec sh macros check-in: e7ac87b7c4 user: dennis tags: trunk | |
Changes
Changes to lib/edit.tcl.
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
...
293
294
295
296
297
298
299
300
|
set last_macro ""
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
................................................................................
updaterecent
macro::update
grab .
focus .text
|
<
<
|
|
230
231
232
233
234
235
236
237
238
239
240
241
242
243
...
291
292
293
294
295
296
297
298
|
set last_macro ""
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
................................................................................
updaterecent
macro::update
grab .
focus .text
wm geometry . $c(geometry)
|
Changes to lib/window.tcl.
38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
return $r
}
proc exit {} {
global c
c
set gr [wm grid .]
set WW [expr (([winfo width .]) / [lindex $gr 2]) -3 ]
set HH [expr (([winfo height .]) / [lindex $gr 3]) -5 ]
set q "x"
set c(geometry) "=$WW$q$HH"
}
proc count {} {
global numw window
set num 0
for {set i 1} {$i < $numw+1 } {incr i} {
if {$window($i,echange)==1} {incr num}
|
> > > > > | | > |
38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
return $r
}
proc exit {} {
global c
c
set gr [wm grid .]
c $gr
# Keep track of the compensation factors!
set wf "-3"
set hf "-12"
set WW [expr (([winfo width .]) / [lindex $gr 2]) $wf ]
set HH [expr (([winfo height .]) / [lindex $gr 3]) $hf ]
set q "x"
set c(geometry) "=$WW$q$HH"
c $c(geometry)
}
proc count {} {
global numw window
set num 0
for {set i 1} {$i < $numw+1 } {incr i} {
if {$window($i,echange)==1} {incr num}
|