namespace eval DemoIMovie {}

treectrl .t  -height 900 -width 900

pack .t

set ScriptDir [file normalize [file dirname [info script]]]

set ::thisPlatform unix

proc Path {args} {

    return [file normalize [eval [list file join $::ScriptDir] $args]]

}

proc DemoIMovie::Button1 {T x y} {

    focus $T

    set id [$T identify $x $y]

    # Click outside any item

    if {$id eq ""} {

    # Click in header

    } elseif {[lindex $id 0] eq "header"} {

 ::TreeCtrl::ButtonPress1 $T $x $y

    # Click in item

    } elseif {[lindex $id 0] eq "item"} {

 ::TreeCtrl::ButtonPress1 $T $x $y

 update

 lassign $id where item arg1 arg2 arg3 arg4

 switch $arg1 {

     column {

  set I [lindex $id 1]

  if {[llength $id] == 6} {

      set E [lindex $id end]

      if {$E eq "elemName"} {

   set exists [winfo exists $T.entry]

   ::TreeCtrl::EntryOpen $T $I C0 $E

   if {!$exists} {

       $T.entry configure -borderwidth 0 -justify center \

    -background #ffdc5a

       scan [$T item bbox $I C0 $E] "%d %d %d %d" x1 y1 x2 y2

       place $T.entry -y [expr {$y1 - 1}]

   }

   $T.entry selection clear

   scan [$T item bbox $I C0 elemImg] "%d %d %d %d" x1 y1 x2 y2

   set left $x1

   set right $x2

   place $T.entry -x $left -width [expr {$right - $left}]

   $T.entry icursor [$T.entry index @[expr {$x - ($x1 + 1)}]]

   # Disable mouse tracking

   unset ::TreeCtrl::Priv(buttonMode)

      }

  }

     }

 }

    }

    return -code break

}

 

proc InitPics {args} {

    foreach pattern $args {

 if {[lsearch [image names] $pattern] == -1} {

     foreach file [glob -directory [Path pics] $pattern.gif] {

  set imageName [file root [file tail $file]]

  # I created an image called "file", which clobbered the

  # original Tcl command "file". Then I got confused.

  if {[llength [info commands $imageName]]} {

      error "don't want to create image called \"$imageName\""

  }

  image create photo $imageName -file $file

  # Hack -- Create a "selected" version too

  image create photo ${imageName}Sel

  ${imageName}Sel copy $imageName

 # imagetint ${imageName}Sel $::SystemHighlight 128

     }

 }

    }

    return

}

 

.t configure -showroot no -showbuttons no -showlines no \

-selectmode browse -orient horizontal -wrap window \

-showheader no -background #dcdcdc -yscrollsmoothing yes

.t configure -canvaspadx 8 -canvaspady 8 \

-itemgapx 8 -itemgapy 8

.t column create -tags C0

InitPics imovie-*

set font1 {Helvetica 12}

set font2 {Helvetica 14}

.t element create elemTime text -font [list $font1]

.t element create elemName text -font [list $font2] -lines 1 -width 80

.t element create elemRect rect -fill {#ffdc5a {selected} white {}} \

    -outline #827878 -outlinewidth 1

.t element create elemImg image

.t element create elemShadow rect -outline gray -outlinewidth 1 -open wn

set S [.t style create STYLE -orient vertical]

.t style elements $S {elemShadow elemRect elemTime elemImg elemName}

.t style layout $S elemShadow -detach yes -padx {1 0} -pady {1 0} -iexpand xy

.t style layout $S elemTime -padx {2 0}

.t style layout $S elemImg -pady {0 1}

.t style layout $S elemName -expand we -ipady {0 2} -padx {0 3} -squeeze x

.t style layout $S elemRect -union {elemTime elemImg elemName} \

    -ipadx 6 -padx {0 1} -pady {0 1}

    # Set default item style

.t column configure C0 -itemstyle $S

    bind DemoIMovie <ButtonPress-1> {

 DemoIMovie::Button1 %W %x %y

    }

    for {set i 0} {$i < 5} {incr i} {

  foreach {time name image} {

      15:20 "Clip 1" imovie-01

      19:18 "Clip 2" imovie-02

      07:20 "Clip 3" imovie-03

      07:20 "Clip 4" imovie-04

      07:20 "Clip 5" imovie-05

      07:20 "Clip 6" imovie-06

      07:20 "Clip 7" imovie-07

  } {

      set I [.t item create]

 #   $T item style set $I C0 $S

      .t item element configure $I C0 \

   elemTime -text $time + \

   elemImg -image $image + \

   elemName -text $name

      .t item lastchild root $I

  }

     }

 

bindtags .t [list .t DemoIMovie  TreeCtrl [winfo toplevel .t] all]