arcadia 0.13.0 → 0.13.1

data/tcl/ptwidgets-1.1.0/pkgIndex.tcl

@@ -1,10 +0,0 @@
-
-# Load the packages
-package ifneeded tokenentry  1.0 \
-  "namespace eval tokenentry { proc DIR {} {return [list $dir]} }; source [file join $dir library tokenentry.tcl]"
-package ifneeded tokensearch 1.0 \
-  "namespace eval tokensearch { proc DIR {} {return [list $dir]} }; source [file join $dir library tokensearch.tcl]"
-package ifneeded wmarkentry 1.0 \
-  "namespace eval wmarkentry { proc DIR {} {return [list $dir]} }; source [file join $dir library wmarkentry.tcl]"
-package ifneeded toggleswitch 1.0 \
-  "namespace eval toggleswitch { proc DIR {} {return [list $dir]} }; source [file join $dir library toggleswitch.tcl]"

data/tcl/ptwidgets-1.1.0/test/Makefile

@@ -1,3 +0,0 @@
-all:
-	/usr/bin/wish8.5 run.tcl | tee results
-	vi results

data/tcl/ptwidgets-1.1.0/test/run.tcl

@@ -1,3 +0,0 @@
-package require tcltest 2.2
-
-tcltest::runAllTests

data/tcl/ptwidgets-1.1.0/test/test.tcl

@@ -1,89 +0,0 @@
-lappend auto_path [file normalize ..]
-
-package require tokenentry
-package require tokensearch
-package require wmarkentry
-
-set te2tokens  [list]
-set ts1history [list]
-  
-proc create {} {
-
-  set ::foobar ""
-
-  # Create a token entry
-  frame .f
-  tokenentry::tokenentry   .f.te1 -tokenshape [list tag square] -relief sunken -watermark "Enter text" -xscrollcommand {.f.hb1 set}
-  ttk::scrollbar           .f.hb1 -orient horizontal -command {.f.te1 xview}
-  tokenentry::tokenentry   .f.te2 -tokenvar te2tokens -tokenshape eased -bg pink
-  tokensearch::tokensearch .f.ts1 -categories [list {Categories {pill tag square}} {{Other Stuff} {eased ticket}}] -bg pink -historyvar ts1history
-  ttk::scrollbar           .f.hb2 -orient horizontal -command {.f.ts1 xview}
-  tokensearch::tokensearch .f.ts2 -categories   {{Properties {Name Kind Label Tag {Something Else}}}} \
-                                  -categoryopts {{checkbutton {Ignore Case} 1} {radiobutton {{Use regexp} {Use exact}} {Use regexp}}} \
-                                  -watermark "Search tokens"
-  wmarkentry::wmarkentry   .f.wme -background white -relief ridge -watermark "Enter text here" -textvariable ::foobar
-  ttk::button              .f.b -text "Tokens" -command {
-    puts "te1: [.f.te1 tokenget]"
-    puts "te2: [.f.te2 tokenget], te2tokens: $te2tokens"
-    puts "ts1: [.f.ts1 tokenget]"
-    puts "ts2: [.f.ts2 tokenget]"
-    .f.te2 configure -state normal
-    .f.te1 configure -watermark "Enter new text" -watermarkforeground "light blue"
-  }
-  ttk::button .f.b2 -text "Restart" -command {
-    destroy .f
-    create
-  }
-
-  bind .f.te1 <<TokenEntryModified>> {puts "te1 modified: [.f.te1 tokenget]"}
-  bind .f.te2 <<TokenEntryModified>> {puts "te2 modified: [.f.te2 tokenget]"}
-  bind .f.ts1 <<TokenSearchModified>> {
-    puts "ts1 modified: [.f.ts1 tokenget]"
-    set i 0
-    foreach value [.f.ts1 tokenget] {
-      .f.ts1 tokenconfigure $i -shape [lindex $value 0]
-      incr i
-    }
-  }
-
-  grid .f.te1 -row 0 -column 0 -sticky news -padx 2 -pady 2
-  grid .f.b   -row 0 -column 1 -sticky news -padx 2 -pady 2
-  grid .f.te2 -row 1 -column 0 -sticky news -padx 2 -pady 2
-  grid .f.b2  -row 1 -column 1 -sticky news -padx 2 -pady 2
-  grid .f.hb2 -row 2 -column 0 -sticky ew   -padx 2 -pady 2
-  grid .f.ts1 -row 3 -column 0 -sticky news -padx 2 -pady 2
-  grid .f.hb1 -row 4 -column 0 -sticky ew   -padx 2 -pady 2
-  grid .f.ts2 -row 5 -column 0 -sticky news -padx 2 -pady 2
-  grid .f.wme -row 6 -column 0 -sticky news -padx 2 -pady 2
-
-  pack .f
-
-  set ::values {{Trevor phase1geo@gmail.com} {Bubba bubba@hotmail.com} {{Joe Bob} jbob@yahoo.com}}
-
-  .f.te1 configure -height 1 -width 20 -font [font create -size 6] -tokenbg "light green" -tokenbordercolor "dark green" -tokenselectbg "green" \
-                   -listvar values -dropdownformatstring "%s  (%s)" -matchcase 1 -matchdisplayindex 1 -matchmode glob -wrap 0
-
-  .f.te2 tokeninsert end [list foobar barfoo dude]
-  # .f.te2 tokenconfigure 1 -bg yellow -fg "dark green" -bordercolor red -selectbg "dark green" -selectfg yellow -selectbordercolor pink
-  .f.te2 tokeninsert 3 good
-  .f.te2 configure -state disabled
-  .f.ts1 tokeninsert end [list lorry something]
-
-  puts "te1 configure: [.f.te1 configure]"
-  puts "te1 configure -listvar: [.f.te1 configure -listvar]"
-  
-  .f.wme insert end "Some kind of string"
-  .f.wme selection from 1
-  .f.wme selection to 6
-  .f.wme delete 0 end
-  # puts "first: [.f.wme index sel.first], last: [.f.wme index sel.last]"
-  # .f.wme delete 0 end
-  # .f.wme selection clear
-
-  focus .f.te2
-  
-}
-
-ttk::style theme use clam
-
-create

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

