arcadia 0.13.0 → 0.13.1

data/tcl/fsdialog/sv.msg

@@ -1,32 +0,0 @@
-
-namespace eval ::ttk::dialog::file {   
-    ::msgcat::mcset sv Location                 Plats
-    ::msgcat::mcset sv Filter                   Filter
-    ::msgcat::mcset sv Name                     Namn
-    ::msgcat::mcset sv Size                     Storlek
-    ::msgcat::mcset sv Date                     Datum
-    ::msgcat::mcset sv Permissions              Behörigheter
-    ::msgcat::mcset sv Owner                    Ägare
-    ::msgcat::mcset sv Group                    Grupp
-    ::msgcat::mcset sv Folder                   Mapp
-    ::msgcat::mcset sv Sorting                  Sortering
-    ::msgcat::mcset sv Reverse                  Omvänd
-    
-    ::msgcat::mcset sv {Short View}             {Enkel vy}
-    ::msgcat::mcset sv {Detailed View}          {Detaljerad vy}
-    ::msgcat::mcset sv {Show Hidden Files}      {Visa dolda filer}
-    ::msgcat::mcset sv {Separate Folders}       {Mappar separat}
-    ::msgcat::mcset sv {By Name}                {Efter namn}
-    ::msgcat::mcset sv {By Date}                {Efter datum}
-    ::msgcat::mcset sv {By Size}                {Efter storlek}
-    ::msgcat::mcset sv {Folders First}          {Mappar först}
-    ::msgcat::mcset sv {New Folder}             {Ny mapp}
-    ::msgcat::mcset sv {Create new folder in}   {Skapa ny mapp i}
-    
-    ::msgcat::mcset sv {File "%s" already exists. Do you want to overwrite it?}   {Filen "%s" finns redan. Vill du skriva över den?}
-    ::msgcat::mcset sv {File "%s" does not exist.}                                {Filen "%s" finns ej.}
-    ::msgcat::mcset sv {Cannot change to the directory "%s". Permission denied.}  {Kan ej skifta till mappen "%s". Ej tillräcklig behörighet.}
-}
-
-
-

data/tcl/fsdialog/tclIndex

@@ -1,6 +0,0 @@
-# Tcl autoload index file, version 2.0
-
-set auto_index(::ttk::getOpenFile) [list source [file join $dir fsdialog.tcl]]
-set auto_index(::ttk::getSaveFile) [list source [file join $dir fsdialog.tcl]]
-set auto_index(::ttk::getAppendFile) [list source [file join $dir fsdialog.tcl]]
-set auto_index(::ttk::chooseDirectory) [list source [file join $dir fsdialog.tcl]]

data/tcl/ptwidgets-1.1.0/COPYRIGHT

@@ -1,10 +0,0 @@
-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

@@ -1,194 +0,0 @@
-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

@@ -1,50 +0,0 @@
-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

@@ -1,29 +0,0 @@
-##########################################################################
-# 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

@@ -1,200 +0,0 @@
-#===============================================================
-# 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
-
-  }
-
-}