Pratt 1.5.6

data/pkgs/tile-0.8.2/tclconfig/teax.m4

@@ -0,0 +1,109 @@
+dnl
+dnl teax.m4,v 1.3 2005/09/29 00:52:33 jenglish Exp
+dnl 
+dnl Additional autoconf macros for TEA
+dnl 
+dnl
+
+dnl _TEAX_CHECK_MSVC --
+dnl
+dnl Defines the shell variable "USING_MSVC" as "yes" or "no".
+dnl Several tests on Windows work differently depending on
+dnl whether we're using MSVC or GCC.  Current heuristic:
+dnl if it's Windows, and CC is not gcc, we're using MSVC.
+dnl
+dnl This macro doesn't need to be called from configure.ac;
+dnl other macros that need it will AC_REQUIRE it.
+dnl
+AC_DEFUN([_TEAX_CHECK_MSVC],[
+#@ _TEAX_CHECK_MSVC
+AC_REQUIRE([AC_PROG_CC])
+if test "${TEA_PLATFORM}" = "windows" -a "$GCC" != "yes"; then
+    USING_MSVC="yes"
+else
+    USING_MSVC="no"
+fi;
+])
+
+dnl TEAX_CONFIG_LDFLAGS --
+dnl 
+dnl Sets the following additional variables used when building libraries:
+dnl
+dnl	SHLIB_LD_OUT
+dnl	    Either "-o " or "/out:" depending on whether SHLIB_LD
+dnl	    is a Unix-style linker (ld) or MS-style (link)
+dnl
+dnl	STLIB_LD_OUT --
+dnl 	    Either " " or "/out:" depending on whether STLIB_LD
+dnl 	    is Unix-style (ar) or MS-style (lib)
+dnl
+dnl	SHLIB_SUFFIX --
+dnl	    Suffix for shared libraries.  This is actually computed by
+dnl 	    TEA_CONFIG_CFLAGS, but it doesn't AC_SUBST() it.
+dnl
+dnl 	STLIB_SUFFIX --
+dnl	    Suffix for static libraries (.a, .lib, ...)
+dnl
+dnl	LIB_PREFIX --
+dnl	    Prefix for library names; either "lib" or empty.
+dnl
+AC_DEFUN([TEAX_CONFIG_LDFLAGS],[
+#@ TEAX_CONFIG_LDFLAGS
+    AC_REQUIRE([_TEAX_CHECK_MSVC])
+    if test "${USING_MSVC}" = "yes"; then
+	SHLIB_LD_OUT="/out:"
+	STLIB_LD_OUT="/out:"
+	STLIB_SUFFIX=".lib"
+	LIB_PREFIX=""
+    else
+	SHLIB_LD_OUT="-o "
+	STLIB_LD_OUT=" "
+	STLIB_SUFFIX=".a"
+	LIB_PREFIX="lib"
+    fi
+    AC_SUBST(SHLIB_LD_OUT)
+    AC_SUBST(STLIB_LD_OUT)
+    AC_SUBST(SHLIB_SUFFIX)
+    AC_SUBST(STLIB_SUFFIX)
+    AC_SUBST(LIB_PREFIX)
+])
+
+dnl TEAX_EXPAND_CFLAGS --
+dnl	Computes final value of CFLAGS macro.
+dnl
+dnl	Uses the same logic as TEA_MAKE_LIB, except that
+dnl	${CFLAGS_DEFAULT}, ${CFLAGS_WARNING}, and ${SHLIB_CFLAGS}
+dnl 	are expanded at configure-time instead of at make-time.
+dnl 
+AC_DEFUN([TEAX_EXPAND_CFLAGS],[
+#@ TEAX_EXPAND_CFLAGS
+    AC_REQUIRE([TEA_ENABLE_SYMBOLS])
+    CFLAGS="${CFLAGS} ${CFLAGS_DEFAULT} ${CFLAGS_WARNING}"
+    if test "${SHARED_BUILD}" = "1" ; then
+    	CFLAGS="${CFLAGS} ${SHLIB_CFLAGS}"
+    fi
+])
+
+dnl TEAX_FIX_LIB_SPECS --
+dnl	TCL_STUB_LIB_SPEC is supposed to contain the linker flags
+dnl 	for picking up the Tcl stub library; however, the settings
+dnl 	in tclConfig.sh only work on Unix and with GCC on Windows.
+dnl 	TEAX_FIX_LIB_SPECS adjusts TCL_STUB_LIB_SPEC et. al. so
+dnl	they work with MSVC as well. 
+dnl
+dnl	(TEA_MAKE_LIB works around this in a different way.)
+dnl
+AC_DEFUN([TEAX_FIX_LIB_SPECS],[
+#@TEAX_FIX_LIB_SPECS
+AC_REQUIRE([_TEAX_CHECK_MSVC])
+if test "${USING_MSVC}" = "yes"; then
+    TCL_STUB_LIB_SPEC="$TCL_STUB_LIB_PATH"
+    TK_STUB_LIB_SPEC="$TK_STUB_LIB_PATH"
+    # tclConfig.sh doesn't define TCL_LIB_SPEC, but if it did,
+    # it would be as follows:
+    eval TCL_LIB_SPEC="${TCL_EXEC_PREFIX}/lib/$TCL_LIB_FILE"
+    # Same for TK_LIB_SPEC:
+    eval TK_LIB_SPEC="${TK_EXEC_PREFIX}/lib/$TK_LIB_FILE"
+fi
+])
+

