Show More
| @@ -403,9 +403,12 b' proc makewindow {} {' | |||||
| 403 | set ctext .ctop.cdet.left.ctext |
|
403 | set ctext .ctop.cdet.left.ctext | |
| 404 | text $ctext -bg white -state disabled -font $textfont \ |
|
404 | text $ctext -bg white -state disabled -font $textfont \ | |
| 405 | -width $geometry(ctextw) -height $geometry(ctexth) \ |
|
405 | -width $geometry(ctextw) -height $geometry(ctexth) \ | |
| 406 |
-yscrollcommand ".ctop.cdet.left.sb set" |
|
406 | -yscrollcommand ".ctop.cdet.left.sb set" \ | |
|
|
407 | -xscrollcommand ".ctop.cdet.left.hb set" -wrap none | |||
| 407 | scrollbar .ctop.cdet.left.sb -command "$ctext yview" |
|
408 | scrollbar .ctop.cdet.left.sb -command "$ctext yview" | |
|
|
409 | scrollbar .ctop.cdet.left.hb -orient horizontal -command "$ctext xview" | |||
| 408 | pack .ctop.cdet.left.sb -side right -fill y |
|
410 | pack .ctop.cdet.left.sb -side right -fill y | |
|
|
411 | pack .ctop.cdet.left.hb -side bottom -fill x | |||
| 409 | pack $ctext -side left -fill both -expand 1 |
|
412 | pack $ctext -side left -fill both -expand 1 | |
| 410 | .ctop.cdet add .ctop.cdet.left |
|
413 | .ctop.cdet add .ctop.cdet.left | |
| 411 |
|
414 | |||
General Comments 0
You need to be logged in to leave comments.
Login now