equal
deleted
inserted
replaced
401 .ctop add .ctop.cdet |
401 .ctop add .ctop.cdet |
402 frame .ctop.cdet.left |
402 frame .ctop.cdet.left |
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" -wrap none |
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 |
412 $ctext tag conf filesep -font [concat $textfont bold] -back "#aaaaaa" |
415 $ctext tag conf filesep -font [concat $textfont bold] -back "#aaaaaa" |
413 if {$gaudydiff} { |
416 if {$gaudydiff} { |