data/pkgs/tile-0.8.2/tests/all.tcl

@@ -0,0 +1,18 @@
+#
+# source all tests.
+#
+package require tcltest 2
+
+namespace eval tile {
+    set dir [file dirname [info script]]
+    set ::tcltest::testsDirectory $dir
+    set library [set ::env(TILE_LIBRARY) [file join $dir .. library]]
+}
+lappend auto_path [pwd] $::tile::library
+
+eval tcltest::configure $::argv
+tcltest::runAllTests
+
+if {![catch { package present Tk }]} {
+	destroy .
+}

data/pkgs/tile-0.8.2/tests/bwidget.test

@@ -0,0 +1,103 @@
+#
+# Test BWidget / Tile compatibility.
+#
+# NOTE: This part of the test suite is no longer operative:
+#	[namespace import -force ttk::*] is not expected or intended to work.
+#
+#	Keeping the file around for now since it contains some historical
+#	information about how tile *tried* to make it work, and what
+#	sort of things went wrong.
+#
+
+package require tcltest
+tcltest::cleanupTests ; return
+
+loadTestedCommands
+
+lappend auto_path .
+package require tile
+
+set have_compat 0
+if {![catch {ttk::pkgconfig get compat} compat]} {set have_compat $compat}
+testConstraint bwidget [expr {$have_compat && ![catch {package require BWidget}]}]
+
+test bwidget-1.0 "Setup for BWidget test" -constraints bwidget -body {
+    namespace import -force ttk::*
+    puts "Loaded BWidget version [package provide BWidget]"
+}
+
+test bwidget-1.1 "Make Label widget" -constraints bwidget -body {
+    pack [Label .w]
+} -cleanup {destroy .w}
+
+test bwidget-1.2 "Make ScrolledWindow widget" -constraints bwidget -body {
+    pack [ScrolledWindow .w -auto both -scrollbar vertical]
+} -cleanup {destroy .w}
+
+test bwidget-1.3 "Make PagesManager widget" -constraints bwidget -body {
+    pack [PagesManager .w]
+} -cleanup {destroy .w}
+
+#
+# ProgressBar: this one fails with 'unknown color name "xxx"',
+# where "xxx" is the default value of some other option 
+# (variously, "4m", "100", something else).
+# 
+# Update: fixed now.  Source of problem: widgets were using "unused"
+# as the resource database name for compatibility options;
+# BWidgets keys off the db name instead of the option name.
+#
+test bwidget-1.4 "Make ProgressBar widget" -constraints bwidget -body {
+    pack [ProgressBar .w]
+} -cleanup {destroy .w}
+
+# @@@ TODO: full BWidget coverage,
+# @@@ not just the ones people have reported problems with.
+
+
+#
+# <<NOTE-NULLOPTIONS>>: 
+#
+# TK_OPTION_NULL_OK doesn't work for TK_OPTION_INT (among others);
+# see Bug #967209.
+#
+# This means that [.l configure -width [.l cget -width]] -- which is 
+# essentially what BWidgets does -- will raise an error if -width has 
+# a NULL default.
+# 
+# Temporary workaround: declare -width, etc. as TK_OPTION_STRING instead.
+# This disables typechecking in the 'configure' method, but it seems
+# to be the best way to avoid the BWidget incompatibility for now.
+#
+test nulloptions-1.1 "Test null options" -body {
+    ttk::label .tl
+    .tl configure -width [.tl cget -width]
+} -cleanup { destroy .tl }
+
+#
+# <<NOTE-NULLOPTIONS-2>> This also means we have to (partially) disable 
+# the widget option / element option consistency checks.
+#
+test nulloptions-1.2 "Ensure workaround doesn't break -width" -body {
+    ttk::label .tl -text "x" -width 0
+    set w1 [winfo reqwidth .tl]
+    .tl configure -width 10
+    set w2 [winfo reqwidth .tl]
+    expr {$w2 > $w1}
+} -result 1 -cleanup { destroy .tl }
+
+test nulloptions-1.3 "Exhaustive test" -body {
+    set readonlyOpts [list -class]
+    foreach widget $::ttk::widgets {
+	#puts "$widget"
+	ttk::$widget .w
+	foreach configspec [.w configure] {
+	    set option [lindex $configspec 0]
+	    if {[lsearch -exact $readonlyOpts $option] >= 0} { continue }
+	    .w configure $option [.w cget $option]
+	}
+	destroy .w
+    }
+}
+
+tcltest::cleanupTests

