Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Resizing function uout commented because it malfunctioned |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | cd1fac03589f5328140f25f2e9183751e7b4dc61 |
| User & Date: | dennis 2000-08-22 01:27:50 |
Context
|
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 | |
| 01:08 | Added compensation factors for geometry management check-in: bb2981d67e user: dennis tags: trunk | |
Changes
Changes to lib/gui.tcl.
206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 |
.status.c create line 19 2 3 18 -fill gray70
.status.c create line 19 6 7 18 -fill white
.status.c create line 19 7 8 18 -fill gray70
.status.c create line 19 8 9 18 -fill gray70
.status.c create line 19 12 13 18 -fill white
.status.c create line 19 13 14 18 -fill gray70
bind .status.c <Motion> {
global dbutton dxx dyy
set gr [wm grid .]
if {$dbutton} {
set WW [expr ((%X-[winfo rootx .]) / [lindex $gr 2])-2 ]
set HH [expr ((%Y-[winfo rooty .]) / [lindex $gr 3])-3 ]
set q "x"
if {$WW<56} { set WW 56 }
if {$HH<1} { set HH 1 }
wm geometry . "=$WW$q$HH"
update
}
}
bind .status.c <ButtonPress> {
global dbutton dxx dyy
set dxx %x
set dyy %y
set dbutton 1
}
|
| | | | | | | | | | | | | < < > > |
206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 |
.status.c create line 19 2 3 18 -fill gray70 .status.c create line 19 6 7 18 -fill white .status.c create line 19 7 8 18 -fill gray70 .status.c create line 19 8 9 18 -fill gray70 .status.c create line 19 12 13 18 -fill white .status.c create line 19 13 14 18 -fill gray70 #bind .status.c <Motion> { #global dbutton dxx dyy # #set gr [wm grid .] # #if {$dbutton} { # set WW [expr ((%X-[winfo rootx .]) / [lindex $gr 2])-2 ] # set HH [expr ((%Y-[winfo rooty .]) / [lindex $gr 3])-3 ] # set q "x" # if {$WW<56} { set WW 56 } # if {$HH<1} { set HH 1 } # wm geometry . "=$WW$q$HH" # update # } #} bind .status.c <ButtonPress> { global dbutton dxx dyy set dxx %x set dyy %y set dbutton 1 } |