Show More
| @@ -403,9 +403,12 b' proc makewindow {} {' | |||
|
|
403 | 403 | set ctext .ctop.cdet.left.ctext |
|
|
404 | 404 | text $ctext -bg white -state disabled -font $textfont \ |
|
|
405 | 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 | 408 | scrollbar .ctop.cdet.left.sb -command "$ctext yview" |
|
|
409 | scrollbar .ctop.cdet.left.hb -orient horizontal -command "$ctext xview" | |
|
|
408 | 410 | pack .ctop.cdet.left.sb -side right -fill y |
|
|
411 | pack .ctop.cdet.left.hb -side bottom -fill x | |
|
|
409 | 412 | pack $ctext -side left -fill both -expand 1 |
|
|
410 | 413 | .ctop.cdet add .ctop.cdet.left |
|
|
411 | 414 | |
General Comments 0
You need to be logged in to leave comments.
Login now