arcadia 0.12.2 → 0.13.0

data/tcl/ptwidgets-1.1.0/library/toggleswitch.tcl

@@ -0,0 +1,432 @@
+#===============================================================
+# Main toggleswitch package module
+#
+# Copyright (c) 2011-2012  Trevor Williams (phase1geo@gmail.com)
+#===============================================================
+
+package provide toggleswitch 1.0
+
+namespace eval toggleswitch {
+
+  array set data {}
+  
+  array set widget_options {
+    -borderwidth            {borderWidth            BorderWidth}
+    -command                {command                Command}
+    -cursor                 {cursor                 Cursor}
+    -font                   {font                   Font}
+    -offbackground          {offBackground          Background}
+    -offforeground          {offForeground          Foreground}
+    -offvalue               {offValue               Value}
+    -onbackground           {onBackground           Background}
+    -onforeground           {onForeground           Foreground}
+    -onvalue                {onValue                Value}
+    -relief                 {relief                 Relief}
+    -state                  {state                  State}
+    -takefocus              {takeFocus              TakeFocus}
+    -variable               {variable               Variable}
+  }
+
+  ###########################################################################
+  # Main procedure to create the on/off switch.
+  proc toggleswitch {w args} {
+  
+    variable data
+    variable widget_options
+    
+    # Create window
+    frame $w     -class ToggleSwitch -takefocus 0
+    frame $w.on  -relief sunken -takefocus 0
+    frame $w.off -relief sunken -takefocus 0
+    
+    pack [ttk::label $w.on.l  -text " ON"  -width 4 -takefocus 0]  -fill both -expand yes
+    pack [ttk::label $w.off.l -text " OFF" -width 4 -takefocus 0] -fill both -expand yes
+    
+    grid columnconfigure $w 0 -weight 1
+    grid columnconfigure $w 1 -weight 1
+    grid $w.on  -row 0 -column 0 -sticky news
+    grid $w.off -row 0 -column 1 -sticky news
+    
+    # Create switch
+    update
+    ttk::frame $w.sw -relief raised -takefocus 1 -width [winfo reqwidth $w.on] -height [winfo reqheight $w.on]
+    
+    # Default in the off position
+    place $w.sw -x 0 -y 0
+    
+    # Initialize options
+    # Initialize default options
+    if {[array size data] == 0} {
+      option add *ToggleSwitch.offBackground        white         widgetDefault
+      option add *ToggleSwitch.onBackground         blue          widgetDefault
+      option add *ToggleSwitch.offForeground        grey          widgetDefault
+      option add *ToggleSwitch.onForeground         white         widgetDefault
+      option add *ToggleSwitch.borderWidth          1             widgetDefault
+      option add *ToggleSwitch.command              ""            widgetDefault
+      option add *ToggleSwitch.cursor               ""            widgetDefault
+      option add *ToggleSwitch.font                 ""            widgetDefault
+      option add *ToggleSwitch.height               18            widgetDefault
+      option add *ToggleSwitch.offValue             0             widgetDefault
+      option add *ToggleSwitch.onValue              1             widgetDefault
+      option add *ToggleSwitch.relief               flat          widgetDefault
+      option add *ToggleSwitch.state                normal        widgetDefault
+      option add *ToggleSwitch.takeFocus            1             widgetDefault
+      option add *ToggleSwitch.variable             ""            widgetDefault
+      option add *ToggleSwitch.width                60            widgetDefault
+    }
+
+    # Initialize the options array
+    foreach opt [array names widget_options] {
+      set data($w,$opt) [option get $w [lindex $widget_options($opt) 0] [lindex $widget_options($opt) 1]]
+    }
+    
+    # Set the default value to off (0)
+    set data($w,value) 0
+
+    # Add the bindings
+    bind $w.on    <Button-1>        "toggleswitch::off $w"
+    bind $w.on.l  <Button-1>        "toggleswitch::off $w"
+    bind $w.off   <Button-1>        "toggleswitch::on $w"
+    bind $w.off.l <Button-1>        "toggleswitch::on $w"
+    bind $w.sw    <ButtonPress-1>   "toggleswitch::press $w %X"
+    bind $w.sw    <B1-Motion>       "toggleswitch::slide $w %X"
+    bind $w.sw    <ButtonRelease-1> "toggleswitch::release $w %X"
+    bind $w.sw    <space>           "toggleswitch::toggle $w"
+    bind $w.sw    <FocusOut>        "toggleswitch::focus_next $w"
+
+    # Configure the widget
+    eval "configure 1 $w $args"
+    
+    # Rename and alias the tokenentry window
+    rename ::$w $w
+    interp alias {} ::$w {} toggleswitch::widget_cmd $w
+    
+    return $w
+    
+  }
+  
+  ###########################################################################
+  # Changes focus to the next window after w.
+  proc focus_next {w} {
+
+    # Change the focus
+    focus [tk_focusNext $w.sw]
+
+  }
+
+  ###########################################################################
+  # Procedure called when the user clicks on the off position.  Moves the
+  # switch frame to display the on label.
+  proc on {w {from_program 0}} {
+
+    variable data
+    
+    if {($from_program == 1) || ($data($w,-state) eq "normal")} {
+    
+      # Move the switch frame to display the on position
+      place $w.sw -x [winfo reqwidth $w.on] -y 0
+    
+      # Set the current value to the value of -onvalue
+      set data($w,value) 1
+    
+      # Set the global variable, if it is set
+      if {$data($w,-variable) ne ""} {
+        upvar #0 $data($w,-variable) var
+        set var $data($w,-onvalue)
+      }
+    
+      # If a command is specified, execute it now
+      if {$data($w,-command) ne ""} {
+        eval "$data($w,-command)"
+      }
+      
+    }
+    
+  }
+  
+  ###########################################################################
+  # Procedure called when the user clicks on the on position.  Moves the
+  # switch frame to display the off label.
+  proc off {w {from_program 0}} {
+  
+    variable data
+    
+    if {($from_program == 1) || ($data($w,-state) eq "normal")} {
+    
+      # Move the switch frame to display the off position
+      place $w.sw -x 0 -y 0
+    
+      # Set the current value to the value of -offvalue
+      set data($w,value) 0
+    
+      # Set the global variable, if it is set
+      if {$data($w,-variable) ne ""} {
+        upvar #0 $data($w,-variable) var
+        set var $data($w,-offvalue)
+      }
+    
+      # If a command is specified, execute it now
+      if {$data($w,-command) ne ""} {
+        eval "$data($w,-command)"
+      }
+      
+    }
+    
+  }
+  
+  ###########################################################################
+  # Procedure called when the left button is pressed.  Records the position
+  # of the cursor within switch frame.
+  proc press {w x} {
+  
+    variable data
+    
+    set data($w,switchx) [expr $x - [winfo rootx $w.sw]]
+  
+  }
+  
+  ###########################################################################
+  # Procedure called when the mouse cursor is moved when the left-button is
+  # pressed.  Moves the switch frame to match the motion of the mouse while
+  # keeping the switch frame within the bounds of the switch.
+  proc slide {w x} {
+  
+    variable data
+    
+    if {$data($w,-state) eq "normal"} {
+    
+      set next_x [expr ($x - $data($w,switchx)) - [winfo rootx $w]]
+    
+      if {$next_x < 0} {
+        set next_x 0
+      } elseif {[expr $next_x + [winfo width $w.sw]] > [winfo width $w]} {
+        set next_x [expr [winfo width $w] - [winfo width $w.sw]]
+      }
+    
+      place $w.sw -x $next_x -y 0
+    
+    }
+    
+  }
+  
+  ###########################################################################
+  # Procedure called when the left-button is released.  Causes the switch
+  # frame to go to either the on or off position based on the location of
+  # of the switch frame.
+  proc release {w x} {
+  
+    variable data
+    
+    if {$data($w,-state) eq "normal"} {
+    
+      set next_x [expr ($x - $data($w,switchx)) - [winfo rootx $w]]
+    
+      if {$next_x < [expr [winfo width $w.sw] / 2]} {
+        off $w
+      } else {
+        on $w
+      }
+      
+    }
+    
+  }
+  
+  ###########################################################################
+  # Procedure to handle all of the user command requests.
+  proc widget_cmd {w args} {
+  
+    if {[llength $args] == 0} {
+      return -code error "toggleswitch widget called without a command"
+    }
+
+    set cmd  [lindex $args 0]
+    set opts [lrange $args 1 end]
+
+    switch $cmd {
+      configure { return [eval "toggleswitch::configure 0 $w $opts"] }
+      cget      { return [eval "toggleswitch::cget $w $opts"] }
+      switchoff { eval "toggleswitch::switchoff $w $opts" }
+      invoke    { eval "toggleswitch::invoke $w $opts" }
+      switchon  { eval "toggleswitch::switchon $w $opts" }
+      toggle    { eval "toggleswitch::toggle $w $opts" }
+      default   { return -code error "Unknown toggleswitch command ($cmd)" }
+    }
+    
+  }
+  
+  #-------------------------------------------------------------------------
+  
+  ###########################################################################
+  # Procedure handles the configuration command.
+  proc configure {initialize w args} {
+  
+    variable widget_options
+    variable data
+    
+    if {([llength $args] == 0) && !$initialize} {
+    
+      set results [list]
+      
+      foreach opt [lsort [array names widget_options]] {
+        if {[llength $widget_options($opt)] == 2} {
+          set opt_name    [lindex $widget_options($opt) 0]
+          set opt_class   [lindex $widget_options($opt) 1]
+          set opt_default [option get $w $opt_name $opt_class]
+          if {[info exists data($w,$opt)]} {
+            lappend results [list $opt $opt_name $opt_class $opt_default $data($w,$opt)]
+          } else {
+		    lappend results [list $opt $opt_name $opt_class $opt_default ""]
+		  }
+	    }
+      }
+      
+      return $results
+      
+    } elseif {([llength $args] == 1) && !$initialize} {
+    
+      set opt [lindex $args 0]
+      
+      if {[info exists widget_options($opt)]} {
+        if {[llength $widget_options($opt)] == 1} {
+          set opt [lindex $widget_options($opt) 0]
+        }
+        set opt_name    [lindex $widget_options($opt) 0]
+        set opt_class   [lindex $widget_options($opt) 1]
+        set opt_default [option get $w $opt_name $opt_class]
+        if {[info exists data($w,$opt)]} {
+          return [list $opt $opt_name $opt_class $opt_default $data($w,$opt)]
+        } else {
+          return [list $opt $opt_name $opt_class $opt_default ""]
+        }
+      }
+      
+      return -code error "ToggleSwitch configuration option [lindex $args 0] does not exist"
+    
+    } else {
+
+      # Parse the arguments
+      foreach {name value} $args {
+        if {[info exists data($w,$name)]} {
+          set data($w,$name) $value
+        } else {
+          return -code error "Illegal option given to the toggleswitch configure command ($name)"
+        }
+      }
+      
+      # Set the current value
+      if {$data($w,-variable) ne ""} {
+        upvar #0 $data($w,-variable) var
+        if {$var eq $data($w,-onvalue)} {
+          set data($w,value) 1
+          on $w 1
+        } else {
+          set data($w,value) 0
+          off $w 1
+        }
+      }
+      
+      # Update the widget states
+      if {$data($w,-state) eq "normal"} {
+        $w.on    configure -background $data($w,-onbackground)
+        $w.on.l  configure -background $data($w,-onbackground) -foreground $data($w,-onforeground)
+        $w.off   configure -background $data($w,-offbackground)
+        $w.off.l configure -background $data($w,-offbackground) -foreground $data($w,-offforeground)
+      } else {
+        $w.on    configure -background grey
+        $w.on.l  configure -background grey  -foreground white
+        $w.off   configure -background white
+        $w.off.l configure -background white -foreground grey
+      }
+      
+      # Set the cursor
+      $w configure -cursor $data($w,-cursor)
+
+    }
+
+  }
+  
+  ###########################################################################
+  # Procedure that handles the cget command.
+  proc cget {w args} {
+  
+    variable data
+
+    if {[llength $args] != 1} {
+      return -code error "Incorrect number of parameters given to the toggleswitch cget command"
+    }
+
+    if {[info exists data($w,[lindex $args 0])]} {
+      return $data($w,[lindex $args 0])
+    } else {
+      return -code error "Illegal option given to the toggleswitch cget command ([lindex $args 0])"
+    }
+
+  }
+  
+  ###########################################################################
+  # Procedure which turns the switch to the off position.
+  proc switchoff {w args} {
+  
+    variable data
+    
+    if {[llength $args] != 0} {
+      return -code error "Incorrect number of parameters given to the toggleswitch::switchoff command"
+    }
+    
+    # Switch to the off position
+    off $w 1
+  
+  }
+  
+  ###########################################################################
+  # Procedure which invokes the widget.
+  proc invoke {w args} {
+  
+    variable data
+    
+    if {[llength $args] != 0} {
+      return -code error "Incorrect number of parameters given to the toggleswitch::invoke command"
+    }
+    
+    if {$data($w,value)} {
+      on $w 1
+    } else {
+      off $w 1
+    }
+  
+  }
+  
+  ###########################################################################
+  # Procedure which turns the switch to the on position.
+  proc switchon {w args} {
+    
+    variable data
+    
+    if {[llength $args] != 0} {
+      return -code error "Incorrect number of parameters given to the toggleswitch::switchon command"
+    }
+    
+    # Switch to the on position
+    on $w 1
+  
+  }
+  
+  ###########################################################################
+  # Procedure which toggles the current value of the switch.
+  proc toggle {w args} {
+  
+    variable data
+    
+    if {[llength $args] != 0} {
+      return -code error "Incorrect number of parameters given to the toggleswitch::toggle command"
+    }
+    
+    if {$data($w,value)} {
+      off $w 1
+    } else {
+      on $w 1
+    }
+  
+  }
+
+}

data/tcl/ptwidgets-1.1.0/library/tokenentry.tcl