@@ -1,562 +0,0 @@
-lappend auto_path ".."
-
-package require toggleswitch
-package require tcltest 2.2
-
-proc setup {args} {
-  eval "toggleswitch::toggleswitch .tsw $args"
-  pack .tsw
-}
-
-proc cleanup {} {
-  destroy .tsw
-}
-
-proc callback_command {} {
-  if {$::foobar} {
-    set ::barfoo ON
-  } else {
-    set ::barfoo OFF
-  }
-}
-
-# Test Contraints
-tcltest::testConstraint aqua [expr {[tk windowingsystem] eq "aqua"}]
-tcltest::testConstraint x11  [expr {[tk windowingsystem] eq "x11"}]
-
-# Tests
-#---------------------------------
-
-tcltest::test tsw-configure-badoption {configure called with a bad option} \
-  -setup setup \
-  -body {
-    .tsw configure -foobar
-  } -cleanup cleanup \
-  -returnCodes error -result "ToggleSwitch configuration option -foobar does not exist"
-  
-tcltest::test tsw-configure-badoptionwithvalue {configure called with a bad option with a value} \
-  -setup setup \
-  -body {
-    .tsw configure -foobar bubba
-  } -cleanup cleanup \
-  -returnCodes error -result "Illegal option given to the toggleswitch configure command (-foobar)"
-  
-tcltest::test tsw-cget {cget without an option} \
-  -setup setup \
-  -body {
-    .tsw cget
-  } -cleanup cleanup \
-  -returnCodes error -result "Incorrect number of parameters given to the toggleswitch cget command"
-  
-#---------------------------------
-tcltest::test tsw-offbackground {setup -offbackground returns correct result} \
-  -setup {
-    setup -offbackground red
-  } -body {
-    .tsw cget -offbackground
-  } -cleanup cleanup \
-  -result red
-
-tcltest::test tsw-configure-offbackground {configure -offbackground returns correct result} \
-  -setup {
-    setup -offbackground red
-  } -body {
-    .tsw configure -offbackground
-  } -cleanup cleanup \
-  -result {-offbackground offBackground Background white red}
-
-tcltest::test tsw-cget-offbackground {cget -offbackground returns the correct result} \
-  -setup setup \
-  -body {
-    .tsw cget -offbackground
-  } -cleanup cleanup \
-  -result white
-  
-tcltest::test tsw-configure-cget-offbackground {configure/cget -offbackground returns the correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -offbackground red
-    .tsw cget -offbackground
-  } -cleanup cleanup \
-  -result red
-  
-#---------------------------------
-tcltest::test tsw-configure-borderwidth {configure -borderwidth returns correct result} \
-  -setup {
-    setup -borderwidth 5
-  } -body {
-    .tsw configure -borderwidth
-  } -cleanup cleanup \
-  -match glob \
-  -result {-borderwidth borderWidth BorderWidth * 5}
-  
-tcltest::test tsw-cget-borderwidth {cget -borderwidth returns the correct result} \
-  -setup {
-    setup -borderwidth 5
-  } -body {
-    .tsw cget -borderwidth
-  } -cleanup cleanup \
-  -result 5
-  
-tcltest::test tsw-configure-cget-borderwidth {configure/cget -borderwidth returns the correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -borderwidth 2
-    .tsw cget -borderwidth
-  } -cleanup cleanup \
-  -result 2
-
-#---------------------------------
-tcltest::test tsw-configure-command {configure -command returns correct result} \
-  -setup {
-    setup -command bubba
-  } -body {
-    .tsw configure -command
-  } -cleanup cleanup \
-  -result {-command command Command {} bubba}
-
-tcltest::test tsw-cget-command {cget -command returns correct result} \
-  -setup setup \
-  -body {
-    .tsw cget -command
-  } -cleanup cleanup \
-  -result {}
-  
-tcltest::test tsw-configure-cget-command {configure/cget -command returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -command bubba
-    .tsw cget -command
-  } -cleanup cleanup \
-  -result bubba
-
-#---------------------------------
-tcltest::test tsw-configure-cursor {configure -cursor returns correct result} \
-  -setup {
-    setup -cursor xterm
-  } -body {
-    .tsw configure -cursor
-  } -cleanup cleanup \
-  -result {-cursor cursor Cursor {} xterm}
-
-tcltest::test tsw-cget-cursor {cget -cursor returns correct result} \
-  -setup setup \
-  -body {
-    .tsw cget -cursor
-  } -cleanup cleanup \
-  -result {}
-  
-tcltest::test tsw-configure-cget-cursor {configure/cget -cursor returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -cursor watch
-    .tsw cget -cursor
-  } -cleanup cleanup \
-  -result watch
-
-#---------------------------------
-tcltest::test tsw-configure-font {configure -font returns correct result} \
-  -setup {
-    setup -font TkTextFont
-  } -body {
-    .tsw configure -font
-  } -cleanup cleanup \
-  -result {-font font Font {} TkTextFont}
-  
-tcltest::test tsw-cget-font {cget -font returns correct result} \
-  -setup {
-    setup -font TkTextFont
-  } -body {
-    .tsw cget -font
-  } -cleanup cleanup \
-  -result TkTextFont
-  
-tcltest::test tsw-configure-cget-font {configure/cget -font returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -font TkFixedFont
-    .tsw cget -font
-  } -cleanup cleanup \
-  -result TkFixedFont
-
-#---------------------------------
-tcltest::test tsw-configure-offbackground {configure -offbackground returns correct result} \
-  -setup {
-    setup -offbackground yellow
-  } -body {
-    .tsw configure -offbackground
-  } -cleanup cleanup \
-  -match regexp \
-  -result {-offbackground offBackground Background \S+ yellow}
-  
-tcltest::test tsw-cget-offbackground {cget -offbackground returns correct result} \
-  -setup {
-    setup -offbackground yellow
-  } -body {
-    .tsw cget -offbackground
-  } -cleanup cleanup \
-  -result yellow
-  
-tcltest::test tsw-configure-cget-offbackground {configure/cget -offbackground returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -offbackground red
-    .tsw cget -offbackground
-  } -cleanup cleanup \
-  -result red
-
-#---------------------------------
-tcltest::test tsw-configure-offforeground {configure -offforeground returns correct result} \
-  -setup {
-    setup -offforeground yellow
-  } -body {
-    .tsw configure -offforeground
-  } -cleanup cleanup \
-  -match regexp \
-  -result {-offforeground offForeground Foreground \S+ yellow}
-  
-tcltest::test tsw-cget-offforeground {cget -offforeground returns correct result} \
-  -setup {
-    setup -offforeground yellow
-  } -body {
-    .tsw cget -offforeground
-  } -cleanup cleanup \
-  -result yellow
-  
-tcltest::test tsw-configure-cget-offforeground {configure/cget -offforeground returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -offforeground red
-    .tsw cget -offforeground
-  } -cleanup cleanup \
-  -result red
-
-#---------------------------------
-tcltest::test tsw-configure-offvalue {configure -offvalue returns correct result} \
-  -setup {
-    setup -offvalue off
-  } -body {
-    .tsw configure -offvalue
-  } -cleanup cleanup \
-  -result {-offvalue offValue Value 0 off}
-  
-tcltest::test tsw-cget-offvalue {cget -offvalue returns correct result} \
-  -setup {
-    setup -offvalue off
-  } -body {
-    .tsw cget -offvalue
-  } -cleanup cleanup \
-  -result off
-  
-tcltest::test tsw-configure-cget-offvalue {configure/cget -offvalue returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -offvalue off
-    .tsw cget -offvalue
-  } -cleanup cleanup \
-  -result off
-
-#---------------------------------
-tcltest::test tsw-configure-onbackground {configure -onbackground returns correct result} \
-  -setup {
-    setup -onbackground yellow
-  } -body {
-    .tsw configure -onbackground
-  } -cleanup cleanup \
-  -match regexp \
-  -result {-onbackground onBackground Background \S+ yellow}
-  
-tcltest::test tsw-cget-onbackground {cget -onbackground returns correct result} \
-  -setup {
-    setup -onbackground yellow
-  } -body {
-    .tsw cget -onbackground
-  } -cleanup cleanup \
-  -result yellow
-  
-tcltest::test tsw-configure-cget-onbackground {configure/cget -onbackground returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -onbackground red
-    .tsw cget -onbackground
-  } -cleanup cleanup \
-  -result red
-
-#---------------------------------
-tcltest::test tsw-configure-onforeground {configure -onforeground returns correct result} \
-  -setup {
-    setup -onforeground yellow
-  } -body {
-    .tsw configure -onforeground
-  } -cleanup cleanup \
-  -match regexp \
-  -result {-onforeground onForeground Foreground \S+ yellow}
-  
-tcltest::test tsw-cget-onforeground {cget -onforeground returns correct result} \
-  -setup {
-    setup -onforeground yellow
-  } -body {
-    .tsw cget -onforeground
-  } -cleanup cleanup \
-  -result yellow
-  
-tcltest::test tsw-configure-cget-onforeground {configure/cget -onforeground returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -onforeground red
-    .tsw cget -onforeground
-  } -cleanup cleanup \
-  -result red
-
-#---------------------------------
-tcltest::test tsw-configure-onvalue {configure -onvalue returns correct result} \
-  -setup {
-    setup -onvalue on
-  } -body {
-    .tsw configure -onvalue
-  } -cleanup cleanup \
-  -result {-onvalue onValue Value 1 on}
-  
-tcltest::test tsw-cget-onvalue {cget -onvalue returns correct result} \
-  -setup {
-    setup -onvalue on
-  } -body {
-    .tsw cget -onvalue
-  } -cleanup cleanup \
-  -result on
-  
-tcltest::test tsw-configure-cget-onvalue {configure/cget -onvalue returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -onvalue on
-    .tsw cget -onvalue
-  } -cleanup cleanup \
-  -result on
-
-#---------------------------------
-tcltest::test tsw-configure-relief {configure -relief returns correct result} \
-  -setup {
-    setup -relief flat
-  } -body {
-    .tsw configure -relief
-  } -cleanup cleanup \
-  -match regexp \
-  -result {-relief relief Relief \S+ flat}
-  
-tcltest::test tsw-cget-relief {cget -relief returns correct result} \
-  -setup {
-    setup -relief flat
-  } -body {
-    .tsw cget -relief
-  } -cleanup cleanup \
-  -result flat
-
-tcltest::test tsw-configure-cget-relief {configure/cget -relief returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -relief ridge
-    .tsw cget -relief
-  } -cleanup cleanup \
-  -result ridge
-  
-#---------------------------------
-tcltest::test tsw-configure-state {configure -state returns correct result} \
-  -setup {
-    setup -state disabled
-  } -body {
-    .tsw configure -state
-  } -cleanup cleanup \
-  -result {-state state State normal disabled}
-  
-tcltest::test tsw-cget-state {cget -state returns correct result} \
-  -setup setup \
-  -body {
-    .tsw cget -state
-  } -cleanup cleanup \
-  -result normal
-  
-tcltest::test tsw-configure-cget-state {configure/cget -state returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -state disabled
-    .tsw cget -state
-  } -cleanup cleanup \
-  -result disabled
-
-#---------------------------------
-tcltest::test tsw-configure-takefocus {configure -takefocus returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -takefocus
-  } -cleanup cleanup \
-  -result {-takefocus takeFocus TakeFocus 1 1}
-  
-tcltest::test tsw-cget-takefocus {cget -takefocus returns correct result} \
-  -setup setup \
-  -body {
-    .tsw cget -takefocus
-  } -cleanup cleanup \
-  -result 1
-  
-tcltest::test tsw-configure-cget-takefocus {configure/cget -takefocsu returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -takefocus 0
-    .tsw cget -takefocus
-  } -cleanup cleanup \
-  -result 0
-           
-#---------------------------------
-tcltest::test tsw-configure-variable {configure -variable returns correct result} \
-  -setup setup \
-  -body {
-    .tsw configure -variable
-  } -cleanup cleanup \
-  -result {-variable variable Variable {} {}}
-
-tcltest::test tsw-cget-variable {cget -variable returns correct result} \
-  -setup setup \
-  -body {
-    .tsw cget -variable
-  } -cleanup cleanup \
-  -result ""
-
-tcltest::test tsw-configure-cget-variable {configure/cget -variable returns correct result} \
-  -setup setup \
-  -body {
-    set ::foobar "buddy"
-    .tsw configure -variable ::foobar
-    .tsw cget -variable
-  } -cleanup {
-    cleanup
-    unset ::foobar
-  } -result ::foobar
-
-#---------------------------------
-tcltest::test tsw-switchoff-badargs {call switchoff command with bad arguments} \
-  -setup setup \
-  -body {
-    .tsw switchoff something
-  } -cleanup cleanup \
-  -returnCodes error \
-  -result "Incorrect number of parameters given to the toggleswitch::switchoff command"
-
-tcltest::test tsw-switchoff {verify that switchoff changes the -variable option to the offvalue} \
-  -setup setup \
-  -body {
-    set ::foobar 1
-    .tsw configure -variable ::foobar
-    .tsw switchoff
-    return $::foobar
-  } -cleanup {
-    cleanup
-    unset ::foobar
-  } -result 0
-  
-tcltest::test tsw-switchoff-command {verify that switchoff changes the -variable option to the offvalue} \
-  -setup setup \
-  -body {
-    set ::foobar 1
-    .tsw configure -variable ::foobar -command callback_command
-    .tsw switchoff
-    return [list $::foobar $::barfoo]
-  } -cleanup {
-    cleanup
-    unset ::foobar
-    unset ::barfoo
-  } -result {0 OFF}
-
-#---------------------------------
-tcltest::test tsw-switchon-badargs {call switchon command with bad arguments} \
-  -setup setup \
-  -body {
-    .tsw switchon something
-  } -cleanup cleanup \
-  -returnCodes error \
-  -result "Incorrect number of parameters given to the toggleswitch::switchon command"
-
-tcltest::test tsw-switchon {verify that switchon changes the -variable option to the offvalue} \
-  -setup setup \
-  -body {
-    set ::foobar 0
-    .tsw configure -variable ::foobar
-    .tsw switchon
-    return $::foobar
-  } -cleanup {
-    cleanup
-    unset ::foobar
-  } -result 1
-  
-tcltest::test tsw-switchon-command {verify that switchon changes the -variable option to the onvalue} \
-  -setup setup \
-  -body {
-    set ::foobar 0
-    .tsw configure -variable ::foobar -command callback_command
-    .tsw switchon
-    return [list $::foobar $::barfoo]
-  } -cleanup {
-    cleanup
-    unset ::foobar
-    unset ::barfoo
-  } -result {1 ON}
-
-#---------------------------------
-tcltest::test tsw-invoke-badargs {call invoke command with bad arguments} \
-  -setup setup \
-  -body {
-    .tsw invoke something
-  } -cleanup cleanup \
-  -returnCodes error \
-  -result "Incorrect number of parameters given to the toggleswitch::invoke command"
-
-tcltest::test tsw-invoke {verify that invoke changes the -variable option to the onvalue} \
-  -setup setup \
-  -body {
-    set ::foobar 0
-    .tsw configure -variable ::foobar -command callback_command
-    .tsw invoke
-    return [list $::foobar $::barfoo]
-  } -cleanup {
-    cleanup
-    unset ::foobar
-    unset ::barfoo
-  } -result {0 OFF}
-
-#---------------------------------
-tcltest::test tsw-toggle-badargs {call toggle command with bad arguments} \
-  -setup setup \
-  -body {
-    .tsw toggle something
-  } -cleanup cleanup \
-  -returnCodes error \
-  -result "Incorrect number of parameters given to the toggleswitch::toggle command"
-
-tcltest::test tsw-toggle-01 {toggle the value of the switch from off to on via the toggle command} \
-  -setup setup \
-  -body {
-    set ::foobar 0
-    .tsw configure -variable ::foobar -command callback_command
-    .tsw toggle
-    return [list $::foobar $::barfoo]
-  } -cleanup {
-    cleanup
-    unset ::foobar
-    unset ::barfoo
-  } -result {1 ON}
-  
-tcltest::test tsw-toggle-10 {toggle the value of the switch from on to off via the toggle command} \
-  -setup setup \
-  -body {
-    set ::foobar 1
-    .tsw configure -variable ::foobar -command callback_command
-    .tsw toggle
-    return [list $::foobar $::barfoo]
-  } -cleanup {
-    cleanup
-    unset ::foobar
-    unset ::barfoo
-  } -result {0 OFF}
-
-# Cleanup the tests
-tcltest::cleanupTests
-