arcadia 0.12.2 → 0.13.0

data/tcl/fsdialog/fsdialog.tcl

@@ -203,7 +203,7 @@ proc ::ttk::dialog::file::Create {win class} {
     destroy $f3.dummy
     $f3 add [ttk::frame $f3.dir] -weight 0
     ttk::label $f3.dir.bg -relief sunken
-    set data(dirArea) [text $f3.dir.t -bg white -width 20 -height 16 \
+    set data(dirArea) [text $f3.dir.t  -bg yellow -width 20 -height 16 \
       -font $font -bd 0 -highlightthickness 0 -cursor "" \
       -wrap none -spacing1 1 -spacing3 1 -exportselection 0 \
       -state disabled -yscrollcommand [list $f3.dir.y set] \
@@ -1780,4 +1780,4 @@ bind DirDialog <4> {%W yview scroll -5 units}
 bind DirDialog <5> {%W yview scroll 5 units}
 bind DirDialog <ButtonPress-1> {::ttk::dialog::file::TreeSelect %W @%x,%y}
 bind DirDialog <ButtonRelease-1> {::ttk::dialog::file::TreeRelease1 %W}
-bind DirDialog <B1-Motion> {::ttk::dialog::file::TreeMotion1 %W}
+bind DirDialog <B1-Motion> {::ttk::dialog::file::TreeMotion1 %W}

data/tcl/ptwidgets-1.1.0/COPYRIGHT

@@ -0,0 +1,10 @@
+Package ptwidgets
+Copyright (c) 2011-2012  Trevor Williams (E-mail: phase1geo@gmail.com)
+
+This library is free software; you can use, modify, and redistribute it
+for any purpose, provided that existing copyright notices are retained
+in all copies and that this notice is included verbatim in any
+distributions.
+
+This software is distributed WITHOUT ANY WARRANTY; without even the
+implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

data/tcl/ptwidgets-1.1.0/ChangeLog

@@ -0,0 +1,194 @@
+changeset:   68:c273b90309a8
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Sun Jan 01 22:47:18 2012 -0600
+summary:     * Adding copyright information to all *.tcl source files.
+
+changeset:   69:a94559621e97
+parent:      68:c273b90309a8
+parent:      66:4414402ca575
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Sun Jan 01 22:48:48 2012 -0600
+summary:     * Adding copyright information to all *.tcl source files.
+
+changeset:   70:6a755743e1e2
+user:        Trevor Williams <phase1geo@gmail.com>
+date:        Mon Jan 02 12:46:34 2012 -0600
+summary:     * Fixing issues with category options.
+
+changeset:   71:88e9a773d2c2
+parent:      69:a94559621e97
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Mon Jan 02 00:39:18 2012 -0600
+summary:     * Working on adding empty text box "watermark" string (still needs work).
+
+changeset:   72:ec1c20a0db35
+parent:      71:88e9a773d2c2
+parent:      70:6a755743e1e2
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Mon Jan 02 20:38:22 2012 -0600
+summary:     Merge
+
+changeset:   73:51cafc9dd7ee
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Mon Jan 02 22:05:02 2012 -0600
+summary:     * Re-adding code for watermark display.
+
+changeset:   74:904353d3e3d3
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Thu Jan 12 11:25:16 2012 -0600
+summary:     * Fixing issue with editing a token with a category value containing spaces.
+
+changeset:   75:71b27fe2fd0a
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Wed Feb 08 00:12:05 2012 -0600
+summary:     * Fixing issues with watermark feature.
+
+changeset:   76:22ee4cd30cac
+user:        Trevor Williams <phase1geo@gmail.com>
+date:        Wed Feb 08 17:39:38 2012 -0600
+summary:     * Switching emptystring and emptyfg options for watermark and watermarkfg in tokenentry.
+
+changeset:   77:e90c20bd414e
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Wed Feb 08 21:20:40 2012 -0600
+summary:     * Adding watermark feature to tokensearch.
+
+changeset:   78:87035b91fd79
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Thu Feb 09 00:14:59 2012 -0600
+summary:     * Adding initial version of wmarkentry widget (entry widget with an optional watermark).
+
+changeset:   79:a7b3a9a032b3
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Thu Feb 09 08:26:43 2012 -0600
+summary:     * Fixing issues with configuring the entry widget.
+
+changeset:   80:cd1fb704010a
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Fri Feb 10 23:07:03 2012 -0600
+summary:     * Adding insert, delete and get commands
+
+changeset:   81:a912249e4330
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Sat Feb 11 00:22:58 2012 -0600
+summary:     * Overriding the selection command so that selections are handled correctly when the entry is in the empty state.
+
+changeset:   82:7119792ee509
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Tue Feb 14 01:36:38 2012 -0600
+summary:     * More documentation updates.
+
+changeset:   83:fcf57f8c1376
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Tue Feb 14 08:17:14 2012 -0600
+summary:     * Handling some missing key bindings.
+
+changeset:   84:b8bedfd48cb2
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Fri Feb 17 01:32:12 2012 -0600
+summary:     * Fixing wmarkentry issues.
+
+changeset:   85:97877b71ace7
+parent:      79:a7b3a9a032b3
+user:        Trevor Williams <phase1geo@gmail.com>
+date:        Thu Feb 09 09:59:40 2012 -0600
+summary:     * Updating README file.
+
+changeset:   86:70852211bb5c
+parent:      85:97877b71ace7
+parent:      83:fcf57f8c1376
+user:        Trevor Williams <phase1geo@gmail.com>
+date:        Tue Feb 14 15:39:10 2012 -0600
+summary:     * Merging files.
+
+changeset:   87:f0664a759235
+parent:      84:b8bedfd48cb2
+parent:      86:70852211bb5c
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Fri Feb 17 01:32:57 2012 -0600
+summary:     Merging
+
+changeset:   88:39e74c7e428a
+user:        Trevor Williams <phase1geo@gmail.com>
+date:        Fri Feb 17 17:22:45 2012 -0600
+summary:     * Adding more test cases to the wmarkentry.test file
+
+changeset:   89:b8db81c4ae4c
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Fri Apr 06 22:18:07 2012 -0500
+summary:     * Fixing watermark entry tests on Mac OS X.
+
+changeset:   90:47623fc3d456
+parent:      88:39e74c7e428a
+user:        Trevor Williams <phase1geo@gmail.com>
+date:        Mon Apr 02 11:47:44 2012 -0500
+summary:     * Removing creation of dummy foobar.bmp file (this was used for testing purposes only).
+
+changeset:   91:61258e56d513
+parent:      89:b8db81c4ae4c
+parent:      90:47623fc3d456
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Fri Apr 06 22:20:15 2012 -0500
+summary:     Merge
+
+changeset:   92:ee9aa018974e
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Sun Apr 15 00:04:26 2012 -0500
+summary:     * Adding initial version of tokenentry test file (does not completely pass at this point).
+
+changeset:   93:16281320f0dd
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Mon May 28 21:34:54 2012 -0500
+summary:     * Fixing test failure.
+
+changeset:   94:19f722f02cb3
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Mon Jun 11 00:53:00 2012 -0500
+summary:     * Updating tokenentry to support watermark.
+
+changeset:   95:704698846ab3
+user:        Trevor Williams  <phase1geo@gmail.com>
+date:        Mon Aug 06 00:33:32 2012 -0500
+summary:     * Adding tokensearch test file
+
+changeset:   96:8fd7a90f888e
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Tue Aug 07 00:29:46 2012 -0500
+summary:     * Fixing usability issues on both tokenentry and tokensearch widgets.
+
+changeset:   97:77f0daeceb8f
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Tue Aug 07 00:34:02 2012 -0500
+summary:     * Fixing issing in tokenentry widget.
+
+changeset:   98:29777b228844
+user:        Trevor Williams  <phase1geo@gmail.com>
+date:        Sat Aug 11 02:05:30 2012 -0500
+summary:     * Starting work on the onoffswitch widget.
+
+changeset:   99:667ddc9137ba
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Sat Aug 11 09:04:49 2012 -0500
+summary:     * Move libraries to new directory structure.
+
+changeset:   100:f3b5f2be0c87
+user:        Trevor Williams <phase1geo@gmail.com>
+date:        Fri Aug 17 17:20:59 2012 -0500
+summary:     * Fixing issue with creating a tokenentry, tokensearch or wmarkentry without specifying configuration arguments.
+
+changeset:   101:84fb5f66e7ba
+user:        Trevor Williams <phase1geo@gmail.com>
+date:        Fri Aug 17 17:22:09 2012 -0500
+summary:     * Updating README to include the new toggleswitch widget.
+
+changeset:   102:d5afbae9e0ae
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Sun Aug 19 23:05:48 2012 -0500
+summary:     * Fixing issues with tokenentry, tokensearch, and wmarkentry modificied event when a watermark is specified.
+
+changeset:   103:5d8e07057267
+tag:         tip
+user:        Trevor Williams <phase1geo@users.sourceforge.net>
+date:        Sun Aug 19 23:38:21 2012 -0500
+summary:     * Adding images for the toggleswitch and wmarkentry widgets.
+

data/tcl/ptwidgets-1.1.0/README

@@ -0,0 +1,50 @@
+DESCRIPTION
+===========
+
+  This package contains several pure Tcl/Tk mega-widgets and their documentation:
+
+    - tokenentry
+    - tokensearch
+    - wmarkentry
+    - toggleswitch
+
+
+INSTALLATION
+============
+
+  You may install this package by copying the entire ptwidgets directory to the
+  directory which contains your tk library.  Or you may copy the entire ptwidgets
+  directory to another directory location and then get access from within your
+  application by including the following code segment (let's assume that you
+  copy the ptwidgets directory to /usr/local/lib for our example).
+
+    ------------------------------------------------------------
+    lappend auto_path [file join / usr local lib ptwidgets]
+
+    package require tokenentry
+    package require tokensearch
+    package require wmarkentry
+    package require toggleswitch
+
+    ...
+    ------------------------------------------------------------
+
+
+DOCUMENTATION
+=============
+
+  The full widget documentation can be found in the docs directory in HTML format.
+
+
+AUTHORS
+=======
+
+  Trevor Williams   (phase1geo@gmail.com)
+
+
+HOMEPAGE
+========
+
+  http://ptwidgets.sourceforge.net
+
+

data/tcl/ptwidgets-1.1.0/common/stacktrace.tcl

@@ -0,0 +1,29 @@
+##########################################################################
+# Useful process for debugging.
+proc stacktrace {} {
+
+  set stack "Stack trace:\n"
+  for {set i 1} {$i < [info level]} {incr i} {
+    set lvl [info level -$i]
+    set pname [lindex $lvl 0]
+    if {[namespace which -command $pname] eq ""} {
+      for {set j [expr $i + 1]} {$j < [info level]} {incr j} {
+        if {[namespace which -command [lindex [info level -$j] 0]] ne ""} {
+          set pname "[namespace qualifiers [lindex [info level -$j] 0]]::$pname"
+          break
+        }
+      }
+    }
+    append stack [string repeat " " $i]$pname
+    foreach value [lrange $lvl 1 end] arg [info args $pname] {
+      if {$value eq ""} {
+        info default $pname $arg value
+      }
+      append stack " $arg='$value'"
+    }
+    append stack \n
+  }
+
+  return $stack
+
+}

data/tcl/ptwidgets-1.1.0/common/tokenframe.tcl

@@ -0,0 +1,200 @@
+#===============================================================
+# Common tokenframe module.
+#
+# This module is used by both the tokenentry and tokensearch widgets.
+# It is responsible for creating the various token frame images used
+# to construct the graphical portions of the token.
+#
+# Copyright (c) 2011-2012  Trevor Williams (phase1geo@gmail.com)
+#===============================================================
+
+namespace eval tokenframe {
+
+  ##########################################################################
+  # Creates the left side of the token frame as a bitmap string.
+  proc create_left {shape height} {
+
+    set bitmap "#define left_width 8\n#define left_height $height\nstatic char left_bits\[\] = \{\n"
+
+    switch $shape {
+      pill   { append bitmap "0xc0, 0xf0, 0x38, 0x0c, 0x06, 0x06, 0x03, 0x03, " }
+      tag    { append bitmap "0xe0, 0xf0, 0x18, 0x0c, 0x06, 0x03, 0x03, 0x03, " }
+      square { append bitmap "0xff, 0xff, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, " }
+      eased  { append bitmap "0xfe, 0xff, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, " }
+      ticket { append bitmap "0xf0, 0xf0, 0x18, 0x0c, 0x07, 0x03, 0x03, 0x03, " }
+    }
+
+    for {set i 0} {$i < [expr $height - 16]} {incr i} {
+      append bitmap "0x03, "
+    }
+
+    switch $shape {
+      pill   { append bitmap "0x03, 0x03, 0x06, 0x06, 0x0c, 0x38, 0xf0, 0xc0\};" }
+      tag    { append bitmap "0x03, 0x03, 0x03, 0x06, 0x0c, 0x18, 0xf0, 0xe0\};" }
+      square { append bitmap "0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0xff, 0xff\};" }
+      eased  { append bitmap "0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0xff, 0xfe\};" }
+      ticket { append bitmap "0x03, 0x03, 0x03, 0x07, 0x0c, 0x18, 0xf0, 0xf0\};" }
+    }
+
+    return $bitmap
+
+  }
+
+  ##########################################################################
+  # Creates the left side mask of the token frame as a bitmap string.
+  proc create_left_mask {shape height} {
+
+    set bitmap "#define left_mask_width 8\n#define left_mask_height $height\nstatic char left_mask_bits\[\] = \{\n"
+
+    switch $shape {
+      pill   { append bitmap "0xff, 0xff, 0x3f, 0x0f, 0x07, 0x07, 0x03, 0x03, " }
+      tag    { append bitmap "0xff, 0xff, 0x1f, 0x0f, 0x07, 0x03, 0x03, 0x03, " }
+      square { append bitmap "0xff, 0xff, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, " }
+      eased  { append bitmap "0xff, 0xff, 0x03, 0x03, 0x03, 0x03, 0x03, 0x03, " }
+      ticket { append bitmap "0xff, 0xff, 0x1f, 0x0f, 0x07, 0x03, 0x03, 0x03, " }
+    }
+
+    for {set i 0} {$i < [expr $height - 16]} {incr i} {
+      append bitmap "0x03, "
+    }
+
+    switch $shape {
+      pill   { append bitmap "0x03, 0x03, 0x07, 0x07, 0x0f, 0x3f, 0xff, 0xff\};" }
+      tag    { append bitmap "0x03, 0x03, 0x03, 0x07, 0x0f, 0x1f, 0xff, 0xff\};" }
+      square { append bitmap "0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0xff, 0xff\};" }
+      eased  { append bitmap "0x03, 0x03, 0x03, 0x03, 0x03, 0x03, 0xff, 0xff\};" }
+      ticket { append bitmap "0x03, 0x03, 0x03, 0x07, 0x0f, 0x1f, 0xff, 0xff\};" }
+    }
+
+    return $bitmap
+
+  }
+
+  ##########################################################################
+  # Creates the middle of the token frame as a bitmap string.
+  proc create_middle {width height} {
+
+    set bitmap "#define middle_width $width\n#define middle_height $height\nstatic char middle_bits\[\] = {\n"
+    set values [list "0x00" "0x01" "0x03" "0x07" "0x0f" "0x1f" "0x3f" "0x7f" "0xff"]
+
+    for {set row 0} {$row < $height} {incr row} {
+      if {($row < 2) || ($row > [expr $height - 3])} {
+        set i 0
+        while {$i < [expr $width - 8]} {
+          append bitmap "0xff, "
+          incr i 8
+        }
+        append bitmap "[lindex $values [expr $width - $i]], "
+      } else {
+        for {set i 0} {$i < $width} {incr i 8} {
+          append bitmap "0x00, "
+        }
+      }
+    }
+
+    set bitmap "[string range $bitmap 0 end-2]};"
+
+    return $bitmap
+
+  }
+
+  ##########################################################################
+  # Creates an image which contains an arrow along with a upper and lower
+  # border.
+  proc create_arrow {height} {
+
+    set bitmap "#define arrow_width 7\n#define arrow_height $height\nstatic char arrow_bits\[\] = {\n0x7f, 0x7f, "
+
+    for {set i 0} {$i < [expr $height - 10]} {incr i} {
+      if {$i == [expr ($height - 10) / 2]} {
+        append bitmap "0x3e, 0x22, 0x14, 0x14, 0x08, 0x08, "
+      }
+      append bitmap "0x00, "
+    }
+
+    append bitmap "0x7f, 0x7f};"
+
+    return $bitmap
+
+  }
+
+  ##########################################################################
+  # Creates a mask image for the arrow image.
+  proc create_arrow_mask {height} {
+
+    set bitmap "#define arrow_width 7\n#define arrow_height $height\nstatic char arrow_bits\[\] = {\n0x7f, 0x7f, "
+
+    for {set i 0} {$i < [expr $height - 10]} {incr i} {
+      if {$i == [expr ($height - 10) / 2]} {
+        append bitmap "0x3e, 0x3e, 0x1c, 0x1c, 0x08, 0x08, "
+      }
+      append bitmap "0x00, "
+    }
+
+    append bitmap "0x7f, 0x7f};"
+
+    return $bitmap
+
+  }
+
+  ##########################################################################
+  # Creates the right side of the token frame as a bitmap string.
+  proc create_right {shape height} {
+
+    set bitmap "#define right_width 8\n#define right_height $height\nstatic char right_bits\[\] = \{\n"
+
+    switch $shape {
+      pill   { append bitmap "0x03, 0x0f, 0x1c, 0x30, 0x60, 0x60, 0xc0, 0xc0, " }
+      tag    { append bitmap "0x07, 0x0f, 0x18, 0x30, 0x60, 0xc0, 0xc0, 0xc0, " }
+      square { append bitmap "0xff, 0xff, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, " }
+      eased  { append bitmap "0x7f, 0xff, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, " }
+      ticket { append bitmap "0x0f, 0x0f, 0x18, 0x30, 0xe0, 0xc0, 0xc0, 0xc0, " }
+    }
+
+    for {set i 0} {$i < [expr $height - 16]} {incr i} {
+      append bitmap "0xc0, "
+    }
+
+    switch $shape {
+      pill   { append bitmap "0xc0, 0xc0, 0x60, 0x60, 0x30, 0x1c, 0x0f, 0x03\};" }
+      tag    { append bitmap "0xc0, 0xc0, 0xc0, 0x60, 0x30, 0x18, 0x0f, 0x07\};" }
+      square { append bitmap "0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xff, 0xff\};" }
+      eased  { append bitmap "0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xff, 0x7f\};" }
+      ticket { append bitmap "0xc0, 0xc0, 0xc0, 0xe0, 0x30, 0x18, 0x0f, 0x0f\};" }
+    }
+
+    return $bitmap
+
+  }
+
+  ##########################################################################
+  # Creates the right side mask of the token frame as a bitmap string.
+  proc create_right_mask {shape height} {
+
+    set bitmap "#define right_mask_width 8\n#define right_mask_height $height\nstatic char right_mask_bits\[\] = \{\n"
+
+    switch $shape {
+      pill   { append bitmap "0xff, 0xff, 0xfc, 0xf0, 0xe0, 0xe0, 0xc0, 0xc0, " }
+      tag    { append bitmap "0xff, 0xff, 0xf8, 0xf0, 0xe0, 0xc0, 0xc0, 0xc0, " }
+      square { append bitmap "0xff, 0xff, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, " }
+      eased  { append bitmap "0xff, 0xff, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, " }
+      ticket { append bitmap "0xff, 0xff, 0xf8, 0xf0, 0xe0, 0xc0, 0xc0, 0xc0, " }
+    }
+
+    for {set i 0} {$i < [expr $height - 16]} {incr i} {
+      append bitmap "0xc0, "
+    }
+
+    switch $shape {
+      pill   { append bitmap "0xc0, 0xc0, 0xe0, 0xe0, 0xf0, 0xfc, 0xff, 0xff\};" }
+      tag    { append bitmap "0xc0, 0xc0, 0xc0, 0xe0, 0xf0, 0xf8, 0xff, 0xff\};" }
+      square { append bitmap "0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xff, 0xff\};" }
+      eased  { append bitmap "0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xc0, 0xff, 0xff\};" }
+      ticket { append bitmap "0xc0, 0xc0, 0xc0, 0xe0, 0xf0, 0xf8, 0xff, 0xff\};" }
+    }
+
+    return $bitmap
+
+  }
+
+}