data/pkgs/tile-0.8.2/tests/cbtest.tcl

@@ -0,0 +1,125 @@
+##
+# combobox test program:
+#
+# side-by-side-by-side comparison of Tile, BWidget, and Brian Oakley's combobox
+#
+
+#
+# Autocomplete: maybe need custom match procedure? (string match -nocase)
+#
+# Things to check:
+# 	Focus indicator
+#	Blinking insert cursor (none on readonly combobox)
+#	Listbox scrollbar arrow lines up with popdown arrow
+#	Mouse cursor (I-beam vs. normal) over various elements.
+#	Normal mouse cursor in readonly combobox
+#	Location of popdown menu when close to screen edge
+#	Focus returns to combobox on Unpost (Cancel and Select)
+#	ButtonRelease outside of popdown - Cancel? Select? Leave posted?
+#	Keyboard traversal (incl. Shift+Tab).
+#	-state disabled: 
+#	+ grayed out
+#	+ do not take focus on click
+#	+ do not post listbox
+#	Click in editable combobox -- should set icursor, don't select
+#	Keyboard traversal into combobox -- should select
+#	Traversal out of combobox (both <Tab> and <Shift-Tab>) 
+#	Change value (using other combobox) -- repost listbox --
+#	  make sure proper entry is highlighted.
+#
+
+lappend auto_path . ; package require tile
+package require BWidget
+package require combobox
+
+source [file join [file dirname [info script]] testutils.tcl]
+
+set values \
+    [list abc def ghi jkl mno pqrs tuv wxyz yabba dabba scooby doobie doo]
+
+set t [ttk::frame .t]
+
+grid	[ttk::label $t.l1 -text "Tile"] \
+	[ttk::label $t.l2 -text "BWidget"] \
+	[ttk::label $t.l3 -text "Oakley"] \
+	-row 1 -sticky news;
+
+ttk::combobox $t.rcb1 -width 30 -textvariable V -values $values -state readonly
+ComboBox $t.rcb2 -width 30 -textvariable V -values $values -editable false
+combobox::combobox $t.rcb3 -textvariable V -width 30 -listvar values -editable false
+
+ttk::combobox $t.ecb1 -width 30 -textvariable V -values $values
+ComboBox $t.ecb2 -width 30 -textvariable V -values $values -editable true ;#-autocomplete true
+combobox::combobox $t.ecb3 -textvariable V -width 30 -listvar values -editable true
+
+grid $t.rcb1 $t.rcb2 $t.rcb3 -sticky news -pady 4 -padx 4 -row 2
+grid $t.ecb1 $t.ecb2 $t.ecb3 -sticky news -pady 4 -padx 4 -row 3
+grid columnconfigure $t 0 -uniform c -weight 1
+grid columnconfigure $t 1 -uniform c -weight 1
+
+# Active element monitor:
+#
+bind $t.rcb1 <Motion> { set ::element [%W identify %x %y] }
+bind $t.ecb1 <Motion> { set ::element [%W identify %x %y] }
+
+# Focus monitor:
+#
+proc focusMonitor {} { set ::focusWidget [focus] ; after 200 focusMonitor }
+focusMonitor
+
+# Grab monitor:
+#
+proc grabMonitor {} {
+    global grabWidget
+    set grabWidget [grab current]
+    if {$grabWidget ne ""} {
+	lappend grabWidget [grab status $grabWidget]
+    }
+    after 200 grabMonitor
+}
+grabMonitor
+
+
+set mon [ttk::frame $t.mon]
+ttk::label $mon.el -text "Element:" -anchor e
+ttk::label $mon.e -textvariable ::element -anchor w
+ttk::label $mon.fl -text "Focus:" -anchor e
+ttk::label $mon.f -textvariable ::focusWidget -anchor w
+ttk::label $mon.gl -text "Grab:" -anchor e
+ttk::label $mon.g -textvariable ::grabWidget -anchor w
+grid $mon.el $mon.e -row 0 -sticky news
+grid $mon.fl $mon.f -row 1 -sticky news
+grid $mon.gl $mon.g -row 2 -sticky news
+
+grid columnconfigure $mon 1 -weight 1
+
+grid $t.mon -row 0 -columnspan 2 -sticky nwe
+
+grid rowconfigure $t 4 -weight 1
+grid [ttk::frame $t.cmd] -row 5 -sticky nwes -columnspan 3
+pack [ttk::button $t.cmd.close -text "Close" -command [list destroy .]] \
+	-side right -padx 4 -pady 4
+
+###
+
+pack $t -expand true -fill both
+focus $t.ecb1
+
+if {[tk windowingsystem] eq "aqua"} { set Meta Command } { set Meta Alt }
+
+bind all <$Meta-Key-d> { %W configure -state disabled }	;# "&disable"
+bind all <$Meta-Key-e> { %W configure -state normal }	;# "&enable"
+bind all <$Meta-Key-w> { %W configure -state readonly }	;# "&write-protect"
+
+bind all <$Meta-Key-q> { destroy . }
+bind all <$Meta-Key-b> { error "BGerror - testing" }
+
+bind all <Control-ButtonPress-1> { focus -force %W }
+
+bind all <FocusIn>	{ puts "+F: %W" }
+bind all <FocusOut>	{ puts "-f: %W" }
+bind all <ButtonPress>	{ puts "+B: %W" }
+bind all <ButtonRelease>	{ puts "-b: %W" }
+bind all <KeyPress-m>	{ puts "---- mark ----" }
+
+# In case of a stuck grab: <Control-Button-1> to set focus; <Alt-q> to quit