@@ -0,0 +1,2208 @@
+#===============================================================
+# Main tokenentry package module
+#
+# Copyright (c) 2011-2012  Trevor Williams (phase1geo@gmail.com)
+#===============================================================
+
+package provide tokenentry 1.0
+
+source [file join [tokenentry::DIR] common tokenframe.tcl]
+
+namespace eval tokenentry {
+
+  array set token_index     {}
+  array set active_token    {}
+  array set options         {}
+  array set dont_tokenize   {}
+  array set old_focus       {}
+  array set old_grab        {}
+  array set dropdown_token  {}
+  array set images          {}
+  array set pressed_token   {}
+  array set current_matches {}
+  array set token_count     {}
+  array set token_shapes    {}
+  array set state           {}
+
+  array set text_options {
+    -background          1
+    -bg                  1
+    -borderwidth         1
+    -bd                  1
+    -exportselection     1
+    -font                1
+    -foreground          1
+    -fg                  1
+    -highlightbackground 1
+    -highlightcolor      1
+    -highlightthickness  1
+    -insertbackground    1
+    -insertborderwidth   1
+    -insertofftime       1
+    -insertontime        1
+    -insertwidth         1
+    -padx                1
+    -pady                1
+    -relief              1
+    -selectbackground    1
+    -selectborderwidth   1
+    -selectforeground    1
+    -setgrid             1
+    -state               1
+    -takefocus           1
+    -xscrollcommand      1
+    -yscrollcommand      1
+    -autoseparators      1
+  }
+  
+  array set widget_options {
+    -autoseparators         {autoSeparators         AutoSeparators}
+    -background             {background             Background}
+    -bg                     -background
+    -borderwidth            {borderWidth            BorderWidth}
+    -bd                     -borderwidth
+    -dropdownformatstring   {dropDownFormatString   DropDownFormatString}
+    -dropdownheight         {dropDownHeight         DropDownHeight}
+    -dropdownmaxheight      {dropDownMaxHeight      DropDownMaxHeight}
+    -exportselection        {exportSelection        ExportSelection}
+    -font                   {font                   Font}
+    -foreground             {foreground             Foreground}
+    -fg                     -foreground
+    -height                 {height                 Height}
+    -highlightbackground    {highlightBackground    HighlightBackground}
+    -highlightcolor         {highlightColor         HighlightColor}
+    -highlightthickness     {highlightThickness     HighlightThickness}
+    -insertbackground       {insertBackground       InsertBackground}
+    -insertborderwidth      {insertBorderWidth      InsertBorderWidth}
+    -insertofftime          {insertOffTime          InsertOffTime}
+    -insertontime           {insertOnTime           InsertOnTime}
+    -insertwidth            {insertWidth            InsertWidth}
+    -listvar                {listVar                ListVar}
+    -matchcase              {matchCase              MatchCase}
+    -matchdisplayindex      {matchDisplayIndex      MatchDisplayIndex}
+    -matchindex             {matchIndex             MatchIndex}
+    -matchmode              {matchMode              MatchMode}
+    -padx                   {padX                   Pad}
+    -pady                   {padY                   Pad}
+    -relief                 {relief                 Relief}
+    -selectbackground       {selectBackground       Background}
+    -selectborderwidth      {selectBorderWidth      BorderWidth}
+    -selectforeground       {selectForeground       Foreground}
+    -setgrid                {setGrid                SetGrid}
+    -state                  {state                  State}
+    -takefocus              {takeFocus              TakeFocus}
+    -tokenbg                {tokenBackground        TokenBackground}
+    -tokenbordercolor       {tokenBorderColor       TokenBorderColor}
+    -tokenfg                {tokenForeground        TokenForeground}
+    -tokenselectbg          {tokenSelectBackground  TokenSelectBackground}
+    -tokenselectbordercolor {tokenSelectBorderColor TokenSelectBorderColor}
+    -tokenselectfg          {tokenSelectForeground  TokenSelectForeground}
+    -tokenshape             {tokenShape             TokenShape}
+    -tokenvar               {tokenVar               TokenVar}
+    -watermark              {watermark              Watermark}
+    -watermarkforeground    {watermarkForeground    Foreground}
+    -width                  {width                  Width}
+    -wrap                   {wrap                   Wrap}
+    -xscrollcommand         {xScrollCommand         ScrollCommand}
+    -yscrollcommand         {yScrollCommand         ScrollCommand}
+  }
+
+  variable img_arrow
+  variable img_blank
+
+  set img_arrow [image create photo -data "R0lGODlhBwAHALMAAA8RD0pMSmhpZ21vbW5wboKEgZial6iqp8LFwsnKyObr5vX39f///wAAAAAAAAAAACH5BAkKAA0AIf8LSUNDUkdCRzEwMTL/AAAYHGFwcGwCEAAAbW50clJHQiBYWVogB9sACAAQABUAOgAzYWNzcEFQUEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPbWAAEAAAAA0y1hcHBsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARZGVzYwAAAVAAAABiZHNjbQAAAbQAAAEgY3BydAAAAtQAAAAjd3RwdAAAAvgAAAAUclhZWgAAAwwAAAAUZ1hZWgAAAyAAAAAUYlhZWgAAAzQAAAAUclRSQwAAA0gAAAgMYWFyZwAAC1QAAAAgdmNndAAAC3QAAAYSbmRp/24AABGIAAAGPmNoYWQAABfIAAAALG1tb2QAABf0AAAAKGJUUkMAAANIAAAIDGdUUkMAAANIAAAIDGFhYmcAAAtUAAAAIGFhZ2cAAAtUAAAAIGRlc2MAAAAAAAAACERpc3BsYXkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtbHVjAAAAAAAAABYAAAAMcHRCUgAAAAgAAAEYaXRJVAAAAAgAAAEYaHVIVQAAAAgAAAEYemhUVwAAAAgAAAEYbmJOTwAAAAgAAP8BGGNzQ1oAAAAIAAABGGtvS1IAAAAIAAABGGRlREUAAAAIAAABGHN2U0UAAAAIAAABGHpoQ04AAAAIAAABGGphSlAAAAAIAAABGGFyAAAAAAAIAAABGHB0UFQAAAAIAAABGG5sTkwAAAAIAAABGGZyRlIAAAAIAAABGGVzRVMAAAAIAAABGHRyVFIAAAAIAAABGGZpRkkAAAAIAAABGHBsUEwAAAAIAAABGHJ1UlUAAAAIAAABGGVuVVMAAAAIAAABGGRhREsAAAAIAAABGABpAE0AYQBjdGV4dAAAAABDb3B5cmlnaHQgQXBwbGUsIEluYy4sIDIwMTEAWFlaIAD/AAAAAADzUgABAAAAARbPWFlaIAAAAAAAAHgYAAA/7gAAAixYWVogAAAAAAAAWl4AAKwHAAAUMVhZWiAAAAAAAAAkYAAAFAsAALzPY3VydgAAAAAAAAQAAAAABQAKAA8AFAAZAB4AIwAoAC0AMgA2ADsAQABFAEoATwBUAFkAXgBjAGgAbQByAHcAfACBAIYAiwCQAJUAmgCfAKMAqACtALIAtwC8AMEAxgDLANAA1QDbAOAA5QDrAPAA9gD7AQEBBwENARMBGQEfASUBKwEyATgBPgFFAUwBUgFZAWABZwFuAXUBfAGDAYsBkgGaAaEBqQGxAbkBwQHJAdEB2QHh/wHpAfIB+gIDAgwCFAIdAiYCLwI4AkECSwJUAl0CZwJxAnoChAKOApgCogKsArYCwQLLAtUC4ALrAvUDAAMLAxYDIQMtAzgDQwNPA1oDZgNyA34DigOWA6IDrgO6A8cD0wPgA+wD+QQGBBMEIAQtBDsESARVBGMEcQR+BIwEmgSoBLYExATTBOEE8AT+BQ0FHAUrBToFSQVYBWcFdwWGBZYFpgW1BcUF1QXlBfYGBgYWBicGNwZIBlkGagZ7BowGnQavBsAG0QbjBvUHBwcZBysHPQdPB2EHdAeGB5kHrAe/B9IH5Qf4CAsIHwgyCEYIWghuCIIIlgiqCL4I0gjnCP/7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtb/FvoXHRdBF2UXiReuF9IX9xgbGEAYZRiKGK8Y1Rj6GSAZRRlrGZEZtxndGgQaKhpRGncanhrFGuwbFBs7G2MbihuyG9ocAhwqHFIcexyjHMwc9R0eHUcdcB2ZHcMd7B4WHkAeah6UHr4e6R8THz4faR+UH78f6iAVIEEgbCCYIMQg8CEcIUghdSGhIc4h+yInIlUigiKvIt0jCiM4I2YjlCPCI/AkHyRNJHwkqyTaJQklOCVoJZclxyX3JicmVyaHJrcm6CcYJ0kneierJ9woDSg/KHEooijUKQYpOClrKZ0p0CoCKjUqaCqbKs8rAis2K2krnSvRLAUsOSxuLKIs/9ctDC1BLXYtqy3hLhYuTC6CLrcu7i8kL1ovkS/HL/4wNTBsMKQw2zESMUoxgjG6MfIyKjJjMpsy1DMNM0YzfzO4M/E0KzRlNJ402DUTNU01hzXCNf02NzZyNq426TckN2A3nDfXOBQ4UDiMOMg5BTlCOX85vDn5OjY6dDqyOu87LTtrO6o76DwnPGU8pDzjPSI9YT2hPeA+ID5gPqA+4D8hP2E/oj/iQCNAZECmQOdBKUFqQaxB7kIwQnJCtUL3QzpDfUPARANER0SKRM5FEkVVRZpF3kYiRmdGq0bwRzVHe0fASAVIS0iRSNdJHUljSalJ8Eo3Sn1KxEsMS1NLmv9L4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHT/cHTMdSh1hXXhdj52m3b4d1Z3s3gReG54zHkqeYl553pGeqV7BHtje8J8IXyBfOF9QX2hfgF+Yn7CfyN/hH/lgEeAqIEKgWuBzYIwgpKC9INXg7qEHYSAhOOFR4Wrhg6GcobXhzuHn4gEiGmIzokziZmJ/opkisqLMIuWi/yMY4zKjTGNmI3/jmaOzo82j56QBpBukNaRP5GokhGSepLjk02TtpQglIqU9JVflcmWNJaflwqXdZfgmEyYuJkkmZCZ/JpomtWbQpuvnByciZz3nWSd0p5Anq6fHZ+Ln/qgaaDYoUehtqImopajBqN2o+akVqTHpTilqaYapoum/adu/6fgqFKoxKk3qamqHKqPqwKrdavprFys0K1ErbiuLa6hrxavi7AAsHWw6rFgsdayS7LCszizrrQltJy1E7WKtgG2ebbwt2i34LhZuNG5SrnCuju6tbsuu6e8IbybvRW9j74KvoS+/796v/XAcMDswWfB48JfwtvDWMPUxFHEzsVLxcjGRsbDx0HHv8g9yLzJOsm5yjjKt8s2y7bMNcy1zTXNtc42zrbPN8+40DnQutE80b7SP9LB00TTxtRJ1MvVTtXR1lXW2Ndc1+DYZNjo2WzZ8dp22vvbgNwF3IrdEN2W3hzeot8p36/gNuC94UThzOJT4tvjY+Pr5HPk/OWE5v8N5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23//3BhcmEAAAAAAAMAAAACZmYAAPKnAAANWQAAE9AAAAoOdmNndAAAAAAAAAAAAAMBAAACAAAAVgEUAWUB3gJHArcDOwPSBIEFQQYHBuMHygjGCcIKywvfDQIOHw9KEHgRqRLdFBMVQBZ5F68Y3BoJGzAcSx1eHlUfRyA3ISoiHSMYJBslFiYXJxkoISkpKjArNiw/LUcuTy9VMFUxWDJaM1f/NFQ1UjZFN0U4SzlYOmQ7azx2PXs+fz+CQIJBgEJ+Q3lEcUVoRltHTUg/STBKH0sPS/xM603eTtxP5VDtUfNS+lQBVQZWClcOWBFZFFoYWxxcI10rXjNfPWBLYVliZ2N6ZIlliWaFZ4FofGl6anxrfGx8bYBuhW+McJVxoHKwc8J01XXtdwh4Ink9elJ7W3xefWR+a397gIeBmIKrg76E0YXjhvKIA4kSih6LKYwwjTSONo87kFKRaZKEk5uUspXDltOX45jtmfebAJwGnQqeC58OoA6hC6ILow6kHaU4plSncKiJqaOquqvPrOat/a8UsCyxRLJds3i0lLWzttS3//C497nquti7yry5vaq+m7+PwIXBfcJ4w3XEdcV2xnvHgciLyZnKnsuWzInNf855z3XQc9Fy0nXTeNR71X3Wftd92HrZdtpv22PcW91e3mnfcuB74YHig+OD5ILlfeZ252zoYOlS6kTrNuwm7RfuC+8W8CPxLvI480L0SPVN9lD3UvhS+VL6U/tU/FX9Wf5d/0X//wAAACsAxAEtAYIB9QJaAtEDXQQBBLAFbwY/ByIIDwkFCg4LHQwzDVgOgQ+tENwSDRNAFHQVphbWGAEZJRpBG1McXB1NHjcfHyAKIPkh7CLkI9kk0CXKJsgnxyjGKcQqwivCLMEtvS62L7Ewqv8xnjKSM4Y0dzVsNmg3aThqOWc6aDtkPF09WD5NP0NAN0EpQhlDBkPyRN1Fx0axR5xIhUlsSlZLQEw8TT9OQE9AUEJRQlJAUz5UOlU3VjNXL1gtWSpaKVsoXCtdMF42XztgRWFJYj1jLGQbZQtl/WbwZ+No2GnPashrw2y/bb5uwW/GcMtx1nLkc/J0/3YIdwZ4AHj8eft6/3wFfQ1+GH8lgDKBPoJJg1aEYIVnhm6HcYhziXGKcIuIjJqNso7Gj9qQ6ZH2kwKUC5USlhiXHpggmSCaIpsinB+dH54inzGgTKFmooKjmqSypcmm3afyqQiqHaszrEmtYK54r5KwrrH/yrLjs+u04LXRtsa3uriuuaS6nLuYvJa9l76bv6LAqcG5wsXD18TtxfvG/cf5yPbJ/MsCzArNFc4izzHQQdFQ0l3TatR11X/WhteJ2I3Zp9rG2+jdAt4f3zfgTOFh4nPjgeSN5Znmoues6LbpvurH69btAO4u71rwhPGv8tbz+/Ue9kD3YPiA+aH6wPvi/Qf+Kv81//8AAAAOAEEAoAEbAY4CGQKhA0QEAQS8BYYGYgdNCDsJOwpBC04MYA13DpIPsRDNEekTCRQiFS8WQBdRGFIZThpGGzccKx0XHgIe8h/mINoh0iLII70ksiWpJp8nlSiKKX4qbitdLEktMi4Y/y77L94wvjGcMnozWTQ7NR82BDbnN8k4qzmLOmo7RjwjPPs91D6rP4BAVEElQfhCy0OfRHJFQ0YZRu5Hy0iwSZRKeUteTENNJ04LTu9P01C2UZtSgVNnVFBVOVYlVxRYAljyWeJazVuwXItdZ15CXyFgA2DmYcxis2OfZIxlfWZxZ2hoYmlfal9rYmxmbWlubW9tcGxxbXJxc3t0hnWVdqZ3uXjNed5673wAfRB+HX8ogC+BNII2gziEQ4VNhlmHYohpiW2KbottjGqNZI5bj1GQQ5E0kiWTE5QAlO+V4Zbbl9yY4JnjmuWb5pzmneSe45/ioOOh5KLmo+mk7qX1pv/+qAipD6oMqwCr76zjrdWuya+/sLixtrK2s7u0wrXNttm37Lj+uhS7Lrw+vT++O783wDfBOcI9w0LESMVPxlbHW8heyV7KXctZzFPNSs5Fz0/QY9F50o3TodSx1b7WzdfY2ODZ5trs2+/c8t323vjf++ED4ibjSeRl5X7mmOe26NnqCOtK7KHuEu+h8W7zevXk+OP8w///AABuZGluAAAAAAAABjYAAKNnAABYMQAATJEAAJ0OAAAk6gAAEoIAAFANAABUOQACLhQAAgzMAAHMzAADAQAAAgAAAAEACAAVACMAMQBBAFEAYgBzAIYAmQCtAMEA1wDtAQQBHAE1AU//AWoBhwGkAcIB4gIEAicCTAJ0Ap0CzgMCAzkDcQOrA+UEHwRdBJsE2wUbBV0FoQXnBi4GdwbCBw8HYAeyCAYIXgi4CRMJdQnUCjMKkQrxC1ULuQwhDIwM+Q1pDd0OUg7LD0gPxxBLENIRWxHnEncTCBOfFDQUyxVYFeYWeBcMF6EYORjVGXIaEhq1G1kb/xynHU8d+R6lH1Ef/SCrIVsiCiK8I3skQSUIJdMmnidoKDYpBinVKqUrdixILRst6y68L48wYTExMgMy1zOtNIo1dDZkN1M4RDkuOh87DTv8POw93j7TP81AyUHDQshDzETXRehG/EgWSSxKLks5TEFN/09OX092UJJRrlLTU/tVJ1ZWV4tYx1oEW0Nci13VXxxgYmGOYsBj8WUkZl1nl2jWahlrXWyibepvMnB9cclzFXRida92+3hHeZd6/3yOfi1/x4FogwqErYZOh+2JjYsqjMWOX4/7kZCTKZS8lk2X8Zmwm3adOZ71oLOibKQrpeKnnqlcqyCs6a64sIuyZrRJtjm4Grniu6u9fr9RwS3DFcUBxvHI7crxzP7PENEq00PVZteK2bHbpN2W343hiuOI5Y7nnemw68ft5fAL8i30U/Z++KL6yvz0//8AAAACAAwAGwAqADoASwBcAG4AgQCUAKgAvQDSAOgA/wEXATABSv8BZQGBAZ4BvQHdAf8CIwJJAnICnQLPAwUDPgN4A7MD7wQsBGwErQTvBTIFdwW+BgcGUgaeBu0HPweUB+kIQwigCP4JYQnECicKiQrtC1ULvQwpDJkNCg2ADfgOcw7xD3MP+RCCEQ4RnRIuEsITWxP0FJAVIhWzFkcW3hd2GBEYsBlRGfUamxtEG+8cmx1KHfkeqx9cIA4gwiF4Ii0i6SO0JIUlWSYuJwMn2ii0KY4qaCtDLB8s/C3XLrIvkDBsMUYyIjMBM+I0zDXENr03tTisOaE6mDuOPIM9ej5zP3BAcEFvQnRDfkSKRZ1GtEfQSO9J80sBTAtNHE4uT0ZQZVH/g1KrU9RVA1Y0V2lYplnlWyNca121XvtgRGFxYqNj1mUJZkNnfmi9agFrR2yNbddvIXBucb1zDHRcdax2/HhNeaF7C3yYfjF/xYFfgvuEloYvh8WJW4rujH+ODo+gkSaStpQ+lcKXUJj3mqucY54Nn7mhZKMOpLamXagGqa+rX60SrsmwhLJGtA214LeuuVK6/byjvljACcHFw4nFTccXyOvKw8ykzoXQb9JY1ETWOdgq2hLb0N2L30rhEOLV5J/mcOhG6h/r/e3e78jxrvOV9YT3b/lW+0P9MP//AAAABgAQAB0AKgA5AEkAWQBrAH0AkACkALkAzwDmAP4BFwEy/wFOAWsBigGsAc8B8wIbAkYCcwKkAtYDDANEA30DtwPzBDAEcASyBPYFOwWDBc0GGQZpBrsHEQdqB8cIJwiKCPIJXAnJCjcKpgsXC4wMBAx/DP4NgQ4HDpIPIA+zEEoQ5hGEEiQSyBNxFBkUxRVoFg4WthdhGA4YvxlyGika4hueHFsdGx3bHp0fXyAiIOghriJ4I0wkLyUUJfwm4yfKKLIpmyqCK2osUS03Lh0vAi/nMMwxsDKWM340aTVZNkw3QDgzOSM6FTsFO/U85T3XPsw/xUDAQbtCvUPBRMtF3EbvSApJJEo1S01MZE2BTqJPylD2UihTX1SbVd9XJlh2Wf/KWyBcf13gXz9gl2HmYzJkgWXUZytohWnla0Zsqm4Pb3Vw3XJEc651FnZ9d+V5UHrIfFR98X+HgSSCv4RahfOHhokZiqeMM429j0eQypJRk9WVU5bWmHWaKZvinZafSaD8oq2kYaYUp8qpg6tBrQiu1LCmsoC0YbZNuCG53buVvVG/EMDUwqDEcsZEyB/KAcvpzdTPx9G907TVsNeu2a3bd91A3xTg9uLa5LvmmOhw6jjr7u2P7xzwlvH/81b0h/Wp9rr3tPil+Xn6Rvr++6f8UPzb/WL96f6I/0T//wAAc2YzMgAAAAAAAQxCAAAF3v//8yYAAAeSAAD9kf//+6I0///9owAAA9wAAMBsbW1vZAAAAAAAAAYQAACcbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsAAAAAAcABwAABBqwydmAvcAUxotpQsIkgnQQC3FMRVBQyIBIEQA7"]
+  set img_blank [image create photo -data "R0lGODlhBwAHAIAAAP///wAAACH5BAkKAAEAIf8 LSUNDUkdCRzEwMTL/AAAYHGFwcGwCEAAAbW50clJHQiBYWVogB9sACAAQABUAOgAzYWNzcEFQUEwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPbWAAEAAAAA0y1hcHBsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARZGVzYwAAAVAAAABiZHNjbQAAAbQAAAEgY3BydAAAAtQAAAAjd3RwdAAAAvgAAAAUclhZWgAAAwwAAAAUZ1hZWgAAAyAAAAAUYlhZWgAAAzQAAAAUclRSQwAAA0gAAAgMYWFyZwAAC1QAAAAgdmNndAAAC3QAAAYSbmRp/24AABGIAAAGPmNoYWQAABfIAAAALG1tb2QAABf0AAAAKGJUUkMAAANIAAAIDGdUUkMAAANIAAAIDGFhYmcAAAtUAAAAIGFhZ2cAAAtUAAAAIGRlc2MAAAAAAAAACERpc3BsYXkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtbHVjAAAAAAAAABYAAAAMcHRCUgAAAAgAAAEYaXRJVAAAAAgAAAEYaHVIVQAAAAgAAAEYemhUVwAAAAgAAAEYbmJOTwAAAAgAAP8BGGNzQ1oAAAAIAAABGGtvS1IAAAAIAAABGGRlREUAAAAIAAABGHN2U0UAAAAIAAABGHpoQ04AAAAIAAABGGphSlAAAAAIAAABGGFyAAAAAAAIAAABGHB0UFQAAAAIAAABGG5sTkwAAAAIAAABGGZyRlIAAAAIAAABGGVzRVMAAAAIAAABGHRyVFIAAAAIAAABGGZpRkkAAAAIAAABGHBsUEwAAAAIAAABGHJ1UlUAAAAIAAABGGVuVVMAAAAIAAABGGRhREsAAAAIAAABGABpAE0AYQBjdGV4dAAAAABDb3B5cmlnaHQgQXBwbGUsIEluYy4sIDIwMTEAWFlaIAD/AAAAAADzUgABAAAAARbPWFlaIAAAAAAAAHgYAAA/7gAAAixYWVogAAAAAAAAWl4AAKwHAAAUMVhZWiAAAAAAAAAkYAAAFAsAALzPY3VydgAAAAAAAAQAAAAABQAKAA8AFAAZAB4AIwAoAC0AMgA2ADsAQABFAEoATwBUAFkAXgBjAGgAbQByAHcAfACBAIYAiwCQAJUAmgCfAKMAqACtALIAtwC8AMEAxgDLANAA1QDbAOAA5QDrAPAA9gD7AQEBBwENARMBGQEfASUBKwEyATgBPgFFAUwBUgFZAWABZwFuAXUBfAGDAYsBkgGaAaEBqQGxAbkBwQHJAdEB2QHh/wHpAfIB+gIDAgwCFAIdAiYCLwI4AkECSwJUAl0CZwJxAnoChAKOApgCogKsArYCwQLLAtUC4ALrAvUDAAMLAxYDIQMtAzgDQwNPA1oDZgNyA34DigOWA6IDrgO6A8cD0wPgA+wD+QQGBBMEIAQtBDsESARVBGMEcQR+BIwEmgSoBLYExATTBOEE8AT+BQ0FHAUrBToFSQVYBWcFdwWGBZYFpgW1BcUF1QXlBfYGBgYWBicGNwZIBlkGagZ7BowGnQavBsAG0QbjBvUHBwcZBysHPQdPB2EHdAeGB5kHrAe/B9IH5Qf4CAsIHwgyCEYIWghuCIIIlgiqCL4I0gjnCP/7CRAJJQk6CU8JZAl5CY8JpAm6Cc8J5Qn7ChEKJwo9ClQKagqBCpgKrgrFCtwK8wsLCyILOQtRC2kLgAuYC7ALyAvhC/kMEgwqDEMMXAx1DI4MpwzADNkM8w0NDSYNQA1aDXQNjg2pDcMN3g34DhMOLg5JDmQOfw6bDrYO0g7uDwkPJQ9BD14Peg+WD7MPzw/sEAkQJhBDEGEQfhCbELkQ1xD1ERMRMRFPEW0RjBGqEckR6BIHEiYSRRJkEoQSoxLDEuMTAxMjE0MTYxODE6QTxRPlFAYUJxRJFGoUixStFM4U8BUSFTQVVhV4FZsVvRXgFgMWJhZJFmwWjxayFtb/FvoXHRdBF2UXiReuF9IX9xgbGEAYZRiKGK8Y1Rj6GSAZRRlrGZEZtxndGgQaKhpRGncanhrFGuwbFBs7G2MbihuyG9ocAhwqHFIcexyjHMwc9R0eHUcdcB2ZHcMd7B4WHkAeah6UHr4e6R8THz4faR+UH78f6iAVIEEgbCCYIMQg8CEcIUghdSGhIc4h+yInIlUigiKvIt0jCiM4I2YjlCPCI/AkHyRNJHwkqyTaJQklOCVoJZclxyX3JicmVyaHJrcm6CcYJ0kneierJ9woDSg/KHEooijUKQYpOClrKZ0p0CoCKjUqaCqbKs8rAis2K2krnSvRLAUsOSxuLKIs/9ctDC1BLXYtqy3hLhYuTC6CLrcu7i8kL1ovkS/HL/4wNTBsMKQw2zESMUoxgjG6MfIyKjJjMpsy1DMNM0YzfzO4M/E0KzRlNJ402DUTNU01hzXCNf02NzZyNq426TckN2A3nDfXOBQ4UDiMOMg5BTlCOX85vDn5OjY6dDqyOu87LTtrO6o76DwnPGU8pDzjPSI9YT2hPeA+ID5gPqA+4D8hP2E/oj/iQCNAZECmQOdBKUFqQaxB7kIwQnJCtUL3QzpDfUPARANER0SKRM5FEkVVRZpF3kYiRmdGq0bwRzVHe0fASAVIS0iRSNdJHUljSalJ8Eo3Sn1KxEsMS1NLmv9L4kwqTHJMuk0CTUpNk03cTiVObk63TwBPSU+TT91QJ1BxULtRBlFQUZtR5lIxUnxSx1MTU19TqlP2VEJUj1TbVShVdVXCVg9WXFapVvdXRFeSV+BYL1h9WMtZGllpWbhaB1pWWqZa9VtFW5Vb5Vw1XIZc1l0nXXhdyV4aXmxevV8PX2Ffs2AFYFdgqmD8YU9homH1YklinGLwY0Njl2PrZEBklGTpZT1lkmXnZj1mkmboZz1nk2fpaD9olmjsaUNpmmnxakhqn2r3a09rp2v/bFdsr20IbWBtuW4SbmtuxG8eb3hv0XArcIZw4HE6cZVx8HJLcqZzAXNdc7h0FHT/cHTMdSh1hXXhdj52m3b4d1Z3s3gReG54zHkqeYl553pGeqV7BHtje8J8IXyBfOF9QX2hfgF+Yn7CfyN/hH/lgEeAqIEKgWuBzYIwgpKC9INXg7qEHYSAhOOFR4Wrhg6GcobXhzuHn4gEiGmIzokziZmJ/opkisqLMIuWi/yMY4zKjTGNmI3/jmaOzo82j56QBpBukNaRP5GokhGSepLjk02TtpQglIqU9JVflcmWNJaflwqXdZfgmEyYuJkkmZCZ/JpomtWbQpuvnByciZz3nWSd0p5Anq6fHZ+Ln/qgaaDYoUehtqImopajBqN2o+akVqTHpTilqaYapoum/adu/6fgqFKoxKk3qamqHKqPqwKrdavprFys0K1ErbiuLa6hrxavi7AAsHWw6rFgsdayS7LCszizrrQltJy1E7WKtgG2ebbwt2i34LhZuNG5SrnCuju6tbsuu6e8IbybvRW9j74KvoS+/796v/XAcMDswWfB48JfwtvDWMPUxFHEzsVLxcjGRsbDx0HHv8g9yLzJOsm5yjjKt8s2y7bMNcy1zTXNtc42zrbPN8+40DnQutE80b7SP9LB00TTxtRJ1MvVTtXR1lXW2Ndc1+DYZNjo2WzZ8dp22vvbgNwF3IrdEN2W3hzeot8p36/gNuC94UThzOJT4tvjY+Pr5HPk/OWE5v8N5pbnH+ep6DLovOlG6dDqW+rl63Dr++yG7RHtnO4o7rTvQO/M8Fjw5fFy8f/yjPMZ86f0NPTC9VD13vZt9vv3ivgZ+Kj5OPnH+lf65/t3/Af8mP0p/br+S/7c/23//3BhcmEAAAAAAAMAAAACZmYAAPKnAAANWQAAE9AAAAoOdmNndAAAAAAAAAAAAAMBAAACAAAAVgEUAWUB3gJHArcDOwPSBIEFQQYHBuMHygjGCcIKywvfDQIOHw9KEHgRqRLdFBMVQBZ5F68Y3BoJGzAcSx1eHlUfRyA3ISoiHSMYJBslFiYXJxkoISkpKjArNiw/LUcuTy9VMFUxWDJaM1f/NFQ1UjZFN0U4SzlYOmQ7azx2PXs+fz+CQIJBgEJ+Q3lEcUVoRltHTUg/STBKH0sPS/xM603eTtxP5VDtUfNS+lQBVQZWClcOWBFZFFoYWxxcI10rXjNfPWBLYVliZ2N6ZIlliWaFZ4FofGl6anxrfGx8bYBuhW+McJVxoHKwc8J01XXtdwh4Ink9elJ7W3xefWR+a397gIeBmIKrg76E0YXjhvKIA4kSih6LKYwwjTSONo87kFKRaZKEk5uUspXDltOX45jtmfebAJwGnQqeC58OoA6hC6ILow6kHaU4plSncKiJqaOquqvPrOat/a8UsCyxRLJds3i0lLWzttS3//C497nquti7yry5vaq+m7+PwIXBfcJ4w3XEdcV2xnvHgciLyZnKnsuWzInNf855z3XQc9Fy0nXTeNR71X3Wftd92HrZdtpv22PcW91e3mnfcuB74YHig+OD5ILlfeZ252zoYOlS6kTrNuwm7RfuC+8W8CPxLvI480L0SPVN9lD3UvhS+VL6U/tU/FX9Wf5d/0X//wAAACsAxAEtAYIB9QJaAtEDXQQBBLAFbwY/ByIIDwkFCg4LHQwzDVgOgQ+tENwSDRNAFHQVphbWGAEZJRpBG1McXB1NHjcfHyAKIPkh7CLkI9kk0CXKJsgnxyjGKcQqwivCLMEtvS62L7Ewqv8xnjKSM4Y0dzVsNmg3aThqOWc6aDtkPF09WD5NP0NAN0EpQhlDBkPyRN1Fx0axR5xIhUlsSlZLQEw8TT9OQE9AUEJRQlJAUz5UOlU3VjNXL1gtWSpaKVsoXCtdMF42XztgRWFJYj1jLGQbZQtl/WbwZ+No2GnPashrw2y/bb5uwW/GcMtx1nLkc/J0/3YIdwZ4AHj8eft6/3wFfQ1+GH8lgDKBPoJJg1aEYIVnhm6HcYhziXGKcIuIjJqNso7Gj9qQ6ZH2kwKUC5USlhiXHpggmSCaIpsinB+dH54inzGgTKFmooKjmqSypcmm3afyqQiqHaszrEmtYK54r5KwrrH/yrLjs+u04LXRtsa3uriuuaS6nLuYvJa9l76bv6LAqcG5wsXD18TtxfvG/cf5yPbJ/MsCzArNFc4izzHQQdFQ0l3TatR11X/WhteJ2I3Zp9rG2+jdAt4f3zfgTOFh4nPjgeSN5Znmoues6LbpvurH69btAO4u71rwhPGv8tbz+/Ue9kD3YPiA+aH6wPvi/Qf+Kv81//8AAAAOAEEAoAEbAY4CGQKhA0QEAQS8BYYGYgdNCDsJOwpBC04MYA13DpIPsRDNEekTCRQiFS8WQBdRGFIZThpGGzccKx0XHgIe8h/mINoh0iLII70ksiWpJp8nlSiKKX4qbitdLEktMi4Y/y77L94wvjGcMnozWTQ7NR82BDbnN8k4qzmLOmo7RjwjPPs91D6rP4BAVEElQfhCy0OfRHJFQ0YZRu5Hy0iwSZRKeUteTENNJ04LTu9P01C2UZtSgVNnVFBVOVYlVxRYAljyWeJazVuwXItdZ15CXyFgA2DmYcxis2OfZIxlfWZxZ2hoYmlfal9rYmxmbWlubW9tcGxxbXJxc3t0hnWVdqZ3uXjNed5673wAfRB+HX8ogC+BNII2gziEQ4VNhlmHYohpiW2KbottjGqNZI5bj1GQQ5E0kiWTE5QAlO+V4Zbbl9yY4JnjmuWb5pzmneSe45/ioOOh5KLmo+mk7qX1pv/+qAipD6oMqwCr76zjrdWuya+/sLixtrK2s7u0wrXNttm37Lj+uhS7Lrw+vT++O783wDfBOcI9w0LESMVPxlbHW8heyV7KXctZzFPNSs5Fz0/QY9F50o3TodSx1b7WzdfY2ODZ5trs2+/c8t323vjf++ED4ibjSeRl5X7mmOe26NnqCOtK7KHuEu+h8W7zevXk+OP8w///AABuZGluAAAAAAAABjYAAKNnAABYMQAATJEAAJ0OAAAk6gAAEoIAAFANAABUOQACLhQAAgzMAAHMzAADAQAAAgAAAAEACAAVACMAMQBBAFEAYgBzAIYAmQCtAMEA1wDtAQQBHAE1AU//AWoBhwGkAcIB4gIEAicCTAJ0Ap0CzgMCAzkDcQOrA+UEHwRdBJsE2wUbBV0FoQXnBi4GdwbCBw8HYAeyCAYIXgi4CRMJdQnUCjMKkQrxC1ULuQwhDIwM+Q1pDd0OUg7LD0gPxxBLENIRWxHnEncTCBOfFDQUyxVYFeYWeBcMF6EYORjVGXIaEhq1G1kb/xynHU8d+R6lH1Ef/SCrIVsiCiK8I3skQSUIJdMmnidoKDYpBinVKqUrdixILRst6y68L48wYTExMgMy1zOtNIo1dDZkN1M4RDkuOh87DTv8POw93j7TP81AyUHDQshDzETXRehG/EgWSSxKLks5TEFN/09OX092UJJRrlLTU/tVJ1ZWV4tYx1oEW0Nci13VXxxgYmGOYsBj8WUkZl1nl2jWahlrXWyibepvMnB9cclzFXRida92+3hHeZd6/3yOfi1/x4FogwqErYZOh+2JjYsqjMWOX4/7kZCTKZS8lk2X8Zmwm3adOZ71oLOibKQrpeKnnqlcqyCs6a64sIuyZrRJtjm4Grniu6u9fr9RwS3DFcUBxvHI7crxzP7PENEq00PVZteK2bHbpN2W343hiuOI5Y7nnemw68ft5fAL8i30U/Z++KL6yvz0//8AAAACAAwAGwAqADoASwBcAG4AgQCUAKgAvQDSAOgA/wEXATABSv8BZQGBAZ4BvQHdAf8CIwJJAnICnQLPAwUDPgN4A7MD7wQsBGwErQTvBTIFdwW+BgcGUgaeBu0HPweUB+kIQwigCP4JYQnECicKiQrtC1ULvQwpDJkNCg2ADfgOcw7xD3MP+RCCEQ4RnRIuEsITWxP0FJAVIhWzFkcW3hd2GBEYsBlRGfUamxtEG+8cmx1KHfkeqx9cIA4gwiF4Ii0i6SO0JIUlWSYuJwMn2ii0KY4qaCtDLB8s/C3XLrIvkDBsMUYyIjMBM+I0zDXENr03tTisOaE6mDuOPIM9ej5zP3BAcEFvQnRDfkSKRZ1GtEfQSO9J80sBTAtNHE4uT0ZQZVH/g1KrU9RVA1Y0V2lYplnlWyNca121XvtgRGFxYqNj1mUJZkNnfmi9agFrR2yNbddvIXBucb1zDHRcdax2/HhNeaF7C3yYfjF/xYFfgvuEloYvh8WJW4rujH+ODo+gkSaStpQ+lcKXUJj3mqucY54Nn7mhZKMOpLamXagGqa+rX60SrsmwhLJGtA214LeuuVK6/byjvljACcHFw4nFTccXyOvKw8ykzoXQb9JY1ETWOdgq2hLb0N2L30rhEOLV5J/mcOhG6h/r/e3e78jxrvOV9YT3b/lW+0P9MP//AAAABgAQAB0AKgA5AEkAWQBrAH0AkACkALkAzwDmAP4BFwEy/wFOAWsBigGsAc8B8wIbAkYCcwKkAtYDDANEA30DtwPzBDAEcASyBPYFOwWDBc0GGQZpBrsHEQdqB8cIJwiKCPIJXAnJCjcKpgsXC4wMBAx/DP4NgQ4HDpIPIA+zEEoQ5hGEEiQSyBNxFBkUxRVoFg4WthdhGA4YvxlyGika4hueHFsdGx3bHp0fXyAiIOghriJ4I0wkLyUUJfwm4yfKKLIpmyqCK2osUS03Lh0vAi/nMMwxsDKWM340aTVZNkw3QDgzOSM6FTsFO/U85T3XPsw/xUDAQbtCvUPBRMtF3EbvSApJJEo1S01MZE2BTqJPylD2UihTX1SbVd9XJlh2Wf/KWyBcf13gXz9gl2HmYzJkgWXUZytohWnla0Zsqm4Pb3Vw3XJEc651FnZ9d+V5UHrIfFR98X+HgSSCv4RahfOHhokZiqeMM429j0eQypJRk9WVU5bWmHWaKZvinZafSaD8oq2kYaYUp8qpg6tBrQiu1LCmsoC0YbZNuCG53buVvVG/EMDUwqDEcsZEyB/KAcvpzdTPx9G907TVsNeu2a3bd91A3xTg9uLa5LvmmOhw6jjr7u2P7xzwlvH/81b0h/Wp9rr3tPil+Xn6Rvr++6f8UPzb/WL96f6I/0T//wAAc2YzMgAAAAAAAQxCAAAF3v//8yYAAAeSAAD9kf//+6I0///9owAAA9wAAMBsbW1vZAAAAAAAAAYQAACcbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsAAAAAAcABwAAAgaMj6nLjQUAOw=="]
+
+  ###########################################################################
+  # Main procedure which creates the given window and initializes it.
+  proc tokenentry {w args} {
+
+    variable token_index
+    variable options
+    variable dont_tokenize
+    variable active_token
+    variable pressed_token
+    variable token_count
+    variable widget_options
+    variable dropdown_token
+    variable state
+
+    # The widget will be a frame
+    frame $w -class TokenEntry -takefocus 0
+    
+    # Initially, we pack the frame with a text widget
+    text $w.txt -highlightthickness 0 -relief flat -bg white -spacing1 2 -spacing2 2 -spacing3 2 -takefocus 1
+
+    # Pack the text widget
+    pack $w.txt -side left -fill both -expand yes
+    
+    # Create the popup window that might be used by this widget
+    toplevel  $w.top
+    listbox   $w.top.list -selectmode browse -background white -yscrollcommand "$w.top.vsb set" -exportselection 0 -borderwidth 0 -cursor top_left_arrow
+    ttk::scrollbar $w.top.vsb -command "$w.top.list yview"
+
+    pack $w.top.list -side left -fill both -expand y
+
+    # Handle the popup
+    wm overrideredirect $w.top 1
+    wm transient        $w.top [winfo toplevel $w]
+    wm group            $w.top [winfo parent $w]
+    wm withdraw         $w.top
+
+    # Initialize default options
+    if {[array size token_index] == 0} {
+      foreach opt [array names widget_options] {
+        if {![catch "$w.txt configure $opt" rc]} {
+          if {[llength $widget_options($opt)] != 1} {
+            if {$opt eq "-wrap"} {
+              set default_value 0
+            } elseif {$opt eq "-height"} {
+              set default_value 1
+            } elseif {$opt eq "-background"} {
+              set default_value "white"
+            } elseif {$opt eq "-relief"} {
+              set default_value "ridge"
+            } else {
+              set default_value [lindex $rc 4]
+            }
+            option add *TokenEntry.[lindex $rc 1] $default_value widgetDefault
+          }
+        }
+      }
+      option add *TokenEntry.tokenForeground        black        widgetDefault
+      option add *TokenEntry.tokenBackground        "light blue" widgetDefault
+      option add *TokenEntry.tokenBorderColor       "light blue" widgetDefault
+      option add *TokenEntry.tokenSelectForeground  white        widgetDefault
+      option add *TokenEntry.tokenSelectBackground  blue         widgetDefault
+      option add *TokenEntry.tokenSelectBorderColor blue         widgetDefault
+      option add *TokenEntry.dropDownHeight         0            widgetDefault
+      option add *TokenEntry.dropDownMaxHeight      5            widgetDefault
+      option add *TokenEntry.matchMode              glob         widgetDefault
+      option add *TokenEntry.matchIndex             ""           widgetDefault
+      option add *TokenEntry.matchCase              0            widgetDefault
+      option add *TokenEntry.matchDisplayIndex      0            widgetDefault
+      option add *TokenEntry.listVar                ""           widgetDefault
+      option add *TokenEntry.tokenVar               ""           widgetDefault
+      option add *TokenEntry.tokenShape             pill         widgetDefault
+      option add *TokenEntry.dropDownFormatString   "%s"         widgetDefault
+      option add *TokenEntry.watermark              ""           widgetDefault
+      option add *TokenEntry.watermarkForeground    "light gray" widgetDefault
+    }
+
+    # Initialize variables
+    set token_index($w)    0
+    set active_token($w)   ""
+    set dont_tokenize($w)  0
+    set dropdown_token($w) ""
+    set pressed_token($w)  ""
+    set token_count($w)    0
+    set state($w)          "unknown"
+    
+    # Initialize the options array
+    foreach opt [array names widget_options] {
+      set options($w,$opt) [option get $w [lindex $widget_options($opt) 0] [lindex $widget_options($opt) 1]]
+    }
+    
+    # Setup bindings
+    bind $w.txt <FocusOut>      "set tokenentry::dont_tokenize($w) 0; tokenentry::tokenize $w"
+    bind $w.txt <Key-comma>     "set tokenentry::dont_tokenize($w) 0; tokenentry::tokenize $w; break"
+    bind $w.txt <Return>        "tokenentry::key_return $w; break"
+    bind $w.txt <Tab>           "tokenentry::focus_next $w; break"
+    bind $w.txt <Left>          {
+      tokenentry::key_left_right [winfo parent %W] left
+      if {[tokenentry::handle_text_movement [winfo parent %W]]} {
+        break
+      }
+    }
+    bind $w.txt <Right>         {
+      tokenentry::key_left_right [winfo parent %W] right
+      if {[tokenentry::handle_text_movement [winfo parent %W]]} {
+        break
+      }
+    }
+    bind $w.txt <Down>          {
+      tokenentry::key_down [winfo parent %W]
+      if {[tokenentry::handle_text_movement [winfo parent %W]]} {
+        break
+      }
+    }
+    bind $w.txt <Up>            {
+      tokenentry::key_up [winfo parent %W]
+      if {[tokenentry::handle_text_movement [winfo parent %W]]} {
+        break
+      }
+    }
+    bind $w.txt <Escape>        "tokenentry::close_dropdown $w"
+    bind $w.txt <Button-1>      {
+      tokenentry::close_dropdown [winfo parent %W]
+      if {[tokenentry::handle_text_movement [winfo parent %W]]} {
+        break
+      }
+    }
+    bind $w.txt <B1-Motion>     {
+      if {[tokenentry::handle_text_movement [winfo parent %W]]} {
+        break
+      }
+    }
+    bind $w.txt <B1-Leave>      {
+      if {[tokenentry::handle_text_movement [winfo parent %W]]} {
+        break
+      }
+    }
+    bind $w.txt <Any-KeyPress>  "tokenentry::keypress $w"
+    bind $w.top.list <Motion>   "tokenentry::motion_dropdown $w %x %y"
+    bind $w.top.list <Button-1> "tokenentry::key_return $w; focus $w.txt"
+    bind $w.txt <<Modified>>    "tokenentry::modified $w"
+    bind $w.txt <<Selection>>   "tokenentry::handle_selection_change $w"
+    bind $w.txt <Destroy>       "tokenentry::handle_destroy $w"
+    if {[tk windowingsystem] eq "aqua"} {
+      bind $w.txt <Command-x> "tokenentry::handle_cut $w"
+      bind $w.txt <Command-c> "tokenentry::handle_copy $w"
+      bind $w.txt <Command-v> "tokenentry::handle_paste $w"
+    } else {
+      bind $w.txt <Control-x> "tokenentry::handle_cut $w"
+      bind $w.txt <Control-c> "tokenentry::handle_copy $w"
+      bind $w.txt <Control-v> "tokenentry::handle_paste $w"
+    }
+
+    # Configure the widget
+    eval "configure 1 $w $args"
+
+    # Rename and alias the tokenentry window
+    rename ::$w $w
+    interp alias {} ::$w {} tokenentry::widget_cmd $w
+
+    return $w
+
+  }
+  
+  ###########################################################################
+  # This procedure is called when the widget is destroyed.
+  proc handle_destroy {w} {
+
+    variable images
+
+    # Delete the images
+    foreach {key value} [array get images $w,*] {
+      image delete $value
+    }
+    
+    # Delete the array values, themselves
+    array unset images $w,*
+
+  }
+
+  ###########################################################################
+  # Changes focus to the next window after w.
+  proc focus_next {w} {
+
+    # Change the focus
+    focus [tk_focusNext $w.txt]
+
+  }
+
+  ###########################################################################
+  # This procedure is called when the text widget is modified.
+  proc modified {w} {
+
+    variable token_count
+    variable options
+    variable state
+
+    if {[$w.txt edit modified]} {
+
+      set last_value [$w.txt get {insert - 1 chars} insert]
+
+      if {($last_value eq ",") || ($last_value eq "\n") || ($last_value eq "\t")} {
+        $w.txt delete {insert - 1 chars} insert
+        handle_state $w 1
+      }
+
+      # Reset the modified flag
+      $w.txt edit modified false
+
+      # Generate the TokenEntryModified event if our token count has changed
+      set tokens [llength [$w.txt window names]]
+      if {$token_count($w) != $tokens} {
+        set token_count($w) $tokens
+        if {$options($w,-tokenvar) ne ""} {
+          upvar #0 $options($w,-tokenvar) var
+          set var [get_tokens $w]
+        }
+        event generate $w <<TokenEntryModified>>
+      }
+
+    }
+
+  }
+
+  ###########################################################################
+  # If the selection of the text box changes, make sure that any selected
+  # tokens are updated appropriately.
+  proc handle_selection_change {w} {
+    
+    # Don't allow the selection to contain tokens
+    foreach token [$w.txt window names] {
+      if {[lsearch [$w.txt tag names $token] sel] != -1} {
+        $w.txt tag remove sel $token
+      }
+    }
+    
+  }
+  
+  ###########################################################################
+  # Validation command.
+  proc validate {w str} {
+
+    variable options
+
+    if {$str eq ","} {
+      return 0
+    } elseif {$options($w,-validatecommand) ne ""} {
+      return [eval $options($w,-validatecommand) $str]
+    } else {
+      return 1
+    }
+
+  }
+
+  ###########################################################################
+  # Handles a left or right arrow key event.
+  proc key_left_right {w dir {token ""}} {
+  
+    variable options
+    variable active_token
+    
+    if {$token eq ""} {
+    
+      # Don't do anything if the current insertion cursor is the beginning or end
+      if {(([$w.txt index insert] ne "1.0") || ($dir eq "right")) && \
+          (([$w.txt index insert] ne [$w.txt index end]) || ($dir eq "left"))} {
+    
+        # Get the current insertion index
+        if {$dir eq "left"} {
+          set index [$w.txt index "insert - 1 chars"]
+        } else {
+          set index [$w.txt index insert]
+        }
+      
+        # If a token exists at the given index, select it.
+        foreach token [$w.txt window names] {
+          if {[$w.txt index $token] eq $index} {
+            reverse_token $w $token
+            set active_token($w) $index
+            focus $token
+            return
+          }
+        }
+        
+      }
+      
+    } else {
+    
+      # Clear the active token
+      set active_token($w) ""
+      
+      # Deselect the token
+      reverse_token $w $token
+      
+      # Close the dropdown listbox if it is opened
+      close_dropdown $w
+      
+      # If the direction was a positive direction, increase the insertion cursor by one character
+      if {($dir eq "right") && ([$w.txt index $token] eq [$w.txt index insert])} {
+        $w.txt mark set insert "insert + 1 chars"
+      }
+      
+      # Get the text entry field the focus
+      focus $w.txt
+      
+    }
+    
+  }
+  
+  ###########################################################################
+  # This procedure is invoked when the user hits the down key when the text
+  # has the focus.
+  proc key_down {w {token ""}} {
+
+    if {[winfo ismapped $w.top]} {
+      tk::ListboxUpDown $w.top.list 1
+      return -code break
+    } elseif {$token ne ""} {
+      display_dropdown_items $w $token
+    }
+
+  }
+
+  ###########################################################################
+  # This procedure is invoked when the user hits the up key when the text
+  # has the focus.
+  proc key_up {w {token ""}} {
+
+    if {[winfo ismapped $w.top]} {
+      tk::ListboxUpDown $w.top.list -1
+      return -code break
+    } elseif {$token ne ""} {
+      close_dropdown $w
+    }
+
+  }
+
+  ###########################################################################
+  # This procedure is invoked when the user hits the return key when the
+  # text has the focus.
+  proc key_return {w {token ""}} {
+
+    variable dropdown_token
+    variable options
+    variable current_matches
+    variable dont_tokenize
+
+    # Allow the tokenization to occur
+    set dont_tokenize($w) 0
+
+    # If the dropdown window is shown, get the currently selected text and insert it into the textbox.
+    if {[winfo ismapped $w.top]} {
+
+      upvar #0 $options($w,-listvar) listvar
+      
+      # Get the currently selected value
+      set value [lindex $listvar [lindex $current_matches($w) [$w.top.list curselection]] $options($w,-matchdisplayindex)]
+
+      # Figure out the position of the first character of text
+      set curr_index 1.0
+      set end_index  [$w.txt index end]
+      while {($curr_index != $end_index) && ([$w.txt get $curr_index] eq "")} {
+        set curr_index [$w.txt index "$curr_index + 1 chars"]
+      }
+      
+      # If the result is associated with a token, change the token text
+      if {$dropdown_token($w) ne ""} {
+        $dropdown_token($w).l1 configure -text $value
+        redraw_token $w $dropdown_token($w) 1
+        if {$options($w,-tokenvar) ne ""} {
+          upvar #0 $options($w,-tokenvar) var
+          set var [get_tokens $w]
+        }
+        event generate $w <<TokenEntryModified>>
+
+      # Otherwise, remove the current text and replace it with the given value
+      } else {
+        $w.txt delete $curr_index "$curr_index + [expr [string length $value] + 1] chars"
+        $w.txt insert $curr_index $value
+        tokenize $w
+      }
+
+      # Close the dropbox
+      close_dropdown $w
+
+    # If this return was hit for a token, detokenize the current token to make it editable
+    } elseif {$token ne ""} {
+
+      detokenize $w $token
+      
+    } else {
+    
+      # Tokenize the text
+      tokenize $w
+
+    }
+
+  }
+
+  ###########################################################################
+  # This procedure is called whenever the escape key is pressed when a token
+  # has the focus.  This will cause the dropdown listbox to be closed if
+  # it is currently opened.
+  proc key_escape {w token} {
+  
+    # Just close the dropdown listbox
+    close_dropdown $w
+    
+  }
+  
+  ###########################################################################
+  # This procedure is called whenever the user presses a key in the text box.
+  proc keypress {w} {
+
+    # Update the current state
+    handle_state $w 1
+    
+    after idle [list tokenentry::handle_entry_key $w]
+
+    # Clear the listbox selection so that it's obvious what will happen if the user
+    # presses return.
+    $w.top.list see 0
+    $w.top.list selection clear 0 end
+    $w.top.list selection anchor 0
+    $w.top.list activate 0
+
+  }
+
+  ###########################################################################
+  # Populates and shows the listbox with the matching values.  If there are no
+  # matching values, the listbox is closed.
+  proc handle_entry_key {w} {
+
+    variable options
+    variable current_matches
+    variable dont_tokenize
+    
+    # Handle the current state
+    handle_state $w 1
+
+    # Make sure that we don't tokenize
+    set dont_tokenize($w) 1
+
+    # Get rid of any whitespace from around the value
+    set value [string trim [$w.txt get 1.0 end]]
+
+    # Clear the listbox
+    $w.top.list delete 0 end
+
+    # Populate the listbox with matching values
+    if {$value ne ""} {
+      if {$options($w,-listvar) ne ""} {
+        upvar #0 $options($w,-listvar) listvar
+        set cmdargs [list]
+        switch $options($w,-matchmode) {
+          glob {
+            lappend cmdargs "-glob"
+            set matchval "*$value*"
+          }
+          regexp {
+            lappend cmdargs "-regexp"
+            set matchval ".*$value.*"
+          }
+          default {
+            lappend cmdargs "-glob"
+            set matchval "*$value*"
+          }
+        }
+        if {!$options($w,-matchcase)} {
+          lappend cmdargs "-nocase"
+        }
+        if {[llength $options($w,-matchindex)] > 0} {
+          lappend cmdargs "-index" "$options($w,-matchindex)"
+        }
+        lappend cmdargs "-all"
+        foreach matchindex [set current_matches($w) [eval "lsearch $cmdargs {$listvar} {$matchval}"]] {
+          set match [eval "lindex {$listvar} $matchindex $options($w,-matchindex)"]
+          $w.top.list insert end [eval "format {$options($w,-dropdownformatstring)} $match"]
+        }
+      }
+    }
+
+    # If the listbox is not empty, show it
+    if {[$w.top.list size] > 0} {
+      open_dropdown $w
+      $w.top.list activate 0
+      $w.top.list selection set 0
+
+    } else {
+      close_dropdown $w
+    }
+
+  }
+
+  ###########################################################################
+  # Handles any sort of movement of the insertion cursor or selection within
+  # the text widget.
+  proc handle_text_movement {w} {
+  
+    variable state
+    
+    # If we are empty, always set the insertion cursor to 1.0
+    if {$state($w) eq "empty"} {
+      $w.txt mark set insert 1.0
+      $w.txt tag remove sel 1.0 end
+      focus $w.txt
+      return 1
+    }
+    
+    return 0
+    
+  }
+
+  ###########################################################################
+  # Handles a Control-x binding on the given widget.
+  proc handle_cut {w} {
+
+    if {[focus] eq $w} {
+      set select [$w tag ranges sel]
+      if {[llength $select] == 0} {
+        clipboard clear
+        clipboard append [$w.txt get 1.0 end]
+        # TBD - Need to delete only text
+        eval "$w.txt delete 1.0 end"
+        handle_state $w 1
+      } else {
+        clipboard clear
+        clipboard append [eval "$w.txt get $select"]
+        eval "$w.txt delete $select"
+        handle_state $w 1
+      }
+    } else {
+      clipboard clear
+      clipboard append [[focus].l1 cget -text]
+      eval "tokendelete $w $select"
+    }
+
+  }
+
+  ###########################################################################
+  # Handles a Control-c binding on the given widget.
+  proc handle_copy {w} {
+  
+    if {[focus] eq $w} {
+      set select [$w.txt tag ranges sel]
+      if {[llength $select] == 0} {
+        clipboard clear
+        clipboard append [$w.txt get 1.0 end]
+      } else {
+        clipboard clear
+        clipboard append [eval "$w.txt get $select"]
+      }
+    } else {
+      clipboard clear
+      clipboard append [[focus].l1 cget -text]
+    }
+  
+  }
+  
+  ###########################################################################
+  # Handles a Control-v binding on the given widget.
+  proc handle_paste {w} {
+  
+    # Handle the current state
+    handle_state $w 1
+  
+    # Insert the clipboard text
+    $w.txt insert insert [clipboard get]
+
+    # Close the drop-down listbox
+    close_dropdown $w
+
+  }
+
+  ###########################################################################
+  # Redraws the given token.
+  proc redraw_token {w token resize} {
+
+    variable options
+    variable images
+    variable token_shapes
+
+    # Get the border color from the token
+    set usebc  [$token.l2.top cget -bg]
+    set txt_bg [$w.txt cget -background]
+
+    # Figure out the width and height of the token text label
+    if {$resize} {
+      update idletasks
+    }
+    set l1_width  [winfo reqwidth  $token.l1]
+    set l1_height [winfo reqheight $token.l1]
+    
+    # Get the needed shapes
+    set shape_left  [lindex $token_shapes($token) 0]
+    set shape_right [lindex $token_shapes($token) end]
+       
+    # Create the token images, if necessary
+    if {![info exists images($w,left,$l1_height,$usebc,$txt_bg,$shape_left)]} {
+      set images($w,left,$l1_height,$usebc,$txt_bg,$shape_left) [image create bitmap -data [eval "tokenframe::create_left $shape_left $l1_height"] -maskdata [eval "tokenframe::create_left_mask $shape_left $l1_height"] -foreground $usebc -background $txt_bg]
+    }
+    if {![info exists images($w,edge,$usebc)]} {
+      set images($w,edge,$usebc) [image create bitmap -data "#define edge_width 7\n#define edge_height 2\nstatic char edge_bits\[\] = {\n0x7f, 0x7f};" -foreground $usebc]
+    }
+    if {![info exists images($w,middle,$l1_width,$l1_height,$usebc)]} {
+      set images($w,middle,$l1_width,$l1_height,$usebc) [image create bitmap -data [tokenframe::create_middle $l1_width $l1_height] -foreground $usebc]
+    }
+    if {![info exists images($w,$l1_height,$usebc,$txt_bg,$shape_right)]} {
+      set images($w,right,$l1_height,$usebc,$txt_bg,$shape_right) [image create bitmap -data [eval "tokenframe::create_right $shape_right $l1_height"] -maskdata [eval "tokenframe::create_right_mask $shape_right $l1_height"] -foreground $usebc -background $txt_bg]
+    }
+
+    # Configure the label images
+    $token.ll     configure -padx 0 -pady 0 -compound center -image $images($w,left,$l1_height,$usebc,$txt_bg,$shape_left)
+    $token.l1     configure -padx 0 -pady 0 -compound center -image $images($w,middle,$l1_width,$l1_height,$usebc)
+    $token.l2.top configure -padx 0 -pady 0 -compound center -image $images($w,edge,$usebc)
+    $token.l2.bot configure -padx 0 -pady 0 -compound center -image $images($w,edge,$usebc)
+    $token.lr     configure -padx 0 -pady 0 -compound center -image $images($w,right,$l1_height,$usebc,$txt_bg,$shape_right)
+
+  }
+
+  ###########################################################################
+  # Reverses the color scheme of the given token.
+  proc reverse_token {w token} {
+
+    # Get the current colors
+    set a_bg [$token.l1 cget -bg]
+    set a_fg [$token.l1 cget -fg]
+    set a_bc [$token.l2.top cget -bg]
+    set b_bg [$token.ll cget -fg]
+    set b_fg [$token.lr cget -fg]
+    set b_bc [$token.l2.mid cget -fg]
+
+    # Reverse the color schemes
+    $token.ll     configure -bg $b_bg -fg $a_bg
+    $token.l1     configure -bg $b_bg -fg $b_fg
+    $token.l2.top configure -bg $b_bc
+    $token.l2.mid configure -bg $b_bg -fg $a_bc
+    $token.l2.bot configure -bg $b_bc
+    $token.lr     configure -bg $b_bg -fg $a_fg
+
+    # Redraw the token
+    redraw_token $w $token 0
+
+  }
+
+  ###########################################################################
+  # Creates a token and inserts it into the textbox.
+  proc create_token {w index fg bg bordercolor selectfg selectbg selectbordercolor value} {
+
+    variable options
+    variable token_index
+    variable img_blank
+    variable token_shapes
+
+    # Add the token (store the "store" colors and the select background color in unused slots)
+    set token [frame $w.txt.f$token_index($w) -relief flat]
+    label $token.ll     -bd 0 -bg $bg -fg $selectbg
+    label $token.l1     -bd 0 -text $value -fg $fg -bg $bg -font [$w.txt cget -font]
+    frame $token.l2     -bg $bg
+    label $token.l2.top -bd 0 -bg $bordercolor -fg $selectbg
+    label $token.l2.mid -bd 0 -bg $bg -fg $selectbordercolor -image $img_blank
+    label $token.l2.bot -bd 0 -bg $bordercolor
+    label $token.lr     -bd 0 -bg $bg -fg $selectfg
+
+    set token_shapes($token) $options($w,-tokenshape)
+
+    # Create the token frames
+    redraw_token $w $token 1
+
+    # Pack the labels
+    pack $token.l2.top -anchor n
+    pack $token.l2.mid -fill y -expand yes
+    pack $token.l2.bot -anchor s
+
+    pack $token.ll -side left
+    pack $token.l1 -side left
+    pack $token.l2 -side left -fill both
+    pack $token.lr -side left
+    $w.txt window create $index -window $token -padx 2
+
+    # Add bindings to the new token
+    bind $token        <FocusOut>        "tokenentry::deselect_token $w $token"
+    bind $token.l1     <ButtonPress-1>   "tokenentry::handle_token_press $w $token %x %y"
+    bind $token.l1     <Motion>          "tokenentry::handle_token_drag $w %x %y"
+    bind $token.l1     <ButtonRelease-1> "tokenentry::handle_token_release $w $token %x %y"
+    bind $token.l2.mid <Button-1>        "tokenentry::handle_arrow_click $w $token %x %y"
+    bind $token        <Enter>           "tokenentry::handle_token_enter $w $token"
+    bind $token        <Leave>           "tokenentry::handle_token_leave $w $token"
+    bind $token        <BackSpace>       "tokenentry::delete_token $w $token"
+    bind $token        <Left>            "tokenentry::key_left_right $w left $token"
+    bind $token        <Right>           "tokenentry::key_left_right $w right $token"
+    bind $token        <Down>            "tokenentry::key_down $w $token"
+    bind $token        <Up>              "tokenentry::key_up $w $token"
+    bind $token        <Return>          "tokenentry::key_return $w $token"
+    bind $token        <Escape>          "tokenentry::key_escape $w $token"
+    if {[tk windowingsystem] eq "aqua"} {
+      bind $token <Command-x> "tokenentry::handle_cut $w"
+      bind $token <Command-c> "tokenentry::handle_copy $w"
+    } else {
+      bind $token <Control-x> "tokenentry::handle_cut $w"
+      bind $token <Control-c> "tokenentry::handle_copy $w"
+    }
+
+    incr token_index($w)
+
+    return $token
+
+  }
+
+  ###########################################################################
+  # Returns the text window position given an index.
+  proc index_to_position {w index} {
+
+    set indices [list]
+    foreach token [$w.txt window names] {
+      lappend indices [$w.txt index $token]
+    }
+
+    return [lindex [lsort -real $indices] $index]
+
+  }
+
+  ###########################################################################
+  # Returns true if the given token is currently selected; otherwise, returns
+  # false.
+  proc is_selected {token} {
+
+    if {[$token.l2.top cget -fg] eq [$token.l1 cget -bg]} {
+      return 1
+    } else {
+      return 0
+    }
+
+  }
+
+  ###########################################################################
+  # Creates a token out of the given text, deletes the text.
+  proc tokenize {w} {
+
+    variable token_index
+    variable options
+    variable dont_tokenize
+    variable img_blank
+    variable state
+
+    # If we are told to not tokenize, clear the dont_tokenize value and be done
+    if {$dont_tokenize($w)} {
+      set dont_tokenize($w) 0
+      return
+    }
+    
+    # If our current state is empty, be done
+    if {$state($w) eq "empty"} {
+      return
+    }
+
+    # Get the current string in the entry field
+    set token_str [string trim [$w.txt get 1.0 end]]
+
+    # Figure out the position of the first character of text
+    set curr_index 1.0
+    set end_index  [$w.txt index end]
+    while {($curr_index != $end_index) && ([$w.txt get $curr_index] eq "")} {
+      set curr_index [$w.txt index "$curr_index + 1 chars"]
+    }
+
+    # Create and add the token
+    if {$token_str ne ""} {
+      create_token $w $curr_index $options($w,-tokenfg) $options($w,-tokenbg) $options($w,-tokenbordercolor) \
+                                  $options($w,-tokenselectfg) $options($w,-tokenselectbg) $options($w,-tokenselectbordercolor) $token_str
+    }
+
+    # Clear the text field
+    $w.txt delete "$curr_index + 1 chars" "$curr_index + [expr [string length $token_str] + 1] chars"
+
+    # Make sure that the insertion cursor is visible
+    $w.txt see 1.0
+    update
+    $w.txt see insert
+
+    # Finally, close the dropdown window if it is currently opened
+    close_dropdown $w
+
+  }
+
+  ###########################################################################
+  # Deletes the token and replaces it with the original text.
+  proc detokenize {w token} {
+
+    variable dont_tokenize
+    variable active_token
+    
+    # Change the focus to the textbox prior to deleting the token to avoid
+    # having the token be tokenized immediately
+    focus $w.txt
+
+    # Get some information from the token (position and text)
+    set token_pos  [$w.txt index $token]
+    set token_text [$token.l1 cget -text]
+
+    # Delete the token
+    $w.txt delete $token
+
+    # Insert the label text
+    $w.txt insert $token_pos $token_text
+
+    # Set the selection to the inserted text
+    $w.txt tag add sel $token_pos "$token_pos + [string length $token_text] chars"
+
+    # Set the insertion cursor to the end of the text
+    $w.txt mark set insert "$token_pos + [string length $token_text] chars"
+
+    # Make sure that we don't tokenize this string
+    set dont_tokenize($w) 1
+    
+    # Clear the active token
+    set active_token($w) ""
+
+  }
+
+  ###########################################################################
+  # Removes a token from the entry field.
+  proc delete_token {w token} {
+
+    variable options
+    variable active_token
+
+    set last_pos ""
+
+    foreach token [$w.txt window names] {
+      if {[$token.l1 cget -bg] eq $options($w,-tokenselectbg)} {
+        set last_pos [$w.txt index $token]
+        $w.txt delete $token
+        handle_state $w 1
+      }
+    }
+
+    # Set the insertion cursor to the end
+    if {$last_pos ne ""} {
+      $w.txt mark set insert $last_pos
+    }
+    
+    # Clear the active token
+    set active_token($w) ""
+
+    # Set the focus back to the entry
+    focus $w.txt
+
+  }
+
+  ###########################################################################
+  # This procedure is called when the text token receives the focus.  It
+  # deselects any currently selected tokens.
+  proc deselect_token {w token} {
+
+    variable options
+    variable img_blank
+    variable active_token
+
+    # If we are disabled, do nothing
+    if {$options($w,-state) eq "disabled"} {
+      return
+    }
+
+    # If we are selected, reverse the token
+    if {[is_selected $token]} {
+      reverse_token $w $token
+    }
+    
+    # Clear the active token
+    set active_token($w) ""
+
+    # Clear the arrow image
+    $token.l2.mid configure -image $img_blank
+
+  }
+
+  ###########################################################################
+  # This procedure is called whenever a token is left-pressed.  It allows a 
+  # drag and drop option to move the token.
+  proc handle_token_press {w token x y} {
+
+    variable pressed_token
+    variable options
+    variable dont_tokenize
+
+    # If we are disabled, do nothing
+    if {$options($w,-state) eq "disabled"} {
+      return
+    }
+
+    # Save the pressed token
+    set pressed_token($w) [list $token $x]
+
+    # Close the dropdown list if it is opened
+    close_dropdown $w
+
+    # If there is anything that needs to be tokenized, do it now
+    set dont_tokenize($w) 0
+    tokenize $w
+
+  }
+
+  ###########################################################################
+  # This procedure is called whenever a token is moved.
+  proc handle_token_drag {w x y} {
+
+    variable pressed_token
+
+    if {$pressed_token($w) ne ""} {
+
+      # Make sure that the text widget has the focus
+      focus $w.txt
+
+      # Change the cursor to a hand
+      [lindex $pressed_token($w) 0] configure -cursor left_side
+
+      set index [$w.txt index @[expr [winfo x [lindex $pressed_token($w) 0]] + $x + 8],$y]
+
+      # Get the current location and set the insertion cursor
+      if {$x < [lindex $pressed_token($w) 1]} {
+        $w.txt mark set insert $index
+      } else {
+        $w.txt mark set insert "$index + 1 chars"
+      }
+
+    }
+
+  }
+
+  ###########################################################################
+  # This procedure is called whenever a token is left-clicked.  It changes
+  # the state of the token.
+  proc handle_token_release {w token x y} {
+
+    variable options
+    variable pressed_token
+    variable active_token
+
+    # If we are disabled, stop now.
+    if {$options($w,-state) eq "disabled"} {
+      return
+    }
+
+    set start_index [$w.txt index $token]
+    set end_index   [$w.txt index @[expr [winfo x [lindex $pressed_token($w) 0]] + $x + 8],$y]
+
+    # If the token was not moved, treat the click as a selection/detokenization
+    if {$start_index == $end_index} {
+
+      # If the token is currently selected, detokenize the selection
+      if {$active_token($w) == [$w.txt index $token]} {
+        
+        detokenize $w $token
+        
+        # Clear the pressed token
+        set pressed_token($w) ""
+        
+        return
+        
+      } else {
+        
+        # Reverse the color scheme
+        reverse_token $w $token
+
+        # Set the active token
+        set active_token($w) [$w.txt index $token]
+
+        # Make sure that the current token keeps the focus
+        focus $token
+        
+        # Generate the TokenEntrySelected event
+        event generate $w <<TokenEntrySelected>>
+        
+      }
+
+    # Otherwise, the token has been dragged to a new position -- delete it and recreate it in the new position
+    } else {
+
+      # Move the window to the new position
+      if {$x < [lindex $pressed_token($w) 1]} {
+        $w.txt window create $end_index -window $token -padx 2
+      } else {
+        $w.txt window create "$end_index + 1 chars" -window $token -padx 2
+      }
+
+      # Delete the previous position if the starting position is less than the ending position
+      if {$start_index < $end_index} {
+        $w.txt delete $start_index
+      }
+
+      # Update the tokenvar variable, if it has been set
+      if {$options($w,-tokenvar) ne ""} {
+        upvar #0 $options($w,-tokenvar) var
+        set var [get_tokens $w]
+      }
+
+      # Generate a TokenEntryModified event
+      event generate $w <<TokenEntryModified>>
+
+    }
+
+    # Change cursor on pressed token to arrow
+    [lindex $pressed_token($w) 0] configure -cursor top_left_arrow
+
+    # Clear the pressed token
+    set pressed_token($w) ""
+
+  }
+
+  ###########################################################################
+  # Populates the dropdown listbox with the items from the -listvar list
+  # and displays the listbox.
+  proc display_dropdown_items {w token} {
+  
+    variable options
+    variable current_matches
+    
+    if {[info exists options($w,-listvar)] && ($options($w,-listvar) ne "")} {
+    
+      upvar #0 $options($w,-listvar) listvar
+    
+      # Remove all of the items from the dropdown list
+      $w.top.list delete 0 end
+    
+      # Populate the dropdown list with the list of items from listvar
+      set current_matches($w) [list]
+      foreach value $listvar {
+        lappend current_matches($w) [$w.top.list size]
+        if {$options($w,-matchindex) ne ""} {
+          set value [lindex $value $options($w,-matchindex)]
+        }
+        $w.top.list insert end [eval "format {$options($w,-dropdownformatstring)} $value"]
+      }
+    
+      # Activate and select the first item in the list
+      $w.top.list activate 0
+      $w.top.list selection set 0
+    
+      # Show the dropdown list
+      open_dropdown $w $token
+      
+    }
+      
+  }
+  
+  ###########################################################################
+  # This procedure is called whenever an arrow token is left-clicked.  It changes
+  # the state of the token.
+  proc handle_arrow_click {w token x y} {
+
+    variable active_token
+    variable options
+    variable img_blank
+    variable current_matches
+
+    # If we are disabled, stop now.
+    if {$options($w,-state) eq "disabled"} {
+      return
+    }
+
+    if {[$token.l2.mid cget -image] eq $img_blank} {
+      handle_token_press   $w $token $x $y
+      handle_token_release $w $token $x $y
+    } else {
+      display_dropdown_items $w $token
+    }
+
+  }
+
+  ###########################################################################
+  # This procedirue is called when the cursor enters the arrow area.
+  proc handle_token_enter {w token} {
+
+    variable options
+    variable img_arrow
+
+    # If we are disabled, do nothing
+    if {$options($w,-state) eq "disabled"} {
+      return
+    }
+
+    # Draw an arrow if we have an associated listvar and it is not empty
+    if {$options($w,-listvar) ne ""} {
+      upvar #0 $options($w,-listvar) listvar
+      if {[llength $listvar] > 0} {
+        $token.l2.mid configure -image $img_arrow
+      }
+    }
+
+    # Change the cursor
+    $token configure -cursor top_left_arrow
+
+  }
+
+  ###########################################################################
+  # This procedure is called when the cursor leaves the area for the arrow.
+  proc handle_token_leave {w token} {
+
+    variable options
+    variable img_arrow
+    variable img_blank
+
+    # If we are disabled, do nothing
+    if {$options($w,-state) eq "disabled"} {
+      return
+    }
+
+    if {([$token.l2.mid cget -image] eq $img_arrow) && ([$token.l2.mid cget -bg] eq $options($w,-tokenbg))} {
+      $token.l2.mid configure -image $img_blank
+    }
+
+  }
+
+  ###########################################################################
+  # Calculates the geometry of the given window.
+  proc compute_geometry {w} {
+
+    variable options
+
+    if {($options($w,-dropdownheight) == 0) && ($options($w,-dropdownmaxheight) != 0)} {
+      set nitems [$w.top.list size]
+      if {$nitems > $options($w,-dropdownmaxheight)} {
+        $w.top.list configure -height $options($w,-dropdownmaxheight)
+      } else {
+        $w.top.list configure -height 0
+      }
+      update idletasks
+    }
+
+    # Compute the height and width of the dropdown list
+    set bd     [$w.top cget -borderwidth]
+    set height [expr [winfo reqheight $w.top] + $bd + $bd]
+    set width  [winfo width $w]
+
+    # Figure out where to place it on the screen
+    set screen_width  [winfo screenwidth $w]
+    set screen_height [winfo screenheight $w]
+    set rootx         [winfo rootx $w]
+    set rooty         [winfo rooty $w]
+    set vrootx        [winfo vrootx $w]
+    set vrooty        [winfo vrooty $w]
+
+    set x [expr $rootx + $vrootx]
+    set y [expr $rooty + $vrooty + [winfo reqheight $w] + 1]
+    set bottom_edge [expr $y + $height]
+
+    # If it extends beyond our screen, trim the list and add a scrollbar
+    if {$bottom_edge >= $screen_height} {
+      set y [expr ($rooty - $height - 1) + $vrooty]
+      if {$y < 0} {
+        if {$rooty > [expr $screen_height / 2]} {
+          set y      1
+          set height [expr $rooty - 1 - $y]
+        } else {
+          set y      [expr $rooty + $vrooty + [winfo reqheight $w] + 1]
+          set height [expr $screen_height - $y]
+        }
+        handle_scrollbar $w crop
+      }
+    }
+
+    if {$y < 0} {
+      set y 0
+      set height $screen_height
+    }
+
+    set geometry [format "=%dx%d+%d+%d" $width $height $x $y]
+
+    return $geometry
+
+  }
+
+  ###########################################################################
+  # Hides/Displays the scrollbar in the dropdown listbox.
+  proc handle_scrollbar {w {action "unknown"}} {
+
+    variable options
+
+    if {$options($w,-dropdownheight) == 0} {
+      set hlimit $options($w,-dropdownmaxheight)
+    } else {
+      set hlimit $options($w,-dropdownheight)
+    }
+
+    switch $action {
+      "grow" {
+        if {($hlimit > 0) && ([$w.top.list size] > $hlimit)} {
+          pack forget $w.top.list
+          pack $w.top.vsb  -side right -fill y    -expand n
+          pack $w.top.list -side left  -fill both -expand y
+        }
+      }
+      "shrink" {
+        if {($hlimit > 0) && ([$w.top.list size] <= $hlimit)} {
+          pack forget $w.top.vsb
+        }
+      }
+      "crop" {
+        pack forget $w.top.list
+        pack $w.top.vsb  -side right -fill y    -expand n
+        pack $w.top.list -side left  -fill both -expand y
+      }
+      default {
+        if {($hlimit > 0) && ([$w.top.list size] > $hlimit)} {
+          pack forget $w.top.list
+          pack $w.top.vsb  -side right -fill y    -expand n
+          pack $w.top.list -side left  -fill both -expand y
+        } else {
+          pack forget $w.top.vsb
+        }
+      }
+    }
+
+    return ""
+
+  }
+
+  ###########################################################################
+  # This procedure is invoked by various events and displays the dropdown
+  # listbox containing a list of selectable values.
+  proc open_dropdown {w {token ""}} {
+
+    variable options
+    variable old_focus
+    variable old_grab
+    variable dropdown_token
+
+    # If the user has not provided any values to display, skip opening the window
+    if {$options($w,-listvar) ne ""} {
+      upvar #0 $options($w,-listvar) listvar
+      if {[llength $listvar] == 0} {
+        return 0
+      }
+    }
+
+    # Update the scrollbar appropriately
+    handle_scrollbar $w
+
+    # Compute the geometry of the window to pop up, set it, and force the window manager to
+    # take notice
+    set geometry [compute_geometry $w]
+    wm geometry $w.top $geometry
+    update idletasks
+
+    # If we are already open, stop
+    if {[winfo ismapped $w.top]} {
+      return 0
+    }
+
+    # Set the reason
+    set dropdown_token($w) $token
+
+    # Save the current focus
+    set old_focus($w) [focus]
+
+    # Make the list pop up
+    wm deiconify $w.top
+    update idletasks
+    raise $w.top
+
+    # Force the focus so we can handle keypress events for traversal
+    if {$token eq ""} {
+      focus -force $w.txt
+    } else {
+      focus -force $token
+    }
+
+    # Save the current grab state
+    set status "none"
+    set grab [grab current $w]
+    if {$grab != ""} {
+      set status [grab status $grab]
+    }
+    set old_grab($w) [list $grab $status]
+    unset grab status
+
+    grab -global $w
+
+    # Fake the listbox into thinking it has focus.
+    event generate $w.top.list <B1-Enter>
+
+    return 1
+
+  }
+
+  ###########################################################################
+  # This procedure is invoked when the user hits the Escape key or makes a
+  # a listbox selection.  It removes the dropdown listbox and returns the focus
+  # to the text box.
+  proc close_dropdown {w} {
+
+    variable old_focus
+    variable old_grab
+    variable dropdown_token
+
+    # If the window is already unmapped, stop
+    if {![winfo ismapped $w.top]} {
+      return 0
+    }
+
+    catch { focus $old_focus($w) } result
+    catch { grab release $w }
+    catch {
+      set status [lindex $old_grab($w) 1]
+      if {$status eq "global"} {
+        grab -global [lindex $old_grab($w) 0]
+      } elseif {$status eq "local"} {
+        grab [lindex $old_grab($w) 0]
+      }
+      unset status
+    }
+
+    # Clear the reason
+    set dropdown_token($w) ""
+
+    # Hide the listbox
+    wm withdraw $w.top
+
+    # Magic Tcl stuff (see tk.tcl in the distribution lib directory)
+    tk::CancelRepeat
+
+    return 1
+
+  }
+
+  ###########################################################################
+  # This is called whenever the cursor moves over the listbox.
+  proc motion_dropdown {w x y} {
+    
+    # Set the cursor
+    $w.top.list configure -cursor ""
+
+    # Clear the selections
+    $w.top.list selection clear 0 end
+
+    # Set the selection to the current index
+    $w.top.list selection set @$x,$y
+
+  }
+  
+  ###########################################################################
+  # Handles the current state of the widget (empty/non-empty) and handles
+  # any watermark display (or removal of the display).
+  proc handle_state {w keyed} {
+  
+    variable state
+    variable options
+    
+    # If we are in the empty state
+    if {$state($w) eq "empty"} {
+    
+      $w.txt delete 1.0 end
+      
+      if {$keyed} {
+        set state($w) "non-empty"
+        $w.txt configure -foreground $options($w,-foreground)
+      } else {
+        $w.txt configure -foreground $options($w,-watermarkforeground)
+        $w.txt insert end $options($w,-watermark)
+        $w.txt mark set insert 1.0
+      }
+    
+    # Otherwise, we are in the not-empty state
+    } elseif {$state($w) eq "non-empty"} {
+    
+      # If the widget is empty, set the state to empty and fill it with the
+      # empty string.
+      if {([string trim [$w.txt get 1.0 end]] eq "") && ([llength [$w.txt window names]] == 0)} {
+        set state($w) "empty"
+        $w.txt configure -foreground $options($w,-watermarkforeground)
+        $w.txt insert end $options($w,-watermark)
+        $w.txt mark set insert 1.0
+      }
+      
+    }
+  
+  }
+
+  ###########################################################################
+  # Returns a sorted list of all of the token values.
+  proc get_tokens {w} {
+
+    set tokens  [list]
+    set indices [list]
+
+    foreach token [$w.txt window names] {
+      lappend indices [list [$w.txt index $token] $token]
+    }
+
+    foreach index [lsort -real -index 0 $indices] {
+      lappend tokens [[lindex $index 1].l1 cget -text]
+    }
+
+    return $tokens
+
+  }
+
+  ###########################################################################
+  # Converts an entry index to a text index.
+  proc entry_to_text_index {w index} {
+
+    set offset ""
+    if {[regexp {(.+)\s*\-\s*(\d+)$} $index -> index offset]} {
+      set offset " - $offset chars"
+    }
+
+    if {[string is integer $index]} {
+      return "1.$index$offset"
+    } elseif {$index eq "anchor"} {
+      return -code error "Illegal tokenentry index ($index)"
+    } elseif {$index eq "end"} {
+      return "1.end$offset"
+    } elseif {$index eq "insert"} {
+      return "[$w.txt index insert]$offset"
+    } elseif {$index eq "sel.first"} {
+      return "[lindex [$w.txt tag ranges sel] 0]$offset"
+    } elseif {$index eq "sel.last"} {
+      return "[lindex [$w.txt tag ranges sel] 1]$offset"
+    } else {
+      return -code error "Illegal tokenentry index ($index)"
+    }
+
+  }
+
+  ###########################################################################
+  # Handles all commands.
+  proc widget_cmd {w args} {
+    
+    if {[llength $args] == 0} {
+      return -code error "tokenentry widget called without a command"
+    }
+
+    set cmd  [lindex $args 0]
+    set opts [lrange $args 1 end]
+
+    switch $cmd {
+      configure      { eval "tokenentry::configure 0 $w $opts" }
+      cget           { return [eval "tokenentry::cget $w $opts"] }
+      tokenindex     { return [eval "tokenentry::tokenindex $w $opts"] }
+      tokenselection { eval "tokenentry::tokenselection $w $opts" }
+      tokenget       { return [eval "tokenentry::get_tokens $w"] }
+      tokenconfigure { eval "tokenentry::tokenconfigure $w $opts" }
+      tokencget      { return [eval "tokenentry::tokencget $w $opts" }
+      tokeninsert    { eval "tokenentry::tokeninsert $w $opts" }
+      tokendelete    { eval "tokenentry::tokendelete $w $opts" }
+      entryget       { return [$w.txt get 1.0 end] }
+      insert         { return [eval "tokenentry::insert $w $opts"] }
+      bbox           { return [eval "tokenentry::bbox $w $opts"] }
+      delete         { eval "tokenentry::delete $w $opts" }
+      get            { return [eval "tokenentry::get $w $opts"] }
+      icursor        { eval "tokenentry::icursor $w $opts" }
+      index          { return [eval "tokenentry::index $w $opts"] }
+      insert         { eval "tokenentry::insert $w $opts" }
+      scan           { return [eval "tokenentry::scan $w $opts"] }
+      selection      { return [eval "tokenentry::selection $w $opts"] }
+      validate       { return [eval "tokenentry::validate $w $opts"] }
+      xview          { return [eval "tokenentry::xview $w $opts"] }
+      default        { return -code error "Unknown tokenentry command ($cmd)" }
+    }
+
+  }
+
+  ###########################################################################
+  # USER COMMANDS
+  ###########################################################################
+
+  ###########################################################################
+  # Main configuration routine.
+  proc configure {initialize w args} {
+
+    variable options
+    variable text_options
+    variable widget_options
+    variable state
+
+    if {([llength $args] == 0) && !$initialize} {
+    
+      set results [list]
+      
+      foreach opt [lsort [array names widget_options]] {
+        if {[llength $widget_options($opt)] == 2} {
+          set opt_name    [lindex $widget_options($opt) 0]
+          set opt_class   [lindex $widget_options($opt) 1]
+          set opt_default [option get $w $opt_name $opt_class]
+          if {[info exists text_options($opt)]} {
+            lappend results [list $opt $opt_name $opt_class $opt_default [$w.txt cget $opt]]
+          } elseif {[info exists options($w,$opt)]} {
+            lappend results [list $opt $opt_name $opt_class $opt_default $options($w,$opt)]
+          } else {
+		    lappend results [list $opt $opt_name $opt_class $opt_default ""]
+		  }
+	    }
+      }
+      
+      return $results
+      
+    } elseif {([llength $args] == 1) && !$initialize} {
+    
+      set opt [lindex $args 0]
+      
+      if {[info exists widget_options($opt)]} {
+        if {[llength $widget_options($opt)] == 1} {
+          set opt [lindex $widget_options($opt) 0]
+        }
+        set opt_name    [lindex $widget_options($opt) 0]
+        set opt_class   [lindex $widget_options($opt) 1]
+        set opt_default [option get $w $opt_name $opt_class]
+        if {[info exists text_options($opt)]} {
+          return [list $opt $opt_name $opt_class $opt_default [$w.txt cget $opt]]
+        } elseif {[info exists options($w,$opt)]} {
+          return [list $opt $opt_name $opt_class $opt_default $options($w,$opt)]
+        } else {
+          return [list $opt $opt_name $opt_class $opt_default ""]
+        }
+      }
+      
+      return -code error "TokenEntry configuration option [lindex $args 0] does not exist"
+    
+    } else {
+    
+      # Save the original contents
+      array set orig_options [array get options]
+
+      # Parse the arguments
+      foreach {name value} $args {
+        if {[info exists text_options($name)]} {
+          $w.txt configure $name $value
+        } elseif {[info exists options($w,$name)]} {
+          set options($w,$name) $value
+        } else {
+          return -code error "Illegal option given to the tokenentry configure command ($name)"
+        }
+      }
+
+      # Update the GUI widgets
+      # $w.txt configure -fg $options($w,-foreground) -bg $options($w,-background) \
+                        -relief $options($w,-relief) -state $options($w,-state)
+      if {$options($w,-height) ne ""} {
+        $w.txt configure -height $options($w,-height)
+      }
+      if {$options($w,-width) ne ""} {
+        $w.txt configure -width $options($w,-width)
+      }
+
+      if {[string is boolean $options($w,-wrap)]} {
+        if {$options($w,-wrap)} {
+          $w.txt configure -wrap word
+        } else {
+          $w.txt configure -wrap none
+        }
+      } else {
+        set options($w,-wrap) $orig_options($w,-wrap)
+        return -code error "Value for -wrap option is not a boolean value ($options($w,-wrap))"
+      }
+      
+      # If the textbox is empty, configure it for the watermark
+      if {$options($w,-watermark) ne ""} {
+        set state($w) "empty"
+      }
+      handle_state $w 0
+
+      if {($orig_options($w,-dropdownheight) ne $options($w,-dropdownheight)) || \
+          ($orig_options($w,-dropdownmaxheight) ne $options($w,-dropdownmaxheight))} {
+        handle_scrollbar $w
+      }
+    
+      # Update the tokens, if necessary
+      if {($orig_options($w,-tokenbg)        ne $options($w,-tokenbg))        || ($orig_options($w,-tokenfg)         ne $options($w,-tokenfg)) || \
+          ($orig_options($w,-tokenselectbg)  ne $options($w,-tokenselectbg))  || ($orig_options($w,-tokenselectfg)   ne $options($w,-tokenselectfg)) || \
+          ($orig_options($w,-tokenshape)     ne $options($w,-tokenshape))} {      
+        set token_num [llength [$w.txt window names]]
+        for {set i 0} {$i < $token_num} {incr i} {
+          tokenconfigure $w $i -bg $options($w,-tokenbg) -fg $options($w,-tokenfg) \
+                               -selectbg $options($w,-tokenselectbg) -selectfg $options($w,-tokenselectfg) \
+                               -shape $options($w,-tokenshape)
+        }
+      }
+      
+    }
+
+  }
+
+  ###########################################################################
+  # Gets configuration option value(s).
+  proc cget {w args} {
+
+    variable options
+    variable text_options
+
+    if {[llength $args] != 1} {
+      return -code error "Incorrect number of parameters given to the tokenentry cget command"
+    }
+
+    if {[info exists text_options([lindex $args 0])]} {
+      return [$w.txt cget [lindex $args 0]]
+    } elseif {[info exists options($w,[lindex $args 0])]} {
+      return $options($w,[lindex $args 0])
+    } else {
+      return -code error "Illegal option given to the tokenentry cget command ([lindex $args 0])"
+    }
+
+  }
+
+  ###########################################################################
+  # Configures the token located at the given index.
+  proc tokenconfigure {w args} {
+
+    variable token_shapes
+    
+    if {[expr [llength $args] % 2] == 0} {
+      return -code error "Incorrect number of parameters given to the tokenconfigure command"
+    }
+
+    set index [index_to_position $w [lindex $args 0]]
+
+    # Retrieve the current token pathname
+    set token [$w.txt window cget $index -window]
+
+    # Figure out if the current token is selected or not
+    set selected [is_selected $token]
+
+    set redraw 0
+    set resize 0
+
+    foreach {option value} [lrange $args 1 end] {
+      switch $option {
+        -bg -
+        -background {
+          if {$selected} {
+            $token.ll configure -fg $value
+          } else {
+            $token.ll     configure -bg $value
+            $token.l1     configure -bg $value
+            $token.l2     configure -bg $value
+            $token.l2.mid configure -bg $value
+            $token.lr     configure -bg $value
+            set redraw 1
+          }
+        }
+        -fg -
+        -foreground {
+          if {$selected} {
+            $token.lr configure -fg $value
+          } else {
+            $token.l1 configure -fg $value
+            set redraw 1
+          }
+        }
+        -bordercolor {
+          if {$selected} {
+            $token.l2.mid configure -fg $value
+          } else {
+            $token.l2.top configure -bg $value
+            $token.l2.bot configure -bg $value
+            set redraw 1
+          }
+        }
+        -shape {
+          if {([llength $value] < 0) || ([llength $value] > 2)} {
+            return -code error "ERROR:  Token -shape list must be contain either 1 or 2 values"
+          }
+          foreach val $value {
+            switch $value {
+              pill   -
+              tag    -
+              square -
+              eased  -
+              ticket {}
+              default {
+                return -code error "ERROR:  Token -shape is an unsupported value (pill, tag, square, eased, ticket)"
+              }
+            }
+            set token_shapes($token) $value
+            set redraw 1
+          }
+        }
+        -selectbg -
+        -selectbackground {
+          if {$selected} {
+            $token.ll     configure -bg $value
+            $token.l1     configure -bg $value
+            $token.l2     configure -bg $value
+            $token.l2.mid configure -bg $value
+            $token.lr     configure -bg $value
+            set redraw 1
+          } else {
+            $token.ll configure -fg $value
+          }
+        }
+        -selectfg -
+        -selectforeground {
+          if {$selected} {
+            $token.l1 configure -fg $value
+            set redraw 1
+          } else {
+            $token.lr configure -fg $value
+          }
+        }
+        -selectbordercolor {
+          if {$selected} {
+            $token.l2.top configure -bg $value
+            $token.l2.bot configure -bg $value
+            set redraw 1
+          } else {
+            $token.l2.mid configure -fg $value
+          }
+        }
+        -text {
+          $token.l1 configure -text $value
+          set redraw 1
+          set resize 1
+        }
+        default {
+          return -code error "Illegal option to the tokenconfigure option ($option)"
+        }
+      }
+    }
+
+    # If we need to redraw the token, do it now
+    if {$redraw} {
+      redraw_token $w $token $resize
+    }
+
+  }
+
+  ###########################################################################
+  # Gets the configuration information located at the given index.
+  proc tokencget {w args} {
+
+    variable token_shapes
+    
+    if {[llength $args] != 2} {
+      return -code error "Incorrect number of options given to the tokencget command"
+    }
+
+    # Get the token index
+    set index [index_to_position $w [lindex $args 0]]
+
+    # Get the token
+    set token [$w.txt window cget $index -window]
+
+    # Figure out if the token is currently selected
+    set selected [is_selected $token]
+
+    # Do an option lookup
+    switch [lindex $args 1] {
+      -bg -
+      -background {
+        if {$selected} {
+          return [$token.ll cget -fg]
+        } else {
+          return [$token.l1 cget -bg]
+        }
+      }
+      -fg -
+      -foreground {
+        if {$selected} {
+          return [$token.lr cget -fg]
+        } else {
+          return [$token.l1 cget -fg]
+        }
+      }
+      -bordercolor {
+        if {$selected} {
+          return [$token.l2.mid cget -fg]
+        } else {
+          return [$token.l2.top cget -bg]
+        }
+      }
+      -shape {
+        return $token_shapes($token)
+      }
+      -selectbg -
+      -selectbackground {
+        if {$selected} {
+          return [$token.l1 cget -bg]
+        } else {
+          return [$token.ll cget -fg]
+        }
+      }
+      -selectfg -
+      -selectforeground {
+        if {$selected} {
+          return [$token.l1 cget -fg]
+        } else {
+          return [$token.lr cget -fg]
+        }
+      }
+      -selectbordercolor {
+        if {$selected} {
+          return [$token.l2.top cget -bg]
+        } else {
+          return [$token.l2.mid cget -fg]
+        }
+      }
+      -text {
+        return [$token.l1 cget -text]
+      }
+      default {
+        return -code error "Illegal option to the tokencget option ([lindex $args 1])"
+      }
+
+    }
+
+  }
+
+  ###########################################################################
+  # Returns the numerical index of the specified index.
+  proc tokenindex {w args} {
+
+    variable active_token
+
+    if {[llength $args] != 1} {
+      return -code error "Illegal options to the tokenindex command"
+    } else {
+      set index [lindex $args 0]
+      if {$index eq "active"} {
+        if {$active_token($w) eq ""} {
+          return -1
+        } else {
+          return $active_token($w)
+        }
+      } else {
+        return [lindex [$w.txt window names] $index]
+      }
+    }
+
+  }
+
+  ###########################################################################
+  # Handles the tokenselection command.
+  proc tokenselection {w args} {
+
+    variable active_token
+    variable options
+
+    if {[llength $args] == 0} {
+
+      return -code error "Incorrect number of options to the tokenselection command"
+
+    } else {
+
+      switch [lindex $args 0] {
+        get {
+        }
+        clear {
+          set start_index [index_to_position $w [lindex $args 1]]
+          set end_index   [index_to_position $w [lindex $args 2]]
+          set index       $start_index
+          foreach token [lrange [$w.txt window names] $start_index $end_index] {
+            $token configure -fg $options($w,-tokenfg) -bg $options($w,-tokenbg)
+            incr start_index
+          }
+          set active_token($w) ""
+        }
+        set {
+          set start_index [index_to_position $w [lindex $args 1]]
+          set end_index   [index_to_position $w [lindex $args 2]]
+          set index       $start_index
+          foreach token [lrange [$w.txt window names] $start_index $end_index] {
+            $token configure -fg $options($w,-tokenselectfg) -bg $options($w,-tokenselectbg)
+            incr index
+          }
+          set active_token($w) $start_index
+        }
+        default {
+          return -code error "Illegal token selection command ([lindex $args 0])"
+        }
+      }
+
+    }
+
+  }
+
+  ###########################################################################
+  # Handles the token insertion command.
+  proc tokeninsert {w args} {
+
+    variable options
+    variable dont_tokenize
+
+    if {[llength $args] != 2} {
+      return -code error "Incorrect number of options to the tokeninsert command"
+    }
+
+    set index [index_to_position $w [lindex $args 0]]
+
+    if {$index eq ""} {
+      set index [$w.txt index "1.[lindex $args 0]"]
+    }
+    
+    # Make sure that all inserted text is tokenized
+    set dont_tokenize($w) 0
+
+    # Create the tokens (we do this for performance purposes)
+    set tokens [list]
+    foreach value [lreverse [lindex $args 1]] {
+
+      # Handle the current state
+      handle_state $w 1
+      
+      # Insert the text into the widget
+      $w.txt insert $index $value
+
+      # Turn the text into a token
+      tokenize $w
+
+    }
+
+  }
+
+  ###########################################################################
+  # Deletes one or more tokens from the text widget.
+  proc tokendelete {w args} {
+
+    if {([llength $args] == 0) || ([llength $args] > 2)} {
+      return -code error "Incorrect number of options to the tokendelete command"
+    }
+
+    # If the user wants to delete a single item, do so
+    if {[llength $args] == 1} {
+      set index [index_to_position $w [lindex $args 0]]
+      if {$index ne ""} {
+        $w.txt delete $index
+        handle_state $w 1
+      }
+
+    # Otherwise, delete a range of items
+    } else {
+      set sindex [index_to_position $w [lindex $args 0]]
+      set eindex [index_to_position $w [lindex $args 1]]
+      if {$sindex ne ""} {
+        if {$eindex eq ""} {
+          $w.txt delete $sindex
+        } else {
+          $w.txt delete $sindex "$eindex + 1 chars"
+        }
+        handle_state $w 1
+      }
+    }
+
+  }
+ 
+  ###########################################################################
+  # Converts tokenentry bbox command to a text bbox command.
+  proc bbox {w args} {
+
+    if {[llength $args] != 1} {
+      return -code error "tokenentry::bbox called with wrong arguments"
+    }
+
+    return [$w.txt bbox [entry_to_text_index $w [lindex $args 0]]]
+
+  }
+
+  ###########################################################################
+  # Converts tokenentry delete command to a text delete command.
+  proc delete {w args} {
+
+    variable state
+
+    if {[llength $args] == 1} {
+      if {$state($w) ne "empty"} {
+        $w.txt delete [entry_to_text_index $w [lindex $args 0]]
+        handle_state $w 0
+      }
+    } elseif {[llength $args] == 2} {
+      if {$state($w) ne "empty"} {
+        $w.txt delete [entry_to_text_index $w [lindex $args 0]] \
+                      [entry_to_text_index $w [lindex $args 1]]
+        handle_state $w 0
+      }
+    } else {
+      return -code error "tokenentry::delete called with wrong arguments"
+    }
+
+  }
+
+  ###########################################################################
+  # Converts tokenentry get command to a text get command.
+  proc get {w args} {
+
+    variable state
+
+    if {[llength $args] != 0} {
+      return -code error "tokenentry::get called with wrong arguments"
+    }
+
+    if {$state($w) eq "empty"} {
+      return ""
+    } else {
+      return [$w.txt get 1.0 1.end]
+    }
+
+  }
+
+  ###########################################################################
+  # Converts tokenentry icursor command to a text insertion cursor call.
+  proc icursor {w args} {
+
+    variable state
+
+    if {[llength $args] != 1} {
+      return -code error "tokenentry::icursor called with wrong arguments"
+    }
+    
+    if {$state($w) eq "empty"} {
+      return [$w.txt mark set insert 1.0]
+    } else {
+      return [eval "$w.txt mark set insert [entry_to_text_index $w [lindex $args 0]]"]
+    }
+
+  }
+
+  ###########################################################################
+  # Converts tokenentry index command to a text index command call.
+  proc index {w args} {
+
+    variable state
+
+    if {[llength $args] != 1} {
+      return -code error "tokenentry::index called with wrong arguments"
+    }
+
+    if {$state($w) eq "empty"} {
+      return 0
+    } else {
+      return [lindex [split [$w.txt index [entry_to_text_index $w [lindex $args 0]]] .] 1]
+    }
+
+  }
+
+  ###########################################################################
+  # Overrides the text insert command to handle watermarks.
+  proc insert {w args} {
+  
+    if {([llength $args] != 1) && ([llength $args] != 2)} {
+      return -code error "tokenentry::insert called with wrong arguments"
+    }
+
+    # If the user has inserted a non-empty string of data, make sure the state
+    # is handled properly.
+    if {[lindex $args 1] ne ""} {
+      handle_state $w 1
+    } else {
+      handle_state $w 0
+    }
+  
+    return [eval "$w.txt insert [entry_to_text_index $w [lindex $args 0]] [lindex $args 1]"]
+    
+  }
+
+  ###########################################################################
+  proc scan {w args} {
+
+    # TBD
+
+    return ""
+
+  }
+
+  ###########################################################################
+  proc selection {w args} {
+
+    # TBD
+
+    return ""
+
+  }
+
+  ###########################################################################
+  proc validate {w args} {
+
+    if {[llength $args] != 0} {
+      return -code error "tokenentry::validate called with wrong arguments"
+    }
+
+    # TBD
+
+    return 1
+
+  }
+
+  ###########################################################################
+  proc xview {w args} {
+
+    return ""
+
+  } 
+
+  namespace export *
+
+}