#!/bin/sh
# \
exec tclsh "$0" ${1+"$@"}

package require Tk

set draw_items 1
proc update_fileview {} {
  variable item_height
  variable draw_items

  scroll_off
  hscroll_off

  set num_items 2000

  set canv_width [winfo width .canv]
  set canv_height [winfo height .canv]

  set canv_width2 [expr $canv_width - [winfo width .vscroll]]

  set canv_scroll_width $canv_width2

  set xpad [expr {$item_height / 20}]
  set ypad [expr {$item_height / 20}]
  set item_box_height [expr $item_height + $ypad * 2]
  set item_box_width [expr $item_height + $xpad * 2]

  set nitems_in_row [expr {$canv_width2 / $item_box_width}]

  if {$nitems_in_row < 1} {
    set nitems_in_row 1
    if {$item_box_width > $canv_width2} {
      set canv_scroll_width [expr $item_box_width + $xpad + [winfo width .vscroll]]
      hscroll_on
    }
  }

  set num_rows [expr {ceil("$num_items.0" / "$nitems_in_row.0")}]
  set canv_scroll_height [expr {$num_rows * $item_box_height}]

  if {$canv_scroll_height > $canv_height} {
    scroll_on
    .canv configure -scrollregion "0 0 $canv_scroll_width $canv_scroll_height"
  } else {
    .canv configure -scrollregion "0 0 $canv_scroll_width $canv_height"
  }
  
  set i 0
  set r 0
  set c 0

  for {} {$i < $num_items} {incr i} {

    set y [expr $r * $item_box_height]
    set x [expr $c * $item_box_width]

    if {$x + $item_box_width + $xpad > $canv_width2} {
      incr r
      if {$c != 0} {
        set c 0
        set y [expr $r * $item_box_height]
        set x [expr $c * $item_box_width]
        incr c
      }
    } else {
      incr c
    }

    if {$y + $item_box_height + $ypad > $canv_height} {
      scroll_on
    }
    if {$draw_items} {
      .canv create rectangle [expr $x + $xpad] [expr $y + $ypad] [expr $x + $xpad + $item_height] [expr $y + $ypad + $item_height] \
        -width 1m -outline #aaaaff -fill #6666aa -tags "item$i"
    } else {
      .canv moveto "item$i" [expr $x + $xpad] [expr $y + $ypad]
    }

  }

  set draw_items 0
#  set files [glob -nocomplain .* *]
#  set i [lsearch $files .]
#  set files [lreplace $files $i $i]
#  set i [lsearch $files ..]
#  set files [lsort [lreplace $files $i $i]]
}

proc scroll_on {} {
  raise .vscroll
}

proc scroll_off {} {
  lower .vscroll
}

proc hscroll_on {} {
  grid .hscroll
}

proc hscroll_off {} {
  grid remove .hscroll
}

canvas .canv -yscrollcommand ".vscroll set" -xscrollcommand ".hscroll set" -background white
scrollbar .vscroll -command ".canv yview"
scrollbar .hscroll -command ".canv xview" -orient horizontal

grid .canv -row 0 -column 0 -sticky nsew
grid .vscroll -row 0 -column 0 -sticky nse
grid .hscroll -row 1 -column 0 -sticky we
grid rowconfigure . 0 -weight 1
grid columnconfigure . 0 -weight 1
grid rowconfigure . 1 -weight 0
lower .vscroll

bind .canv <Configure> update_fileview

set screen_height [winfo screenheight .]
set item_height [expr $screen_height / 10]
set min_item_offset [expr $item_height / 10]

set top_height [expr $screen_height / 2]
set top_width [expr {($top_height * 4) / 3}]
wm geometry . =${top_width}x$top_height

bind all <Button-1> scroll_on
bind all <Button-3> scroll_off