data/pkgs/tile-0.8.2/tests/combobox.test

@@ -0,0 +1,51 @@
+#
+# Tile package: combobox widget tests
+#
+
+package require Tk
+package require tcltest ; namespace import -force tcltest::*
+loadTestedCommands
+
+lappend auto_path .
+package require tile
+
+test combobox-1.0 "Combobox tests -- setup" -body {
+    ttk::combobox .cb
+} -result .cb
+
+test combobox-1.1 "Bad -values list" -body {
+    .cb configure -values "bad \{list"
+} -result "unmatched open brace in list" -returnCodes 1
+
+test combobox-1.end "Combobox tests -- cleanup" -body {
+    destroy .cb
+}
+
+test combobox-2.0 "current command" -body {
+    ttk::combobox .cb -values [list a b c d e a]
+    .cb current
+} -result -1
+
+test combobox-2.1 "current -- set index" -body {
+    .cb current 5
+    .cb get
+} -result a
+
+test combobox-2.2 "current -- change -values" -body {
+    .cb configure -values [list c b a d e]
+    .cb current
+} -result 2
+
+test combobox-2.3 "current -- change value" -body {
+    .cb set "b"
+    .cb current
+} -result 1
+
+test combobox-2.4 "current -- value not in list" -body { 
+    .cb set "z"
+    .cb current
+} -result -1
+
+test combobox-end "Cleanup" -body { destroy .cb }
+
+tcltest::cleanupTests

