arcadia 0.12.2 → 0.13.0

data/tcl/ptwidgets-1.1.0/pkgIndex.tcl

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

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

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

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

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

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

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