Show me all!

ulis, 2003-09-26: If you need to resize a text widget to show all the lines.

The script

  # create text
  text .t -width 20 -height 20 -wrap none
  pack .t -fill both -expand 1
  # randomly fill text
  set count [expr {int(rand() * 50)}]
  for {set i 0} {$i < $count} {incr i} \
  {
    set line [string repeat 0 [expr {int(rand()*50)}]]
    .t insert {end - 1 char} $line\n
  }
  # move the display to nw
  .t xview moveto 0.0
  .t yview moveto 0.0
  update
  # get visible area size in fractions of 1.0
  set fx [lindex [.t xview] 1]
  set fy [lindex [.t yview] 1]
  # get visible area size in chars
  set cw [.t cget -width]
  set ch [.t cget -height]
  # compute full size
  set width [expr {round($cw / $fx) + 2}]
  set height [expr {round($ch / $fy)}]
  # resize the widget
  .t config -width $width -height $height

Category GUI | Category Example