data/pkgs/tile-0.8.2/tests/compound.tcl

@@ -0,0 +1,92 @@
+#
+# Interactive test for -compound option.
+#
+
+lappend auto_path .
+package require tile
+
+source [file join [file dirname [info script]] testutils.tcl]
+
+# Load icons...
+source [file join [file dirname [info script]] ../demos/iconlib.tcl]
+set icons {new open error}
+foreach icon $icons {
+    set Icon($icon) [image create photo -data $ImgData($icon)]
+}
+
+ttk::label .tb -image $Icon(new) -text text -compound left -padding 0
+label .b -image $Icon(new) -text text -compound left -padx 0 -pady 0
+
+variable compoundStrings {text image center top bottom left right none}
+
+set c [ttk::labelframe .cctl -text "Compound"]
+foreach string $compoundStrings {
+    pack [ttk::radiobutton $c.$string -text [string totitle $string] \
+    	-variable compound -value $string -command setCompound] \
+    -side top -expand false -fill x ;
+}
+
+set c [ttk::labelframe .ictl -text "Icon"]
+set ::Icon(none) ""
+pack [ttk::radiobutton $c.inone -text "None" \
+    -variable icon -value $string -command setIcon] \
+    -side top -expand false -fill x;
+foreach string $icons {
+    pack [ttk::radiobutton $c.i$string -text $string \
+    	-variable icon -value $string -command setIcon] \
+    -side top -expand false -fill x;
+}
+
+variable anchorStrings {n ne e se s sw w nw center}
+set c [ttk::labelframe .actl -text "Anchor"]
+foreach string $anchorStrings {
+    pack [ttk::radiobutton $c.$string -text $string \
+    	-variable anchor -value $string -command setAnchor] \
+    -side top -expand false -fill x ;
+}
+
+variable reliefStrings {flat groove raised ridge solid sunken}
+set c [ttk::labelframe .rctl -text "Relief"]
+foreach string $reliefStrings {
+    pack [ttk::radiobutton $c.$string -text $string \
+    	-variable relief -value $string -command setRelief] \
+    -side top -expand false -fill x ;
+}
+
+set width 0
+spinbox .wctl -textvariable width -command setWidth \
+	-from -15 -to 15 -increment 1
+
+pack .cctl -side left -expand false -fill none -anchor n
+pack .ictl -side left -expand false -fill none -anchor n
+pack .actl -side left -expand false -fill none -anchor n
+pack .rctl -side left -expand false -fill none -anchor n
+pack .wctl -side left -expand false -fill none -anchor n
+pack .tb .b -side top -expand true -fill both
+
+proc setCompound {} {
+    .tb configure -compound $::compound
+    catch { .b configure -compound $::compound }
+}
+
+proc setAnchor {} {
+    .tb configure -anchor $::anchor
+    .b configure -anchor $::anchor
+}
+
+proc setRelief {} {
+    .tb configure -relief $::relief
+    .b configure -relief $::relief
+}
+
+proc setIcon {} {
+    global Icon icon
+    .tb configure -image $Icon($icon)
+    .b configure -image $Icon($icon)
+}
+
+proc setWidth {} {
+    .tb configure -width $::width
+    .b configure -width $::width
+}
+