poet-commit Mailing List for Poet
Brought to you by:
mercurio
You can subscribe to this list here.
| 2007 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(10) |
Oct
(7) |
Nov
|
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2008 |
Jan
(15) |
Feb
(1) |
Mar
|
Apr
(2) |
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(6) |
Nov
(11) |
Dec
(1) |
|
From: <mer...@us...> - 2008-12-13 07:33:36
|
Revision: 56
http://poet.svn.sourceforge.net/poet/?rev=56&view=rev
Author: mercurio
Date: 2008-12-13 07:33:33 +0000 (Sat, 13 Dec 2008)
Log Message:
-----------
Added a couple of debugging methods to ThingPool
Modified Paths:
--------------
trunk/lib/tier1/tier1-thingpool.tcl
trunk/lib/version.tcl
Modified: trunk/lib/tier1/tier1-thingpool.tcl
===================================================================
--- trunk/lib/tier1/tier1-thingpool.tcl 2008-11-17 02:39:37 UTC (rev 55)
+++ trunk/lib/tier1/tier1-thingpool.tcl 2008-12-13 07:33:33 UTC (rev 56)
@@ -356,13 +356,16 @@
return [expr {$result - [Thing_AnonCounter slot nDel] - 1}]
}
-# Output a report of the anonymous objects currently,
+# Output a report of the anonymous objects,
# both loaded and not loaded.
# If the proc ``operation`` is provided, invoke it on all
# not loaded (but loadable) objects. ``operation`` should
# take two arguments, the first is ``fp`` and the second
# is the loadable object.
#
+# This is a snapshot of the current pool, not what's saved
+# to disk.
+#
ThingPool method anonReport {{fp stdout} {operation ""}} {
set n [Thing_AnonCounter slot n]
set nDel [Thing_AnonCounter slot nDel]
@@ -392,3 +395,74 @@
puts $fp ""
}
}
+
+# Output a report on the contents of memory vs. the contents
+# of the repository.
+#
+# If ``tryToLoad`` is true, we attempt to load any objects
+# that are in the index but don't exist.
+#
+ThingPool method poolReport {{tryToLoad 0} {fp stdout}} {
+ set dir [$self slot dir]
+ set indexFile [file join $dir tclIndex]
+
+ set x [list]
+
+ set in [open $indexFile]
+ foreach line [split [read $in] \n] {
+ if {[regexp {set auto_index\(([^)]*)\).*$} $line -> obj]} {
+ set mom unknown
+ regexp {.*# parent: (.*)$} $line -> mom
+
+ if {[Object exists $obj]} {
+ puts $fp "+ $obj ($mom)"
+ } else {
+ if {$tryToLoad} {
+ if {[catch {$obj}]} {
+ puts $fp "- $obj ($mom)"
+ } else {
+ puts $fp "! $obj ($mom)"
+ }
+ } else {
+ puts $fp "- $obj ($mom)"
+ }
+ }
+ }
+ }
+
+ close $in
+}
+
+# Clean the pool of objects in the index but not loaded.
+# This should only be used when everything you need is
+# already loaded, and what's left should have been deleted
+# by other code.
+#
+# Note that the object has to be loaded to delete it.
+#
+ThingPool method cleanPool {} {
+ set dir [$self slot dir]
+ set indexFile [file join $dir tclIndex]
+
+ set x [list]
+
+ set in [open $indexFile]
+ foreach line [split [read $in] \n] {
+ if {[regexp {set auto_index\(([^)]*)\).*$} $line -> obj]} {
+ set mom unknown
+ regexp {.*# parent: (.*)$} $line -> mom
+
+ if {![Object exists $obj]} {
+ puts "Attempting to load $obj"
+ if {![catch {$obj}]} {
+ $obj destruct
+ puts "$obj destroyed"
+ } else {
+ puts "... failed"
+ }
+ }
+ }
+ }
+
+ close $in
+}
Modified: trunk/lib/version.tcl
===================================================================
--- trunk/lib/version.tcl 2008-11-17 02:39:37 UTC (rev 55)
+++ trunk/lib/version.tcl 2008-12-13 07:33:33 UTC (rev 56)
@@ -1 +1 @@
-set ::Poet::version 2.2.0
+set ::Poet::version 2.2.1
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-11-17 02:39:40
|
Revision: 55
http://poet.svn.sourceforge.net/poet/?rev=55&view=rev
Author: mercurio
Date: 2008-11-17 02:39:37 +0000 (Mon, 17 Nov 2008)
Log Message:
-----------
Release 2.2
Bug fixes to the C code and installer, minor fixes in
Poet lib. Poetics is much more stable.
Added Paths:
-----------
tags/2.2.0/
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-11-17 01:28:35
|
Revision: 54
http://poet.svn.sourceforge.net/poet/?rev=54&view=rev
Author: mercurio
Date: 2008-11-17 01:28:28 +0000 (Mon, 17 Nov 2008)
Log Message:
-----------
2.2 RC3
Modified Paths:
--------------
trunk/lib/help/index.html
trunk/lib/help/poet.html
trunk/sample/PoetShow.exe
trunk/sample/poetshow.vfs/makekit.csh
trunk/starkit/Poet.kit
Modified: trunk/lib/help/index.html
===================================================================
--- trunk/lib/help/index.html 2008-11-16 23:15:17 UTC (rev 53)
+++ trunk/lib/help/index.html 2008-11-17 01:28:28 UTC (rev 54)
@@ -11,7 +11,7 @@
<body>
-<h1 style="text-align: center;"><span style="font-family: Helvetica,Arial,sans-serif;">Poet 2.1
+<h1 style="text-align: center;"><span style="font-family: Helvetica,Arial,sans-serif;">Poet 2.2
Help Index</span></h1>
<span style="font-family: Helvetica,Arial,sans-serif;">
Modified: trunk/lib/help/poet.html
===================================================================
--- trunk/lib/help/poet.html 2008-11-16 23:15:17 UTC (rev 53)
+++ trunk/lib/help/poet.html 2008-11-17 01:28:28 UTC (rev 54)
@@ -34,7 +34,7 @@
<br>
-Poet is copyrighted 2007 by Philip J. Mercurio and is released under the <a style="color: rgb(255, 0, 0);" href="bsd.html">BSD license</a>. The Poet homepage is:<br>
+Poet is copyrighted 2008 by Philip J. Mercurio and is released under the <a style="color: rgb(255, 0, 0);" href="bsd.html">BSD license</a>. The Poet homepage is:<br>
<br>
</span></span>
<div style="text-align: center;"><span style="font-family: Helvetica,Arial,sans-serif;"><span style="font-family: Helvetica,Arial,sans-serif;">poet.sourceforge.net</span></span><br>
Modified: trunk/sample/PoetShow.exe
===================================================================
(Binary files differ)
Modified: trunk/sample/poetshow.vfs/makekit.csh
===================================================================
--- trunk/sample/poetshow.vfs/makekit.csh 2008-11-16 23:15:17 UTC (rev 53)
+++ trunk/sample/poetshow.vfs/makekit.csh 2008-11-17 01:28:28 UTC (rev 54)
@@ -6,7 +6,7 @@
# the Tcl library directory.
#
-set pkglist = (tcllib1.10 Tktable2.9 bwidget1.8 poet2.1 Img1.3)
+set pkglist = (tcllib1.10 Tktable2.9 bwidget1.8 poet2.2 Img1.3)
set pkgs = "poetshow.vfs/pkgs"
set tcldir = "c:/tcl/"
@@ -29,7 +29,7 @@
echo "Wrapping poetshow.vfs"
#/prog/tools/tclkitsh c:/Tcl/kits/sdx.kit wrap PoetShow.kit
-/prog/tools/tclkitsh c:/Tcl/kits/sdx.kit wrap PoetShow.exe -runtime /prog/tools/tclkit.exe
+/prog/tools/tclkitsh c:/Tcl/kits/sdx.kit wrap PoetShow.exe -runtime /prog/tools/tclkit855.exe
#echo "Removing $pkgs"
rm -rf $pkgs
Modified: trunk/starkit/Poet.kit
===================================================================
(Binary files differ)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-11-16 23:15:20
|
Revision: 53
http://poet.svn.sourceforge.net/poet/?rev=53&view=rev
Author: mercurio
Date: 2008-11-16 23:15:17 +0000 (Sun, 16 Nov 2008)
Log Message:
-----------
Fixed version in starkit
Modified Paths:
--------------
trunk/starkit/Poet.kit
trunk/starkit/main.tcl
Modified: trunk/starkit/Poet.kit
===================================================================
(Binary files differ)
Modified: trunk/starkit/main.tcl
===================================================================
--- trunk/starkit/main.tcl 2008-11-16 22:52:04 UTC (rev 52)
+++ trunk/starkit/main.tcl 2008-11-16 23:15:17 UTC (rev 53)
@@ -7,12 +7,13 @@
# unless POET_TIER is already set. We also run the demo.
# If run standalone, not only do we demo but we also install!
# PJM 2008-01-03 Updated for Poet2.1
+# PJM 2008-11-16 Updated for Poet2.2
#
package require starkit
set sk [starkit::startup]
-starkit::autoextend [file join $starkit::topdir poet2.1]
-set ::env(POET_BINARY) [file join $starkit::topdir poet2.1]
-set ::env(POET_LIBRARY) [file join $starkit::topdir poet2.1]
+starkit::autoextend [file join $starkit::topdir poet2.2]
+set ::env(POET_BINARY) [file join $starkit::topdir poet2.2]
+set ::env(POET_LIBRARY) [file join $starkit::topdir poet2.2]
switch $sk {
starkit -
@@ -53,8 +54,8 @@
source [file join $::instmiscDir installer.tcl]
# This looks wrong, but Configure finds the right .dll/.so files
::PoetInstaller::Configure $::Poet::library \
- [file join $::Poet::library Poet21] \
- [file join $::Poet::library libPoet2.1] \
+ [file join $::Poet::library Poet22] \
+ [file join $::Poet::library libPoet2.2] \
[file join $starkit::topdir html] \
$::instmiscDir
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-11-16 22:52:07
|
Revision: 52
http://poet.svn.sourceforge.net/poet/?rev=52&view=rev
Author: mercurio
Date: 2008-11-16 22:52:04 +0000 (Sun, 16 Nov 2008)
Log Message:
-----------
2.2 release candidate
Modified Paths:
--------------
trunk/ReadMe.txt
trunk/doc/handmade/contents.html
trunk/doc/handmade/cover.html
trunk/doc/handmade/creation.html
trunk/doc/handmade/examples.html
trunk/doc/handmade/inheritance.html
trunk/doc/handmade/install.html
trunk/doc/handmade/methods.html
trunk/doc/handmade/overview.html
trunk/doc/handmade/package.html
trunk/doc/handmade/persistence.html
trunk/doc/handmade/poetapi.html
trunk/doc/handmade/slots.html
trunk/doc/handmade/tier1-overview.html
trunk/doc/handmade/tier2-overview.html
trunk/doc/handmade/tier2b-overview.html
trunk/doc/handmade/tier3-overview.html
trunk/html/doc/contents.html
trunk/html/doc/cover.html
trunk/html/doc/creation.html
trunk/html/doc/examples.html
trunk/html/doc/inheritance.html
trunk/html/doc/install.html
trunk/html/doc/methods.html
trunk/html/doc/overview.html
trunk/html/doc/package.html
trunk/html/doc/persistence.html
trunk/html/doc/poetapi.html
trunk/html/doc/slots.html
trunk/html/doc/tier1-overview.html
trunk/html/doc/tier2-overview.html
trunk/html/doc/tier2b-overview.html
trunk/html/doc/tier3-overview.html
trunk/starkit/Poet.kit
Removed Paths:
-------------
trunk/unix/network.o
trunk/unix/poet.o
Modified: trunk/ReadMe.txt
===================================================================
--- trunk/ReadMe.txt 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/ReadMe.txt 2008-11-16 22:52:04 UTC (rev 52)
@@ -2,7 +2,7 @@
Prototype Object Extension for Tcl
- Version 2.1
+ Version 2.2
Phil Mercurio
mer...@ac...
Modified: trunk/doc/handmade/contents.html
===================================================================
--- trunk/doc/handmade/contents.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/contents.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -3,14 +3,14 @@
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
-<title>Poet2.1 Manual</title>
+<title>Poet2.2 Manual</title>
</head>
<body bgcolor="#FFFFFF" link="#52328D" vlink="#25255A">
<table border="0" width="100%" bgcolor="#000080">
<tr>
- <td width="50%"><font size="4" color="#FFFFFF"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font size="4" color="#FFFFFF"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#FFFFFF"><small>Prototype Object Extension for
Tcl</small></font></td>
</tr>
Modified: trunk/doc/handmade/cover.html
===================================================================
--- trunk/doc/handmade/cover.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/cover.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -12,7 +12,7 @@
- <title>Poet2.1 Manual</title>
+ <title>Poet2.2 Manual</title>
<link rel="stylesheet" href="poet.css" type="text/css">
</head>
@@ -33,7 +33,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
@@ -101,7 +101,7 @@
<big><big>Poet Programmer's Manual<br>
- <small><small><small>Version 2.1<br>
+ <small><small><small>Version 2.2<br>
<br>
<br>
</small></small></small></big></big>
Modified: trunk/doc/handmade/creation.html
===================================================================
--- trunk/doc/handmade/creation.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/creation.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -32,7 +32,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/doc/handmade/examples.html
===================================================================
--- trunk/doc/handmade/examples.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/examples.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -23,7 +23,7 @@
<table bgcolor="#000080" border="0" width="100%">
<tbody>
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
</tr>
</tbody>
@@ -48,7 +48,7 @@
<blockquote>
- <pre class="example"><span class="prompt">%</span> package require Poet<br><span class="out">2.1</span><br><span class="prompt">%</span> Object construct a<br><span class="out">a</span><br><span class="prompt">%</span> a construct b<br><span class="out">b</span><br><span class="prompt">%</span> a method foo {} {puts "Hello"}<br><span class="prompt">%</span> a foo<br><span class="out">Hello</span><br><span class="prompt">%</span> b foo<br><span class="out">Hello</span><br><span class="prompt">%</span> </pre>
+ <pre class="example"><span class="prompt">%</span> package require Poet<br><span class="out">2.2</span><br><span class="prompt">%</span> Object construct a<br><span class="out">a</span><br><span class="prompt">%</span> a construct b<br><span class="out">b</span><br><span class="prompt">%</span> a method foo {} {puts "Hello"}<br><span class="prompt">%</span> a foo<br><span class="out">Hello</span><br><span class="prompt">%</span> b foo<br><span class="out">Hello</span><br><span class="prompt">%</span> </pre>
<br>
@@ -70,7 +70,7 @@
<blockquote>
- <pre class="example"><span class="prompt">%</span> package require Poet<br><span class="out">2.1</span><br><span class="prompt">%</span> Object construct a<br><span class="out">a</span><br><span class="prompt">%</span> a slot name "The Letter A"<br><span class="prompt">%</span> a slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> a construct b<br><span class="out">b</span><br><span class="prompt">%</span> b slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> b slot name "The Letter B"<br><span class="out">The Letter B</span><br><span class="prompt">%</span> b slot name<br><span class="out">The Letter B</span><br><span class="prompt">%</span> a slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> b unslot name<br><span class="prompt">%</span> b slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span></pre>
+ <pre class="example"><span class="prompt">%</span> package require Poet<br><span class="out">2.2</span><br><span class="prompt">%</span> Object construct a<br><span class="out">a</span><br><span class="prompt">%</span> a slot name "The Letter A"<br><span class="prompt">%</span> a slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> a construct b<br><span class="out">b</span><br><span class="prompt">%</span> b slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> b slot name "The Letter B"<br><span class="out">The Letter B</span><br><span class="prompt">%</span> b slot name<br><span class="out">The Letter B</span><br><span class="prompt">%</span> a slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> b unslot name<br><span class="prompt">%</span> b slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span></pre>
<br>
Modified: trunk/doc/handmade/inheritance.html
===================================================================
--- trunk/doc/handmade/inheritance.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/inheritance.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -26,7 +26,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/doc/handmade/install.html
===================================================================
--- trunk/doc/handmade/install.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/install.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -65,7 +65,7 @@
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
@@ -215,7 +215,7 @@
<hr style="width: 100%; height: 2px;">Poet is also distributed as a pre-assembled <a href="http://www.equi4.com/starkit/">starkit</a> called <span class="code">Poet.kit</span>.
- This kit contains Poet2.1, BWidget1.8 (patched as described in
+ This kit contains Poet2.2, BWidget1.8 (patched as described in
the Poet installation instructions), Tktable2.9, Tkhtml3.0, and tkcon,
and supports Windows, Linux, and Mac OS X. If run as in <br>
Modified: trunk/doc/handmade/methods.html
===================================================================
--- trunk/doc/handmade/methods.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/methods.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -26,7 +26,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/doc/handmade/overview.html
===================================================================
--- trunk/doc/handmade/overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -35,7 +35,7 @@
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
Modified: trunk/doc/handmade/package.html
===================================================================
--- trunk/doc/handmade/package.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/package.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -29,7 +29,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/doc/handmade/persistence.html
===================================================================
--- trunk/doc/handmade/persistence.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/persistence.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -29,7 +29,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/doc/handmade/poetapi.html
===================================================================
--- trunk/doc/handmade/poetapi.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/poetapi.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -35,7 +35,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/doc/handmade/slots.html
===================================================================
--- trunk/doc/handmade/slots.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/slots.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -25,7 +25,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/doc/handmade/tier1-overview.html
===================================================================
--- trunk/doc/handmade/tier1-overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/tier1-overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -26,7 +26,7 @@
<table bgcolor="#000080" border="0" width="100%">
<tbody>
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
</tr>
</tbody>
Modified: trunk/doc/handmade/tier2-overview.html
===================================================================
--- trunk/doc/handmade/tier2-overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/tier2-overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -35,7 +35,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/doc/handmade/tier2b-overview.html
===================================================================
--- trunk/doc/handmade/tier2b-overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/tier2b-overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -41,7 +41,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/doc/handmade/tier3-overview.html
===================================================================
--- trunk/doc/handmade/tier3-overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/doc/handmade/tier3-overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -31,7 +31,7 @@
<table bgcolor="#000080" border="0" width="100%">
<tbody>
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
</tr>
</tbody>
Modified: trunk/html/doc/contents.html
===================================================================
--- trunk/html/doc/contents.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/contents.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -3,14 +3,14 @@
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
-<title>Poet2.1 Manual</title>
+<title>Poet2.2 Manual</title>
</head>
<body bgcolor="#FFFFFF" link="#52328D" vlink="#25255A">
<table border="0" width="100%" bgcolor="#000080">
<tr>
- <td width="50%"><font size="4" color="#FFFFFF"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font size="4" color="#FFFFFF"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#FFFFFF"><small>Prototype Object Extension for
Tcl</small></font></td>
</tr>
Modified: trunk/html/doc/cover.html
===================================================================
--- trunk/html/doc/cover.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/cover.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -12,7 +12,7 @@
- <title>Poet2.1 Manual</title>
+ <title>Poet2.2 Manual</title>
<link rel="stylesheet" href="poet.css" type="text/css">
</head>
@@ -33,7 +33,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
@@ -101,7 +101,7 @@
<big><big>Poet Programmer's Manual<br>
- <small><small><small>Version 2.1<br>
+ <small><small><small>Version 2.2<br>
<br>
<br>
</small></small></small></big></big>
Modified: trunk/html/doc/creation.html
===================================================================
--- trunk/html/doc/creation.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/creation.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -32,7 +32,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/html/doc/examples.html
===================================================================
--- trunk/html/doc/examples.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/examples.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -23,7 +23,7 @@
<table bgcolor="#000080" border="0" width="100%">
<tbody>
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
</tr>
</tbody>
@@ -48,7 +48,7 @@
<blockquote>
- <pre class="example"><span class="prompt">%</span> package require Poet<br><span class="out">2.1</span><br><span class="prompt">%</span> Object construct a<br><span class="out">a</span><br><span class="prompt">%</span> a construct b<br><span class="out">b</span><br><span class="prompt">%</span> a method foo {} {puts "Hello"}<br><span class="prompt">%</span> a foo<br><span class="out">Hello</span><br><span class="prompt">%</span> b foo<br><span class="out">Hello</span><br><span class="prompt">%</span> </pre>
+ <pre class="example"><span class="prompt">%</span> package require Poet<br><span class="out">2.2</span><br><span class="prompt">%</span> Object construct a<br><span class="out">a</span><br><span class="prompt">%</span> a construct b<br><span class="out">b</span><br><span class="prompt">%</span> a method foo {} {puts "Hello"}<br><span class="prompt">%</span> a foo<br><span class="out">Hello</span><br><span class="prompt">%</span> b foo<br><span class="out">Hello</span><br><span class="prompt">%</span> </pre>
<br>
@@ -70,7 +70,7 @@
<blockquote>
- <pre class="example"><span class="prompt">%</span> package require Poet<br><span class="out">2.1</span><br><span class="prompt">%</span> Object construct a<br><span class="out">a</span><br><span class="prompt">%</span> a slot name "The Letter A"<br><span class="prompt">%</span> a slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> a construct b<br><span class="out">b</span><br><span class="prompt">%</span> b slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> b slot name "The Letter B"<br><span class="out">The Letter B</span><br><span class="prompt">%</span> b slot name<br><span class="out">The Letter B</span><br><span class="prompt">%</span> a slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> b unslot name<br><span class="prompt">%</span> b slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span></pre>
+ <pre class="example"><span class="prompt">%</span> package require Poet<br><span class="out">2.2</span><br><span class="prompt">%</span> Object construct a<br><span class="out">a</span><br><span class="prompt">%</span> a slot name "The Letter A"<br><span class="prompt">%</span> a slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> a construct b<br><span class="out">b</span><br><span class="prompt">%</span> b slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> b slot name "The Letter B"<br><span class="out">The Letter B</span><br><span class="prompt">%</span> b slot name<br><span class="out">The Letter B</span><br><span class="prompt">%</span> a slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span> b unslot name<br><span class="prompt">%</span> b slot name<br><span class="out">The Letter A</span><br><span class="prompt">%</span></pre>
<br>
Modified: trunk/html/doc/inheritance.html
===================================================================
--- trunk/html/doc/inheritance.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/inheritance.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -26,7 +26,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/html/doc/install.html
===================================================================
--- trunk/html/doc/install.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/install.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -65,7 +65,7 @@
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
@@ -215,7 +215,7 @@
<hr style="width: 100%; height: 2px;">Poet is also distributed as a pre-assembled <a href="http://www.equi4.com/starkit/">starkit</a> called <span class="code">Poet.kit</span>.
- This kit contains Poet2.1, BWidget1.8 (patched as described in
+ This kit contains Poet2.2, BWidget1.8 (patched as described in
the Poet installation instructions), Tktable2.9, Tkhtml3.0, and tkcon,
and supports Windows, Linux, and Mac OS X. If run as in <br>
Modified: trunk/html/doc/methods.html
===================================================================
--- trunk/html/doc/methods.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/methods.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -26,7 +26,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/html/doc/overview.html
===================================================================
--- trunk/html/doc/overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -35,7 +35,7 @@
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
Modified: trunk/html/doc/package.html
===================================================================
--- trunk/html/doc/package.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/package.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -29,7 +29,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/html/doc/persistence.html
===================================================================
--- trunk/html/doc/persistence.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/persistence.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -29,7 +29,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/html/doc/poetapi.html
===================================================================
--- trunk/html/doc/poetapi.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/poetapi.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -35,7 +35,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/html/doc/slots.html
===================================================================
--- trunk/html/doc/slots.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/slots.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -25,7 +25,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/html/doc/tier1-overview.html
===================================================================
--- trunk/html/doc/tier1-overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/tier1-overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -26,7 +26,7 @@
<table bgcolor="#000080" border="0" width="100%">
<tbody>
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
</tr>
</tbody>
Modified: trunk/html/doc/tier2-overview.html
===================================================================
--- trunk/html/doc/tier2-overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/tier2-overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -35,7 +35,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/html/doc/tier2b-overview.html
===================================================================
--- trunk/html/doc/tier2b-overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/tier2b-overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -41,7 +41,7 @@
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
Modified: trunk/html/doc/tier3-overview.html
===================================================================
--- trunk/html/doc/tier3-overview.html 2008-11-06 03:50:02 UTC (rev 51)
+++ trunk/html/doc/tier3-overview.html 2008-11-16 22:52:04 UTC (rev 52)
@@ -31,7 +31,7 @@
<table bgcolor="#000080" border="0" width="100%">
<tbody>
<tr>
- <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.1 Manual</strong></font></td>
+ <td width="50%"><font color="#ffffff" size="2"><strong>Poet2.2 Manual</strong></font></td>
<td align="right" width="50%"><font color="#ffffff" size="2">Prototype Object Extension for Tcl</font></td>
</tr>
</tbody>
Modified: trunk/starkit/Poet.kit
===================================================================
(Binary files differ)
Deleted: trunk/unix/network.o
===================================================================
(Binary files differ)
Deleted: trunk/unix/poet.o
===================================================================
(Binary files differ)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-11-06 03:50:13
|
Revision: 51
http://poet.svn.sourceforge.net/poet/?rev=51&view=rev
Author: mercurio
Date: 2008-11-06 03:50:02 +0000 (Thu, 06 Nov 2008)
Log Message:
-----------
Linux 2.2 libs
Modified Paths:
--------------
trunk/lib/tier2a-x11/tier2a-blt_barchart.tcl
trunk/lib/tier2a-x11/tier2a-blt_graph.tcl
trunk/lib/tier2a-x11/tier2a-blt_hierbox.tcl
trunk/lib/tier2a-x11/tier2a-blt_htext.tcl
trunk/lib/tier2a-x11/tier2a-blt_stripchart.tcl
trunk/lib/tier2a-x11/tier2a-blt_tabset.tcl
trunk/lib/tier2a-x11/tier2a-bw_arrowbutton.tcl
trunk/lib/tier2a-x11/tier2a-bw_button.tcl
trunk/lib/tier2a-x11/tier2a-bw_buttonbox.tcl
trunk/lib/tier2a-x11/tier2a-bw_combobox.tcl
trunk/lib/tier2a-x11/tier2a-bw_dialog.tcl
trunk/lib/tier2a-x11/tier2a-bw_entry.tcl
trunk/lib/tier2a-x11/tier2a-bw_label.tcl
trunk/lib/tier2a-x11/tier2a-bw_labelentry.tcl
trunk/lib/tier2a-x11/tier2a-bw_labelframe.tcl
trunk/lib/tier2a-x11/tier2a-bw_listbox.tcl
trunk/lib/tier2a-x11/tier2a-bw_mainframe.tcl
trunk/lib/tier2a-x11/tier2a-bw_notebook.tcl
trunk/lib/tier2a-x11/tier2a-bw_panedwindow.tcl
trunk/lib/tier2a-x11/tier2a-bw_progressbar.tcl
trunk/lib/tier2a-x11/tier2a-bw_scrollableframe.tcl
trunk/lib/tier2a-x11/tier2a-bw_scrolledwindow.tcl
trunk/lib/tier2a-x11/tier2a-bw_scrollview.tcl
trunk/lib/tier2a-x11/tier2a-bw_selectfont.tcl
trunk/lib/tier2a-x11/tier2a-bw_separator.tcl
trunk/lib/tier2a-x11/tier2a-bw_spinbox.tcl
trunk/lib/tier2a-x11/tier2a-bw_table.tcl
trunk/lib/tier2a-x11/tier2a-bw_titleframe.tcl
trunk/lib/tier2a-x11/tier2a-bw_tree.tcl
trunk/lib/tier2a-x11/tier2a-tk_button.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_arc.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_bitmap.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_image.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_line.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_oval.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_polygon.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_rectangle.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_text.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_window.tcl
trunk/lib/tier2a-x11/tier2a-tk_checkbutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_entry.tcl
trunk/lib/tier2a-x11/tier2a-tk_frame.tcl
trunk/lib/tier2a-x11/tier2a-tk_label.tcl
trunk/lib/tier2a-x11/tier2a-tk_labelframe.tcl
trunk/lib/tier2a-x11/tier2a-tk_listbox.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_cascade.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_checkbutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_command.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_radiobutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_separator.tcl
trunk/lib/tier2a-x11/tier2a-tk_menubutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_message.tcl
trunk/lib/tier2a-x11/tier2a-tk_panedwindow.tcl
trunk/lib/tier2a-x11/tier2a-tk_radiobutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_scale.tcl
trunk/lib/tier2a-x11/tier2a-tk_scrollbar.tcl
trunk/lib/tier2a-x11/tier2a-tk_spinbox.tcl
trunk/lib/tier2a-x11/tier2a-tk_table.tcl
trunk/lib/tier2a-x11/tier2a-tk_text.tcl
trunk/lib/tier2a-x11/tier2a-tk_toplevel.tcl
trunk/lib/tier2a-x11/tier2a-tk_zinc.tcl
trunk/lib/tier2a-x11/tier2a-ttk_button.tcl
trunk/lib/tier2a-x11/tier2a-ttk_checkbutton.tcl
trunk/lib/tier2a-x11/tier2a-ttk_combobox.tcl
trunk/lib/tier2a-x11/tier2a-ttk_entry.tcl
trunk/lib/tier2a-x11/tier2a-ttk_frame.tcl
trunk/lib/tier2a-x11/tier2a-ttk_label.tcl
trunk/lib/tier2a-x11/tier2a-ttk_labelframe.tcl
trunk/lib/tier2a-x11/tier2a-ttk_menubutton.tcl
trunk/lib/tier2a-x11/tier2a-ttk_notebook.tcl
trunk/lib/tier2a-x11/tier2a-ttk_panedwindow.tcl
trunk/lib/tier2a-x11/tier2a-ttk_progressbar.tcl
trunk/lib/tier2a-x11/tier2a-ttk_radiobutton.tcl
trunk/lib/tier2a-x11/tier2a-ttk_scale.tcl
trunk/lib/tier2a-x11/tier2a-ttk_scrollbar.tcl
trunk/lib/tier2a-x11/tier2a-ttk_separator.tcl
trunk/lib/tier2a-x11/tier2a-ttk_sizegrip.tcl
trunk/lib/tier2a-x11/tier2a-ttk_treeview.tcl
trunk/unix/Makefile
trunk/unix/config.log
trunk/unix/config.status
Added Paths:
-----------
trunk/unix/libPoet2.2-84.so
trunk/unix/libPoet2.2-85.so
trunk/unix/network.o
trunk/unix/poet.o
Removed Paths:
-------------
trunk/unix/libPoet2.1-84.dylib
trunk/unix/libPoet2.1-84.so
trunk/unix/libPoet2.1-85.dylib
trunk/unix/libPoet2.1-85.so
Modified: trunk/lib/tier2a-x11/tier2a-blt_barchart.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-blt_barchart.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-blt_barchart.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-blt_barchart.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2007-10-16 at 08:25PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-blt_graph.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-blt_graph.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-blt_graph.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-blt_graph.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2007-10-16 at 08:25PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-blt_hierbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-blt_hierbox.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-blt_hierbox.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-blt_hierbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2007-10-16 at 08:25PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-blt_htext.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-blt_htext.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-blt_htext.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-blt_htext.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2007-10-16 at 08:25PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-blt_stripchart.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-blt_stripchart.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-blt_stripchart.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-blt_stripchart.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2007-10-16 at 08:25PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-blt_tabset.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-blt_tabset.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-blt_tabset.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-blt_tabset.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2007-10-16 at 08:25PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_arrowbutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_arrowbutton.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_arrowbutton.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_arrowbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_button.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_button.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_button.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_buttonbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_buttonbox.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_buttonbox.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_buttonbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_combobox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_combobox.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_combobox.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_combobox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
@@ -322,7 +322,7 @@
BW_ComboBox type highlightbackground <color>
-BW_ComboBox slot> highlightcolor {#000000} {
+BW_ComboBox slot> highlightcolor {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -492,7 +492,7 @@
BW_ComboBox type relief {<choice> raised sunken flat ridge solid groove}
-BW_ComboBox slot> selectbackground {#cc863e} {
+BW_ComboBox slot> selectbackground {#bf7b32} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -512,7 +512,7 @@
BW_ComboBox type selectborderwidth <pixels>
-BW_ComboBox slot> selectforeground {#000000} {
+BW_ComboBox slot> selectforeground {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
Modified: trunk/lib/tier2a-x11/tier2a-bw_dialog.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_dialog.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_dialog.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_dialog.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_entry.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_entry.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_entry.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
@@ -262,7 +262,7 @@
BW_Entry type highlightbackground <color>
-BW_Entry slot> highlightcolor {#000000} {
+BW_Entry slot> highlightcolor {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -372,7 +372,7 @@
BW_Entry type relief {<choice> raised sunken flat ridge solid groove}
-BW_Entry slot> selectbackground {#cc863e} {
+BW_Entry slot> selectbackground {#bf7b32} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -392,7 +392,7 @@
BW_Entry type selectborderwidth <pixels>
-BW_Entry slot> selectforeground {#000000} {
+BW_Entry slot> selectforeground {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
Modified: trunk/lib/tier2a-x11/tier2a-bw_label.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_label.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_label.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_labelentry.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_labelentry.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_labelentry.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_labelentry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
@@ -327,7 +327,7 @@
BW_LabelEntry type highlightbackground <color>
-BW_LabelEntry slot> highlightcolor {#000000} {
+BW_LabelEntry slot> highlightcolor {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -547,7 +547,7 @@
BW_LabelEntry type relief {<choice> raised sunken flat ridge solid groove}
-BW_LabelEntry slot> selectbackground {#cc863e} {
+BW_LabelEntry slot> selectbackground {#bf7b32} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -567,7 +567,7 @@
BW_LabelEntry type selectborderwidth <pixels>
-BW_LabelEntry slot> selectforeground {#000000} {
+BW_LabelEntry slot> selectforeground {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
Modified: trunk/lib/tier2a-x11/tier2a-bw_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_labelframe.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_labelframe.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_listbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_listbox.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_listbox.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_listbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
@@ -216,7 +216,7 @@
BW_ListBox type highlightbackground <color>
-BW_ListBox slot> highlightcolor {#000000} {
+BW_ListBox slot> highlightcolor {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -286,7 +286,7 @@
BW_ListBox type relief {<choice> raised sunken flat ridge solid groove}
-BW_ListBox slot> selectbackground {#cc863e} {
+BW_ListBox slot> selectbackground {#bf7b32} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -306,7 +306,7 @@
BW_ListBox type selectfill <string>
-BW_ListBox slot> selectforeground {#000000} {
+BW_ListBox slot> selectforeground {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
Modified: trunk/lib/tier2a-x11/tier2a-bw_mainframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_mainframe.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_mainframe.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_mainframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_notebook.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_notebook.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_notebook.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_notebook.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_panedwindow.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_panedwindow.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_progressbar.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_progressbar.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_progressbar.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_progressbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_scrollableframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_scrollableframe.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_scrollableframe.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_scrollableframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_scrolledwindow.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_scrolledwindow.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_scrolledwindow.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_scrolledwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_scrollview.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_scrollview.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_scrollview.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_scrollview.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_selectfont.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_selectfont.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_selectfont.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_selectfont.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_separator.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_separator.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_separator.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_spinbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_spinbox.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_spinbox.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_spinbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
@@ -282,7 +282,7 @@
BW_SpinBox type highlightbackground <color>
-BW_SpinBox slot> highlightcolor {#000000} {
+BW_SpinBox slot> highlightcolor {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -432,7 +432,7 @@
BW_SpinBox type repeatinterval {<integer> 0 1000000}
-BW_SpinBox slot> selectbackground {#cc863e} {
+BW_SpinBox slot> selectbackground {#bf7b32} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -452,7 +452,7 @@
BW_SpinBox type selectborderwidth <integer>
-BW_SpinBox slot> selectforeground {#000000} {
+BW_SpinBox slot> selectforeground {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
Modified: trunk/lib/tier2a-x11/tier2a-bw_table.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_table.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_table.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_table.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_titleframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_titleframe.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_titleframe.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_titleframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_tree.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_tree.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-bw_tree.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-bw_tree.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
@@ -246,7 +246,7 @@
BW_Tree type highlightbackground <color>
-BW_Tree slot> highlightcolor {#000000} {
+BW_Tree slot> highlightcolor {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -336,7 +336,7 @@
BW_Tree type relief {<choice> raised sunken flat ridge solid groove}
-BW_Tree slot> selectbackground {#cc863e} {
+BW_Tree slot> selectbackground {#bf7b32} {
set p [$self slot _primary]
if {$p ne {}} {
@@ -366,7 +366,7 @@
BW_Tree type selectfill <string>
-BW_Tree slot> selectforeground {#000000} {
+BW_Tree slot> selectforeground {#1a1a1a} {
set p [$self slot _primary]
if {$p ne {}} {
Modified: trunk/lib/tier2a-x11/tier2a-tk_button.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_button.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_button.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_arc.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_arc.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_arc.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_arc.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_bitmap.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_bitmap.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_bitmap.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_bitmap.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_image.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_image.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_image.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_image.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_line.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_line.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_line.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_line.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_oval.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_oval.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_oval.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_oval.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_polygon.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_polygon.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_polygon.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_polygon.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_rectangle.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_rectangle.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_rectangle.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_rectangle.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_text.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_text.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_text.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_window.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_window.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_window.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_window.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_checkbutton.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_checkbutton.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_entry.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_entry.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_entry.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_frame.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_frame.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_frame.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_label.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_label.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_label.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_labelframe.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_labelframe.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_listbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_listbox.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_listbox.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_listbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_menu.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_cascade.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_cascade.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_cascade.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_cascade.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_checkbutton.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_checkbutton.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_command.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_command.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_command.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_command.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_radiobutton.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_radiobutton.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_separator.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_separator.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_separator.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menubutton.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_menubutton.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_message.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_message.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_message.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_message.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_panedwindow.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_panedwindow.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_radiobutton.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_radiobutton.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_scale.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_scale.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_scale.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_scrollbar.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_scrollbar.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_spinbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_spinbox.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_spinbox.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_spinbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_table.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_table.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_table.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_table.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_text.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_text.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_text.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_toplevel.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_toplevel.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_toplevel.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_toplevel.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_zinc.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_zinc.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-tk_zinc.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-tk_zinc.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_button.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_button.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_button.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_checkbutton.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_checkbutton.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_combobox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_combobox.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_combobox.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_combobox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_entry.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_entry.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_entry.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_frame.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_frame.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_frame.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_label.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_label.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_label.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_labelframe.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_labelframe.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_menubutton.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_menubutton.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_notebook.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_notebook.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_notebook.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_notebook.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_panedwindow.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_panedwindow.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_progressbar.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_progressbar.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_progressbar.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_progressbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_radiobutton.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_radiobutton.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_scale.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_scale.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_scale.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_scrollbar.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_scrollbar.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_separator.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_separator.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_separator.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_sizegrip.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_sizegrip.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_sizegrip.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_sizegrip.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_treeview.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_treeview.tcl 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/lib/tier2a-x11/tier2a-ttk_treeview.tcl 2008-11-06 03:50:02 UTC (rev 51)
@@ -2,7 +2,7 @@
### tier2a-ttk_treeview.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-20 at 06:15PM
+### on 2008-11-05 at 07:46PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/unix/Makefile
===================================================================
--- trunk/unix/Makefile 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/unix/Makefile 2008-11-06 03:50:02 UTC (rev 51)
@@ -59,20 +59,20 @@
# configuration options) composed of the named objects.
#========================================================================
-PKG_LIB_FILE = libPoet2.2.dylib
+PKG_LIB_FILE = libPoet2.2.so
PKG_STUB_LIB_FILE = libPoetstub2.2.a
lib_BINARIES = $(PKG_LIB_FILE)
BINARIES = $(lib_BINARIES)
-SHELL = /bin/sh
+SHELL = /bin/bash
srcdir = .
prefix = /usr/local
-exec_prefix = /Library/Tcl
+exec_prefix = /usr/local
bindir = ${exec_prefix}/bin
-libdir = /Library/Tcl
+libdir = ${exec_prefix}/lib
includedir = ${prefix}/include
datarootdir = ${prefix}/share
datadir = ${datarootdir}
@@ -87,7 +87,7 @@
top_builddir = .
-INSTALL = /usr/bin/install -c
+INSTALL = /usr/X11R6/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL}
@@ -95,10 +95,10 @@
PACKAGE_NAME = Poet
PACKAGE_VERSION = 2.2
CC = gcc
-CFLAGS_DEFAULT = -Os
+CFLAGS_DEFAULT = -O2 -fomit-frame-pointer
CFLAGS_WARNING = -Wall -Wno-implicit-int
EXEEXT =
-LDFLAGS_DEFAULT = -prebind -headerpad_max_install_names -Wl,-search_paths_first
+LDFLAGS_DEFAULT = -Wl,--export-dynamic
MAKE_LIB = ${SHLIB_LD} -o $@ $(PKG_OBJECTS) ${SHLIB_LD_LIBS}
MAKE_SHARED_LIB = ${SHLIB_LD} -o $@ $(PKG_OBJECTS) ${SHLIB_LD_LIBS}
MAKE_STATIC_LIB = ${STLIB_LD} $@ $(PKG_OBJECTS)
@@ -106,15 +106,15 @@
OBJEXT = o
RANLIB = :
RANLIB_STUB = ranlib
-SHLIB_CFLAGS = -fno-common
-SHLIB_LD = ${CC} -dynamiclib ${CFLAGS} ${LDFLAGS_DEFAULT} -Wl,-single_module
-SHLIB_LD_LIBS = ${LIBS} -L/Library/Frameworks/Tcl.framework/Versions/8.5 -ltclstub8.5 -L/Library/Frameworks/Tk.framework/Versions/8.5 -ltkstub8.5
+SHLIB_CFLAGS = -fPIC
+SHLIB_LD = ${CC} -shared ${CFLAGS} ${LDFLAGS_DEFAULT}
+SHLIB_LD_LIBS = ${LIBS} -L/usr/local/lib -ltclstub8.5 -L/usr/local/lib -ltkstub8.5
STLIB_LD = ${AR} cr
-#TCL_DEFS = -DPACKAGE_NAME=\"tcl\" -DPACKAGE_TARNAME=\"tcl\" -DPACKAGE_VERSION=\"8.5\" -DPACKAGE_STRING=\"tcl\ 8.5\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DHAVE_PTHREAD_ATTR_SETSTACKSIZE=1 -DHAVE_PTHREAD_GET_STACKSIZE_NP=1 -DTCL_THREADS=1 -DTCL_CFGVAL_ENCODING=\"iso8859-1\" -DMODULE_SCOPE=extern\ __attribute__\(\(__visibility__\(\"hidden\"\)\)\) -DMAC_OSX_TCL=1 -DHAVE_COREFOUNDATION=1 -DTCL_SHLIB_EXT=\".dylib\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1 -DTCL_TOMMATH=1 -DMP_PREC=4 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_GETCWD=1 -DHAVE_OPENDIR=1 -DHAVE_STRTOL=1 -DHAVE_WAITPID=1 -DHAVE_GETADDRINFO=1 -DHAVE_GETPWUID_R_5=1 -DHAVE_GETPWUID_R=1 -DHAVE_GETPWNAM_R_5=1 -DHAVE_GETPWNAM_R=1 -DHAVE_GETGRGID_R_5=1 -DHAVE_GETGRGID_R=1 -DHAVE_GETGRNAM_R_5=1 -DHAVE_GETGRNAM_R=1 -DHAVE_MTSAFE_GETHOSTBYNAME=1 -DHAVE_MTSAFE_GETHOSTBYADDR=1 -DUSE_TERMIOS=1 -DHAVE_SYS_TIME_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_STRUCT_TM_TM_ZONE=1 -DHAVE_TM_ZONE=1 -DHAVE_GMTIME_R=1 -DHAVE_LOCALTIME_R=1 -DHAVE_MKTIME=1 -DHAVE_TM_GMTOFF=1 -DHAVE_STRUCT_STAT_ST_BLKSIZE=1 -DHAVE_ST_BLKSIZE=1 -DHAVE_INTPTR_T=1 -DHAVE_UINTPTR_T=1 -DHAVE_SIGNED_CHAR=1 -DHAVE_PUTENV_THAT_COPIES=1 -DHAVE_LANGINFO=1 -DHAVE_CHFLAGS=1 -DHAVE_GETATTRLIST=1 -DHAVE_COPYFILE=1 -DHAVE_LIBKERN_OSATOMIC_H=1 -DHAVE_OSSPINLOCKLOCK=1 -DHAVE_PTHREAD_ATFORK=1 -DUSE_VFORK=1 -DTCL_DEFAULT_ENCODING=\"utf-8\" -DTCL_LOAD_FROM_MEMORY=1 -DTCL_WIDE_CLICKS=1 -DHAVE_AVAILABILITYMACROS_H=1 -DHAVE_WEAK_IMPORT=1 -DHAVE_FTS=1 -DHAVE_SYS_IOCTL_H=1 -DHAVE_SYS_FILIO_H=1 -DTCL_UNLOAD_DLLS=1 -DTCL_FRAMEWORK=1
-TCL_BIN_DIR = /Library/Frameworks/Tcl.framework/Versions/8.5
-TCL_SRC_DIR = /Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl
-#TK_BIN_DIR = /Library/Frameworks/Tk.framework/Versions/8.5
-#TK_SRC_DIR = /Users/andreask/dbn/lba/night/builds/macosx-ix86/tk
+#TCL_DEFS = -DPACKAGE_NAME=\"tcl\" -DPACKAGE_TARNAME=\"tcl\" -DPACKAGE_VERSION=\"8.5\" -DPACKAGE_STRING=\"tcl\ 8.5\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DTCL_CFGVAL_ENCODING=\"iso8859-1\" -DMODULE_SCOPE=extern\ __attribute__\(\(__visibility__\(\"hidden\"\)\)\) -DTCL_SHLIB_EXT=\".so\" -DTCL_CFG_DEBUG=1 -DTCL_TOMMATH=1 -DMP_PREC=4 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DHAVE_GETCWD=1 -DHAVE_OPENDIR=1 -DHAVE_STRTOL=1 -DHAVE_WAITPID=1 -DHAVE_GETADDRINFO=1 -DUSE_TERMIOS=1 -DHAVE_SYS_TIME_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_STRUCT_TM_TM_ZONE=1 -DHAVE_TM_ZONE=1 -DHAVE_GMTIME_R=1 -DHAVE_LOCALTIME_R=1 -DHAVE_MKTIME=1 -DHAVE_TM_GMTOFF=1 -DHAVE_TIMEZONE_VAR=1 -DHAVE_STRUCT_STAT_ST_BLKSIZE=1 -DHAVE_ST_BLKSIZE=1 -DHAVE_INTPTR_T=1 -DHAVE_UINTPTR_T=1 -DHAVE_SIGNED_CHAR=1 -DHAVE_LANGINFO=1 -DHAVE_SYS_IOCTL_H=1 -DTCL_UNLOAD_DLLS=1
+TCL_BIN_DIR = /usr/local/lib
+TCL_SRC_DIR = /opt/ActiveTcl/src/tcl8.5.5
+#TK_BIN_DIR = /usr/local/lib
+#TK_SRC_DIR = /opt/ActiveTcl/src/tk8.5.5
# Not used, but retained for reference of what libs Tcl required
#TCL_LIBS = ${DL_LIBS} ${LIBS} ${MATH_LIBS}
@@ -130,12 +130,12 @@
#EXTRA_PATH = $(top_builddir):$(TCL_BIN_DIR):$(TK_BIN_DIR)
TCLLIBPATH = $(top_builddir)
TCLSH_ENV = TCL_LIBRARY=`echo $(TCL_SRC_DIR)/library` \
- DYLD_LIBRARY_PATH="$(EXTRA_PATH):$(DYLD_LIBRARY_PATH)" \
+ LD_LIBRARY_PATH="$(EXTRA_PATH):$(LD_LIBRARY_PATH)" \
PATH="$(EXTRA_PATH):$(PATH)" \
TCLLIBPATH="$(TCLLIBPATH)"
# TK_LIBRARY=`echo $(TK_SRC_DIR)/library`
-TCLSH_PROG = /tclsh8.5
+TCLSH_PROG = /usr/local/bin/tclsh8.5
TCLSH = $(TCLSH_ENV) $(TCLSH_PROG)
#WISH_PROG = @WISH_PROG@
@@ -144,8 +144,8 @@
SHARED_BUILD = 1
-INCLUDES = -I"/Library/Frameworks/Tcl.framework/Versions/8.5/Headers" -I"/Library/Frameworks/Tcl.framework/Versions/8.5/PrivateHeaders" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/generic" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/unix"
-#INCLUDES = -I"/Library/Frameworks/Tcl.framework/Versions/8.5/Headers" -I"/Library/Frameworks/Tcl.framework/Versions/8.5/PrivateHeaders" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/generic" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/unix" -I"/Library/Frameworks/Tk.framework/Versions/8.5/Headers"
+INCLUDES = -I"/opt/ActiveTcl/src/tcl8.5.5/generic" -I"/opt/ActiveTcl/src/tcl8.5.5/unix"
+#INCLUDES = -I"/opt/ActiveTcl/src/tcl8.5.5/generic" -I"/opt/ActiveTcl/src/tcl8.5.5/unix" -I"/usr/local/include/"
PKG_CFLAGS =
@@ -154,8 +154,8 @@
# that your library may use. TCL_DEFS can actually be a problem if
# you do not compile with a similar machine setup as the Tcl core was
# compiled with.
-#DEFS = $(TCL_DEFS) -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.2\" -DPACKAGE_STRING=\"Poet\ 2.2\" -DPACKAGE_BUGREPORT=\"\" -DMAC_OSX_TK=1 -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
-DEFS = -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.2\" -DPACKAGE_STRING=\"Poet\ 2.2\" -DPACKAGE_BUGREPORT=\"\" -DMAC_OSX_TK=1 -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
+#DEFS = $(TCL_DEFS) -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.2\" -DPACKAGE_STRING=\"Poet\ 2.2\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
+DEFS = -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.2\" -DPACKAGE_STRING=\"Poet\ 2.2\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
# Move pkgIndex.tcl to 'BINARIES' var if it is generated in the Makefile
CONFIG_CLEAN_FILES = Makefile
@@ -164,7 +164,7 @@
CPPFLAGS =
LIBS =
AR = ar
-CFLAGS = -pipe ${CFLAGS_DEFAULT} ${CFLAGS_WARNING} ${SHLIB_CFLAGS}
+CFLAGS = -pipe ${CFLAGS_DEFAULT} ${CFLAGS_WARNING} ${SHLIB_CFLAGS}
COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
#========================================================================
Modified: trunk/unix/config.log
===================================================================
--- trunk/unix/config.log 2008-11-06 03:39:19 UTC (rev 50)
+++ trunk/unix/config.log 2008-11-06 03:50:02 UTC (rev 51)
@@ -4,46 +4,39 @@
It was created by Poet configure 2.2, which was
generated by GNU Autoconf 2.61. Invocation command line was
- $ ./configure --prefix=/usr/local --libdir=/Library/Tcl --with-tcl=/Library/Frameworks/Tcl.framework/Versions/8.4 --with-tclinclude=/Library/Frameworks/Tcl.framework/Versions/8.4/Headers --with-tk=/Library/Frameworks/Tk.framework/Versions/8.4 --with-tkinclude=/Library/Frameworks/Tk.framework/Versions/8.4/Headers --enable-threads
+ $ ./configure -with-tcl=/usr/local/lib/ -with-tclinclude=/usr/local/include/ -with-tk=/usr/local/lib/ -with-tkinclude=/usr/local/include/
## --------- ##
## Platform. ##
## --------- ##
-hostname = mac-hacks-macintosh.local
-uname -m = i386
-uname -r = 9.1.0
-uname -s = Darwin
-uname -v = Darwin Kernel Version 9.1.0: Fri Nov 16 14:50:43 SCT 2007; made by ToH:xnu-1228.0.2~1/BUILD/obj/RELEASE_I386
+hostname = quicksilver
+uname -m = i686
+uname -r = 2.6.27-7-generic
+uname -s = Linux
+uname -v = #1 SMP Tue Nov 4 19:33:20 UTC 2008
-/usr/bin/uname -p = i386
+/usr/bin/uname -p = unknown
/bin/uname -X = unknown
/bin/arch = unknown
/usr/bin/arch -k = unknown
/usr/convex/getsysinfo = unknown
-/usr/bin/hostinfo = Mach kernel version:
...
[truncated message content] |
|
From: <mer...@us...> - 2008-11-06 03:39:24
|
Revision: 50
http://poet.svn.sourceforge.net/poet/?rev=50&view=rev
Author: mercurio
Date: 2008-11-06 03:39:19 +0000 (Thu, 06 Nov 2008)
Log Message:
-----------
V2.2 Mac libs
Added Paths:
-----------
trunk/unix/libPoet2.2-84.dylib
trunk/unix/libPoet2.2-85.dylib
Added: trunk/unix/libPoet2.2-84.dylib
===================================================================
(Binary files differ)
Property changes on: trunk/unix/libPoet2.2-84.dylib
___________________________________________________________________
Added: svn:executable
+ *
Added: svn:mime-type
+ application/octet-stream
Added: trunk/unix/libPoet2.2-85.dylib
===================================================================
(Binary files differ)
Property changes on: trunk/unix/libPoet2.2-85.dylib
___________________________________________________________________
Added: svn:executable
+ *
Added: svn:mime-type
+ application/octet-stream
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-11-05 19:07:08
|
Revision: 49
http://poet.svn.sourceforge.net/poet/?rev=49&view=rev
Author: mercurio
Date: 2008-11-05 19:07:02 +0000 (Wed, 05 Nov 2008)
Log Message:
-----------
Added release info
Modified Paths:
--------------
trunk/ReadMe.txt
Modified: trunk/ReadMe.txt
===================================================================
--- trunk/ReadMe.txt 2008-11-05 05:51:46 UTC (rev 48)
+++ trunk/ReadMe.txt 2008-11-05 19:07:02 UTC (rev 49)
@@ -235,6 +235,9 @@
==========================================================================
=== Release Notes ========================================================
+20081106 Release 2.2.0. Several bug fixes, important ones in the C
+ code and installer.
+
20080116 Release 2.1.0. Updated for Tcl/Tk 8.5, including wrapping of
Ttk widgets. Added <style> type (see "Poet style" command). Changed
Poet popup menu. Numerous bug fixes, including one in the C code.
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-11-05 05:51:52
|
Revision: 48
http://poet.svn.sourceforge.net/poet/?rev=48&view=rev
Author: mercurio
Date: 2008-11-05 05:51:46 +0000 (Wed, 05 Nov 2008)
Log Message:
-----------
Mac prep for 2.2
Modified Paths:
--------------
trunk/instlib/installer.tcl
trunk/lib/tier2a-aqua/tier2a-bw_arrowbutton.tcl
trunk/lib/tier2a-aqua/tier2a-bw_button.tcl
trunk/lib/tier2a-aqua/tier2a-bw_buttonbox.tcl
trunk/lib/tier2a-aqua/tier2a-bw_combobox.tcl
trunk/lib/tier2a-aqua/tier2a-bw_dialog.tcl
trunk/lib/tier2a-aqua/tier2a-bw_entry.tcl
trunk/lib/tier2a-aqua/tier2a-bw_label.tcl
trunk/lib/tier2a-aqua/tier2a-bw_labelentry.tcl
trunk/lib/tier2a-aqua/tier2a-bw_labelframe.tcl
trunk/lib/tier2a-aqua/tier2a-bw_listbox.tcl
trunk/lib/tier2a-aqua/tier2a-bw_mainframe.tcl
trunk/lib/tier2a-aqua/tier2a-bw_notebook.tcl
trunk/lib/tier2a-aqua/tier2a-bw_panedwindow.tcl
trunk/lib/tier2a-aqua/tier2a-bw_progressbar.tcl
trunk/lib/tier2a-aqua/tier2a-bw_scrollableframe.tcl
trunk/lib/tier2a-aqua/tier2a-bw_scrolledwindow.tcl
trunk/lib/tier2a-aqua/tier2a-bw_scrollview.tcl
trunk/lib/tier2a-aqua/tier2a-bw_selectfont.tcl
trunk/lib/tier2a-aqua/tier2a-bw_separator.tcl
trunk/lib/tier2a-aqua/tier2a-bw_spinbox.tcl
trunk/lib/tier2a-aqua/tier2a-bw_table.tcl
trunk/lib/tier2a-aqua/tier2a-bw_titleframe.tcl
trunk/lib/tier2a-aqua/tier2a-bw_tree.tcl
trunk/lib/tier2a-aqua/tier2a-tk_button.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas_arc.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas_bitmap.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas_image.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas_line.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas_oval.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas_polygon.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas_rectangle.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas_text.tcl
trunk/lib/tier2a-aqua/tier2a-tk_canvas_window.tcl
trunk/lib/tier2a-aqua/tier2a-tk_checkbutton.tcl
trunk/lib/tier2a-aqua/tier2a-tk_entry.tcl
trunk/lib/tier2a-aqua/tier2a-tk_frame.tcl
trunk/lib/tier2a-aqua/tier2a-tk_label.tcl
trunk/lib/tier2a-aqua/tier2a-tk_labelframe.tcl
trunk/lib/tier2a-aqua/tier2a-tk_listbox.tcl
trunk/lib/tier2a-aqua/tier2a-tk_menu.tcl
trunk/lib/tier2a-aqua/tier2a-tk_menu_cascade.tcl
trunk/lib/tier2a-aqua/tier2a-tk_menu_checkbutton.tcl
trunk/lib/tier2a-aqua/tier2a-tk_menu_command.tcl
trunk/lib/tier2a-aqua/tier2a-tk_menu_radiobutton.tcl
trunk/lib/tier2a-aqua/tier2a-tk_menu_separator.tcl
trunk/lib/tier2a-aqua/tier2a-tk_menubutton.tcl
trunk/lib/tier2a-aqua/tier2a-tk_message.tcl
trunk/lib/tier2a-aqua/tier2a-tk_panedwindow.tcl
trunk/lib/tier2a-aqua/tier2a-tk_radiobutton.tcl
trunk/lib/tier2a-aqua/tier2a-tk_scale.tcl
trunk/lib/tier2a-aqua/tier2a-tk_scrollbar.tcl
trunk/lib/tier2a-aqua/tier2a-tk_spinbox.tcl
trunk/lib/tier2a-aqua/tier2a-tk_table.tcl
trunk/lib/tier2a-aqua/tier2a-tk_text.tcl
trunk/lib/tier2a-aqua/tier2a-tk_toplevel.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_button.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_checkbutton.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_combobox.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_entry.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_frame.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_label.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_labelframe.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_menubutton.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_notebook.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_panedwindow.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_progressbar.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_radiobutton.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_scale.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_scrollbar.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_separator.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_sizegrip.tcl
trunk/lib/tier2a-aqua/tier2a-ttk_treeview.tcl
trunk/unix/BuildBothMac
trunk/unix/Makefile
trunk/unix/ReadMe.txt
trunk/unix/autom4te.cache/output.0
trunk/unix/autom4te.cache/requests
trunk/unix/autom4te.cache/traces.0
trunk/unix/config.log
trunk/unix/config.status
trunk/unix/configure
trunk/unix/configure.in
Modified: trunk/instlib/installer.tcl
===================================================================
--- trunk/instlib/installer.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/instlib/installer.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -385,7 +385,7 @@
if {!$gotone} {
status "Can't find Poet binary for $p ($pat)."
- if {$p eq $::tcl_platform(platform)} {
+ if {$p eq [getPlatform]} {
status "*** Warning: Poet must be compiled for this platform. Installation failed. ***"
return 0
}
@@ -395,7 +395,22 @@
return 1
}
+# Substitute for tcl_platform(platform), since that's
+# unix for both Linux and Mac
+#
+proc getPlatform {} {
+ set p $::tcl_platform(platform)
+ if {$p eq "windows"} {return $p}
+ if {$::tcl_platform(os) eq "Darwin"} {
+ return "mac"
+ } else {
+ return $p
+ }
+}
+
+
+
# Initialize the directory widgets by guessing based on the tcl library
#
proc GuessDirs {} {
Modified: trunk/lib/tier2a-aqua/tier2a-bw_arrowbutton.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_arrowbutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_arrowbutton.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_arrowbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_button.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_button.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_button.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_buttonbox.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_buttonbox.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_buttonbox.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_buttonbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_combobox.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_combobox.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_combobox.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_combobox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_dialog.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_dialog.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_dialog.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_dialog.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_entry.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_entry.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_entry.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_label.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_label.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_label.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_labelentry.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_labelentry.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_labelentry.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_labelentry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_labelframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_labelframe.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_listbox.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_listbox.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_listbox.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_listbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_mainframe.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_mainframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_mainframe.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_mainframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_notebook.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_notebook.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_notebook.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_notebook.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_panedwindow.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_panedwindow.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_progressbar.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_progressbar.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_progressbar.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_progressbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_scrollableframe.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_scrollableframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_scrollableframe.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_scrollableframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_scrolledwindow.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_scrolledwindow.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_scrolledwindow.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_scrolledwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_scrollview.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_scrollview.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_scrollview.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_scrollview.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_selectfont.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_selectfont.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_selectfont.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_selectfont.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_separator.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_separator.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_separator.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_spinbox.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_spinbox.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_spinbox.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_spinbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_table.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_table.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_table.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_table.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_titleframe.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_titleframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_titleframe.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_titleframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-bw_tree.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-bw_tree.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-bw_tree.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-bw_tree.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_button.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_button.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_button.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas_arc.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas_arc.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas_arc.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_arc.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Arc type activewidth <real>
+Tk_Canvas_Arc type activewidth {<real> 0 10 .1}
Tk_Canvas_Arc slot> dash {} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Arc type disabledwidth <real>
+Tk_Canvas_Arc type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Arc slot> extent {90} {
set p [$self slot _primary]
@@ -264,7 +264,7 @@
}
}
-Tk_Canvas_Arc type start <real>
+Tk_Canvas_Arc type start {<real> -360 360 1}
Tk_Canvas_Arc slot> state {} {
set p [$self slot _primary]
@@ -319,7 +319,7 @@
}
}
-Tk_Canvas_Arc type width <real>
+Tk_Canvas_Arc type width {<real> 0.1 10 0.1}
Tk_Canvas_Arc slot primaryClass arc
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas_bitmap.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas_bitmap.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas_bitmap.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_bitmap.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas_image.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas_image.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas_image.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_image.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas_line.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas_line.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas_line.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_line.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
@@ -77,7 +77,7 @@
}
}
-Tk_Canvas_Line type activewidth <real>
+Tk_Canvas_Line type activewidth {<real> 0 10 .1}
Tk_Canvas_Line slot> arrow {none} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Line type disabledwidth <real>
+Tk_Canvas_Line type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Line slot> joinstyle {round} {
set p [$self slot _primary]
@@ -275,7 +275,7 @@
}
}
-Tk_Canvas_Line type width <real>
+Tk_Canvas_Line type width {<real> 0.1 10 0.1}
Tk_Canvas_Line slot primaryClass line
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas_oval.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas_oval.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas_oval.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_oval.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Oval type activewidth <real>
+Tk_Canvas_Oval type activewidth {<real> 0 10 .1}
Tk_Canvas_Oval slot> dash {} {
set p [$self slot _primary]
@@ -286,7 +286,7 @@
}
}
-Tk_Canvas_Oval type width <real>
+Tk_Canvas_Oval type width {<real> 0.1 10 0.1}
Tk_Canvas_Oval slot primaryClass oval
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas_polygon.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas_polygon.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas_polygon.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_polygon.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Polygon type activewidth <real>
+Tk_Canvas_Polygon type activewidth {<real> 0 10 .1}
Tk_Canvas_Polygon slot> dash {} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Polygon type disabledwidth <real>
+Tk_Canvas_Polygon type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Polygon slot> fill {black} {
set p [$self slot _primary]
@@ -319,7 +319,7 @@
}
}
-Tk_Canvas_Polygon type width <real>
+Tk_Canvas_Polygon type width {<real> 0.1 10 0.1}
Tk_Canvas_Polygon slot primaryClass polygon
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas_rectangle.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas_rectangle.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas_rectangle.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_rectangle.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Rectangle type activewidth <real>
+Tk_Canvas_Rectangle type activewidth {<real> 0 10 .1}
Tk_Canvas_Rectangle slot> dash {} {
set p [$self slot _primary]
@@ -286,7 +286,7 @@
}
}
-Tk_Canvas_Rectangle type width <real>
+Tk_Canvas_Rectangle type width {<real> 0.1 10 0.1}
Tk_Canvas_Rectangle slot primaryClass rectangle
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas_text.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas_text.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas_text.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_canvas_window.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_canvas_window.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_canvas_window.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_window.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_checkbutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_checkbutton.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_entry.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_entry.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_entry.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_frame.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_frame.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_frame.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_label.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_label.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_label.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_labelframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_labelframe.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_listbox.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_listbox.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_listbox.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_listbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_menu.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_menu.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_menu.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_menu.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_menu_cascade.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_menu_cascade.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_menu_cascade.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_cascade.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_menu_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_menu_checkbutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_menu_checkbutton.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_menu_command.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_menu_command.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_menu_command.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_command.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_menu_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_menu_radiobutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_menu_radiobutton.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_menu_separator.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_menu_separator.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_menu_separator.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_menubutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_menubutton.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_message.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_message.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_message.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_message.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_panedwindow.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_panedwindow.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_radiobutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_radiobutton.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_scale.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_scale.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_scale.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_scrollbar.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_scrollbar.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_spinbox.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_spinbox.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_spinbox.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_spinbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_table.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_table.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_table.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_table.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_text.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_text.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_text.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-tk_toplevel.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-tk_toplevel.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-tk_toplevel.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-tk_toplevel.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_button.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_button.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_button.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_checkbutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_checkbutton.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_combobox.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_combobox.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_combobox.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_combobox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_entry.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_entry.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_entry.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_frame.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_frame.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_frame.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_label.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_label.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_label.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_labelframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_labelframe.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_menubutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_menubutton.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_notebook.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_notebook.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_notebook.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_notebook.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_panedwindow.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_panedwindow.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_progressbar.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_progressbar.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_progressbar.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_progressbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_radiobutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_radiobutton.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_scale.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_scale.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_scale.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_scrollbar.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_scrollbar.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_separator.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_separator.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_separator.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_sizegrip.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_sizegrip.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_sizegrip.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_sizegrip.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-aqua/tier2a-ttk_treeview.tcl
===================================================================
--- trunk/lib/tier2a-aqua/tier2a-ttk_treeview.tcl 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/lib/tier2a-aqua/tier2a-ttk_treeview.tcl 2008-11-05 05:51:46 UTC (rev 48)
@@ -2,7 +2,7 @@
### tier2a-ttk_treeview.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-13 at 01:27PM
+### on 2008-11-04 at 09:28PM
### for the aqua platform.
###
### Do not edit!
Modified: trunk/unix/BuildBothMac
===================================================================
--- trunk/unix/BuildBothMac 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/unix/BuildBothMac 2008-11-05 05:51:46 UTC (rev 48)
@@ -1,27 +1,12 @@
#!/bin/tcsh
#
# Build both the 8.4 and 8.5 Mac dynamic libraries.
+# Excpet not, since 8.4 doesn't work (see below).
#
rm -rf ./generic
cp -R ../generic ./generic
-## Note: build against ActiveState Tcl 8.4 fails because TclObjLookupVar
-## is missing. The 8.4 dylib in this directory does not work. PJM 2008-01-16
-##
-
-#./configure --prefix=/usr/local --libdir=/Library/Tcl \
-# --with-tcl=/Library/Frameworks/Tcl.framework/Versions/8.4 \
-# --with-tclinclude=/Library/Frameworks/Tcl.framework/Versions/8.4/Headers \
-# --with-tk=/Library/Frameworks/Tk.framework/Versions/8.4 \
-# --with-tkinclude=/Library/Frameworks/Tk.framework/Versions/8.4/Headers \
-# --enable-threads
-
-#make
-
-#set x = libPoet?.?.dylib
-#mv $x $x:r-84.dylib
-
./configure --prefix=/usr/local --libdir=/Library/Tcl \
--with-tcl=/Library/Frameworks/Tcl.framework/Versions/8.5 \
--with-tclinclude=/Library/Frameworks/Tcl.framework/Versions/8.5/Headers \
@@ -35,3 +20,20 @@
mv $x $x:r-85.dylib
rm -rf ./generic
+
+## Note: build against ActiveState Tcl 8.4 fails because TclObjLookupVar
+## is missing. The 8.4 dylib in this directory does not work. PJM 2008-01-16
+##
+
+./configure --prefix=/usr/local --libdir=/Library/Tcl \
+ --with-tcl=/Library/Frameworks/Tcl.framework/Versions/8.4 \
+ --with-tclinclude=/Library/Frameworks/Tcl.framework/Versions/8.4/Headers \
+ --with-tk=/Library/Frameworks/Tk.framework/Versions/8.4 \
+ --with-tkinclude=/Library/Frameworks/Tk.framework/Versions/8.4/Headers \
+ --enable-threads
+
+make
+
+set x = libPoet?.?.dylib
+mv $x $x:r-84.dylib
+
Modified: trunk/unix/Makefile
===================================================================
--- trunk/unix/Makefile 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/unix/Makefile 2008-11-05 05:51:46 UTC (rev 48)
@@ -59,20 +59,20 @@
# configuration options) composed of the named objects.
#========================================================================
-PKG_LIB_FILE = libPoet2.1.so
-PKG_STUB_LIB_FILE = libPoetstub2.1.a
+PKG_LIB_FILE = libPoet2.2.dylib
+PKG_STUB_LIB_FILE = libPoetstub2.2.a
lib_BINARIES = $(PKG_LIB_FILE)
BINARIES = $(lib_BINARIES)
-SHELL = /bin/bash
+SHELL = /bin/sh
srcdir = .
prefix = /usr/local
-exec_prefix = /usr/local
+exec_prefix = /Library/Tcl
bindir = ${exec_prefix}/bin
-libdir = ${exec_prefix}/lib
+libdir = /Library/Tcl
includedir = ${prefix}/include
datarootdir = ${prefix}/share
datadir = ${datarootdir}
@@ -87,18 +87,18 @@
top_builddir = .
-INSTALL = /usr/X11R6/bin/install -c
+INSTALL = /usr/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL}
PACKAGE_NAME = Poet
-PACKAGE_VERSION = 2.1
+PACKAGE_VERSION = 2.2
CC = gcc
-CFLAGS_DEFAULT = -O2 -fomit-frame-pointer
+CFLAGS_DEFAULT = -Os
CFLAGS_WARNING = -Wall -Wno-implicit-int
EXEEXT =
-LDFLAGS_DEFAULT = -Wl,--export-dynamic
+LDFLAGS_DEFAULT = -prebind -headerpad_max_install_names -Wl,-search_paths_first
MAKE_LIB = ${SHLIB_LD} -o $@ $(PKG_OBJECTS) ${SHLIB_LD_LIBS}
MAKE_SHARED_LIB = ${SHLIB_LD} -o $@ $(PKG_OBJECTS) ${SHLIB_LD_LIBS}
MAKE_STATIC_LIB = ${STLIB_LD} $@ $(PKG_OBJECTS)
@@ -106,15 +106,15 @@
OBJEXT = o
RANLIB = :
RANLIB_STUB = ranlib
-SHLIB_CFLAGS = -fPIC
-SHLIB_LD = ${CC} -shared ${CFLAGS} ${LDFLAGS_DEFAULT}
-SHLIB_LD_LIBS = ${LIBS} -L/usr/local/lib -ltclstub8.5 -L/usr/local/lib -ltkstub8.5
+SHLIB_CFLAGS = -fno-common
+SHLIB_LD = ${CC} -dynamiclib ${CFLAGS} ${LDFLAGS_DEFAULT} -Wl,-single_module
+SHLIB_LD_LIBS = ${LIBS} -L/Library/Frameworks/Tcl.framework/Versions/8.5 -ltclstub8.5 -L/Library/Frameworks/Tk.framework/Versions/8.5 -ltkstub8.5
STLIB_LD = ${AR} cr
-#TCL_DEFS = -DPACKAGE_NAME=\"tcl\" -DPACKAGE_TARNAME=\"tcl\" -DPACKAGE_VERSION=\"8.5\" -DPACKAGE_STRING=\"tcl\ 8.5\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DTCL_CFGVAL_ENCODING=\"iso8859-1\" -DMODULE_SCOPE=extern\ __attribute__\(\(__visibility__\(\"hidden\"\)\)\) -DTCL_SHLIB_EXT=\".so\" -DTCL_CFG_DEBUG=1 -DTCL_TOMMATH=1 -DMP_PREC=4 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DHAVE_GETCWD=1 -DHAVE_OPENDIR=1 -DHAVE_STRTOL=1 -DHAVE_WAITPID=1 -DHAVE_GETADDRINFO=1 -DUSE_TERMIOS=1 -DHAVE_SYS_TIME_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_STRUCT_TM_TM_ZONE=1 -DHAVE_TM_ZONE=1 -DHAVE_GMTIME_R=1 -DHAVE_LOCALTIME_R=1 -DHAVE_MKTIME=1 -DHAVE_TM_GMTOFF=1 -DHAVE_TIMEZONE_VAR=1 -DHAVE_STRUCT_STAT_ST_BLKSIZE=1 -DHAVE_ST_BLKSIZE=1 -DHAVE_INTPTR_T=1 -DHAVE_UINTPTR_T=1 -DHAVE_SIGNED_CHAR=1 -DHAVE_LANGINFO=1 -DHAVE_SYS_IOCTL_H=1 -DTCL_UNLOAD_DLLS=1
-TCL_BIN_DIR = /usr/local/lib
-TCL_SRC_DIR = /opt/ActiveTcl/src/tcl8.5.5
-#TK_BIN_DIR = /usr/local/lib
-#TK_SRC_DIR = /opt/ActiveTcl/src/tk8.5.5
+#TCL_DEFS = -DPACKAGE_NAME=\"tcl\" -DPACKAGE_TARNAME=\"tcl\" -DPACKAGE_VERSION=\"8.5\" -DPACKAGE_STRING=\"tcl\ 8.5\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DHAVE_PTHREAD_ATTR_SETSTACKSIZE=1 -DHAVE_PTHREAD_GET_STACKSIZE_NP=1 -DTCL_THREADS=1 -DTCL_CFGVAL_ENCODING=\"iso8859-1\" -DMODULE_SCOPE=extern\ __attribute__\(\(__visibility__\(\"hidden\"\)\)\) -DMAC_OSX_TCL=1 -DHAVE_COREFOUNDATION=1 -DTCL_SHLIB_EXT=\".dylib\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1 -DTCL_TOMMATH=1 -DMP_PREC=4 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_GETCWD=1 -DHAVE_OPENDIR=1 -DHAVE_STRTOL=1 -DHAVE_WAITPID=1 -DHAVE_GETADDRINFO=1 -DHAVE_GETPWUID_R_5=1 -DHAVE_GETPWUID_R=1 -DHAVE_GETPWNAM_R_5=1 -DHAVE_GETPWNAM_R=1 -DHAVE_GETGRGID_R_5=1 -DHAVE_GETGRGID_R=1 -DHAVE_GETGRNAM_R_5=1 -DHAVE_GETGRNAM_R=1 -DHAVE_MTSAFE_GETHOSTBYNAME=1 -DHAVE_MTSAFE_GETHOSTBYADDR=1 -DUSE_TERMIOS=1 -DHAVE_SYS_TIME_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_STRUCT_TM_TM_ZONE=1 -DHAVE_TM_ZONE=1 -DHAVE_GMTIME_R=1 -DHAVE_LOCALTIME_R=1 -DHAVE_MKTIME=1 -DHAVE_TM_GMTOFF=1 -DHAVE_STRUCT_STAT_ST_BLKSIZE=1 -DHAVE_ST_BLKSIZE=1 -DHAVE_INTPTR_T=1 -DHAVE_UINTPTR_T=1 -DHAVE_SIGNED_CHAR=1 -DHAVE_PUTENV_THAT_COPIES=1 -DHAVE_LANGINFO=1 -DHAVE_CHFLAGS=1 -DHAVE_GETATTRLIST=1 -DHAVE_COPYFILE=1 -DHAVE_LIBKERN_OSATOMIC_H=1 -DHAVE_OSSPINLOCKLOCK=1 -DHAVE_PTHREAD_ATFORK=1 -DUSE_VFORK=1 -DTCL_DEFAULT_ENCODING=\"utf-8\" -DTCL_LOAD_FROM_MEMORY=1 -DTCL_WIDE_CLICKS=1 -DHAVE_AVAILABILITYMACROS_H=1 -DHAVE_WEAK_IMPORT=1 -DHAVE_FTS=1 -DHAVE_SYS_IOCTL_H=1 -DHAVE_SYS_FILIO_H=1 -DTCL_UNLOAD_DLLS=1 -DTCL_FRAMEWORK=1
+TCL_BIN_DIR = /Library/Frameworks/Tcl.framework/Versions/8.5
+TCL_SRC_DIR = /Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl
+#TK_BIN_DIR = /Library/Frameworks/Tk.framework/Versions/8.5
+#TK_SRC_DIR = /Users/andreask/dbn/lba/night/builds/macosx-ix86/tk
# Not used, but retained for reference of what libs Tcl required
#TCL_LIBS = ${DL_LIBS} ${LIBS} ${MATH_LIBS}
@@ -130,12 +130,12 @@
#EXTRA_PATH = $(top_builddir):$(TCL_BIN_DIR):$(TK_BIN_DIR)
TCLLIBPATH = $(top_builddir)
TCLSH_ENV = TCL_LIBRARY=`echo $(TCL_SRC_DIR)/library` \
- LD_LIBRARY_PATH="$(EXTRA_PATH):$(LD_LIBRARY_PATH)" \
+ DYLD_LIBRARY_PATH="$(EXTRA_PATH):$(DYLD_LIBRARY_PATH)" \
PATH="$(EXTRA_PATH):$(PATH)" \
TCLLIBPATH="$(TCLLIBPATH)"
# TK_LIBRARY=`echo $(TK_SRC_DIR)/library`
-TCLSH_PROG = /usr/local/bin/tclsh8.5
+TCLSH_PROG = /tclsh8.5
TCLSH = $(TCLSH_ENV) $(TCLSH_PROG)
#WISH_PROG = @WISH_PROG@
@@ -144,8 +144,8 @@
SHARED_BUILD = 1
-INCLUDES = -I"/opt/ActiveTcl/src/tcl8.5.5/generic" -I"/opt/ActiveTcl/src/tcl8.5.5/unix"
-#INCLUDES = -I"/opt/ActiveTcl/src/tcl8.5.5/generic" -I"/opt/ActiveTcl/src/tcl8.5.5/unix" -I"/usr/local/include/"
+INCLUDES = -I"/Library/Frameworks/Tcl.framework/Versions/8.5/Headers" -I"/Library/Frameworks/Tcl.framework/Versions/8.5/PrivateHeaders" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/generic" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/unix"
+#INCLUDES = -I"/Library/Frameworks/Tcl.framework/Versions/8.5/Headers" -I"/Library/Frameworks/Tcl.framework/Versions/8.5/PrivateHeaders" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/generic" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/unix" -I"/Library/Frameworks/Tk.framework/Versions/8.5/Headers"
PKG_CFLAGS =
@@ -154,8 +154,8 @@
# that your library may use. TCL_DEFS can actually be a problem if
# you do not compile with a similar machine setup as the Tcl core was
# compiled with.
-#DEFS = $(TCL_DEFS) -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.1\" -DPACKAGE_STRING=\"Poet\ 2.1\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
-DEFS = -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.1\" -DPACKAGE_STRING=\"Poet\ 2.1\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
+#DEFS = $(TCL_DEFS) -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.2\" -DPACKAGE_STRING=\"Poet\ 2.2\" -DPACKAGE_BUGREPORT=\"\" -DMAC_OSX_TK=1 -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
+DEFS = -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.2\" -DPACKAGE_STRING=\"Poet\ 2.2\" -DPACKAGE_BUGREPORT=\"\" -DMAC_OSX_TK=1 -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
# Move pkgIndex.tcl to 'BINARIES' var if it is generated in the Makefile
CONFIG_CLEAN_FILES = Makefile
@@ -164,7 +164,7 @@
CPPFLAGS =
LIBS =
AR = ar
-CFLAGS = -pipe ${CFLAGS_DEFAULT} ${CFLAGS_WARNING} ${SHLIB_CFLAGS}
+CFLAGS = -pipe ${CFLAGS_DEFAULT} ${CFLAGS_WARNING} ${SHLIB_CFLAGS}
COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
#========================================================================
Modified: trunk/unix/ReadMe.txt
===================================================================
--- trunk/unix/ReadMe.txt 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/unix/ReadMe.txt 2008-11-05 05:51:46 UTC (rev 48)
@@ -7,7 +7,7 @@
We just compile the C code here, all the rest of the installation
is done by ../install.tcl. See ../ReadMe.txt.
-The binaries here were compiled under Ubuntu (Feisty Fawn). If you
+The binaries here were compiled under Ubuntu (8.10). If you
don't need to recompile, skip these instructions and go directly
to .. and run install.tcl in your favorite wish. Note that Poet
requires 8.4 or 8.5.
Modified: trunk/unix/autom4te.cache/output.0
===================================================================
--- trunk/unix/autom4te.cache/output.0 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/unix/autom4te.cache/output.0 2008-11-05 05:51:46 UTC (rev 48)
@@ -1,6 +1,6 @@
@%:@! /bin/sh
@%:@ Guess values for system-dependent variables and create Makefiles.
-@%:@ Generated by GNU Autoconf 2.61 for Poet 2.1.
+@%:@ Generated by GNU Autoconf 2.61 for Poet 2.2.
@%:@
@%:@ Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@%:@ 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
@@ -572,8 +572,8 @@
# Identity of this package.
PACKAGE_NAME='Poet'
PACKAGE_TARNAME='poet'
-PACKAGE_VERSION='2.1'
-PACKAGE_STRING='Poet 2.1'
+PACKAGE_VERSION='2.2'
+PACKAGE_STRING='Poet 2.2'
PACKAGE_BUGREPORT=''
# Factoring default headers for most tests.
@@ -1248,7 +1248,7 @@
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
-\`configure' configures Poet 2.1 to adapt to many kinds of systems.
+\`configure' configures Poet 2.2 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
@@ -1309,7 +1309,7 @@
if test -n "$ac_init_help"; then
case $ac_init_help in
- short | recursive ) echo "Configuration of Poet 2.1:";;
+ short | recursive ) echo "Configuration of Poet 2.2:";;
esac
cat <<\_ACEOF
@@ -1408,7 +1408,7 @@
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
-Poet configure 2.1
+Poet configure 2.2
generated by GNU Autoconf 2.61
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -1422,7 +1422,7 @@
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
-It was created by Poet $as_me 2.1, which was
+It was created by Poet $as_me 2.2, which was
generated by GNU Autoconf 2.61. Invocation command line was
$ $0 $@
@@ -11059,7 +11059,7 @@
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
-This file was extended by Poet $as_me 2.1, which was
+This file was extended by Poet $as_me 2.2, which was
generated by GNU Autoconf 2.61. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@@ -11102,7 +11102,7 @@
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF
ac_cs_version="\\
-Poet config.status 2.1
+Poet config.status 2.2
configured by $0, generated by GNU Autoconf 2.61,
with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"
Modified: trunk/unix/autom4te.cache/requests
===================================================================
--- trunk/unix/autom4te.cache/requests 2008-11-05 04:41:03 UTC (rev 47)
+++ trunk/unix/autom4te.cache/requests 2008-11-05 05:51:46 UTC (rev 48)
@@ -1,4 +1,4 @@
-# This file was generated by Autom4te Sat Apr 28 03:44:04 GMT 2007.
+# This file was generate...
[truncated message content] |
|
From: <mer...@us...> - 2008-11-05 04:41:08
|
Revision: 47
http://poet.svn.sourceforge.net/poet/?rev=47&view=rev
Author: mercurio
Date: 2008-11-05 04:41:03 +0000 (Wed, 05 Nov 2008)
Log Message:
-----------
Preparations for version 2.2
Modified Paths:
--------------
trunk/html/doc/tier1-Object-index.html
trunk/html/doc/tier1-Object.html
trunk/html/doc/tier1-Poet-index.html
trunk/html/doc/tier1-Poet.html
trunk/html/doc/tier2-Fileselector.html
trunk/html/doc/tier2b-Tk_SpinBox.html
trunk/html/doc/tier3-Type-index.html
trunk/html/doc/tier3-Type.html
trunk/html/doc/tier3-Type_boolean-index.html
trunk/html/doc/tier3-Type_boolean.html
trunk/html/doc/tier3-Type_choice-index.html
trunk/html/doc/tier3-Type_choice.html
trunk/html/doc/tier3-Type_integer-index.html
trunk/html/doc/tier3-Type_integer.html
trunk/html/doc/tier3-Type_pixels-index.html
trunk/html/doc/tier3-Type_pixels.html
trunk/html/doc/tier3-Type_real-index.html
trunk/html/doc/tier3-Type_real.html
trunk/install.tcl
trunk/instmisc/pkgIndex.tcl
trunk/lib/poetIndex
trunk/lib/tclIndex
trunk/lib/tier2a-win32/tier2a-bw_arrowbutton.tcl
trunk/lib/tier2a-win32/tier2a-bw_button.tcl
trunk/lib/tier2a-win32/tier2a-bw_buttonbox.tcl
trunk/lib/tier2a-win32/tier2a-bw_combobox.tcl
trunk/lib/tier2a-win32/tier2a-bw_dialog.tcl
trunk/lib/tier2a-win32/tier2a-bw_entry.tcl
trunk/lib/tier2a-win32/tier2a-bw_label.tcl
trunk/lib/tier2a-win32/tier2a-bw_labelentry.tcl
trunk/lib/tier2a-win32/tier2a-bw_labelframe.tcl
trunk/lib/tier2a-win32/tier2a-bw_listbox.tcl
trunk/lib/tier2a-win32/tier2a-bw_mainframe.tcl
trunk/lib/tier2a-win32/tier2a-bw_notebook.tcl
trunk/lib/tier2a-win32/tier2a-bw_panedwindow.tcl
trunk/lib/tier2a-win32/tier2a-bw_progressbar.tcl
trunk/lib/tier2a-win32/tier2a-bw_scrollableframe.tcl
trunk/lib/tier2a-win32/tier2a-bw_scrolledwindow.tcl
trunk/lib/tier2a-win32/tier2a-bw_scrollview.tcl
trunk/lib/tier2a-win32/tier2a-bw_selectfont.tcl
trunk/lib/tier2a-win32/tier2a-bw_separator.tcl
trunk/lib/tier2a-win32/tier2a-bw_spinbox.tcl
trunk/lib/tier2a-win32/tier2a-bw_table.tcl
trunk/lib/tier2a-win32/tier2a-bw_titleframe.tcl
trunk/lib/tier2a-win32/tier2a-bw_tree.tcl
trunk/lib/tier2a-win32/tier2a-tk_button.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_window.tcl
trunk/lib/tier2a-win32/tier2a-tk_checkbutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_entry.tcl
trunk/lib/tier2a-win32/tier2a-tk_frame.tcl
trunk/lib/tier2a-win32/tier2a-tk_label.tcl
trunk/lib/tier2a-win32/tier2a-tk_labelframe.tcl
trunk/lib/tier2a-win32/tier2a-tk_listbox.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_cascade.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_checkbutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_command.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_radiobutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_separator.tcl
trunk/lib/tier2a-win32/tier2a-tk_menubutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_message.tcl
trunk/lib/tier2a-win32/tier2a-tk_panedwindow.tcl
trunk/lib/tier2a-win32/tier2a-tk_radiobutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_scale.tcl
trunk/lib/tier2a-win32/tier2a-tk_scrollbar.tcl
trunk/lib/tier2a-win32/tier2a-tk_spinbox.tcl
trunk/lib/tier2a-win32/tier2a-tk_table.tcl
trunk/lib/tier2a-win32/tier2a-tk_text.tcl
trunk/lib/tier2a-win32/tier2a-tk_toplevel.tcl
trunk/lib/tier2a-win32/tier2a-tk_zinc.tcl
trunk/lib/tier2a-win32/tier2a-ttk_button.tcl
trunk/lib/tier2a-win32/tier2a-ttk_checkbutton.tcl
trunk/lib/tier2a-win32/tier2a-ttk_combobox.tcl
trunk/lib/tier2a-win32/tier2a-ttk_entry.tcl
trunk/lib/tier2a-win32/tier2a-ttk_frame.tcl
trunk/lib/tier2a-win32/tier2a-ttk_label.tcl
trunk/lib/tier2a-win32/tier2a-ttk_labelframe.tcl
trunk/lib/tier2a-win32/tier2a-ttk_menubutton.tcl
trunk/lib/tier2a-win32/tier2a-ttk_notebook.tcl
trunk/lib/tier2a-win32/tier2a-ttk_panedwindow.tcl
trunk/lib/tier2a-win32/tier2a-ttk_progressbar.tcl
trunk/lib/tier2a-win32/tier2a-ttk_radiobutton.tcl
trunk/lib/tier2a-win32/tier2a-ttk_scale.tcl
trunk/lib/tier2a-win32/tier2a-ttk_scrollbar.tcl
trunk/lib/tier2a-win32/tier2a-ttk_separator.tcl
trunk/lib/tier2a-win32/tier2a-ttk_sizegrip.tcl
trunk/lib/tier2a-win32/tier2a-ttk_treeview.tcl
Modified: trunk/html/doc/tier1-Object-index.html
===================================================================
--- trunk/html/doc/tier1-Object-index.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier1-Object-index.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -60,6 +60,9 @@
<font size="2"> <a href="tier1-Object.html#arrayHas" target="Manual">arrayHas</a></font>
<br>
+<font size="2"> <a href="tier1-Object.html#arrayKeys" target="Manual">arrayKeys</a></font>
+<br>
+
<font size="2"> <a href="tier1-Object.html#arraySet" target="Manual">arraySet</a></font>
<br>
@@ -138,6 +141,9 @@
<font size="2"> <a href="tier1-Object.html#formulas" target="Manual">formulas</a></font>
<br>
+<font size="2"> <a href="tier1-Object.html#getPrefix" target="Manual">getPrefix</a></font>
+<br>
+
<font size="2"> <a href="tier1-Object.html#hasMethod" target="Manual">hasMethod</a></font>
<br>
@@ -171,6 +177,9 @@
<font size="2"> <a href="tier1-Object.html#logThru" target="Manual">logThru</a></font>
<br>
+<font size="2"> <a href="tier1-Object.html#logWhereMethods" target="Manual">logWhereMethods</a></font>
+<br>
+
<font size="2"> <a href="tier1-Object.html#matches" target="Manual">matches</a></font>
<br>
@@ -408,6 +417,9 @@
<font size="2"> <a href="tier1-Object.html#unlogThru" target="Manual">unlogThru</a></font>
<br>
+<font size="2"> <a href="tier1-Object.html#unlogWhereMethods" target="Manual">unlogWhereMethods</a></font>
+<br>
+
<font size="2"> <a href="tier1-Object.html#unmethod" target="Manual">unmethod</a></font>
<br>
Modified: trunk/html/doc/tier1-Object.html
===================================================================
--- trunk/html/doc/tier1-Object.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier1-Object.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -192,7 +192,11 @@
is confusing. Don't use this if possible, it's not
compatible with the non-dict version below.
<p>
+ Note: this uses the dictionaryVariable, dict commands
+ use either the var or the value. Another reason not
+ to use this.
<p>
+<p>
</blockquote>
<br>
@@ -231,6 +235,17 @@
</blockquote>
<br>
+<h3><a name="arrayKeys"></a><tt>Object <big><b>arrayKeys</b></big>
+<i><tt>{ra {pat *}}</tt></i></tt></h3>
+
+
+<blockquote>
+ Return a list of the keys in this array (dict only)
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="arraySet"></a><tt>Object <big><b>arraySet</b></big>
<i><tt>{ra e val}</tt></i></tt></h3>
@@ -340,7 +355,10 @@
<blockquote>
- Return a list of only the immediate children of self
+ Return a list of only the immediate children of self.
+ If the pattern is provided, only those whose names
+ match the pattern are returned. If mode is provided,
+ it's the type of pattern (see <code>array names</code>).
<p>
<p>
</blockquote>
@@ -442,11 +460,13 @@
<br>
<h3><a name="descendants"></a><tt>Object <big><b>descendants</b></big>
-<i><tt>{args}</tt></i></tt></h3>
+<i><tt>{}</tt></i></tt></h3>
<blockquote>
- Return a list of all of the descendants of self
+ Return a list of all of the descendants of self.
+ Note that you may get duplicates, since each object
+ will show up as a child of each of its parents.
<p>
<p>
</blockquote>
@@ -579,6 +599,21 @@
</blockquote>
<br>
+<h3><a name="getPrefix"></a><tt>Object <big><b>getPrefix</b></big>
+<i><tt>{{prefix ""}}</tt></i></tt></h3>
+
+
+<blockquote>
+ Return the prefix for this object's name, if
+ it contains a * or @, else "".
+<p>
+ A default value can be provided to be used in
+ case no prefix is found.
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="hasMethod"></a><tt>Object <big><b>hasMethod</b></big>
<i><tt>{methodname}</tt></i></tt></h3>
@@ -658,7 +693,9 @@
<blockquote>
-
+ List the traces on the slots of an object
+<p>
+<p>
</blockquote>
<br>
@@ -667,7 +704,9 @@
<blockquote>
-
+ List the traces on a dimension
+<p>
+<p>
</blockquote>
<br>
@@ -690,7 +729,7 @@
<blockquote>
Non-interactively log when a method is invoked, using the trace Tcl command.
Handles multiple arguments (each method is logged). Output is to the
- console.
+ console. If <code>*</code> is given as the args, all methods are logged.
<p>
<p>
</blockquote>
@@ -708,6 +747,22 @@
</blockquote>
<br>
+<h3><a name="logWhereMethods"></a><tt>Object <big><b>logWhereMethods</b></big>
+<i><tt>{args}</tt></i></tt></h3>
+
+
+<blockquote>
+ Non-interactively log when a method is invoked, using the trace Tcl command.
+ Handles multiple arguments (each method is logged). Output is to the
+ console. If <code>*</code> is given as the args, all methods are logged.
+<p>
+ This version causes a Poet::stackTrace to be printed when the logged method
+ is entered.
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="matches"></a><tt>Object <big><b>matches</b></big>
<i><tt>{exp}</tt></i></tt></h3>
@@ -1145,7 +1200,9 @@
<blockquote>
-
+ Like lappend: append one or more values to the specified slot
+<p>
+<p>
</blockquote>
<br>
@@ -1231,7 +1288,9 @@
<blockquote>
-
+ Like lindex: index into the given slot
+<p>
+<p>
</blockquote>
<br>
@@ -1315,7 +1374,9 @@
<blockquote>
-
+ Like llength: return the length of the given slot
+<p>
+<p>
</blockquote>
<br>
@@ -1440,7 +1501,9 @@
<blockquote>
-
+ Like lrange: a sublist of the given slot
+<p>
+<p>
</blockquote>
<br>
@@ -1449,9 +1512,9 @@
<blockquote>
- Remove an entry from a slot's value, if that entry is present.
- Note that if the slot's value contained only one entry, <code><font color=green>$entry,</font></code>
- then it wil end up containing {}.
+ Search for and remove an entry from a slot's value.
+ Note that if the slot's value contained only one entry, <code><code><font color=green>$entry</code>,</font></code>
+ then it wil end up containing <code>{}</code>.
<p>
<p>
</blockquote>
@@ -1737,6 +1800,17 @@
</blockquote>
<br>
+<h3><a name="unlogWhereMethods"></a><tt>Object <big><b>unlogWhereMethods</b></big>
+<i><tt>{args}</tt></i></tt></h3>
+
+
+<blockquote>
+ Turn off where logging for a method or list of methods
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="unmethod"></a><tt>Object <big><b>unmethod</b></big>
<i><tt>{args}</tt></i></tt></h3>
@@ -1788,7 +1862,9 @@
<blockquote>
-
+ Untrace the slots of an object
+<p>
+<p>
</blockquote>
<br>
Modified: trunk/html/doc/tier1-Poet-index.html
===================================================================
--- trunk/html/doc/tier1-Poet-index.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier1-Poet-index.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -15,6 +15,9 @@
<font size="2"> <strong>Index</strong></font>
<br>
+<font size="2"> <a href="tier1-Poet.html#addLibrary" target="Manual">addLibrary</a></font>
+<br>
+
<font size="2"> <a href="tier1-Poet.html#debug" target="Manual">debug</a></font>
<br>
@@ -33,6 +36,9 @@
<font size="2"> <a href="tier1-Poet.html#parseLevelInfo" target="Manual">parseLevelInfo</a></font>
<br>
+<font size="2"> <a href="tier1-Poet.html#preload" target="Manual">preload</a></font>
+<br>
+
<font size="2"> <a href="tier1-Poet.html#sideEffect" target="Manual">sideEffect</a></font>
<br>
Modified: trunk/html/doc/tier1-Poet.html
===================================================================
--- trunk/html/doc/tier1-Poet.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier1-Poet.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -42,6 +42,19 @@
<br>
+<h3><a name="addLibrary"></a><tt>Poet <big><b>addLibrary</b></big>
+<i><tt>{dir}</tt></i></tt></h3>
+
+
+<blockquote>
+ Add the given path as a Poet library, set up for autoloading.
+ We add it to ::auto_path and source poetIndex, if present.
+ There should be a tclIndex file present too.
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="debug"></a><tt>Poet <big><b>debug</b></big>
<i><tt>{}</tt></i></tt></h3>
@@ -128,6 +141,29 @@
</blockquote>
<br>
+<h3><a name="preload"></a><tt>Poet <big><b>preload</b></big>
+<i><tt>{tag}</tt></i></tt></h3>
+
+
+<blockquote>
+ Load all of the objects in one of the preload_indexes.
+<p>
+ When autoloading, you can mark a file for preloading
+ with (must start in column 1):
+<pre class="example"><code>
+ ::Poet::Preload <tag>
+</code><br></pre>
+ where <tag> is a unique string, most likely the name of
+ your application. Then, as part of your initialization,
+ invoke this method with that tag as the argument. All
+ the objects marked with ::Poet:Preload will be loaded.
+ If the tag is invalid or nothing has been marked, no
+ error is generated.
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="sideEffect"></a><tt>Poet <big><b>sideEffect</b></big>
<i><tt>{code}</tt></i></tt></h3>
Modified: trunk/html/doc/tier2-Fileselector.html
===================================================================
--- trunk/html/doc/tier2-Fileselector.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier2-Fileselector.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -51,7 +51,8 @@
<blockquote>
- Create a new Filesector.
+ Create a new Filesector. The arguments after the child name
+ are multiple <code>-slot value</code> pairs (no parent widget is needed).
<p>
<p>
</blockquote>
Modified: trunk/html/doc/tier2b-Tk_SpinBox.html
===================================================================
--- trunk/html/doc/tier2b-Tk_SpinBox.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier2b-Tk_SpinBox.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -40,9 +40,14 @@
Each of the attributes of a spinbox is represented
by a write-active slot of the same name on this object.
<p>
-This object has no additional methods. Refer to the
-manual for spinbox for more info.
+This object has some methods that override the defaults
+to make it possible to set <code>from</code> and <code>to</code> separately.
+If you set the <code>from</code> value to something greater than
+<code>to</code>, <code>to</code> will also be set to that. Similar behavior
+happens if you try to set <code>to</code> to less than <code>from</code>.
<p>
+Otherwise, see the manual for spinbox for more info.
+<p>
</blockquote>
Modified: trunk/html/doc/tier3-Type-index.html
===================================================================
--- trunk/html/doc/tier3-Type-index.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type-index.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -39,6 +39,12 @@
<font size="2"> <a href="tier3-Type.html#getImage" target="Manual">getImage</a></font>
<br>
+<font size="2"> <a href="tier3-Type.html#getParams" target="Manual">getParams</a></font>
+<br>
+
+<font size="2"> <a href="tier3-Type.html#getParams_sub" target="Manual">getParams_sub</a></font>
+<br>
+
<font size="2"> <a href="tier3-Type.html#getTypeObj" target="Manual">getTypeObj</a></font>
<br>
Modified: trunk/html/doc/tier3-Type.html
===================================================================
--- trunk/html/doc/tier3-Type.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -152,6 +152,35 @@
</blockquote>
<br>
+<h3><a name="getParams"></a><tt>Type <big><b>getParams</b></big>
+<i><tt>{ty}</tt></i></tt></h3>
+
+
+<blockquote>
+ Given a full parameterized type string, return the
+ params. Any missing params should be filled in with
+ the defaults for this type.
+<p>
+<p>
+</blockquote>
+
+<br>
+<h3><a name="getParams_sub"></a><tt>Type <big><b>getParams_sub</b></big>
+<i><tt>{ty}</tt></i></tt></h3>
+
+
+<blockquote>
+ Given a full parameterized type string, return the
+ params. Any missing params should be filled in with
+ the defaults for this type.
+<p>
+ This should be overridden by each Type that uses params.
+ It should also not be called by outside code, use <code>getParams</code>
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="getTypeObj"></a><tt>Type <big><b>getTypeObj</b></big>
<i><tt>{ty}</tt></i></tt></h3>
Modified: trunk/html/doc/tier3-Type_boolean-index.html
===================================================================
--- trunk/html/doc/tier3-Type_boolean-index.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_boolean-index.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -21,6 +21,9 @@
<font size="2"> <a href="tier3-Type_boolean.html#defaultValue" target="Manual">defaultValue</a></font>
<br>
+<font size="2"> <a href="tier3-Type_boolean.html#getParams_sub" target="Manual">getParams_sub</a></font>
+<br>
+
<font size="2"> <a href="tier3-Type_boolean.html#image" target="Manual">image</a></font>
<br>
Modified: trunk/html/doc/tier3-Type_boolean.html
===================================================================
--- trunk/html/doc/tier3-Type_boolean.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_boolean.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -64,6 +64,19 @@
</blockquote>
<br>
+<h3><a name="getParams_sub"></a><tt>Type_boolean <big><b>getParams_sub</b></big>
+<i><tt>{ty}</tt></i></tt></h3>
+
+
+<blockquote>
+ Given a full parameterized type string, return the
+ params. Any missing params should be filled in with
+ the defaults for this type.
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="image"></a><tt>Type_boolean <big><b>image</b></big>
<i><tt>{}</tt></i></tt></h3>
Modified: trunk/html/doc/tier3-Type_choice-index.html
===================================================================
--- trunk/html/doc/tier3-Type_choice-index.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_choice-index.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -21,6 +21,9 @@
<font size="2"> <a href="tier3-Type_choice.html#defaultValue" target="Manual">defaultValue</a></font>
<br>
+<font size="2"> <a href="tier3-Type_choice.html#getParams_sub" target="Manual">getParams_sub</a></font>
+<br>
+
<font size="2"> <a href="tier3-Type_choice.html#image" target="Manual">image</a></font>
<br>
Modified: trunk/html/doc/tier3-Type_choice.html
===================================================================
--- trunk/html/doc/tier3-Type_choice.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_choice.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -64,6 +64,19 @@
</blockquote>
<br>
+<h3><a name="getParams_sub"></a><tt>Type_choice <big><b>getParams_sub</b></big>
+<i><tt>{ty}</tt></i></tt></h3>
+
+
+<blockquote>
+ Given a full parameterized type string, return the
+ params. Any missing params should be filled in with
+ the defaults for this type.
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="image"></a><tt>Type_choice <big><b>image</b></big>
<i><tt>{}</tt></i></tt></h3>
Modified: trunk/html/doc/tier3-Type_integer-index.html
===================================================================
--- trunk/html/doc/tier3-Type_integer-index.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_integer-index.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -21,6 +21,9 @@
<font size="2"> <a href="tier3-Type_integer.html#defaultValue" target="Manual">defaultValue</a></font>
<br>
+<font size="2"> <a href="tier3-Type_integer.html#getParams_sub" target="Manual">getParams_sub</a></font>
+<br>
+
<font size="2"> <a href="tier3-Type_integer.html#image" target="Manual">image</a></font>
<br>
Modified: trunk/html/doc/tier3-Type_integer.html
===================================================================
--- trunk/html/doc/tier3-Type_integer.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_integer.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -63,6 +63,19 @@
</blockquote>
<br>
+<h3><a name="getParams_sub"></a><tt>Type_integer <big><b>getParams_sub</b></big>
+<i><tt>{ty}</tt></i></tt></h3>
+
+
+<blockquote>
+ Given a full parameterized type string, return the
+ params. Any missing params should be filled in with
+ the defaults for this type.
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="image"></a><tt>Type_integer <big><b>image</b></big>
<i><tt>{}</tt></i></tt></h3>
Modified: trunk/html/doc/tier3-Type_pixels-index.html
===================================================================
--- trunk/html/doc/tier3-Type_pixels-index.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_pixels-index.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -21,6 +21,9 @@
<font size="2"> <a href="tier3-Type_pixels.html#defaultValue" target="Manual">defaultValue</a></font>
<br>
+<font size="2"> <a href="tier3-Type_pixels.html#getParams_sub" target="Manual">getParams_sub</a></font>
+<br>
+
<font size="2"> <a href="tier3-Type_pixels.html#image" target="Manual">image</a></font>
<br>
Modified: trunk/html/doc/tier3-Type_pixels.html
===================================================================
--- trunk/html/doc/tier3-Type_pixels.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_pixels.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -62,6 +62,19 @@
</blockquote>
<br>
+<h3><a name="getParams_sub"></a><tt>Type_pixels <big><b>getParams_sub</b></big>
+<i><tt>{ty}</tt></i></tt></h3>
+
+
+<blockquote>
+ Given a full parameterized type string, return the
+ params. Any missing params should be filled in with
+ the defaults for this type.
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="image"></a><tt>Type_pixels <big><b>image</b></big>
<i><tt>{}</tt></i></tt></h3>
Modified: trunk/html/doc/tier3-Type_real-index.html
===================================================================
--- trunk/html/doc/tier3-Type_real-index.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_real-index.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -21,6 +21,9 @@
<font size="2"> <a href="tier3-Type_real.html#defaultValue" target="Manual">defaultValue</a></font>
<br>
+<font size="2"> <a href="tier3-Type_real.html#getParams_sub" target="Manual">getParams_sub</a></font>
+<br>
+
<font size="2"> <a href="tier3-Type_real.html#image" target="Manual">image</a></font>
<br>
Modified: trunk/html/doc/tier3-Type_real.html
===================================================================
--- trunk/html/doc/tier3-Type_real.html 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/html/doc/tier3-Type_real.html 2008-11-05 04:41:03 UTC (rev 47)
@@ -62,6 +62,19 @@
</blockquote>
<br>
+<h3><a name="getParams_sub"></a><tt>Type_real <big><b>getParams_sub</b></big>
+<i><tt>{ty}</tt></i></tt></h3>
+
+
+<blockquote>
+ Given a full parameterized type string, return the
+ params. Any missing params should be filled in with
+ the defaults for this type.
+<p>
+<p>
+</blockquote>
+
+<br>
<h3><a name="image"></a><tt>Type_real <big><b>image</b></big>
<i><tt>{}</tt></i></tt></h3>
Modified: trunk/install.tcl
===================================================================
--- trunk/install.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/install.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -48,7 +48,7 @@
# Configure paths, then open the installer window in complex mode
#
proc main {argc argv} {
- Configure lib [file join win Poet21] [file join unix libPoet2.1] html instmisc
+ Configure lib [file join win Poet22] [file join unix libPoet2.2] html instmisc
OpenInstaller 1
}
Modified: trunk/instmisc/pkgIndex.tcl
===================================================================
--- trunk/instmisc/pkgIndex.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/instmisc/pkgIndex.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -23,8 +23,8 @@
}
switch $::tcl_platform(platform) {
- windows {set libFile Poet21-${ver}.dll}
- unix {set libFile libPoet2.1-${ver}[info sharedlibextension]}
+ windows {set libFile Poet22-${ver}.dll}
+ unix {set libFile libPoet2.2-${ver}[info sharedlibextension]}
}
# If POET_BINARY has been set in the environment, use
@@ -49,4 +49,4 @@
uplevel #0 [list source [file join $dir Poet.tcl]]
}
-package ifneeded Poet 2.1 [list LoadPoet $dir]
+package ifneeded Poet 2.2 [list LoadPoet $dir]
Modified: trunk/lib/poetIndex
===================================================================
--- trunk/lib/poetIndex 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/poetIndex 2008-11-05 04:41:03 UTC (rev 47)
@@ -1,23 +1,22 @@
# Poet preload index file
lappend ::Poet::preload_index(Tier1) tier1-map
lappend ::Poet::preload_index(Tier1) tier1-methodcache
-lappend ::Poet::preload_index(Tier1) tier1-mixin
-lappend ::Poet::preload_index(Tier0) tier1-object
-lappend ::Poet::preload_index(Tier1) tier1-poet
+lappend ::Poet::preload_index(Tier0.9) tier1-mixin
lappend ::Poet::preload_index(Tier1) tier1-queue
lappend ::Poet::preload_index(Tier1) tier1-thing
+lappend ::Poet::preload_index(Tier0) tier1-object
lappend ::Poet::preload_index(Tier1) tier1-thingpool
+lappend ::Poet::preload_index(Tier1) tier1-poet
lappend ::Poet::preload_index(Tier2) tier2-fonts
lappend ::Poet::preload_index(Tier2) tier2-tkdot
lappend ::Poet::preload_index(Tier3) tier3-homethingpool
lappend ::Poet::preload_index(Tier3) tier3-keywords
lappend ::Poet::preload_index(Tier3) tier3-type_integer
-lappend ::Poet::preload_index(Tier3) tier3-type_real
+lappend ::Poet::preload_index(Tier3) tier3-type_boolean
lappend ::Poet::preload_index(Tier3) tier3-type_bitmap
-lappend ::Poet::preload_index(Tier3) tier3-type_boolean
lappend ::Poet::preload_index(Tier3) tier3-type_choice
lappend ::Poet::preload_index(Tier3) tier3-type_color
-lappend ::Poet::preload_index(Tier3) tier3-type_pixels
+lappend ::Poet::preload_index(Tier3) tier3-type_real
lappend ::Poet::preload_index(Tier3) tier3-type_font
lappend ::Poet::preload_index(Tier3) tier3-type_image
lappend ::Poet::preload_index(Tier3) tier3-type_layout
@@ -30,4 +29,5 @@
lappend ::Poet::preload_index(Tier3) tier3-typenull
lappend ::Poet::preload_index(Tier3) tier3-typeobject
lappend ::Poet::preload_index(Tier3) tier3-typeslot
+lappend ::Poet::preload_index(Tier3) tier3-type_pixels
lappend ::Poet::preload_index(Tier3) tier3-type_cursor
Modified: trunk/lib/tclIndex
===================================================================
--- trunk/lib/tclIndex 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tclIndex 2008-11-05 04:41:03 UTC (rev 47)
@@ -8,58 +8,16 @@
#
# Note: the comment after some lines is used by ThingPool list
-set auto_index(::Poet::default) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::stackTrace) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::parseLevelInfo) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::enterStep) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::leaveStep) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::enterLog) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::leaveLog) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::makeShallowTracer) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::logThru) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::logThruDeep) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::unlogThru) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::makeShallowStepper) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::stepThru) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::unstepThru) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::stepThruDeep) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::logProc) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::unlogProc) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::makeShallowWalker) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::walkThru) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::unwalkThru) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::splash) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::unsplash) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::splash_draw) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::splashAnnotator) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::selectTier) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::pathfind) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::command) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::module) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::picture) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::mkImage) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::getImage) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::loadfile) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::loadlib) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::loadimport) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::Preload) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::preloadSet) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::ifputs) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::auto_mkindex) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::findfiles) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::pubSortCompare) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::PubSort) [list source [file join $dir Poet.tcl]]
-set auto_index(::Poet::poetvar) [list source [file join $dir Poet.tcl]]
set auto_index(Map) [list source [file join $dir tier1 tier1-map.tcl]] ;# parent: Object
set auto_index(MethodCache) [list source [file join $dir tier1 tier1-methodcache.tcl]] ;# parent: Object
set auto_index(Mixin) [list source [file join $dir tier1 tier1-mixin.tcl]] ;# parent: Object
-set auto_index(::Poet::slots) [list source [file join $dir tier1 tier1-object.tcl]]
-set auto_index(Poet) [list source [file join $dir tier1 tier1-poet.tcl]] ;# parent: Object
set auto_index(Queue) [list source [file join $dir tier1 tier1-queue.tcl]] ;# parent: Object
set auto_index(SplitThing) [list source [file join $dir tier1 tier1-splitthing.tcl]] ;# parent: Thing
set auto_index(TableData) [list source [file join $dir tier1 tier1-tabledata.tcl]] ;# parent: Object
set auto_index(Thing) [list source [file join $dir tier1 tier1-thing.tcl]] ;# parent: Mixin
+set auto_index(::Poet::slots) [list source [file join $dir tier1 tier1-object.tcl]]
set auto_index(ThingPool) [list source [file join $dir tier1 tier1-thingpool.tcl]] ;# parent: Object
+set auto_index(Poet) [list source [file join $dir tier1 tier1-poet.tcl]] ;# parent: Object
set auto_index(AnchorButtonSet) [list source [file join $dir tier2 tier2-anchorbuttonset.tcl]] ;# parent: Tk_Frame
set auto_index(BindingFrame) [list source [file join $dir tier2 tier2-bindingframe.tcl]] ;# parent: Tk_Frame
set auto_index(BWidget-TkExtension) [list source [file join $dir tier2 tier2-bwidget-tkext.tcl]] ;# parent: BWidget
@@ -67,12 +25,10 @@
set auto_index(ColorMenuBox) [list source [file join $dir tier2 tier2-colormenubox.tcl]] ;# parent: Tk_Frame
set auto_index(ColorScheme) [list source [file join $dir tier2 tier2-colorscheme.tcl]] ;# parent: Object
set auto_index(ConstraintsDemoScale) [list source [file join $dir tier2 tier2-constraintsdemoscale.tcl]] ;# parent: Tk_Scale
-set auto_index(Fileselector) [list source [file join $dir tier2 tier2-filesel.tcl]] ;# parent: Object
set auto_index(HelpViewer) [list source [file join $dir tier2 tier2-helpviewer.tcl]] ;# parent: MainFrameTool
set auto_index(IconCycle) [list source [file join $dir tier2 tier2-iconcycle.tcl]] ;# parent: BW_Label
set auto_index(Inputline) [list source [file join $dir tier2 tier2-inputline.tcl]] ;# parent: Tk_Frame
set auto_index(LayoutQueue) [list source [file join $dir tier2 tier2-layoutqueue.tcl]] ;# parent: Queue
-set auto_index(MainFrameTool) [list source [file join $dir tier2 tier2-mainframetool.tcl]] ;# parent: ToolToplevel
set auto_index(OptionMenu) [list source [file join $dir tier2 tier2-optionmenu.tcl]] ;# parent: Tk_Menubutton
set auto_index(Pair) [list source [file join $dir tier2 tier2-pair.tcl]] ;# parent: Tk_Frame
set auto_index(ProtoWidget) [list source [file join $dir tier2 tier2-protowidget.tcl]] ;# parent: Object
@@ -86,7 +42,9 @@
set auto_index(TkWidget) [list source [file join $dir tier2 tier2-tkwidget.tcl]] ;# parent: ProtoWidget
set auto_index(Tooltip) [list source [file join $dir tier2 tier2-tooltip.tcl]] ;# parent: Object
set auto_index(ToolToplevel) [list source [file join $dir tier2 tier2-toplevel.tcl]] ;# parent: Tk_Toplevel
+set auto_index(MainFrameTool) [list source [file join $dir tier2 tier2-mainframetool.tcl]] ;# parent: ToolToplevel
set auto_index(UserMsg) [list source [file join $dir tier2 tier2-usermsg.tcl]] ;# parent: Object
+set auto_index(Fileselector) [list source [file join $dir tier2 tier2-filesel.tcl]] ;# parent: Object
set auto_index(BLT_Barchart) [list source [file join $dir tier2b tier2b-blt_barchart.tcl]] ;# parent: TkWidget
set auto_index(BLT_Graph) [list source [file join $dir tier2b tier2b-blt_graph.tcl]] ;# parent: TkWidget
set auto_index(BLT_Hierbox) [list source [file join $dir tier2b tier2b-blt_hierbox.tcl]] ;# parent: TkWidget
@@ -144,7 +102,6 @@
set auto_index(Tk_Radiobutton) [list source [file join $dir tier2b tier2b-tk_radiobutton.tcl]] ;# parent: TkWidget
set auto_index(Tk_Scale) [list source [file join $dir tier2b tier2b-tk_scale.tcl]] ;# parent: TkWidget
set auto_index(Tk_Scrollbar) [list source [file join $dir tier2b tier2b-tk_scrollbar.tcl]] ;# parent: TkWidget
-set auto_index(Tk_SpinBox) [list source [file join $dir tier2b tier2b-tk_spinbox.tcl]] ;# parent: TkWidget
set auto_index(Tk_Table) [list source [file join $dir tier2b tier2b-tk_table.tcl]] ;# parent: TkWidget
set auto_index(Tk_Text) [list source [file join $dir tier2b tier2b-tk_text.tcl]] ;# parent: TkWidget
set auto_index(Tk_Toplevel) [list source [file join $dir tier2b tier2b-tk_toplevel.tcl]] ;# parent: TkWidget
@@ -167,6 +124,7 @@
set auto_index(Ttk_Sizegrip) [list source [file join $dir tier2b tier2b-ttk_sizegrip.tcl]] ;# parent: TkWidget
set auto_index(Ttk_Treeview) [list source [file join $dir tier2b tier2b-ttk_treeview.tcl]] ;# parent: TkWidget
set auto_index(Tk_Canvas) [list source [file join $dir tier2b tier2b-tk_canvas.tcl]] ;# parent: TkWidget
+set auto_index(Tk_SpinBox) [list source [file join $dir tier2b tier2b-tk_spinbox.tcl]] ;# parent: TkWidget
set auto_index(CodeEditor) [list source [file join $dir tier3 tier3-codeeditor.tcl]] ;# parent: Object
set auto_index(CodeEditorLemmy) [list source [file join $dir tier3 tier3-codeeditorlemmy.tcl]] ;# parent: CodeEditor
set auto_index(CodeEditorText) [list source [file join $dir tier3 tier3-codeeditortext.tcl]] ;# parent: Tk_Frame
@@ -199,6 +157,7 @@
set auto_index(ObjectTableBook) [list source [file join $dir tier3 tier3-objecttablebook.tcl]] ;# parent: BW_NoteBook
set auto_index(ObjectTreeBook) [list source [file join $dir tier3 tier3-objecttreebook.tcl]] ;# parent: BW_NoteBook
set auto_index(PocketTable) [list source [file join $dir tier3 tier3-pockettable.tcl]] ;# parent: BW_ScrolledWindow
+set auto_index(Type_integer) [list source [file join $dir tier3 tier3-type_integer.tcl]] ;# parent: Type
set auto_index(PoeticsToolbox) [list source [file join $dir tier3 tier3-poeticstoolbox.tcl]] ;# parent: MainFrameTool
set auto_index(Sage) [list source [file join $dir tier3 tier3-sage.tcl]] ;# parent: Object
set auto_index(Scroll) [list source [file join $dir tier3 tier3-scroll.tcl]] ;# parent: Object
@@ -209,11 +168,9 @@
set auto_index(SignCellChoice) [list source [file join $dir tier3 tier3-signcellchoice.tcl]] ;# parent: SW_Combobox
set auto_index(SignCellColor) [list source [file join $dir tier3 tier3-signcellcolor.tcl]] ;# parent: Tk_Frame
set auto_index(SignCellCover) [list source [file join $dir tier3 tier3-signcellcover.tcl]] ;# parent: Tk_Label
-set auto_index(Type_integer) [list source [file join $dir tier3 tier3-type_integer.tcl]] ;# parent: Type
set auto_index(SignCellEntry) [list source [file join $dir tier3 tier3-signcellentry.tcl]] ;# parent: BW_Entry
set auto_index(SignCellFont) [list source [file join $dir tier3 tier3-signcellfont.tcl]] ;# parent: Tk_Frame
set auto_index(SignCellPixels) [list source [file join $dir tier3 tier3-signcellpixels.tcl]] ;# parent: Tk_SpinBox
-set auto_index(Type_real) [list source [file join $dir tier3 tier3-type_real.tcl]] ;# parent: Type
set auto_index(SignCellScript) [list source [file join $dir tier3 tier3-signcellscript.tcl]] ;# parent: SignCellString
set auto_index(SignCellString) [list source [file join $dir tier3 tier3-signcellstring.tcl]] ;# parent: Tk_Frame
set auto_index(SignCellStyle) [list source [file join $dir tier3 tier3-signcellstyle.tcl]] ;# parent: SW_Combobox
@@ -227,12 +184,12 @@
set auto_index(ThingPoolTable) [list source [file join $dir tier3 tier3-thingpooltable.tcl]] ;# parent: BW_ScrolledWindow
set auto_index(ThingPoolTableData) [list source [file join $dir tier3 tier3-thingpooltabledata.tcl]] ;# parent: TableData
set auto_index(ThingPoolTool) [list source [file join $dir tier3 tier3-thingpooltool.tcl]] ;# parent: MainFrameTool
+set auto_index(Type_boolean) [list source [file join $dir tier3 tier3-type_boolean.tcl]] ;# parent: Type
+set auto_index(Type_bitmap) [list source [file join $dir tier3 tier3-type_bitmap.tcl]] ;# parent: Type
set auto_index(Type) [list source [file join $dir tier3 tier3-type.tcl]] ;# parent: Object
-set auto_index(Type_bitmap) [list source [file join $dir tier3 tier3-type_bitmap.tcl]] ;# parent: Type
-set auto_index(Type_boolean) [list source [file join $dir tier3 tier3-type_boolean.tcl]] ;# parent: Type
set auto_index(Type_choice) [list source [file join $dir tier3 tier3-type_choice.tcl]] ;# parent: Type
set auto_index(Type_color) [list source [file join $dir tier3 tier3-type_color.tcl]] ;# parent: Type
-set auto_index(Type_pixels) [list source [file join $dir tier3 tier3-type_pixels.tcl]] ;# parent: Type
+set auto_index(Type_real) [list source [file join $dir tier3 tier3-type_real.tcl]] ;# parent: Type
set auto_index(Type_font) [list source [file join $dir tier3 tier3-type_font.tcl]] ;# parent: Type
set auto_index(Type_image) [list source [file join $dir tier3 tier3-type_image.tcl]] ;# parent: Type
set auto_index(SignCellInteger) [list source [file join $dir tier3 tier3-signcellinteger.tcl]] ;# parent: Tk_SpinBox
@@ -248,6 +205,53 @@
set auto_index(TypeNull) [list source [file join $dir tier3 tier3-typenull.tcl]] ;# parent: Type
set auto_index(TypeObject) [list source [file join $dir tier3 tier3-typeobject.tcl]] ;# parent: Type
set auto_index(TypeSlot) [list source [file join $dir tier3 tier3-typeslot.tcl]] ;# parent: Type
+set auto_index(Type_pixels) [list source [file join $dir tier3 tier3-type_pixels.tcl]] ;# parent: Type
set auto_index(SW_Combobox) [list source [file join $dir tier3 tier3-sw-combobox.tcl]] ;# parent: Object
set auto_index(DemoObject) [list source [file join $dir tier3 tier3-demoobject.tcl]] ;# parent: Object
set auto_index(Type_cursor) [list source [file join $dir tier3 tier3-type_cursor.tcl]] ;# parent: Type
+set auto_index(::Poet::default) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::stackTrace) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::parseLevelInfo) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::parseError) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::enterStep) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::leaveStep) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::enterLog) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::enterWhere) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::leaveLog) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::makeShallowTracer) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::logThru) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::logThruDeep) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::unlogThru) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::makeShallowStepper) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::stepThru) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::unstepThru) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::stepThruDeep) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::logProc) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::unlogProc) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::whereProc) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::unwhereProc) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::makeShallowWalker) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::walkThru) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::unwalkThru) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::splash) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::unsplash) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::splash_draw) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::splashAnnotator) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::selectTier) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::pathfind) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::command) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::module) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::picture) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::mkImage) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::getImage) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::loadfile) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::loadlib) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::loadimport) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::Preload) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::preloadSet) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::ifputs) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::auto_mkindex) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::findfiles) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::pubSortCompare) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::PubSort) [list source [file join $dir Poet.tcl]]
+set auto_index(::Poet::poetvar) [list source [file join $dir Poet.tcl]]
Modified: trunk/lib/tier2a-win32/tier2a-bw_arrowbutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_arrowbutton.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_arrowbutton.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_arrowbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_button.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_button.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_button.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_buttonbox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_buttonbox.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_buttonbox.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_buttonbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_combobox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_combobox.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_combobox.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_combobox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_dialog.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_dialog.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_dialog.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_dialog.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_entry.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_entry.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_entry.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_label.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_label.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_label.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_labelentry.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_labelentry.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_labelentry.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_labelentry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_labelframe.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_labelframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_listbox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_listbox.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_listbox.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_listbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_mainframe.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_mainframe.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_mainframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_mainframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_notebook.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_notebook.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_notebook.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_notebook.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_panedwindow.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_panedwindow.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_progressbar.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_progressbar.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_progressbar.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_progressbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_scrollableframe.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_scrollableframe.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_scrollableframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_scrollableframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_scrolledwindow.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_scrolledwindow.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_scrolledwindow.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_scrolledwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_scrollview.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_scrollview.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_scrollview.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_scrollview.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_selectfont.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_selectfont.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_selectfont.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_selectfont.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_separator.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_separator.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_separator.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_spinbox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_spinbox.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_spinbox.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_spinbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_table.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_table.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_table.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_table.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_titleframe.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_titleframe.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_titleframe.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_titleframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-bw_tree.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-bw_tree.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-bw_tree.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-bw_tree.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 02:20PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_button.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_button.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_button.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-tk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-09 at 05:50PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-09 at 05:50PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_arc.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-09 at 05:50PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_bitmap.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-09 at 05:50PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_image.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-09 at 05:50PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_line.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-09 at 05:50PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_oval.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-09 at 05:50PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_polygon.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-09 at 05:50PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl 2008-11-05 04:41:03 UTC (rev 47)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_rectangle.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-10-09 at 05:50PM
+### on 2008-11-04 at 08:37PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl 2008-11-05 04:09:44 UTC (rev 46)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl 2008-11-05 04:41:...
[truncated message content] |
|
From: <mer...@us...> - 2008-11-05 04:09:55
|
Revision: 46
http://poet.svn.sourceforge.net/poet/?rev=46&view=rev
Author: mercurio
Date: 2008-11-05 04:09:44 +0000 (Wed, 05 Nov 2008)
Log Message:
-----------
Modified Paths:
--------------
trunk/lib/version.tcl
trunk/win/BuildBoth
trunk/win/Makefile
Added Paths:
-----------
trunk/win/Poet22-84.dll
trunk/win/Poet22-85.dll
Removed Paths:
-------------
trunk/win/Poet21-84.dll
trunk/win/Poet21-85.dll
trunk/win/libPoet21.a
Modified: trunk/lib/version.tcl
===================================================================
--- trunk/lib/version.tcl 2008-11-02 05:23:05 UTC (rev 45)
+++ trunk/lib/version.tcl 2008-11-05 04:09:44 UTC (rev 46)
@@ -1 +1 @@
-set ::Poet::version 2.1.1
+set ::Poet::version 2.2.0
Modified: trunk/win/BuildBoth
===================================================================
--- trunk/win/BuildBoth 2008-11-02 05:23:05 UTC (rev 45)
+++ trunk/win/BuildBoth 2008-11-05 04:09:44 UTC (rev 46)
@@ -7,10 +7,10 @@
make clean
make
-mv poet21.dll Poet21-84.dll
+mv poet22.dll Poet22-84.dll
setenv TCL_MINOR_VERSION 5
make clean
make
-mv poet21.dll Poet21-85.dll
+mv poet22.dll Poet22-85.dll
Modified: trunk/win/Makefile
===================================================================
--- trunk/win/Makefile 2008-11-02 05:23:05 UTC (rev 45)
+++ trunk/win/Makefile 2008-11-05 04:09:44 UTC (rev 46)
@@ -16,8 +16,8 @@
TCL_VERSION = 8$(TCL_MINOR_VERSION)
EXTENSION = Poet
-VERSION = 2.1
-SHORTVERSION = 21
+VERSION = 2.2
+SHORTVERSION = 22
POET_DLL_FILE = ${EXTENSION}${SHORTVERSION}.dll
POET_LIB_FILE = lib${EXTENSION}${SHORTVERSION}.a
Deleted: trunk/win/Poet21-84.dll
===================================================================
(Binary files differ)
Deleted: trunk/win/Poet21-85.dll
===================================================================
(Binary files differ)
Added: trunk/win/Poet22-84.dll
===================================================================
(Binary files differ)
Property changes on: trunk/win/Poet22-84.dll
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/win/Poet22-85.dll
===================================================================
(Binary files differ)
Property changes on: trunk/win/Poet22-85.dll
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Deleted: trunk/win/libPoet21.a
===================================================================
(Binary files differ)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-11-02 05:23:10
|
Revision: 45
http://poet.svn.sourceforge.net/poet/?rev=45&view=rev
Author: mercurio
Date: 2008-11-02 05:23:05 +0000 (Sun, 02 Nov 2008)
Log Message:
-----------
Added "ext" option to Fileselector
Minor comments editing in Object
Modified Paths:
--------------
trunk/lib/tier1/tier1-object.tcl
trunk/lib/tier2/tier2-filesel.tcl
trunk/testing/debug.poet/Thing_AnonCounter.thg
Modified: trunk/lib/tier1/tier1-object.tcl
===================================================================
--- trunk/lib/tier1/tier1-object.tcl 2008-10-27 22:52:14 UTC (rev 44)
+++ trunk/lib/tier1/tier1-object.tcl 2008-11-02 05:23:05 UTC (rev 45)
@@ -1486,13 +1486,15 @@
## More general Object stuff
-# Return a list of all of the descendants of self
+# Return a list of all of the descendants of self.
+# Note that you may get duplicates, since each object
+# will show up as a child of each of its parents.
#
-Object method descendants {args} {
+Object method descendants {} {
set l {}
foreach o [$self children] {
- if {$o == $self } continue
+ if {$o eq $self} continue
lappend l $o
set l [concat $l [$o descendants]]
@@ -1502,7 +1504,10 @@
}
-# Return a list of only the immediate children of self
+# Return a list of only the immediate children of self.
+# If the pattern is provided, only those whose names
+# match the pattern are returned. If mode is provided,
+# it's the type of pattern (see ``array names``).
#
Object method children {{pat *} {mode -glob}} {
global _oc_${self}
@@ -2257,6 +2262,18 @@
}
}
+# Return the prefix for this object's name, if
+# it contains a * or @, else "".
+#
+# A default value can be provided to be used in
+# case no prefix is found.
+#
+Object method getPrefix {{prefix ""}} {
+ regexp {(.*[\*@]).*} $self -> prefix
+ return $prefix
+}
+
+
# Generate a string representation of this object. This
# is used primarily by ``Thing``, but might be useful
# elsewhere.
@@ -2279,31 +2296,22 @@
append out "\n$self mixin [lrange $p 1 end]"
}
- append out "\n"
-
foreach m [$self methods] {
append out "\n$self method $m \{[$self methodArgsWithDefaults $m]\} \{[$self methodBody $m]\}"
}
- append out "\n"
-
foreach m [$self formulas] {
append out "\n$self formula $m \{[$self formula $m]\}"
}
- append out "\n"
-
foreach m [$self types] {
append out "\n$self type $m \{[$self type $m]\}"
}
- append out "\n"
-
foreach m [$self listGoodbyes] {
append out "\n$self addGoodbye \{$m\}"
}
- append out "\n"
if {$private} {
set slots [$self slots]
} else {
Modified: trunk/lib/tier2/tier2-filesel.tcl
===================================================================
--- trunk/lib/tier2/tier2-filesel.tcl 2008-10-27 22:52:14 UTC (rev 44)
+++ trunk/lib/tier2/tier2-filesel.tcl 2008-11-02 05:23:05 UTC (rev 45)
@@ -10,6 +10,7 @@
# PJM 1998-08-31 Modified for Poet1.0
# PJM 1999-04-11 Modified for Poet2.0, getDir added
# PJM 2005-06-23 getDir updated to tk_chooseDirectory
+# PJM 2008-10-29 Added ext slot
#
@@ -17,8 +18,10 @@
Fileselector slot title {} ;# Title of window
Fileselector slot dir {} ;# Directory we start browsing in
+Fileselector slot ext {} ;# Default extension
-# Create a new Filesector.
+# Create a new Filesector. The arguments after the child name
+# are multiple ``-slot value`` pairs (no parent widget is needed).
#
Fileselector method construct {child args} {
set kid [$self as Object construct $child]
@@ -33,14 +36,16 @@
# Get a file for reading
#
Fileselector method getOpen {} {
+ set ext [$self slot ext]
set d [$self slot _openDir]
- if {$d == {}} {
- set f [tk_getOpenFile -title [$self slot title]]
+
+ if {$d eq ""} {
+ set f [tk_getOpenFile -title [$self slot title] -defaultextension $ext]
} else {
- set f [tk_getOpenFile -title [$self slot title] -initialdir $d]
+ set f [tk_getOpenFile -title [$self slot title] -defaultextension $ext -initialdir $d]
}
- if {$f != ""} {
+ if {$f ne ""} {
$self slot _openDir [file dirname $f]
}
@@ -50,14 +55,16 @@
# Get a file for writing
#
Fileselector method getSave {} {
+ set ext [$self slot ext]
set d [$self slot _saveDir]
- if {$d == {}} {
- set f [tk_getSaveFile -title [$self slot title]]
+
+ if {$d eq ""} {
+ set f [tk_getSaveFile -title [$self slot title] -defaultextension $ext]
} else {
- set f [tk_getSaveFile -title [$self slot title] -initialdir $d]
+ set f [tk_getSaveFile -title [$self slot title] -defaultextension $ext -initialdir $d]
}
- if { $f != "" } {
+ if { $f ne ""} {
$self slot _saveDir [file dirname $f]
}
@@ -68,13 +75,13 @@
#
Fileselector method getDir {} {
set d [$self slot _saveDir]
- if {$d == {}} {
+ if {$d eq ""} {
set n [tk_chooseDirectory -title [$self slot title]]
} else {
set n [tk_chooseDirectory -title [$self slot title] -initialdir $d]
}
- if { $n != "" } {
+ if {$n ne ""} {
$self slot _saveDir $n
}
Modified: trunk/testing/debug.poet/Thing_AnonCounter.thg
===================================================================
--- trunk/testing/debug.poet/Thing_AnonCounter.thg 2008-10-27 22:52:14 UTC (rev 44)
+++ trunk/testing/debug.poet/Thing_AnonCounter.thg 2008-11-02 05:23:05 UTC (rev 45)
@@ -4,13 +4,8 @@
Thing construct Thing_AnonCounter
-
-
-
-
-
Thing_AnonCounter slot loaded "0"
-Thing_AnonCounter slot n "@1"
+Thing_AnonCounter slot n "@2"
Thing_AnonCounter slot nDel "1"
Thing_AnonCounter slot saved "0"
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-10-27 22:52:23
|
Revision: 44
http://poet.svn.sourceforge.net/poet/?rev=44&view=rev
Author: mercurio
Date: 2008-10-27 22:52:14 +0000 (Mon, 27 Oct 2008)
Log Message:
-----------
Added "Tier0.9" designation to force Mixin to be
loaded after Object and before all other Tier1 objects.
This fixes a bug that occurs on some systems where
the order of lines in poetIndex is different, causing
Thing (which autoloads Mixin) to load before Mixin.
Modified Paths:
--------------
trunk/lib/tier1/tier1-mixin.tcl
trunk/lib/tier1/tier1.tcl
trunk/win/Poet21-84.dll
trunk/win/Poet21-85.dll
trunk/win/libPoet21.a
trunk/win/poet.def
Modified: trunk/lib/tier1/tier1-mixin.tcl
===================================================================
--- trunk/lib/tier1/tier1-mixin.tcl 2008-10-27 20:28:14 UTC (rev 43)
+++ trunk/lib/tier1/tier1-mixin.tcl 2008-10-27 22:52:14 UTC (rev 44)
@@ -1,4 +1,4 @@
-::Poet::Preload Tier1
+::Poet::Preload Tier0.9
### Mixin - the primordial mixin object
###
Modified: trunk/lib/tier1/tier1.tcl
===================================================================
--- trunk/lib/tier1/tier1.tcl 2008-10-27 20:28:14 UTC (rev 43)
+++ trunk/lib/tier1/tier1.tcl 2008-10-27 22:52:14 UTC (rev 44)
@@ -9,9 +9,12 @@
# the preloading of objects (almost all of Tier1
# needs to be preloaded). Note that Object is
# assigned to Tier0 to force it to be loaded first.
+# PJM 20081027 Added Tier0.9, used to make sure Mixin loads
+# before all other Tier1 objects.
#
::Poet::preloadSet Tier0
+::Poet::preloadSet Tier0.9
::Poet::preloadSet Tier1
#---------------------------------------------------------------------------
Modified: trunk/win/Poet21-84.dll
===================================================================
(Binary files differ)
Modified: trunk/win/Poet21-85.dll
===================================================================
(Binary files differ)
Modified: trunk/win/libPoet21.a
===================================================================
(Binary files differ)
Modified: trunk/win/poet.def
===================================================================
--- trunk/win/poet.def 2008-10-27 20:28:14 UTC (rev 43)
+++ trunk/win/poet.def 2008-10-27 22:52:14 UTC (rev 44)
@@ -86,6 +86,4 @@
Poet_slotNodeInfo @ 84
Poet_slotUnconstrain @ 85
Poet_slotUnlink @ 86
- debug_chanInit @ 87
- debug_print @ 88
- pdoeCompare @ 89
+ pdoeCompare @ 87
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-10-27 20:28:18
|
Revision: 43
http://poet.svn.sourceforge.net/poet/?rev=43&view=rev
Author: mercurio
Date: 2008-10-27 20:28:14 +0000 (Mon, 27 Oct 2008)
Log Message:
-----------
Added DEBUG_FINDOBJ to C code
Modified Paths:
--------------
trunk/generic/poet.c
trunk/generic/poet.h
trunk/win/Poet21-84.dll
trunk/win/Poet21-85.dll
trunk/win/libPoet21.a
trunk/win/poet.def
Modified: trunk/generic/poet.c
===================================================================
--- trunk/generic/poet.c 2008-10-25 18:32:17 UTC (rev 42)
+++ trunk/generic/poet.c 2008-10-27 20:28:14 UTC (rev 43)
@@ -800,12 +800,25 @@
Tcl_CmdInfo ci;
Poet_Obj* po;
+#ifdef DEBUG_FINDOBJ
+ debug_print("FindPoetObj: obj = %x\n",obj);
+ if(obj != NULL) debug_print("Poet_FindPoetObj: looking for %s\n",Str(obj));
+#endif
+
if(obj == NULL) return(NULL);
- if(!Tcl_GetCommandInfoFromToken(Tcl_GetCommandFromObj(interp,obj),&ci))
+ if(!Tcl_GetCommandInfoFromToken(Tcl_GetCommandFromObj(interp,obj),&ci)) {
+#ifdef DEBUG_FINDOBJ
+ debug_print("Poet_FindPoetObj: Tcl_GetCommandInfoFromToken failed\n");
+#endif
return(NULL);
+ }
else {
po = (Poet_Obj*)ci.objClientData;
+#ifdef DEBUG_FINDOBJ
+ debug_print("Poet_FindPoetObj: po = %x\n",po);
+ if(po != NULL) debug_print("Poet_FindPoetObj: po->magic = %x, POET_MAGIC = %x\n",po->magic,POET_MAGIC);
+#endif
if(po == NULL || po->magic != POET_MAGIC)
return(NULL);
else
Modified: trunk/generic/poet.h
===================================================================
--- trunk/generic/poet.h 2008-10-25 18:32:17 UTC (rev 42)
+++ trunk/generic/poet.h 2008-10-27 20:28:14 UTC (rev 43)
@@ -20,6 +20,7 @@
#define DEBUG_TRAVERSAL
#define DEBUG_STACK
#define DEBUG_MEMORY
+#define DEBUG_FINDOBJ
*/
/*
Modified: trunk/win/Poet21-84.dll
===================================================================
(Binary files differ)
Modified: trunk/win/Poet21-85.dll
===================================================================
(Binary files differ)
Modified: trunk/win/libPoet21.a
===================================================================
(Binary files differ)
Modified: trunk/win/poet.def
===================================================================
--- trunk/win/poet.def 2008-10-25 18:32:17 UTC (rev 42)
+++ trunk/win/poet.def 2008-10-27 20:28:14 UTC (rev 43)
@@ -86,4 +86,6 @@
Poet_slotNodeInfo @ 84
Poet_slotUnconstrain @ 85
Poet_slotUnlink @ 86
- pdoeCompare @ 87
+ debug_chanInit @ 87
+ debug_print @ 88
+ pdoeCompare @ 89
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-10-25 18:32:28
|
Revision: 42
http://poet.svn.sourceforge.net/poet/?rev=42&view=rev
Author: mercurio
Date: 2008-10-25 18:32:17 +0000 (Sat, 25 Oct 2008)
Log Message:
-----------
Fixed installer to do better job of setting permissions
when installed by root on Unix machines.
Minor changes to types to make default parameters
accessible.
Modified Paths:
--------------
trunk/instlib/installer.tcl
trunk/lib/Poet.tcl
trunk/lib/tier1/tier1-object.tcl
trunk/lib/tier3/tier3-type.tcl
trunk/lib/tier3/tier3-type_boolean.tcl
trunk/lib/tier3/tier3-type_choice.tcl
trunk/lib/tier3/tier3-type_integer.tcl
trunk/lib/tier3/tier3-type_pixels.tcl
trunk/lib/tier3/tier3-type_real.tcl
Added Paths:
-----------
trunk/unix/tools/
trunk/unix/tools/ReadMe.txt
trunk/unix/tools/poetAppInit.c
trunk/unix/tools/runme
trunk/unix/tools/t2.tcl
trunk/unix/tools/test.tcl
trunk/unix/tools/tkcon.tcl
Modified: trunk/instlib/installer.tcl
===================================================================
--- trunk/instlib/installer.tcl 2008-10-21 02:08:44 UTC (rev 41)
+++ trunk/instlib/installer.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -258,13 +258,23 @@
# readonly, or not.
#
proc setReadonly {dir ro} {
+ if {$::tcl_platform(platform) eq "unix"} {
+ if {$ro} {
+ file attributes $dir -permissions "ugo+rx,go-w"
+ } else {
+ file attributes $dir -permissions "ugo+rwx"
+ }
+ } else {
+ file attributes $dir -readonly $ro
+ }
+
foreach f [glob [file join $dir *]] {
if {[file isfile $f]} {
if {$::tcl_platform(platform) eq "unix"} {
if {$ro} {
- file attributes $f -permissions "ugo-w"
+ file attributes $f -permissions "ugo+r,ugo-w"
} else {
- file attributes $f -permissions "ugo+w"
+ file attributes $f -permissions "ugo+rw"
}
} else {
file attributes $f -readonly $ro
Modified: trunk/lib/Poet.tcl
===================================================================
--- trunk/lib/Poet.tcl 2008-10-21 02:08:44 UTC (rev 41)
+++ trunk/lib/Poet.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -230,6 +230,7 @@
# prints out stack trace
#
proc ::Poet::enterWhere {cmd op} {
+ puts stderr ""
puts stderr [::Poet::stackTrace]
puts stderr " => [::Poet::parseLevelInfo $cmd]"
}
@@ -898,6 +899,8 @@
set ps(0) 0
foreach pathlist [::Poet::findfiles {} $fileRE] {
+ if {$pathlist eq "pkgIndex.tcl"} continue
+
set f ""
set comment ""
set headcomment ""
Modified: trunk/lib/tier1/tier1-object.tcl
===================================================================
--- trunk/lib/tier1/tier1-object.tcl 2008-10-21 02:08:44 UTC (rev 41)
+++ trunk/lib/tier1/tier1-object.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -1333,6 +1333,10 @@
# is confusing. Don't use this if possible, it's not
# compatible with the non-dict version below.
#
+# Note: this uses the dictionaryVariable, dict commands
+# use either the var or the value. Another reason not
+# to use this.
+#
Object method array {ra op args} {
return [eval dict $op ::_os_${self}($ra) $args]
}
@@ -1394,6 +1398,12 @@
set ::_os_${self}($ra) ""
}
+# Return a list of the keys in this array (dict only)
+#
+Object method arrayKeys {ra {pat *}} {
+ return [dict keys [set ::_os_${self}($ra)] $pat]
+}
+
## This is the non-dict version, where the contents
## of the slot is the name of an array. Indented
## so it doesn't show up in the docs. This is
Modified: trunk/lib/tier3/tier3-type.tcl
===================================================================
--- trunk/lib/tier3/tier3-type.tcl 2008-10-21 02:08:44 UTC (rev 41)
+++ trunk/lib/tier3/tier3-type.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -107,6 +107,26 @@
return [eval [Type getTypeObj $ty] image [lrange $ty 1 end]]
}
+# Given a full parameterized type string, return the
+# params. Any missing params should be filled in with
+# the defaults for this type.
+#
+Type method getParams {ty} {
+ set t [Type getTypeObj $ty]
+ return [$t getParams_sub $ty]
+}
+
+# Given a full parameterized type string, return the
+# params. Any missing params should be filled in with
+# the defaults for this type.
+#
+# This should be overridden by each Type that uses params.
+# It should also not be called by outside code, use ``getParams``
+#
+Type method getParams_sub {ty} {
+ return ""
+}
+
# Validate a sign value (verify that it can be interpreted as this type).
# If ty is given it's a type string, as in
# Type validate $sv <integer>
Modified: trunk/lib/tier3/tier3-type_boolean.tcl
===================================================================
--- trunk/lib/tier3/tier3-type_boolean.tcl 2008-10-21 02:08:44 UTC (rev 41)
+++ trunk/lib/tier3/tier3-type_boolean.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -20,16 +20,26 @@
return 1
}
-# Return an IconCycle for editing a boolean
+# Given a full parameterized type string, return the
+# params. Any missing params should be filled in with
+# the defaults for this type.
#
-Type_boolean method cellEditor {table ty} {
+Type_boolean method getParams_sub {ty} {
set t 1
set f 0
set len [llength $ty]
if {$len > 1} {set t [lindex $ty 1]}
if {$len > 2} {set f [lindex $ty 2]}
+
+ return [list $t $f]
+}
+# Return an IconCycle for editing a boolean
+#
+Type_boolean method cellEditor {table ty} {
+ lassign [$self getParams_sub $ty] t f
+
set ce [SignCellBoolean construct * $table -values [list $t $f]]
return $ce
Modified: trunk/lib/tier3/tier3-type_choice.tcl
===================================================================
--- trunk/lib/tier3/tier3-type_choice.tcl 2008-10-21 02:08:44 UTC (rev 41)
+++ trunk/lib/tier3/tier3-type_choice.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -21,12 +21,19 @@
return [lindex $ty 1]
}
+# Given a full parameterized type string, return the
+# params. Any missing params should be filled in with
+# the defaults for this type.
+#
+Type_choice method getParams_sub {ty} {
+ return [lrange $ty 1 end]
+}
# Return a SignCellChoice to edit this type of slot. The args in the
# type string are the options to display.
#
Type_choice method cellEditor {table ty} {
- return [SignCellChoice construct * $table -values [lrange $ty 1 end]]
+ return [SignCellChoice construct * $table -values [$self getParams_sub $ty]]
}
# Validate a sign value (verify that it can be interpreted as this type).
Modified: trunk/lib/tier3/tier3-type_integer.tcl
===================================================================
--- trunk/lib/tier3/tier3-type_integer.tcl 2008-10-21 02:08:44 UTC (rev 41)
+++ trunk/lib/tier3/tier3-type_integer.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -20,9 +20,11 @@
return 0
}
-# Return a SpinBox for editing a slot of this type in a cell of a table.
+# Given a full parameterized type string, return the
+# params. Any missing params should be filled in with
+# the defaults for this type.
#
-Type_integer method cellEditor {table ty} {
+Type_integer method getParams_sub {ty} {
set lo -2147483648
set hi 2147483647
set step 1
@@ -32,6 +34,14 @@
if {$len > 2} {set hi [lindex $ty 2]}
if {$len > 3} {set step [lindex $ty 3]}
+ return [list $lo $hi $step]
+}
+
+# Return a SpinBox for editing a slot of this type in a cell of a table.
+#
+Type_integer method cellEditor {table ty} {
+ lassign [$self getParams_sub $ty] lo hi step
+
return [SignCellInteger construct * $table -from $lo -to $hi -increment $step]
}
Modified: trunk/lib/tier3/tier3-type_pixels.tcl
===================================================================
--- trunk/lib/tier3/tier3-type_pixels.tcl 2008-10-21 02:08:44 UTC (rev 41)
+++ trunk/lib/tier3/tier3-type_pixels.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -19,9 +19,11 @@
return 10
}
-# Return a SpinBox for editing slot as this type in a cell of a table.
+# Given a full parameterized type string, return the
+# params. Any missing params should be filled in with
+# the defaults for this type.
#
-Type_pixels method cellEditor {table ty} {
+Type_pixels method getParams_sub {ty} {
set lo 0
set hi 2147483647
set step 1
@@ -31,6 +33,14 @@
if {$len > 2} {set hi [lindex $ty 2]}
if {$len > 3} {set step [lindex $ty 3]}
+ return [list $lo $hi $step]
+}
+
+# Return a SpinBox for editing slot as this type in a cell of a table.
+#
+Type_pixels method cellEditor {table ty} {
+ lassign [$self getParams_sub $ty] lo hi step
+
return [SignCellPixels construct * $table -from $lo -to $hi -increment $step]
}
Modified: trunk/lib/tier3/tier3-type_real.tcl
===================================================================
--- trunk/lib/tier3/tier3-type_real.tcl 2008-10-21 02:08:44 UTC (rev 41)
+++ trunk/lib/tier3/tier3-type_real.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -20,9 +20,11 @@
return 1.0
}
-# Return a SpinBox for editing slot as this type in a cell of a table.
+# Given a full parameterized type string, return the
+# params. Any missing params should be filled in with
+# the defaults for this type.
#
-Type_real method cellEditor {table ty} {
+Type_real method getParams_sub {ty} {
set lo -1
set hi 1
set step .1
@@ -32,6 +34,15 @@
if {$len > 2} {set hi [lindex $ty 2]}
if {$len > 3} {set step [lindex $ty 3]}
+ return [list $lo $hi $step]
+}
+
+
+# Return a SpinBox for editing slot as this type in a cell of a table.
+#
+Type_real method cellEditor {table ty} {
+ lassign [$self getParams_sub $ty] lo hi step
+
return [SignCellReal construct * $table -from $lo -to $hi -increment $step]
}
Added: trunk/unix/tools/ReadMe.txt
===================================================================
--- trunk/unix/tools/ReadMe.txt (rev 0)
+++ trunk/unix/tools/ReadMe.txt 2008-10-25 18:32:17 UTC (rev 42)
@@ -0,0 +1,9 @@
+Handy stuff to have in your tk/unix directory
+when debugging tier 0. Build poet as described
+in ../ReadMe.txt.
+
+poetAppInit.c fragment showing where to modify tkAppInit.c
+runme sample linking command
+t2.tcl start up in tier2
+test.tcl start up in tier3
+tkcon.tcl tkcon
Added: trunk/unix/tools/poetAppInit.c
===================================================================
--- trunk/unix/tools/poetAppInit.c (rev 0)
+++ trunk/unix/tools/poetAppInit.c 2008-10-25 18:32:17 UTC (rev 42)
@@ -0,0 +1,24 @@
+int
+Tcl_AppInit(
+ Tcl_Interp *interp) /* Interpreter for application. */
+{
+ if (Tcl_Init(interp) == TCL_ERROR) {
+ return TCL_ERROR;
+ }
+ if (Tk_Init(interp) == TCL_ERROR) {
+ return TCL_ERROR;
+ }
+ Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit);
+
+ if (Poet_Init(interp) == TCL_ERROR) {
+ return TCL_ERROR;
+ }
+#ifdef TK_TEST
+ if (Tktest_Init(interp) == TCL_ERROR) {
+ return TCL_ERROR;
+ }
+ Tcl_StaticPackage(interp, "Tktest", Tktest_Init,
+ (Tcl_PackageInitProc *) NULL);
+#endif /* TK_TEST */
+
+...
Added: trunk/unix/tools/runme
===================================================================
--- trunk/unix/tools/runme (rev 0)
+++ trunk/unix/tools/runme 2008-10-25 18:32:17 UTC (rev 42)
@@ -0,0 +1,4 @@
+gcc -g -pipe -Wl,--export-dynamic tkAppInit.o \
+ /prog/poet/unix/poet.o /prog/poet/unix/network.o \
+ -L/opt/ActiveTcl/src/tk8.5b1/unix -ltk8.5 -ltkstub8.5 \
+ -L/opt/ActiveTcl/src/tcl8.5b1/unix -ltcl8.5 -ltclstub8.5 -lX11 -ldl -lieee -lm -Wl,-rpath,/usr/local/lib -o poet
Added: trunk/unix/tools/t2.tcl
===================================================================
--- trunk/unix/tools/t2.tcl (rev 0)
+++ trunk/unix/tools/t2.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -0,0 +1,3 @@
+set ::env(POET_LIBRARY) /prog/poet/lib
+source /prog/poet/lib/Poet.tcl
+::Poet::unsplash
Added: trunk/unix/tools/test.tcl
===================================================================
--- trunk/unix/tools/test.tcl (rev 0)
+++ trunk/unix/tools/test.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -0,0 +1,6 @@
+set env(TKCON_FILE) /dev/null
+set env(POET_LIBRARY) /prog/poet/lib
+set env(POET_TIER) 3
+source /prog/poet/lib/Poet.tcl
+ProtoWidget demo takeover
+cd /prog/poet/testing
Added: trunk/unix/tools/tkcon.tcl
===================================================================
--- trunk/unix/tools/tkcon.tcl (rev 0)
+++ trunk/unix/tools/tkcon.tcl 2008-10-25 18:32:17 UTC (rev 42)
@@ -0,0 +1,6398 @@
+#!/bin/sh
+# \
+exec wish "$0" ${1+"$@"}
+
+# @@ Meta Begin
+# Application tkcon 2.5
+# Meta platform tcl
+# Meta summary Enhanced Tk Console
+# Meta description Enhanced Tk Console
+# Meta description Originally based off Brent Welch's
+# Meta description Tcl Shell Widget
+# Meta category Shell
+# Meta subject console tk remote
+# Meta require {Tk 8} {Tcl 8} {http 2}
+# Meta recommend ctext base64 Trf ActiveTcl
+# Meta author Jeff Hobbs
+# Meta license Tcl (+ bourbonware clause).
+# @@ Meta End
+
+#
+## tkcon.tcl
+## Enhanced Tk Console, part of the VerTcl system
+##
+## Originally based off Brent Welch's Tcl Shell Widget
+## (from "Practical Programming in Tcl and Tk")
+##
+## Thanks to the following (among many) for early bug reports & code ideas:
+## Steven Wahl, Jan Nijtmans, Mark Crimmins, Wart
+##
+## Copyright (c) 1995-2004 Jeffrey Hobbs, jeff(a)hobbs(.)org
+## Initiated: Thu Aug 17 15:36:47 PDT 1995
+##
+## source standard_disclaimer.tcl
+## source bourbon_ware.tcl
+##
+
+# Proxy support for retrieving the current version of Tkcon.
+#
+# Mon Jun 25 12:19:56 2001 - Pat Thoyts
+#
+# In your tkcon.cfg or .tkconrc file put your proxy details into the
+# `proxy' member of the `PRIV' array. e.g.:
+#
+# set ::tkcon::PRIV(proxy) wwwproxy:8080
+#
+# If you want to be prompted for proxy authentication details (eg for
+# an NT proxy server) make the second element of this variable non-nil - eg:
+#
+# set ::tkcon::PRIV(proxy) {wwwproxy:8080 1}
+#
+# Or you can set the above variable from within tkcon by calling
+#
+# tkcon master set ::tkcon:PRIV(proxy) wwwproxy:8080
+#
+
+if {$tcl_version < 8.0} {
+ return -code error "tkcon requires at least Tcl/Tk8"
+} else {
+ package require Tk
+}
+
+# We need to load some package to get what's available, and we
+# choose ctext because we'll use it if its available in the editor
+catch {package require ctext}
+foreach pkg [info loaded {}] {
+ set file [lindex $pkg 0]
+ set name [lindex $pkg 1]
+ if {![catch {set version [package require $name]}]} {
+ if {[string match {} [package ifneeded $name $version]]} {
+ package ifneeded $name $version [list load $file $name]
+ }
+ }
+}
+catch {unset pkg file name version}
+
+# Tk 8.4 makes previously exposed stuff private.
+# FIX: Update tkcon to not rely on the private Tk code.
+#
+if {![llength [info globals tkPriv]]} {
+ ::tk::unsupported::ExposePrivateVariable tkPriv
+}
+foreach cmd {SetCursor UpDownLine Transpose ScrollPages} {
+ if {![llength [info commands tkText$cmd]]} {
+ ::tk::unsupported::ExposePrivateCommand tkText$cmd
+ }
+}
+
+# Initialize the ::tkcon namespace
+#
+namespace eval ::tkcon {
+ # when modifying this line, make sure that the auto-upgrade check
+ # for version still works.
+ variable VERSION "2.5"
+ # The OPT variable is an array containing most of the optional
+ # info to configure. COLOR has the color data.
+ variable OPT
+ variable COLOR
+
+ # PRIV is used for internal data that only tkcon should fiddle with.
+ variable PRIV
+ set PRIV(WWW) [info exists embed_args]
+
+ variable EXPECT 0
+}
+
+## ::tkcon::Init - inits tkcon
+#
+# Calls: ::tkcon::InitUI
+# Outputs: errors found in tkcon's resource file
+##
+proc ::tkcon::Init {args} {
+ variable VERSION
+ variable OPT
+ variable COLOR
+ variable PRIV
+ global tcl_platform env tcl_interactive errorInfo
+
+ set tcl_interactive 1
+ set argc [llength $args]
+
+ ##
+ ## When setting up all the default values, we always check for
+ ## prior existence. This allows users who embed tkcon to modify
+ ## the initial state before tkcon initializes itself.
+ ##
+
+ # bg == {} will get bg color from the main toplevel (in InitUI)
+ foreach {key default} {
+ bg {}
+ blink \#FFFF00
+ cursor \#000000
+ disabled \#4D4D4D
+ proc \#008800
+ var \#FFC0D0
+ prompt \#8F4433
+ stdin \#000000
+ stdout \#0000FF
+ stderr \#FF0000
+ } {
+ if {![info exists COLOR($key)]} { set COLOR($key) $default }
+ }
+
+ # expandorder could also include 'Xotcl' (before Procname)
+ foreach {key default} {
+ autoload {}
+ blinktime 500
+ blinkrange 1
+ buffer 512
+ maxlinelen 0
+ calcmode 0
+ cols 80
+ debugPrompt {(level \#$level) debug [history nextid] > }
+ dead {}
+ edit edit
+ expandorder {Pathname Variable Procname}
+ font {}
+ history 48
+ hoterrors 1
+ library {}
+ lightbrace 1
+ lightcmd 1
+ maineval {}
+ maxmenu 18
+ nontcl 0
+ prompt1 {ignore this, it's set below}
+ rows 20
+ scrollypos right
+ showmenu 1
+ showmultiple 1
+ showstatusbar 1
+ slaveeval {}
+ slaveexit close
+ subhistory 1
+ gc-delay 60000
+ gets {congets}
+ overrideexit 1
+ usehistory 1
+ resultfilter {}
+
+ exec slave
+ } {
+ if {![info exists OPT($key)]} { set OPT($key) $default }
+ }
+
+ foreach {key default} {
+ app {}
+ appname {}
+ apptype slave
+ namesp ::
+ cmd {}
+ cmdbuf {}
+ cmdsave {}
+ event 1
+ deadapp 0
+ deadsock 0
+ debugging 0
+ displayWin .
+ histid 0
+ find {}
+ find,case 0
+ find,reg 0
+ errorInfo {}
+ protocol exit
+ showOnStartup 1
+ slaveprocs {
+ alias clear dir dump echo idebug lremove
+ tkcon_puts tkcon_gets observe observe_var unalias which what
+ }
+ RCS {RCS: @(#) $Id: tkcon.tcl,v 1.101 2007/06/23 00:53:41 hobbs Exp $}
+ HEADURL {http://tkcon.cvs.sourceforge.net/tkcon/tkcon/tkcon.tcl?rev=HEAD}
+
+ docs "http://tkcon.sourceforge.net/"
+ email {jeff(a)hobbs(.)org}
+ root .
+ uid 0
+ tabs {}
+ } {
+ if {![info exists PRIV($key)]} { set PRIV($key) $default }
+ }
+ foreach {key default} {
+ slavealias { $OPT(edit) more less tkcon }
+ } {
+ if {![info exists PRIV($key)]} { set PRIV($key) [subst $default] }
+ }
+ set PRIV(version) $VERSION
+
+ if {[info exists PRIV(name)]} {
+ set title $PRIV(name)
+ } else {
+ MainInit
+ # some main initialization occurs later in this proc,
+ # to go after the UI init
+ set MainInit 1
+ set title Main
+ }
+
+ ## NOTES FOR STAYING IN PRIMARY INTERPRETER:
+ ##
+ ## If you set ::tkcon::OPT(exec) to {}, then instead of a multiple
+ ## interp model, you get tkcon operating in the main interp by default.
+ ## This can be useful when attaching to programs that like to operate
+ ## in the main interpter (for example, based on special wish'es).
+ ## You can set this from the command line with -exec ""
+ ## A side effect is that all tkcon command line args will be used
+ ## by the first console only.
+ #set OPT(exec) {}
+
+ if {$PRIV(WWW)} {
+ lappend PRIV(slavealias) history
+ set OPT(prompt1) {[history nextid] % }
+ } else {
+ lappend PRIV(slaveprocs) tcl_unknown unknown
+ set OPT(prompt1) {([file tail [pwd]]) [history nextid] % }
+ }
+
+ ## If we are using the default '.' toplevel, and there appear to be
+ ## children of '.', then make sure we use a disassociated toplevel.
+ if {$PRIV(root) == "." && [llength [winfo children .]]} {
+ set PRIV(root) .tkcon
+ }
+
+ ## Do platform specific configuration here, other than defaults
+ ### Use tkcon.cfg filename for resource filename on non-unix systems
+ ### Determine what directory the resource file should be in
+ switch $tcl_platform(platform) {
+ macintosh {
+ if {![interp issafe]} {cd [file dirname [info script]]}
+ set envHome PREF_FOLDER
+ set rcfile tkcon.cfg
+ set histfile tkcon.hst
+ catch {console hide}
+ }
+ windows {
+ set envHome HOME
+ set rcfile tkcon.cfg
+ set histfile tkcon.hst
+ }
+ unix {
+ set envHome HOME
+ set rcfile .tkconrc
+ set histfile .tkcon_history
+ }
+ }
+ if {[info exists env($envHome)]} {
+ set home $env($envHome)
+ if {[file pathtype $home] == "volumerelative"} {
+ # Convert 'C:' to 'C:/' if necessary, innocuous otherwise
+ append home /
+ }
+ if {![info exists PRIV(rcfile)]} {
+ set PRIV(rcfile) [file join $home $rcfile]
+ }
+ if {![info exists PRIV(histfile)]} {
+ set PRIV(histfile) [file join $home $histfile]
+ }
+ }
+
+ ## Handle command line arguments before sourcing resource file to
+ ## find if resource file is being specified (let other args pass).
+ if {[set i [lsearch -exact $args -rcfile]] != -1} {
+ set PRIV(rcfile) [lindex $args [incr i]]
+ }
+
+ if {!$PRIV(WWW) && [file exists $PRIV(rcfile)]} {
+ set code [catch {uplevel \#0 [list source $PRIV(rcfile)]} err]
+ }
+
+ if {[info exists env(TK_CON_LIBRARY)]} {
+ lappend ::auto_path $env(TK_CON_LIBRARY)
+ } elseif {$OPT(library) != ""} {
+ lappend ::auto_path $OPT(library)
+ }
+
+ if {![info exists ::tcl_pkgPath]} {
+ set dir [file join [file dirname [info nameofexec]] lib]
+ if {[llength [info commands @scope]]} {
+ set dir [file join $dir itcl]
+ }
+ catch {source [file join $dir pkgIndex.tcl]}
+ }
+ catch {tclPkgUnknown dummy-name dummy-version}
+
+ ## Handle rest of command line arguments after sourcing resource file
+ ## and slave is created, but before initializing UI or setting packages.
+ set slaveargs {}
+ set slavefiles {}
+ set slaveargv0 {}
+ set truth {^(1|yes|true|on)$}
+ for {set i 0} {$i < $argc} {incr i} {
+ set arg [lindex $args $i]
+ if {[string match {-*} $arg]} {
+ set val [lindex $args [incr i]]
+ ## Handle arg based options
+ switch -glob -- $arg {
+ -- - -argv - -args {
+ set slaveargs [concat $slaveargs [lrange $args $i end]]
+ set ::argv $slaveargs
+ set ::argc [llength $::argv]
+ break
+ }
+ -color-* { set COLOR([string range $arg 7 end]) $val }
+ -exec { set OPT(exec) $val }
+ -main - -e - -eval { append OPT(maineval) \n$val\n }
+ -package - -load { lappend OPT(autoload) $val }
+ -slave { append OPT(slaveeval) \n$val\n }
+ -nontcl { set OPT(nontcl) [regexp -nocase $truth $val]}
+ -root { set PRIV(root) $val }
+ -font { set OPT(font) $val }
+ -rcfile {}
+ default { lappend slaveargs $arg; incr i -1 }
+ }
+ } elseif {[file isfile $arg]} {
+ if {$i == 0} {
+ set slaveargv0 $arg
+ }
+ lappend slavefiles $arg
+ } else {
+ lappend slaveargs $arg
+ }
+ }
+
+ ## Create slave executable
+ if {"" != $OPT(exec)} {
+ InitSlave $OPT(exec) $slaveargs $slaveargv0
+ } else {
+ set argc [llength $slaveargs]
+ set args $slaveargs
+ uplevel \#0 $slaveargs
+ }
+
+ # Try not to make tkcon override too many standard defaults, and only
+ # do it for the tkcon bits
+ set optclass [tk appname]$PRIV(root)
+ option add $optclass*Menu.tearOff 0
+ option add $optclass*Menu.borderWidth 1
+ option add $optclass*Menu.activeBorderWidth 1
+ if {$::tcl_version >= 8.4 && [tk windowingsystem] != "aqua"} {
+ option add $optclass*Scrollbar.borderWidth 1
+ }
+
+ ## Attach to the slave, EvalAttached will then be effective
+ Attach $PRIV(appname) $PRIV(apptype)
+ InitUI $title
+ if {"" != $OPT(exec)} {
+ # override exit to DeleteTab now that tab has been created
+ $OPT(exec) alias exit ::tkcon::DeleteTab $PRIV(curtab) $OPT(exec)
+ }
+
+ ## swap puts and gets with the tkcon versions to make sure all
+ ## input and output is handled by tkcon
+ if {![catch {rename ::puts ::tkcon_tcl_puts}]} {
+ interp alias {} ::puts {} ::tkcon_puts
+ }
+ if {($OPT(gets) != "") && ![catch {rename ::gets ::tkcon_tcl_gets}]} {
+ interp alias {} ::gets {} ::tkcon_gets
+ }
+
+ EvalSlave history keep $OPT(history)
+ if {[info exists MainInit]} {
+ # Source history file only for the main console, as all slave
+ # consoles will adopt from the main's history, but still
+ # keep separate histories
+ if {!$PRIV(WWW) && $OPT(usehistory) && [file exists $PRIV(histfile)]} {
+ puts -nonewline "loading history file ... "
+ # The history file is built to be loaded in and
+ # understood by tkcon
+ if {[catch {uplevel \#0 [list source $PRIV(histfile)]} herr]} {
+ puts stderr "error:\n$herr"
+ append PRIV(errorInfo) $errorInfo\n
+ }
+ set PRIV(event) [EvalSlave history nextid]
+ puts "[expr {$PRIV(event)-1}] events added"
+ }
+ }
+
+ ## Autoload specified packages in slave
+ set pkgs [EvalSlave package names]
+ foreach pkg $OPT(autoload) {
+ puts -nonewline "autoloading package \"$pkg\" ... "
+ if {[lsearch -exact $pkgs $pkg]>-1} {
+ if {[catch {EvalSlave package require [list $pkg]} pkgerr]} {
+ puts stderr "error:\n$pkgerr"
+ append PRIV(errorInfo) $errorInfo\n
+ } else { puts "OK" }
+ } else {
+ puts stderr "error: package does not exist"
+ }
+ }
+
+ ## Evaluate maineval in slave
+ if {[string compare {} $OPT(maineval)] && \
+ [catch {uplevel \#0 $OPT(maineval)} merr]} {
+ puts stderr "error in eval:\n$merr"
+ append PRIV(errorInfo) $errorInfo\n
+ }
+
+ ## Source extra command line argument files into slave executable
+ foreach fn $slavefiles {
+ puts -nonewline "slave sourcing \"$fn\" ... "
+ if {[catch {EvalSlave uplevel \#0 [list source $fn]} fnerr]} {
+ puts stderr "error:\n$fnerr"
+ append PRIV(errorInfo) $errorInfo\n
+ } else { puts "OK" }
+ }
+
+ ## Evaluate slaveeval in slave
+ if {[string compare {} $OPT(slaveeval)] && \
+ [catch {interp eval $OPT(exec) $OPT(slaveeval)} serr]} {
+ puts stderr "error in slave eval:\n$serr"
+ append PRIV(errorInfo) $errorInfo\n
+ }
+ ## Output any error/output that may have been returned from rcfile
+ if {[info exists code] && $code && [string compare {} $err]} {
+ puts stderr "error in $PRIV(rcfile):\n$err"
+ append PRIV(errorInfo) $errorInfo
+ }
+ if {[string compare {} $OPT(exec)]} {
+ StateCheckpoint [concat $PRIV(name) $OPT(exec)] slave
+ }
+ StateCheckpoint $PRIV(name) slave
+
+ puts "buffer line limit:\
+ [expr {$OPT(buffer)?$OPT(buffer):{unlimited}}] \
+ max line length:\
+ [expr {$OPT(maxlinelen)?$OPT(maxlinelen):{unlimited}}]"
+
+ Prompt "$title console display active (Tcl$::tcl_patchLevel / Tk$::tk_patchLevel)\n"
+}
+
+## ::tkcon::InitSlave - inits the slave by placing key procs and aliases in it
+## It's arg[cv] are based on passed in options, while argv0 is the same as
+## the master. tcl_interactive is the same as the master as well.
+# ARGS: slave - name of slave to init. If it does not exist, it is created.
+# args - args to pass to a slave as argv/argc
+##
+proc ::tkcon::InitSlave {slave {slaveargs {}} {slaveargv0 {}}} {
+ variable OPT
+ variable COLOR
+ variable PRIV
+ global argv0 tcl_interactive tcl_library env auto_path tk_library
+
+ if {[string match {} $slave]} {
+ return -code error "Don't init the master interpreter, goofball"
+ }
+ if {![interp exists $slave]} { interp create $slave }
+ if {[interp eval $slave info command source] == ""} {
+ $slave alias source SafeSource $slave
+ $slave alias load SafeLoad $slave
+ $slave alias open SafeOpen $slave
+ $slave alias file file
+ interp eval $slave \
+ [list set auto_path [lremove $auto_path $tk_library]]
+ interp eval $slave [dump var -nocomplain tcl_library env]
+ interp eval $slave { catch {source [file join $tcl_library init.tcl]} }
+ interp eval $slave { catch unknown }
+ }
+ # This will likely be overridden to call DeleteTab where possible
+ $slave alias exit exit
+ interp eval $slave {
+ # Do package require before changing around puts/gets
+ catch {set __tkcon_error ""; set __tkcon_error $errorInfo}
+ catch {package require bogus-package-name}
+ catch {rename ::puts ::tkcon_tcl_puts}
+ set errorInfo ${__tkcon_error}
+ unset __tkcon_error
+ }
+ foreach cmd $PRIV(slaveprocs) { $slave eval [dump proc $cmd] }
+ foreach cmd $PRIV(slavealias) { $slave alias $cmd $cmd }
+ interp alias $slave ::ls $slave ::dir -full
+ interp alias $slave ::puts $slave ::tkcon_puts
+ if {$OPT(gets) != ""} {
+ interp eval $slave { catch {rename ::gets ::tkcon_tcl_gets} }
+ interp alias $slave ::gets $slave ::tkcon_gets
+ }
+ if {$slaveargv0 != ""} {
+ # If tkcon was invoked with 1 or more filenames, then make the
+ # first filename argv0 in the slave, as tclsh/wish would do it.
+ interp eval $slave [list set argv0 $slaveargv0]
+ } else {
+ if {[info exists argv0]} {interp eval $slave [list set argv0 $argv0]}
+ }
+ interp eval $slave set tcl_interactive $tcl_interactive \; \
+ set auto_path [list [lremove $auto_path $tk_library]] \; \
+ set argc [llength $slaveargs] \; \
+ set argv [list $slaveargs] \; {
+ if {![llength [info command bgerror]]} {
+ proc bgerror err {
+ global errorInfo
+ set body [info body bgerror]
+ rename ::bgerror {}
+ if {[auto_load bgerror]} { return [bgerror $err] }
+ proc bgerror err $body
+ tkcon bgerror $err $errorInfo
+ }
+ }
+ }
+
+ foreach pkg [lremove [package names] Tcl] {
+ foreach v [package versions $pkg] {
+ interp eval $slave [list package ifneeded $pkg $v \
+ [package ifneeded $pkg $v]]
+ }
+ }
+}
+
+## ::tkcon::InitInterp - inits an interpreter by placing key
+## procs and aliases in it.
+# ARGS: name - interp name
+# type - interp type (slave|interp)
+##
+proc ::tkcon::InitInterp {name type} {
+ variable OPT
+ variable PRIV
+
+ ## Don't allow messing up a local master interpreter
+ if {[string match namespace $type] || ([string match slave $type] && \
+ [regexp {^([Mm]ain|Slave[0-9]+)$} $name])} return
+ set old [Attach]
+ set oldname $PRIV(namesp)
+ catch {
+ Attach $name $type
+ EvalAttached { catch {rename ::puts ::tkcon_tcl_puts} }
+ foreach cmd $PRIV(slaveprocs) { EvalAttached [dump proc $cmd] }
+ switch -exact $type {
+ slave {
+ foreach cmd $PRIV(slavealias) {
+ Main interp alias $name ::$cmd $PRIV(name) ::$cmd
+ }
+ }
+ interp {
+ set thistkcon [::send::appname]
+ foreach cmd $PRIV(slavealias) {
+ EvalAttached "proc $cmd args { ::send::send [list $thistkcon] $cmd \$args }"
+ }
+ }
+ }
+ ## Catch in case it's a 7.4 (no 'interp alias') interp
+ EvalAttached {
+ catch {interp alias {} ::ls {} ::dir -full}
+ if {[catch {interp alias {} ::puts {} ::tkcon_puts}]} {
+ catch {rename ::tkcon_puts ::puts}
+ }
+ }
+ if {$OPT(gets) != ""} {
+ EvalAttached {
+ catch {rename ::gets ::tkcon_tcl_gets}
+ if {[catch {interp alias {} ::gets {} ::tkcon_gets}]} {
+ catch {rename ::tkcon_gets ::gets}
+ }
+ }
+ }
+ return
+ } {err}
+ eval Attach $old
+ AttachNamespace $oldname
+ if {[string compare {} $err]} { return -code error $err }
+}
+
+## ::tkcon::InitUI - inits UI portion (console) of tkcon
+## Creates all elements of the console window and sets up the text tags
+# ARGS: root - widget pathname of the tkcon console root
+# title - title for the console root and main (.) windows
+# Calls: ::tkcon::InitMenus, ::tkcon::Prompt
+##
+proc ::tkcon::InitUI {title} {
+ variable OPT
+ variable PRIV
+ variable COLOR
+
+ set root $PRIV(root)
+ if {[string match . $root]} { set w {} } else { set w [toplevel $root] }
+ if {!$PRIV(WWW)} {
+ wm withdraw $root
+ wm protocol $root WM_DELETE_WINDOW $PRIV(protocol)
+ }
+ set PRIV(base) $w
+
+ catch {font create tkconfixed -family Courier -size -12}
+ catch {font create tkconfixedbold -family Courier -size -12 -weight bold}
+
+ set PRIV(statusbar) [set sbar [frame $w.fstatus]]
+ set PRIV(tabframe) [frame $sbar.tabs]
+ set PRIV(X) [button $sbar.deltab -text "X" -command ::tkcon::DeleteTab \
+ -activeforeground red -fg red -font tkconfixedbold \
+ -highlightthickness 0 -padx 2 -pady 0 -borderwidth 1 \
+ -state disabled -relief flat -takefocus 0]
+ catch {$PRIV(X) configure -overrelief raised}
+ label $sbar.cursor -relief sunken -borderwidth 1 -anchor e -width 6 \
+ -textvariable ::tkcon::PRIV(StatusCursor)
+ set padx [expr {![info exists ::tcl_platform(os)]
+ || ![string match "Windows CE" $::tcl_platform(os)]}]
+ grid $PRIV(X) $PRIV(tabframe) $sbar.cursor -sticky news -padx $padx
+ grid configure $PRIV(tabframe) -sticky nsw
+ grid configure $PRIV(X) -pady 0 -padx 0
+ grid columnconfigure $sbar 1 -weight 1
+ grid rowconfigure $sbar 0 -weight 1
+ grid rowconfigure $PRIV(tabframe) 0 -weight 1
+ if {$::tcl_version >= 8.4 && [tk windowingsystem] == "aqua"} {
+ # resize control space
+ grid columnconfigure $sbar [lindex [grid size $sbar] 0] -minsize 16
+ }
+
+ ## Create console tab
+ set con [InitTab $w]
+ set PRIV(curtab) $con
+
+ # Only apply this for the first console
+ $con configure -setgrid 1 -width $OPT(cols) -height $OPT(rows)
+ bind $PRIV(root) <Configure> {
+ if {"%W" == $::tkcon::PRIV(root)} {
+ scan [wm geometry [winfo toplevel %W]] "%%dx%%d" \
+ ::tkcon::OPT(cols) ::tkcon::OPT(rows)
+ if {[info exists ::tkcon::EXP(spawn_id)]} {
+ catch {stty rows $::tkcon::OPT(rows) columns \
+ $::tkcon::OPT(cols) < $::tkcon::EXP(slave,name)}
+ }
+ }
+ }
+
+ # scrollbar
+ set sy [scrollbar $w.sy -takefocus 0 -command [list $con yview]]
+ if {!$PRIV(WWW) && [string match "Windows CE" $::tcl_platform(os)]} {
+ $w.sy configure -width 10
+ }
+
+ $con configure -yscrollcommand [list $sy set]
+ set PRIV(console) $con
+ set PRIV(scrolly) $sy
+
+ ## Menus
+ ## catch against use in plugin
+ if {[catch {menu $w.mbar} PRIV(menubar)]} {
+ set PRIV(menubar) [frame $w.mbar -relief raised -borderwidth 1]
+ }
+
+ InitMenus $PRIV(menubar) $title
+ Bindings
+
+ if {$OPT(showmenu)} {
+ $root configure -menu $PRIV(menubar)
+ }
+
+ grid $con -row 1 -column 1 -sticky news
+ grid $sy -row 1 -column [expr {$OPT(scrollypos)=="left"?0:2}] -sticky ns
+ grid $sbar -row 2 -column 0 -columnspan 3 -sticky ew
+
+ grid columnconfigure $root 1 -weight 1
+ grid rowconfigure $root 1 -weight 1
+
+ if {!$OPT(showstatusbar)} {
+ grid remove $sbar
+ }
+
+ if {!$PRIV(WWW)} {
+ wm title $root "tkcon $PRIV(version) $title"
+ if {$PRIV(showOnStartup)} { wm deiconify $root }
+ }
+ if {$PRIV(showOnStartup)} { focus -force $PRIV(console) }
+ if {$OPT(gc-delay)} {
+ after $OPT(gc-delay) ::tkcon::GarbageCollect
+ }
+}
+
+proc ::tkcon::InitTab {w} {
+ variable OPT
+ variable PRIV
+ variable COLOR
+ variable ATTACH
+
+ # text console
+ set con $w.tab[incr PRIV(uid)]
+ text $con -wrap char -foreground $COLOR(stdin) \
+ -insertbackground $COLOR(cursor) -borderwidth 1 -highlightthickness 0
+ $con mark set output 1.0
+ $con mark set limit 1.0
+ if {[string compare {} $COLOR(bg)]} {
+ $con configure -background $COLOR(bg)
+ }
+ set COLOR(bg) [$con cget -background]
+ if {[string compare {} $OPT(font)]} {
+ ## Set user-requested font, if any
+ $con configure -font $OPT(font)
+ } elseif {[string compare unix $::tcl_platform(platform)]} {
+ ## otherwise make sure the font is monospace
+ set font [$con cget -font]
+ if {![font metrics $font -fixed]} {
+ $con configure -font tkconfixed
+ }
+ } else {
+ $con configure -font tkconfixed
+ }
+ set OPT(font) [$con cget -font]
+ bindtags $con [list $con TkConsole TkConsolePost $PRIV(root) all]
+
+ # scrollbar
+ if {!$PRIV(WWW)} {
+ if {[string match "Windows CE" $::tcl_platform(os)]} {
+ font configure tkconfixed -family Tahoma -size 8
+ $con configure -font tkconfixed -borderwidth 0 -padx 0 -pady 0
+ set cw [font measure tkconfixed "0"]
+ set ch [font metrics tkconfixed -linespace]
+ set sw [winfo screenwidth $con]
+ set sh [winfo screenheight $con]
+ # We need the magic hard offsets until I find a way to
+ # correctly assume size
+ if {$cw*($OPT(cols)+2) > $sw} {
+ set OPT(cols) [expr {($sw / $cw) - 2}]
+ }
+ if {$ch*($OPT(rows)+3) > $sh} {
+ set OPT(rows) [expr {($sh / $ch) - 3}]
+ }
+ # Place it so that the titlebar underlaps the CE titlebar
+ wm geometry $PRIV(root) +0+0
+ }
+ }
+ $con configure -height $OPT(rows) -width $OPT(cols)
+
+ foreach col {prompt stdout stderr stdin proc} {
+ $con tag configure $col -foreground $COLOR($col)
+ }
+ $con tag configure var -background $COLOR(var)
+ $con tag raise sel
+ $con tag configure blink -background $COLOR(blink)
+ $con tag configure find -background $COLOR(blink)
+
+ set ATTACH($con) [Attach]
+ set rb [radiobutton $PRIV(tabframe).cb[winfo name $con] -takefocus 0 \
+ -textvariable ::tkcon::ATTACH($con) \
+ -selectcolor white -relief sunken \
+ -indicatoron 0 -padx 0 -pady 0 -borderwidth 1 \
+ -variable ::tkcon::PRIV(curtab) -value $con \
+ -command [list ::tkcon::GotoTab $con]]
+ if {$::tcl_version >= 8.4} {
+ $rb configure -offrelief flat -overrelief raised
+ }
+ grid $rb -row 0 -column [lindex [grid size $PRIV(tabframe)] 0] -sticky ns
+ grid $con -row 1 -column 1 -sticky news
+
+ lappend PRIV(tabs) $con
+ return $con
+}
+
+proc ::tkcon::GotoTab {con} {
+ variable PRIV
+ variable ATTACH
+
+ set numtabs [llength $PRIV(tabs)]
+ #if {$numtabs == 1} { return }
+
+ if {[regexp {^[0-9]+$} $con]} {
+ set curtab [lsearch -exact $PRIV(tabs) $PRIV(console)]
+ set nexttab [expr {$curtab + $con}]
+ if {$nexttab >= $numtabs} {
+ set nexttab 0
+ } elseif {$nexttab < 0} {
+ set nexttab "end"
+ }
+ set con [lindex $PRIV(tabs) $nexttab]
+ } elseif {$con == $PRIV(console)} {
+ return
+ }
+
+ # adjust console
+ if {[winfo exists $PRIV(console)]} {
+ lower $PRIV(console)
+ $PRIV(console) configure -yscrollcommand {}
+ set ATTACH($PRIV(console)) [Attach]
+ }
+ set PRIV(console) $con
+ $con configure -yscrollcommand [list $PRIV(scrolly) set]
+ $PRIV(scrolly) configure -command [list $con yview]
+
+ # adjust attach
+ eval [linsert $ATTACH($con) 0 Attach]
+
+ set PRIV(curtab) $con
+
+ raise $con
+
+ if {[$con compare 1.0 == end-1c]} {
+ Prompt
+ }
+
+ # set StatusCursor
+ set PRIV(StatusCursor) [$con index insert]
+
+ focus -force $con
+}
+
+proc ::tkcon::NewTab {{con {}}} {
+ variable PRIV
+ variable ATTACH
+
+ set con [InitTab $PRIV(base)]
+ set slave [GetSlave]
+ InitSlave $slave
+ $slave alias exit ::tkcon::DeleteTab $con $slave
+ if {$PRIV(name) != ""} {
+ set ATTACH($con) [list [list $PRIV(name) $slave] slave]
+ } else {
+ set ATTACH($con) [list $slave slave]
+ }
+ $PRIV(X) configure -state normal
+ MenuConfigure Console "Delete Tab" -state normal
+ GotoTab $con
+}
+
+# The extra code arg is for the alias of exit to this function
+proc ::tkcon::DeleteTab {{con {}} {slave {}} {code 0}} {
+ variable PRIV
+
+ set numtabs [llength $PRIV(tabs)]
+ if {$numtabs <= 2} {
+ $PRIV(X) configure -state disabled
+ MenuConfigure Console "Delete Tab" -state disabled
+ }
+ if {$numtabs == 1} {
+ # in the master, it should do the right thing
+ # currently the first master still exists - need rearch to fix
+ exit
+ # we might end up here, depending on how exit is rerouted
+ return
+ }
+
+ if {$con == ""} {
+ set con $PRIV(console)
+ }
+ catch {unset ATTACH($con)}
+ set curtab [lsearch -exact $PRIV(tabs) $con]
+ set PRIV(tabs) [lreplace $PRIV(tabs) $curtab $curtab]
+
+ set numtabs [llength $PRIV(tabs)]
+ set nexttab $curtab
+ if {$nexttab >= $numtabs} {
+ set nexttab end
+ }
+ set nexttab [lindex $PRIV(tabs) $nexttab]
+
+ GotoTab $nexttab
+
+ if {$slave != "" && $slave != $::tkcon::OPT(exec)} {
+ interp delete $slave
+ }
+ destroy $PRIV(tabframe).cb[winfo name $con]
+ destroy $con
+}
+
+## ::tkcon::GarbageCollect - do various cleanup ops periodically to our setup
+##
+proc ::tkcon::GarbageCollect {} {
+ variable OPT
+ variable PRIV
+
+ foreach w $PRIV(tabs) {
+ if {[winfo exists $w]} {
+ ## Remove error tags that no longer span anything
+ ## Make sure the tag pattern matches the unique tag prefix
+ foreach tag [$w tag names] {
+ if {[string match _tag* $tag]
+ && ![llength [$w tag ranges $tag]]} {
+ $w tag delete $tag
+ }
+ }
+ }
+ }
+ if {$OPT(gc-delay)} {
+ after $OPT(gc-delay) ::tkcon::GarbageCollect
+ }
+}
+
+## ::tkcon::Eval - evaluates commands input into console window
+## This is the first stage of the evaluating commands in the console.
+## They need to be broken up into consituent commands (by ::tkcon::CmdSep) in
+## case a multiple commands were pasted in, then each is eval'ed (by
+## ::tkcon::EvalCmd) in turn. Any uncompleted command will not be eval'ed.
+# ARGS: w - console text widget
+# Calls: ::tkcon::CmdGet, ::tkcon::CmdSep, ::tkcon::EvalCmd
+##
+proc ::tkcon::Eval {w} {
+ set incomplete [CmdSep [CmdGet $w] cmds last]
+ $w mark set insert end-1c
+ $w insert end \n
+ if {[llength $cmds]} {
+ foreach c $cmds {EvalCmd $w $c}
+ $w insert insert $last {}
+ } elseif {!$incomplete} {
+ EvalCmd $w $last
+ }
+ if {[winfo exists $w]} {
+ $w see insert
+ }
+}
+
+## ::tkcon::EvalCmd - evaluates a single command, adding it to history
+# ARGS: w - console text widget
+# cmd - the command to evaluate
+# Calls: ::tkcon::Prompt
+# Outputs: result of command to stdout (or stderr if error occured)
+# Returns: next event number
+##
+proc ::tkcon::EvalCmd {w cmd} {
+ variable OPT
+ variable PRIV
+
+ $w mark set output end
+ if {[string compare {} $cmd]} {
+ set code 0
+ if {$OPT(subhistory)} {
+ set ev [EvalSlave history nextid]
+ incr ev -1
+ ## FIX: calcmode doesn't work with requesting history events
+ if {[string match !! $cmd]} {
+ set code [catch {EvalSlave history event $ev} cmd]
+ if {!$code} {$w insert output $cmd\n stdin}
+ } elseif {[regexp {^!(.+)$} $cmd dummy event]} {
+ ## Check last event because history event is broken
+ set code [catch {EvalSlave history event $ev} cmd]
+ if {!$code && ![string match ${event}* $cmd]} {
+ set code [catch {EvalSlave history event $event} cmd]
+ }
+ if {!$code} {$w insert output $cmd\n stdin}
+ } elseif {[regexp {^\^([^^]*)\^([^^]*)\^?$} $cmd dummy old new]} {
+ set code [catch {EvalSlave history event $ev} cmd]
+ if {!$code} {
+ regsub -all -- $old $cmd $new cmd
+ $w insert output $cmd\n stdin
+ }
+ } elseif {$OPT(calcmode) && ![catch {expr $cmd} err]} {
+ AddSlaveHistory $cmd
+ set cmd $err
+ set code -1
+ }
+ }
+ if {$code} {
+ $w insert output $cmd\n stderr
+ } else {
+ ## We are about to evaluate the command, so move the limit
+ ## mark to ensure that further <Return>s don't cause double
+ ## evaluation of this command - for cases like the command
+ ## has a vwait or something in it
+ $w mark set limit end
+ if {$OPT(nontcl) && [string match interp $PRIV(apptype)]} {
+ set code [catch {EvalSend $cmd} res]
+ if {$code == 1} {
+ set PRIV(errorInfo) "Non-Tcl errorInfo not available"
+ }
+ } elseif {[string match socket $PRIV(apptype)]} {
+ set code [catch {EvalSocket $cmd} res]
+ if {$code == 1} {
+ set PRIV(errorInfo) "Socket-based errorInfo not available"
+ }
+ } else {
+ set code [catch {EvalAttached $cmd} res]
+ if {$code == 1} {
+ if {[catch {EvalAttached [list set errorInfo]} err]} {
+ set PRIV(errorInfo) "Error getting errorInfo:\n$err"
+ } else {
+ set PRIV(errorInfo) $err
+ }
+ }
+ }
+ if {![winfo exists $w]} {
+ # early abort - must be a deleted tab
+ return
+ }
+ AddSlaveHistory $cmd
+ # Run any user defined result filter command. The command is
+ # passed result code and data.
+ if {[llength $OPT(resultfilter)]} {
+ set cmd [concat $OPT(resultfilter) [list $code $res]]
+ if {[catch {EvalAttached $cmd} res2]} {
+ $w insert output "Filter failed: $res2" stderr \n stdout
+ } else {
+ set res $res2
+ }
+ }
+ catch {EvalAttached [list set _ $res]}
+ set maxlen $OPT(maxlinelen)
+ set trailer ""
+ if {($maxlen > 0) && ([string length $res] > $maxlen)} {
+ # If we exceed maximum desired output line length, truncate
+ # the result and add "...+${num}b" in error coloring
+ set trailer ...+[expr {[string length $res]-$maxlen}]b
+ set res [string range $res 0 $maxlen]
+ }
+ if {$code} {
+ if {$OPT(hoterrors)} {
+ set tag [UniqueTag $w]
+ $w insert output $res [list stderr $tag] \n$trailer stderr
+ $w tag bind $tag <Enter> \
+ [list $w tag configure $tag -under 1]
+ $w tag bind $tag <Leave> \
+ [list $w tag configure $tag -under 0]
+ $w tag bind $tag <ButtonRelease-1> \
+ "if {!\[info exists tkPriv(mouseMoved)\] || !\$tkPriv(mouseMoved)} \
+ {[list $OPT(edit) -attach [Attach] -type error -- $PRIV(errorInfo)]}"
+ } else {
+ $w insert output $res\n$trailer stderr
+ }
+ } elseif {[string compare {} $res]} {
+ $w insert output $res stdout $trailer stderr \n stdout
+ }
+ }
+ }
+ Prompt
+ set PRIV(event) [EvalSlave history nextid]
+}
+
+## ::tkcon::EvalSlave - evaluates the args in the associated slave
+## args should be passed to this procedure like they would be at
+## the command line (not like to 'eval').
+# ARGS: args - the command and args to evaluate
+##
+proc ::tkcon::EvalSlave args {
+ interp eval $::tkcon::OPT(exec) $args
+}
+
+## ::tkcon::EvalOther - evaluate a command in a foreign interp or slave
+## without attaching to it. No check for existence is made.
+# ARGS: app - interp/slave name
+# type - (slave|interp)
+##
+proc ::tkcon::EvalOther { app type args } {
+ if {[string compare slave $type]==0} {
+ return [Slave $app $args]
+ } else {
+ return [uplevel 1 ::send::send [list $app] $args]
+ }
+}
+
+## ::tkcon::AddSlaveHistory -
+## Command is added to history only if different from previous command.
+## This also doesn't cause the history id to be incremented, although the
+## command will be evaluated.
+# ARGS: cmd - command to add
+##
+proc ::tkcon::AddSlaveHistory cmd {
+ set ev [EvalSlave history nextid]
+ incr ev -1
+ set code [catch {EvalSlave history event $ev} lastCmd]
+ if {$code || [string compare $cmd $lastCmd]} {
+ EvalSlave history add $cmd
+ }
+}
+
+## ::tkcon::EvalSend - sends the args to the attached interpreter
+## Varies from 'send' by determining whether attachment is dead
+## when an error is received
+# ARGS: cmd - the command string to send across
+# Returns: the result of the command
+##
+proc ::tkcon::EvalSend cmd {
+ variable OPT
+ variable PRIV
+
+ if {$PRIV(deadapp)} {
+ if {[lsearch -exact [::send::interps] $PRIV(app)]<0} {
+ return
+ } else {
+ set PRIV(appname) [string range $PRIV(appname) 5 end]
+ set PRIV(deadapp) 0
+ Prompt "\n\"$PRIV(app)\" alive\n" [CmdGet $PRIV(console)]
+ }
+ }
+ set code [catch {::send::send -displayof $PRIV(displayWin) $PRIV(app) $cmd} result]
+ if {$code && [lsearch -exact [::send::interps] $PRIV(app)]<0} {
+ ## Interpreter disappeared
+ if {[string compare leave $OPT(dead)] && \
+ ([string match ignore $OPT(dead)] || \
+ [tk_messageBox -title "Dead Attachment" -type yesno \
+ -icon info -message \
+ "\"$PRIV(app)\" appears to have died.\
+ \nReturn to primary slave interpreter?"]=="no")} {
+ set PRIV(appname) "DEAD:$PRIV(appname)"
+ set PRIV(deadapp) 1
+ } else {
+ set err "Attached Tk interpreter \"$PRIV(app)\" died."
+ Attach {}
+ set PRIV(deadapp) 0
+ EvalSlave set errorInfo $err
+ }
+ Prompt \n [CmdGet $PRIV(console)]
+ }
+ return -code $code $result
+}
+
+## ::tkcon::EvalSocket - sends the string to an interpreter attached via
+## a tcp/ip socket
+##
+## In the EvalSocket case, ::tkcon::PRIV(app) is the socket id
+##
+## Must determine whether socket is dead when an error is received
+# ARGS: cmd - the data string to send across
+# Returns: the result of the command
+##
+proc ::tkcon::EvalSocket cmd {
+ variable OPT
+ variable PRIV
+ global tcl_version
+
+ if {$PRIV(deadapp)} {
+ if {![info exists PRIV(app)] || \
+ [catch {eof $PRIV(app)} eof] || $eof} {
+ return
+ } else {
+ set PRIV(appname) [string range $PRIV(appname) 5 end]
+ set PRIV(deadapp) 0
+ Prompt "\n\"$PRIV(app)\" alive\n" [CmdGet $PRIV(console)]
+ }
+ }
+ # Sockets get \'s interpreted, so that users can
+ # send things like \n\r or explicit hex values
+ set cmd [subst -novariables -nocommands $cmd]
+ #puts [list $PRIV(app) $cmd]
+ set code [catch {puts $PRIV(app) $cmd ; flush $PRIV(app)} result]
+ if {$code && [eof $PRIV(app)]} {
+ ## Interpreter died or disappeared
+ puts "$code eof [eof $PRIV(app)]"
+ EvalSocketClosed $PRIV(app)
+ }
+ return -code $code $result
+}
+
+## ::tkcon::EvalSocketEvent - fileevent command for an interpreter attached
+## via a tcp/ip socket
+## Must determine whether socket is dead when an error is received
+# ARGS: args - the args to send across
+# Returns: the result of the command
+##
+proc ::tkcon::EvalSocketEvent {sock} {
+ variable PRIV
+
+ if {[gets $sock line] == -1} {
+ if {[eof $sock]} {
+ EvalSocketClosed $sock
+ }
+ return
+ }
+ puts $line
+}
+
+## ::tkcon::EvalSocketClosed - takes care of handling a closed eval socket
+##
+# ARGS: args - the args to send across
+# Returns: the result of the command
+##
+proc ::tkcon::EvalSocketClosed {sock} {
+ variable OPT
+ variable PRIV
+
+ catch {close $sock}
+ if {![string match $sock $PRIV(app)]} {
+ # If we are not still attached to that socket, just return.
+ # Might be nice to tell the user the socket closed ...
+ return
+ }
+ if {[string compare leave $OPT(dead)] && \
+ ([string match ignore $OPT(dead)] || \
+ [tk_messageBox -title "Dead Attachment" -type yesno \
+ -icon question \
+ -message "\"$PRIV(app)\" appears to have died.\
+ \nReturn to primary slave interpreter?"] == "no")} {
+ set PRIV(appname) "DEAD:$PRIV(appname)"
+ set PRIV(deadapp) 1
+ } else {
+ set err "Attached Tk interpreter \"$PRIV(app)\" died."
+ Attach {}
+ set PRIV(deadapp) 0
+ EvalSlave set errorInfo $err
+ }
+ Prompt \n [CmdGet $PRIV(console)]
+}
+
+## ::tkcon::EvalNamespace - evaluates the args in a particular namespace
+## This is an override for ::tkcon::EvalAttached for when the user wants
+## to attach to a particular namespace of the attached interp
+# ARGS: attached
+# namespace the namespace to evaluate in
+# args the args to evaluate
+# RETURNS: the result of the command
+##
+proc ::tkcon::EvalNamespace { attached namespace args } {
+ if {[llength $args]} {
+ uplevel \#0 $attached \
+ [list [concat [list namespace eval $namespace] $args]]
+ }
+}
+
+
+## ::tkcon::Namespaces - return all the namespaces descendent from $ns
+##
+#
+##
+proc ::tkcon::Namespaces {{ns ::} {l {}}} {
+ if {[string compare {} $ns]} { lappend l $ns }
+ foreach i [EvalAttached [list namespace children $ns]] {
+ set l [Namespaces $i $l]
+ }
+ return $l
+}
+
+## ::tkcon::CmdGet - gets the current command from the console widget
+# ARGS: w - console text widget
+# Returns: text which compromises current command line
+##
+proc ::tkcon::CmdGet w {
+ if {![llength [$w tag nextrange prompt limit end]]} {
+ $w tag add stdin limit end-1c
+ return [$w get limit end-1c]
+ }
+}
+
+## ::tkcon::CmdSep - separates multiple commands into a list and remainder
+# ARGS: cmd - (possible) multiple command to separate
+# list - varname for the list of commands that were separated.
+# last - varname of any remainder (like an incomplete final command).
+# If there is only one command, it's placed in this var.
+# Returns: constituent command info in varnames specified by list & rmd.
+##
+proc ::tkcon::CmdSep {cmd list last} {
+ upvar 1 $list cmds $last inc
+ set inc {}
+ set cmds {}
+ foreach c [split [string trimleft $cmd] \n] {
+ if {[string compare $inc {}]} {
+ append inc \n$c
+ } else {
+ append inc [string trimleft $c]
+ }
+ if {[info complete $inc] && ![regexp {[^\\]\\$} $inc]} {
+ if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc}
+ set inc {}
+ }
+ }
+ set i [string compare $inc {}]
+ if {!$i && [string compare $cmds {}] && ![string match *\n $cmd]} {
+ set inc [lindex $cmds end]
+ set cmds [lreplace $cmds end end]
+ }
+ return $i
+}
+
+## ::tkcon::CmdSplit - splits multiple commands into a list
+# ARGS: cmd - (possible) multiple command to separate
+# Returns: constituent commands in a list
+##
+proc ::tkcon::CmdSplit {cmd} {
+ set inc {}
+ set cmds {}
+ foreach cmd [split [string trimleft $cmd] \n] {
+ if {[string compare {} $inc]} {
+ append inc \n$cmd
+ } else {
+ append inc [string trimleft $cmd]
+ }
+ if {[info complete $inc] && ![regexp {[^\\]\\$} $inc]} {
+ #set inc [string trimright $inc]
+ if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc}
+ set inc {}
+ }
+ }
+ if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc}
+ return $cmds
+}
+
+## ::tkcon::UniqueTag - creates a uniquely named tag, reusing names
+## Called by ::tkcon::EvalCmd
+# ARGS: w - text widget
+# Outputs: tag name guaranteed unique in the widget
+##
+proc ::tkcon::UniqueTag {w} {
+ set tags [$w tag names]
+ set idx 0
+ while {[lsearch -exact $tags _tag[incr idx]] != -1} {}
+ return _tag$idx
+}
+
+## ::tkcon::ConstrainBuffer - This limits the amount of data in the text widget
+## Called by ::tkcon::Prompt and in tkcon proc buffer/console switch cases
+# ARGS: w - console text widget
+# size - # of lines to constrain to
+# Outputs: may delete data in console widget
+##
+proc ::tkcon::ConstrainBuffer {w size} {
+ if {$size && ([$w index end] > $size)} {
+ $w delete 1.0 [expr {int([$w index end])-$size}].0
+ }
+}
+
+## ::tkcon::Prompt - displays the prompt in the console widget
+# ARGS: w - console text widget
+# Outputs: prompt (specified in ::tkcon::OPT(prompt1)) to console
+##
+proc ::tkcon::Prompt {{pre {}} {post {}} {prompt {}}} {
+ variable OPT
+ variable PRIV
+
+ set w $PRIV(console)
+ if {![winfo exists $w]} { return }
+ if {[string compare {} $pre]} { $w insert end $pre stdout }
+ set i [$w index end-1c]
+ if {!$OPT(showstatusbar)} {
+ if {[string compare {} $PRIV(appname)]} {
+ $w insert end ">$PRIV(appname)< " prompt
+ }
+ if {[string compare :: $PRIV(namesp)]} {
+ $w insert end "<$PRIV(namesp)> " prompt
+ }
+ }
+ if {[string compare {} $prompt]} {
+ $w insert end $prompt prompt
+ } else {
+ $w insert end [EvalSlave subst $OPT(prompt1)] prompt
+ }
+ $w mark set output $i
+ $w mark set insert end
+ $w mark set limit insert
+ $w mark gravity limit left
+ if {[string compare {} $post]} { $w insert end $post stdin }
+ ConstrainBuffer $w $OPT(buffer)
+ set ::tkcon::PRIV(StatusCursor) [$w index insert]
+ $w see end
+}
+proc ::tkcon::RePrompt {{pre {}} {post {}} {prompt {}}} {
+ # same as prompt, but does nothing for those actions where we
+ # only wanted to refresh the prompt on attach change when the
+ # statusbar is showing (which carries that info instead)
+ variable OPT
+ if {!$OPT(showstatusbar)} {
+ Prompt $pre $post $prompt
+ }
+}
+
+## ::tkcon::About - gives about info for tkcon
+##
+proc ::tkcon::About {} {
+ variable OPT
+ variable PRIV
+ variable COLOR
+
+ set w $PRIV(base).about
+ if {![winfo exists $w]} {
+ global tk_patchLevel tcl_patchLevel tcl_version
+ toplevel $w
+ wm withdraw $w
+ wm transient $w $PRIV(root)
+ wm group $w $PRIV(root)
+ wm title $w "About tkcon v$PRIV(version)"
+ wm resizable $w 0 0
+ button $w.b -text Dismiss -command [list wm withdraw $w]
+ text $w.text -height 9 -width 60 \
+ -foreground $COLOR(stdin) \
+ -background $COLOR(bg) \
+ -font $OPT(font) -borderwidth 1 -highlightthickness 0
+ grid $w.text -sticky news
+ grid $w.b -sticky se -padx 6 -pady 4
+ $w.text tag config center -justify center
+ $w.text tag config title -justify center -font {Courier -18 bold}
+ # strip down the RCS info displayed in the about box
+ regexp {,v ([0-9\./: ]*)} $PRIV(RCS) -> RCS
+ $w.text insert 1.0 "About tkcon v$PRIV(version)" title \
+ "\n\nCopyright 1995-2002 Jeffrey Hobbs, $PRIV(email)\
+ \nRelease Info: v$PRIV(version), CVS v$RCS\
+ \nDocumentation available at:\n$PRIV(docs)\
+ \nUsing: Tcl v$tcl_patchLevel / Tk v$tk_patchLevel" center
+ $w.text config -state disabled
+ bind $w <Escape> [list destroy $w]
+ }
+ wm deiconify $w
+}
+
+## ::tkcon::InitMenus - inits the menubar and popup for the console
+# ARGS: w - console text widget
+##
+proc ::tkcon::InitMenus {w title} {
+ variable OPT
+ variable PRIV
+ variable COLOR
+ global tcl_platform
+
+ if {[catch {menu $w.pop}]} {
+ label $w.label -text "Menus not available in plugin mode"
+ grid $w.label -sticky ew
+ return
+ }
+ menu $w.context -disabledforeground $COLOR(disabled)
+ set PRIV(context) $w.context
+ set PRIV(popup) $w.pop
+
+ proc MenuButton {w m l} {
+ $w add cascade -label $m -underline 0 -menu $w.$l
+ return $w.$l
+ }
+ proc MenuConfigure {m l args} {
+ variable PRIV
+ eval [list $PRIV(menubar).[string tolower $m] entryconfigure $l] $args
+ eval [list $PRIV(popup).[string tolower $m] entryconfigure $l] $args
+ }
+
+ foreach m [list File Console Edit Interp Prefs History Help] {
+ set l [string tolower $m]
+ MenuButton $w $m $l
+ $w.pop add cascade -label $m -underline 0 -menu $w.pop.$l
+ }
+
+ ## File Menu
+ ##
+ foreach m [list [menu $w.file -disabledforeground $COLOR(disabled)] \
+ [menu $w.pop.file -disabledforeground $COLOR(disabled)]] {
+ $m add command -label "Load File" -underline 0 -command ::tkcon::Load
+ $m add cascade -label "Save ..." -underline 0 -menu $m.save
+ $m add separator
+ $m add command -label "Quit" -underline 0 -accel Ctrl-q -command exit
+
+ ## Save Menu
+ ##
+ set s $m.save
+ menu $s -disabledforeground $COLOR(disabled)
+ $s add command -label "All" -underline 0 \
+ -command {::tkcon::Save {} all}
+ $s add command -label "History" -underline 0 \
+ -command {::tkcon::Save {} history}
+ $s add command -label "Stdin" -underline 3 \
+ -command {::tkcon::Save {} stdin}
+ $s add command -label "Stdout" -underline 3 \
+ -command {::tkcon::Save {} stdout}
+ $s add command -label "Stderr" -underline 3 \
+ -command {::tkcon::Save {} stderr}
+ }
+
+ ## Console Menu
+ ##
+ foreach m [list [menu $w.console -disabledfore $COLOR(disabled)] \
+ [menu $w.pop.console -disabledfore $COLOR(disabled)]] {
+ $m add command -label "$title Console" -state disabled
+ $m add command -label "New Console" -underline 0 -accel Ctrl-N \
+ -command ::tkcon::New
+ $m add command -label "New Tab" -underline 4 -accel Ctrl-T \
+ -command ::tkcon::NewTab
+ $m add command -label "Delete Tab" -underline 0 \
+ -command ::tkcon::DeleteTab -state disabled
+ $m add command -label "Close Console" -underline 0 -accel Ctrl-w \
+ -command ::tkcon::Destroy
+ $m add command -label "Clear Console" -underline 1 -accel Ctrl-l \
+ -command { clear; ::tkcon::Prompt }
+ if {[string match unix $tcl_platform(platform)]} {
+ $m add separator
+ $m add command -label "Make Xauth Secure" -und 5 \
+ -command ::tkcon::XauthSecure
+ }
+ $m add separator
+ $m add cascade -label "Attach To ..." -underline 0 -menu $m.attach
+
+ ## Attach Console Menu
+ ##
+ set sub [menu $m.attach -disabledforeground $COLOR(disabled)]
+ $sub add cascade -label "Interpreter" -underline 0 -menu $sub.apps
+ $sub add cascade -label "Namespace" -underline 0 -menu $sub.name
+
+ ## Attach Console Menu
+ ##
+ menu $sub.apps -disabledforeground $COLOR(disabled) \
+ -postcommand [list ::tkcon::AttachMenu $sub.apps]
+
+ ## Attach Namespace Menu
+ ##
+ menu $sub.name -disabledforeground $COLOR(disabled) \
+ -postcommand [list ::tkcon::NamespaceMenu $sub.name]
+
+ if {$::tcl_version >= 8.3} {
+ ## Attach Socket Menu
+ ##
+ # This uses [file channels] to create the menu, so we only
+ # want it for newer versions of Tcl.
+ $sub add cascade -label "Socket" -underline 0 -menu $sub.sock
+ menu $sub.sock -disabledforeground $COLOR(disabled) \
+ -postcommand [list ::tkcon::SocketMenu $sub.sock]
+ }
+
+ if {![string compare "unix" $tcl_platform(platform)]} {
+ ## Attach Display Menu
+ ##
+ $sub add cascade -label "Display" -underline 0 -menu $sub.disp
+ menu $sub.disp -disabledforeground $COLOR(disabled) \
+ -postcommand [list ::tkcon::DisplayMenu $sub.disp]
+ }
+ }
+
+ ## Edit Menu
+ ##
+ set...
[truncated message content] |
|
From: <mer...@us...> - 2008-10-21 02:08:52
|
Revision: 41
http://poet.svn.sourceforge.net/poet/?rev=41&view=rev
Author: mercurio
Date: 2008-10-21 02:08:44 +0000 (Tue, 21 Oct 2008)
Log Message:
-----------
Added ::Poet::parseError and used it in UserMsg (tier 2).
Fixed crash that occurred when selecting an object from
the history list right after dropping an object on the
list, in the ObjectEditor. The bug was in poet.c so
tier 0 had to be rebuilt. The Windows and Linux versions
are up-to-date, Mac users will have to recompile.
Modified Paths:
--------------
trunk/generic/poet.c
trunk/lib/Poet.tcl
trunk/lib/tier1/tier1-object.tcl
trunk/lib/tier2/tier2-usermsg.tcl
trunk/lib/tier2a-x11/tier2a-bw_arrowbutton.tcl
trunk/lib/tier2a-x11/tier2a-bw_button.tcl
trunk/lib/tier2a-x11/tier2a-bw_buttonbox.tcl
trunk/lib/tier2a-x11/tier2a-bw_combobox.tcl
trunk/lib/tier2a-x11/tier2a-bw_dialog.tcl
trunk/lib/tier2a-x11/tier2a-bw_entry.tcl
trunk/lib/tier2a-x11/tier2a-bw_label.tcl
trunk/lib/tier2a-x11/tier2a-bw_labelentry.tcl
trunk/lib/tier2a-x11/tier2a-bw_labelframe.tcl
trunk/lib/tier2a-x11/tier2a-bw_listbox.tcl
trunk/lib/tier2a-x11/tier2a-bw_mainframe.tcl
trunk/lib/tier2a-x11/tier2a-bw_notebook.tcl
trunk/lib/tier2a-x11/tier2a-bw_panedwindow.tcl
trunk/lib/tier2a-x11/tier2a-bw_progressbar.tcl
trunk/lib/tier2a-x11/tier2a-bw_scrollableframe.tcl
trunk/lib/tier2a-x11/tier2a-bw_scrolledwindow.tcl
trunk/lib/tier2a-x11/tier2a-bw_scrollview.tcl
trunk/lib/tier2a-x11/tier2a-bw_selectfont.tcl
trunk/lib/tier2a-x11/tier2a-bw_separator.tcl
trunk/lib/tier2a-x11/tier2a-bw_spinbox.tcl
trunk/lib/tier2a-x11/tier2a-bw_table.tcl
trunk/lib/tier2a-x11/tier2a-bw_titleframe.tcl
trunk/lib/tier2a-x11/tier2a-bw_tree.tcl
trunk/lib/tier2a-x11/tier2a-tk_button.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_arc.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_bitmap.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_image.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_line.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_oval.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_polygon.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_rectangle.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_text.tcl
trunk/lib/tier2a-x11/tier2a-tk_canvas_window.tcl
trunk/lib/tier2a-x11/tier2a-tk_checkbutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_entry.tcl
trunk/lib/tier2a-x11/tier2a-tk_frame.tcl
trunk/lib/tier2a-x11/tier2a-tk_label.tcl
trunk/lib/tier2a-x11/tier2a-tk_labelframe.tcl
trunk/lib/tier2a-x11/tier2a-tk_listbox.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_cascade.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_checkbutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_command.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_radiobutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_menu_separator.tcl
trunk/lib/tier2a-x11/tier2a-tk_menubutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_message.tcl
trunk/lib/tier2a-x11/tier2a-tk_panedwindow.tcl
trunk/lib/tier2a-x11/tier2a-tk_radiobutton.tcl
trunk/lib/tier2a-x11/tier2a-tk_scale.tcl
trunk/lib/tier2a-x11/tier2a-tk_scrollbar.tcl
trunk/lib/tier2a-x11/tier2a-tk_spinbox.tcl
trunk/lib/tier2a-x11/tier2a-tk_table.tcl
trunk/lib/tier2a-x11/tier2a-tk_text.tcl
trunk/lib/tier2a-x11/tier2a-tk_toplevel.tcl
trunk/lib/tier2a-x11/tier2a-ttk_button.tcl
trunk/lib/tier2a-x11/tier2a-ttk_checkbutton.tcl
trunk/lib/tier2a-x11/tier2a-ttk_combobox.tcl
trunk/lib/tier2a-x11/tier2a-ttk_entry.tcl
trunk/lib/tier2a-x11/tier2a-ttk_frame.tcl
trunk/lib/tier2a-x11/tier2a-ttk_label.tcl
trunk/lib/tier2a-x11/tier2a-ttk_labelframe.tcl
trunk/lib/tier2a-x11/tier2a-ttk_menubutton.tcl
trunk/lib/tier2a-x11/tier2a-ttk_notebook.tcl
trunk/lib/tier2a-x11/tier2a-ttk_panedwindow.tcl
trunk/lib/tier2a-x11/tier2a-ttk_progressbar.tcl
trunk/lib/tier2a-x11/tier2a-ttk_radiobutton.tcl
trunk/lib/tier2a-x11/tier2a-ttk_scale.tcl
trunk/lib/tier2a-x11/tier2a-ttk_scrollbar.tcl
trunk/lib/tier2a-x11/tier2a-ttk_separator.tcl
trunk/lib/tier2a-x11/tier2a-ttk_sizegrip.tcl
trunk/lib/tier2a-x11/tier2a-ttk_treeview.tcl
trunk/unix/Makefile
trunk/unix/ReadMe.txt
trunk/unix/config.log
trunk/unix/config.status
trunk/unix/libPoet2.1-84.so
trunk/unix/libPoet2.1-85.so
trunk/win/Poet21-84.dll
trunk/win/Poet21-85.dll
trunk/win/libPoet21.a
Modified: trunk/generic/poet.c
===================================================================
--- trunk/generic/poet.c 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/generic/poet.c 2008-10-21 02:08:44 UTC (rev 41)
@@ -623,6 +623,7 @@
ckfree((char*)(d->ord->eArray));
d->ord->eArray = NULL;
+ d->ord->arraySize = 0;
}
}
}
@@ -680,7 +681,8 @@
/* Whatever is in the array, we're about to discard */
for(i=0; i < pd->ord->n; i++) {
- Tcl_DecrRefCount(pd->ord->eArray[i].key);
+ if(pd->ord->eArray != NULL)
+ Tcl_DecrRefCount(pd->ord->eArray[i].key);
}
/* Compute the needed size of eArray, and realloc if necessary */
Modified: trunk/lib/Poet.tcl
===================================================================
--- trunk/lib/Poet.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/Poet.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -170,12 +170,12 @@
#
proc ::Poet::parseLevelInfo {line} {
set t0 [lindex $line 0]
- if {[regexp {_method\(([^,]*),(.*)\)} $t0 junk mom meth]} {
+ if {[regexp {_method\(([^,]*),(.*)\)} $t0 -> mom meth]} {
set obj [lindex $line 1]
if {$obj == $mom} {
set line "$obj $meth [lrange $line 2 end]"
} else {
- set line "$obj ((as $mom)) $meth [lrange $line 2 end]"
+ set line "$obj (as $mom) $meth [lrange $line 2 end]"
}
}
@@ -193,6 +193,19 @@
return $line
}
+# Given any string that contains _method() text, replace
+# each instance with the corresponding Poet code.
+#
+proc ::Poet::parseError {msg} {
+ # Subexpressions: object method
+ regsub -all {procedure "_method\(([^,]*),([^)]*)\)"} $msg {method "\1 \2"} msg
+
+ # Subexpressions: mom method obj
+ regsub -all {_method\(([^,]*),([^)]*)\)\s+([\w@\*]*)} $msg {\3 (as \1) \2} msg
+
+ return $msg
+}
+
# Called when entering a command invocation while interacively tracing execution
#
proc ::Poet::enterStep {cmd op} {
Modified: trunk/lib/tier1/tier1-object.tcl
===================================================================
--- trunk/lib/tier1/tier1-object.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier1/tier1-object.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -1053,14 +1053,16 @@
return ""
}
-# The following methods are analogous to the standard Tcl list
-# commands (lappend, lindex, etc.).
+## The following methods are analogous to the standard Tcl list
+## commands (lappend, lindex, etc.).
+##
+## PJM 19990405 Modified to handle public slots correctly. Those
+## which modify a slot's value check to see if it's inherited
+## first, and copy the ancestor's value.
+##
+
+# Like lappend: append one or more values to the specified slot
#
-# PJM 19990405 Modified to handle public slots correctly. Those
-# which modify a slot's value check to see if it's inherited
-# first, and copy the ancestor's value.
-#
-
Object method slotAppend {slot args} {
if {![string match _* $slot] && ![$self hasSlot $slot]} {
$self slot ${slot} [$self slot $slot]
@@ -1070,14 +1072,20 @@
return [eval [concat lappend _os_${self}($slot) $args]]
}
+# Like lindex: index into the given slot
+#
Object method slotIndex {slot index} {
return [lindex [$self slot $slot] $index]
}
+# Like llength: return the length of the given slot
+#
Object method slotLength {slot} {
return [llength [$self slot $slot]]
}
+# Like lrange: a sublist of the given slot
+#
Object method slotRange {slot first last} {
return [lrange [$self slot $slot] $first $last]
}
@@ -1208,9 +1216,9 @@
}
-# Remove an entry from a slot's value, if that entry is present.
-# Note that if the slot's value contained only one entry, $entry,
-# then it wil end up containing {}.
+# Search for and remove an entry from a slot's value.
+# Note that if the slot's value contained only one entry, ``$entry``,
+# then it wil end up containing ``{}``.
#
Object method slotRemove {slot entry} {
if {[set i [lsearch -exact [$self slot $slot] $entry]] != -1} {
Modified: trunk/lib/tier2/tier2-usermsg.tcl
===================================================================
--- trunk/lib/tier2/tier2-usermsg.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2/tier2-usermsg.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -37,6 +37,8 @@
set ab 0
}
+ set b [::Poet::parseError $b]
+
set tb 0
set lim [$self slot msgLimit]
if {[string length $b] > $lim} {
Modified: trunk/lib/tier2a-x11/tier2a-bw_arrowbutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_arrowbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_arrowbutton.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_arrowbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_button.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_button.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_button.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_buttonbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_buttonbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_buttonbox.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_buttonbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_combobox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_combobox.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_combobox.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_combobox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_dialog.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_dialog.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_dialog.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_dialog.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_entry.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_entry.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_entry.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_label.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_label.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_label.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_labelentry.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_labelentry.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_labelentry.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_labelentry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_labelframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_labelframe.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_listbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_listbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_listbox.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_listbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_mainframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_mainframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_mainframe.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_mainframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_notebook.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_notebook.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_notebook.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_notebook.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_panedwindow.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_panedwindow.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_progressbar.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_progressbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_progressbar.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_progressbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_scrollableframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_scrollableframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_scrollableframe.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_scrollableframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_scrolledwindow.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_scrolledwindow.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_scrolledwindow.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_scrolledwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_scrollview.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_scrollview.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_scrollview.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_scrollview.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_selectfont.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_selectfont.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_selectfont.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_selectfont.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_separator.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_separator.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_separator.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_spinbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_spinbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_spinbox.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_spinbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_table.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_table.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_table.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_table.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_titleframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_titleframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_titleframe.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_titleframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-bw_tree.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-bw_tree.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-bw_tree.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-bw_tree.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_button.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_button.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_button.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_arc.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_arc.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_arc.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_arc.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Arc type activewidth <real>
+Tk_Canvas_Arc type activewidth {<real> 0 10 .1}
Tk_Canvas_Arc slot> dash {} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Arc type disabledwidth <real>
+Tk_Canvas_Arc type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Arc slot> extent {90} {
set p [$self slot _primary]
@@ -264,7 +264,7 @@
}
}
-Tk_Canvas_Arc type start <real>
+Tk_Canvas_Arc type start {<real> -360 360 1}
Tk_Canvas_Arc slot> state {} {
set p [$self slot _primary]
@@ -319,7 +319,7 @@
}
}
-Tk_Canvas_Arc type width <real>
+Tk_Canvas_Arc type width {<real> 0.1 10 0.1}
Tk_Canvas_Arc slot primaryClass arc
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_bitmap.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_bitmap.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_bitmap.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_bitmap.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_image.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_image.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_image.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_image.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_line.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_line.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_line.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_line.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
@@ -77,7 +77,7 @@
}
}
-Tk_Canvas_Line type activewidth <real>
+Tk_Canvas_Line type activewidth {<real> 0 10 .1}
Tk_Canvas_Line slot> arrow {none} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Line type disabledwidth <real>
+Tk_Canvas_Line type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Line slot> joinstyle {round} {
set p [$self slot _primary]
@@ -275,7 +275,7 @@
}
}
-Tk_Canvas_Line type width <real>
+Tk_Canvas_Line type width {<real> 0.1 10 0.1}
Tk_Canvas_Line slot primaryClass line
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_oval.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_oval.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_oval.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_oval.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Oval type activewidth <real>
+Tk_Canvas_Oval type activewidth {<real> 0 10 .1}
Tk_Canvas_Oval slot> dash {} {
set p [$self slot _primary]
@@ -286,7 +286,7 @@
}
}
-Tk_Canvas_Oval type width <real>
+Tk_Canvas_Oval type width {<real> 0.1 10 0.1}
Tk_Canvas_Oval slot primaryClass oval
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_polygon.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_polygon.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_polygon.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_polygon.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Polygon type activewidth <real>
+Tk_Canvas_Polygon type activewidth {<real> 0 10 .1}
Tk_Canvas_Polygon slot> dash {} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Polygon type disabledwidth <real>
+Tk_Canvas_Polygon type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Polygon slot> fill {black} {
set p [$self slot _primary]
@@ -319,7 +319,7 @@
}
}
-Tk_Canvas_Polygon type width <real>
+Tk_Canvas_Polygon type width {<real> 0.1 10 0.1}
Tk_Canvas_Polygon slot primaryClass polygon
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_rectangle.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_rectangle.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_rectangle.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_rectangle.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Rectangle type activewidth <real>
+Tk_Canvas_Rectangle type activewidth {<real> 0 10 .1}
Tk_Canvas_Rectangle slot> dash {} {
set p [$self slot _primary]
@@ -286,7 +286,7 @@
}
}
-Tk_Canvas_Rectangle type width <real>
+Tk_Canvas_Rectangle type width {<real> 0.1 10 0.1}
Tk_Canvas_Rectangle slot primaryClass rectangle
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_text.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_text.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_text.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_canvas_window.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_canvas_window.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_canvas_window.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_window.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_checkbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_checkbutton.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_entry.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_entry.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_entry.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_frame.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_frame.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_frame.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_label.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_label.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_label.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_labelframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_labelframe.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_listbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_listbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_listbox.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_listbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_menu.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_cascade.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_cascade.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_cascade.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_cascade.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_checkbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_checkbutton.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_command.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_command.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_command.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_command.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_radiobutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_radiobutton.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menu_separator.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menu_separator.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_menu_separator.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_menubutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_menubutton.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_message.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_message.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_message.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_message.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_panedwindow.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_panedwindow.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_radiobutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_radiobutton.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_scale.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_scale.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_scale.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_scrollbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_scrollbar.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_spinbox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_spinbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_spinbox.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_spinbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_table.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_table.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_table.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_table.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_text.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_text.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_text.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-tk_toplevel.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-tk_toplevel.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-tk_toplevel.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-tk_toplevel.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_button.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_button.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_button.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_checkbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_checkbutton.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_combobox.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_combobox.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_combobox.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_combobox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_entry.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_entry.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_entry.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_frame.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_frame.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_frame.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_label.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_label.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_label.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_labelframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_labelframe.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_menubutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_menubutton.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_notebook.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_notebook.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_notebook.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_notebook.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_panedwindow.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_panedwindow.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_progressbar.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_progressbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_progressbar.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_progressbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_radiobutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_radiobutton.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_scale.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_scale.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_scale.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_scrollbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_scrollbar.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_separator.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_separator.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_separator.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_sizegrip.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_sizegrip.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_sizegrip.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_sizegrip.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-x11/tier2a-ttk_treeview.tcl
===================================================================
--- trunk/lib/tier2a-x11/tier2a-ttk_treeview.tcl 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/lib/tier2a-x11/tier2a-ttk_treeview.tcl 2008-10-21 02:08:44 UTC (rev 41)
@@ -2,7 +2,7 @@
### tier2a-ttk_treeview.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-08 at 05:56PM
+### on 2008-10-20 at 06:15PM
### for the x11 platform.
###
### Do not edit!
Modified: trunk/unix/Makefile
===================================================================
--- trunk/unix/Makefile 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/unix/Makefile 2008-10-21 02:08:44 UTC (rev 41)
@@ -59,20 +59,20 @@
# configuration options) composed of the named objects.
#========================================================================
-PKG_LIB_FILE = libPoet2.1.dylib
+PKG_LIB_FILE = libPoet2.1.so
PKG_STUB_LIB_FILE = libPoetstub2.1.a
lib_BINARIES = $(PKG_LIB_FILE)
BINARIES = $(lib_BINARIES)
-SHELL = /bin/sh
+SHELL = /bin/bash
srcdir = .
prefix = /usr/local
-exec_prefix = /Library/Tcl
+exec_prefix = /usr/local
bindir = ${exec_prefix}/bin
-libdir = /Library/Tcl
+libdir = ${exec_prefix}/lib
includedir = ${prefix}/include
datarootdir = ${prefix}/share
datadir = ${datarootdir}
@@ -87,7 +87,7 @@
top_builddir = .
-INSTALL = /usr/bin/install -c
+INSTALL = /usr/X11R6/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL}
@@ -95,10 +95,10 @@
PACKAGE_NAME = Poet
PACKAGE_VERSION = 2.1
CC = gcc
-CFLAGS_DEFAULT = -Os
+CFLAGS_DEFAULT = -O2 -fomit-frame-pointer
CFLAGS_WARNING = -Wall -Wno-implicit-int
EXEEXT =
-LDFLAGS_DEFAULT = -prebind -headerpad_max_install_names -Wl,-search_paths_first
+LDFLAGS_DEFAULT = -Wl,--export-dynamic
MAKE_LIB = ${SHLIB_LD} -o $@ $(PKG_OBJECTS) ${SHLIB_LD_LIBS}
MAKE_SHARED_LIB = ${SHLIB_LD} -o $@ $(PKG_OBJECTS) ${SHLIB_LD_LIBS}
MAKE_STATIC_LIB = ${STLIB_LD} $@ $(PKG_OBJECTS)
@@ -106,15 +106,15 @@
OBJEXT = o
RANLIB = :
RANLIB_STUB = ranlib
-SHLIB_CFLAGS = -fno-common
-SHLIB_LD = ${CC} -dynamiclib ${CFLAGS} ${LDFLAGS_DEFAULT} -Wl,-single_module
-SHLIB_LD_LIBS = ${LIBS} -L/Library/Frameworks/Tcl.framework/Versions/8.5 -ltclstub8.5 -L/Library/Frameworks/Tk.framework/Versions/8.5 -ltkstub8.5
+SHLIB_CFLAGS = -fPIC
+SHLIB_LD = ${CC} -shared ${CFLAGS} ${LDFLAGS_DEFAULT}
+SHLIB_LD_LIBS = ${LIBS} -L/usr/local/lib -ltclstub8.5 -L/usr/local/lib -ltkstub8.5
STLIB_LD = ${AR} cr
-#TCL_DEFS = -DPACKAGE_NAME=\"tcl\" -DPACKAGE_TARNAME=\"tcl\" -DPACKAGE_VERSION=\"8.5\" -DPACKAGE_STRING=\"tcl\ 8.5\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DHAVE_PTHREAD_ATTR_SETSTACKSIZE=1 -DHAVE_PTHREAD_GET_STACKSIZE_NP=1 -DTCL_THREADS=1 -DTCL_CFGVAL_ENCODING=\"iso8859-1\" -DMODULE_SCOPE=extern\ __attribute__\(\(__visibility__\(\"hidden\"\)\)\) -DMAC_OSX_TCL=1 -DHAVE_COREFOUNDATION=1 -DTCL_SHLIB_EXT=\".dylib\" -DTCL_CFG_OPTIMIZED=1 -DTCL_CFG_DEBUG=1 -DTCL_TOMMATH=1 -DMP_PREC=4 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_GETCWD=1 -DHAVE_OPENDIR=1 -DHAVE_STRTOL=1 -DHAVE_WAITPID=1 -DHAVE_GETADDRINFO=1 -DHAVE_GETPWUID_R_5=1 -DHAVE_GETPWUID_R=1 -DHAVE_GETPWNAM_R_5=1 -DHAVE_GETPWNAM_R=1 -DHAVE_GETGRGID_R_5=1 -DHAVE_GETGRGID_R=1 -DHAVE_GETGRNAM_R_5=1 -DHAVE_GETGRNAM_R=1 -DHAVE_MTSAFE_GETHOSTBYNAME=1 -DHAVE_MTSAFE_GETHOSTBYADDR=1 -DUSE_TERMIOS=1 -DHAVE_SYS_TIME_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_STRUCT_TM_TM_ZONE=1 -DHAVE_TM_ZONE=1 -DHAVE_GMTIME_R=1 -DHAVE_LOCALTIME_R=1 -DHAVE_MKTIME=1 -DHAVE_TM_GMTOFF=1 -DHAVE_STRUCT_STAT_ST_BLKSIZE=1 -DHAVE_ST_BLKSIZE=1 -DHAVE_INTPTR_T=1 -DHAVE_UINTPTR_T=1 -DHAVE_SIGNED_CHAR=1 -DHAVE_PUTENV_THAT_COPIES=1 -DHAVE_LANGINFO=1 -DHAVE_CHFLAGS=1 -DHAVE_GETATTRLIST=1 -DHAVE_COPYFILE=1 -DHAVE_LIBKERN_OSATOMIC_H=1 -DHAVE_OSSPINLOCKLOCK=1 -DHAVE_PTHREAD_ATFORK=1 -DUSE_VFORK=1 -DTCL_DEFAULT_ENCODING=\"utf-8\" -DTCL_LOAD_FROM_MEMORY=1 -DTCL_WIDE_CLICKS=1 -DHAVE_AVAILABILITYMACROS_H=1 -DHAVE_WEAK_IMPORT=1 -DHAVE_FTS=1 -DHAVE_SYS_IOCTL_H=1 -DHAVE_SYS_FILIO_H=1 -DTCL_UNLOAD_DLLS=1 -DTCL_FRAMEWORK=1
-TCL_BIN_DIR = /Library/Frameworks/Tcl.framework/Versions/8.5
-TCL_SRC_DIR = /Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl
-#TK_BIN_DIR = /Library/Frameworks/Tk.framework/Versions/8.5
-#TK_SRC_DIR = /Users/andreask/dbn/lba/night/builds/macosx-ix86/tk
+#TCL_DEFS = -DPACKAGE_NAME=\"tcl\" -DPACKAGE_TARNAME=\"tcl\" -DPACKAGE_VERSION=\"8.5\" -DPACKAGE_STRING=\"tcl\ 8.5\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DTCL_CFGVAL_ENCODING=\"iso8859-1\" -DMODULE_SCOPE=extern\ __attribute__\(\(__visibility__\(\"hidden\"\)\)\) -DTCL_SHLIB_EXT=\".so\" -DTCL_CFG_DEBUG=1 -DTCL_TOMMATH=1 -DMP_PREC=4 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DHAVE_GETCWD=1 -DHAVE_OPENDIR=1 -DHAVE_STRTOL=1 -DHAVE_WAITPID=1 -DHAVE_GETADDRINFO=1 -DUSE_TERMIOS=1 -DHAVE_SYS_TIME_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_STRUCT_TM_TM_ZONE=1 -DHAVE_TM_ZONE=1 -DHAVE_GMTIME_R=1 -DHAVE_LOCALTIME_R=1 -DHAVE_MKTIME=1 -DHAVE_TM_GMTOFF=1 -DHAVE_TIMEZONE_VAR=1 -DHAVE_STRUCT_STAT_ST_BLKSIZE=1 -DHAVE_ST_BLKSIZE=1 -DHAVE_INTPTR_T=1 -DHAVE_UINTPTR_T=1 -DHAVE_SIGNED_CHAR=1 -DHAVE_LANGINFO=1 -DHAVE_SYS_IOCTL_H=1 -DTCL_UNLOAD_DLLS=1
+TCL_BIN_DIR = /usr/local/lib
+TCL_SRC_DIR = /opt/ActiveTcl/src/tcl8.5.5
+#TK_BIN_DIR = /usr/local/lib
+#TK_SRC_DIR = /opt/ActiveTcl/src/tk8.5.5
# Not used, but retained for reference of what libs Tcl required
#TCL_LIBS = ${DL_LIBS} ${LIBS} ${MATH_LIBS}
@@ -130,12 +130,12 @@
#EXTRA_PATH = $(top_builddir):$(TCL_BIN_DIR):$(TK_BIN_DIR)
TCLLIBPATH = $(top_builddir)
TCLSH_ENV = TCL_LIBRARY=`echo $(TCL_SRC_DIR)/library` \
- DYLD_LIBRARY_PATH="$(EXTRA_PATH):$(DYLD_LIBRARY_PATH)" \
+ LD_LIBRARY_PATH="$(EXTRA_PATH):$(LD_LIBRARY_PATH)" \
PATH="$(EXTRA_PATH):$(PATH)" \
TCLLIBPATH="$(TCLLIBPATH)"
# TK_LIBRARY=`echo $(TK_SRC_DIR)/library`
-TCLSH_PROG = /tclsh8.5
+TCLSH_PROG = /usr/local/bin/tclsh8.5
TCLSH = $(TCLSH_ENV) $(TCLSH_PROG)
#WISH_PROG = @WISH_PROG@
@@ -144,8 +144,8 @@
SHARED_BUILD = 1
-INCLUDES = -I"/Library/Frameworks/Tcl.framework/Versions/8.5/Headers" -I"/Library/Frameworks/Tcl.framework/Versions/8.5/PrivateHeaders" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/generic" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/unix"
-#INCLUDES = -I"/Library/Frameworks/Tcl.framework/Versions/8.5/Headers" -I"/Library/Frameworks/Tcl.framework/Versions/8.5/PrivateHeaders" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/generic" -I"/Users/andreask/dbn/lba/night/builds/macosx-ix86/tcl/unix" -I"/Library/Frameworks/Tk.framework/Versions/8.5/Headers"
+INCLUDES = -I"/opt/ActiveTcl/src/tcl8.5.5/generic" -I"/opt/ActiveTcl/src/tcl8.5.5/unix"
+#INCLUDES = -I"/opt/ActiveTcl/src/tcl8.5.5/generic" -I"/opt/ActiveTcl/src/tcl8.5.5/unix" -I"/usr/local/include/"
PKG_CFLAGS =
@@ -154,8 +154,8 @@
# that your library may use. TCL_DEFS can actually be a problem if
# you do not compile with a similar machine setup as the Tcl core was
# compiled with.
-#DEFS = $(TCL_DEFS) -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.1\" -DPACKAGE_STRING=\"Poet\ 2.1\" -DPACKAGE_BUGREPORT=\"\" -DMAC_OSX_TK=1 -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
-DEFS = -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.1\" -DPACKAGE_STRING=\"Poet\ 2.1\" -DPACKAGE_BUGREPORT=\"\" -DMAC_OSX_TK=1 -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
+#DEFS = $(TCL_DEFS) -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.1\" -DPACKAGE_STRING=\"Poet\ 2.1\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
+DEFS = -DPACKAGE_NAME=\"Poet\" -DPACKAGE_TARNAME=\"poet\" -DPACKAGE_VERSION=\"2.1\" -DPACKAGE_STRING=\"Poet\ 2.1\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DUSE_THREAD_ALLOC=1 -D_REENTRANT=1 -D_THREAD_SAFE=1 -DTCL_THREADS=1 -D_LARGEFILE64_SOURCE=1 -DTCL_WIDE_INT_TYPE=long\ long -DHAVE_STRUCT_STAT64=1 -DHAVE_OPEN64=1 -DHAVE_LSEEK64=1 -DHAVE_TYPE_OFF64_T=1 -DUSE_TCL_STUBS=1 $(PKG_CFLAGS)
# Move pkgIndex.tcl to 'BINARIES' var if it is generated in the Makefile
CONFIG_CLEAN_FILES = Makefile
@@ -164,7 +164,7 @@
CPPFLAGS =
LIBS =
AR = ar
-CFLAGS = -pipe ${CFLAGS_DEFAULT} ${CFLAGS_WARNING} ${SHLIB_CFLAGS}
+CFLAGS = -pipe ${CFLAGS_DEFAULT} ${CFLAGS_WARNING} ${SHLIB_CFLAGS}
COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
#========================================================================
Modified: trunk/unix/ReadMe.txt
===================================================================
--- trunk/unix/ReadMe.txt 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/unix/ReadMe.txt 2008-10-21 02:08:44 UTC (rev 41)
@@ -96,6 +96,10 @@
You're now in the same state as if you'd dynamically loaded Poet with
"package require Poet".
+ Look in the tools/ directory below for some handy scripts. I copy all
+ these files to Tk's unix directory when I'm debugging Poet at the C
+ level (with ddd).
+
==========================================================================
PJM 2005-06-22 begun
PJM 2007-05-24 updated to latest Tea sampleextension
Modified: trunk/unix/config.log
===================================================================
--- trunk/unix/config.log 2008-10-10 01:02:16 UTC (rev 40)
+++ trunk/unix/config.log 2008-10-21 02:08:44 UTC (rev 41)
@@ -4,46 +4,39 @@
It was created by Poet configure 2.1, which was
generated by GNU Autoconf 2.61. Invocation command line was
- $ ./configure --prefix=/usr/local --libdir=/Library/Tcl --with-tcl=/Library/Frameworks/Tcl.framework/Versions/8.5 --with-tclinclude=/Library/Frameworks/Tcl.framework/Versions/8.5/Headers --with-tk=/Library/Frameworks/Tk.framework/Versions/8.5 --with-tkinclude=/Library/Frameworks/Tk.framework/Versions/8.5/Headers --enable-threads
+ $ ./configure -with-tcl=/usr/local/lib/ -with-tclinclude=/usr/local/include/ -with-tk=/usr/local/lib/ -with-tkinclude=/usr/local/include/
## --------- ##
## Platform. ##
## --------- ##
-hostname = mac-hacks-macintosh.local
-uname -m = i386
-uname -r = 9.1.0
-uname -s = Darwin
-uname -v = Darwin Kernel Version 9.1.0: Fri Nov 16 14:50:43 SCT 2007; made by ToH:xnu-1228.0.2~1/BUILD/obj/RELEASE_I386
+hostname = quicksilver
+uname -m = i686
+uname -r = 2.6.24-19-generic
+uname -s = Linux
+uname -v = #1 SMP Wed Aug 20 22:56:21 UTC 2008
-/usr/bin/uname -p = i386
+/usr/bin/uname -p = unknown
/bin/uname -X = unknown
/bin/arch = unknown
/usr/bin/arch -k = unknown
/usr/convex/getsysinfo = unknown
-/usr/bin/hostinfo = Mach kernel version:
- Darwin Kernel Version 9...
[truncated message content] |
|
From: <mer...@us...> - 2008-10-10 01:02:29
|
Revision: 40
http://poet.svn.sourceforge.net/poet/?rev=40&view=rev
Author: mercurio
Date: 2008-10-10 01:02:16 +0000 (Fri, 10 Oct 2008)
Log Message:
-----------
Fixed problem with Tk_SpinBox that was preventing
setting the from and to slots separately. Now, if
you attempt to set from to a value greater than to,
to will be set as well (similarly for setting to
less than from).
Also changed some of the typehints to pick better
default ranges for things like canvas item widths.
Only the Windows (tier2a-win32) autogen'd files are
up to date, other platforms will have to run
Assimilate Tk from the developer's panel on the installer.
Modified Paths:
--------------
trunk/instlib/typehints/mergedhints.tcl
trunk/lib/tier2a-win32/tier2a-tk_button.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl
trunk/lib/tier2a-win32/tier2a-tk_canvas_window.tcl
trunk/lib/tier2a-win32/tier2a-tk_checkbutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_entry.tcl
trunk/lib/tier2a-win32/tier2a-tk_frame.tcl
trunk/lib/tier2a-win32/tier2a-tk_label.tcl
trunk/lib/tier2a-win32/tier2a-tk_labelframe.tcl
trunk/lib/tier2a-win32/tier2a-tk_listbox.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_cascade.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_checkbutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_command.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_radiobutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_menu_separator.tcl
trunk/lib/tier2a-win32/tier2a-tk_menubutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_message.tcl
trunk/lib/tier2a-win32/tier2a-tk_panedwindow.tcl
trunk/lib/tier2a-win32/tier2a-tk_radiobutton.tcl
trunk/lib/tier2a-win32/tier2a-tk_scale.tcl
trunk/lib/tier2a-win32/tier2a-tk_scrollbar.tcl
trunk/lib/tier2a-win32/tier2a-tk_spinbox.tcl
trunk/lib/tier2a-win32/tier2a-tk_text.tcl
trunk/lib/tier2a-win32/tier2a-tk_toplevel.tcl
trunk/lib/tier2a-win32/tier2a-ttk_button.tcl
trunk/lib/tier2a-win32/tier2a-ttk_checkbutton.tcl
trunk/lib/tier2a-win32/tier2a-ttk_combobox.tcl
trunk/lib/tier2a-win32/tier2a-ttk_entry.tcl
trunk/lib/tier2a-win32/tier2a-ttk_frame.tcl
trunk/lib/tier2a-win32/tier2a-ttk_label.tcl
trunk/lib/tier2a-win32/tier2a-ttk_labelframe.tcl
trunk/lib/tier2a-win32/tier2a-ttk_menubutton.tcl
trunk/lib/tier2a-win32/tier2a-ttk_notebook.tcl
trunk/lib/tier2a-win32/tier2a-ttk_panedwindow.tcl
trunk/lib/tier2a-win32/tier2a-ttk_progressbar.tcl
trunk/lib/tier2a-win32/tier2a-ttk_radiobutton.tcl
trunk/lib/tier2a-win32/tier2a-ttk_scale.tcl
trunk/lib/tier2a-win32/tier2a-ttk_scrollbar.tcl
trunk/lib/tier2a-win32/tier2a-ttk_separator.tcl
trunk/lib/tier2a-win32/tier2a-ttk_sizegrip.tcl
trunk/lib/tier2a-win32/tier2a-ttk_treeview.tcl
trunk/lib/tier2b/tier2b-tk_spinbox.tcl
trunk/testing/debug.poet/Thing_AnonCounter.thg
trunk/testing/debug.poet/tclIndex
Modified: trunk/instlib/typehints/mergedhints.tcl
===================================================================
--- trunk/instlib/typehints/mergedhints.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/instlib/typehints/mergedhints.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -177,7 +177,7 @@
set TypeHints(common,activeoutline) "<color>"
set TypeHints(common,activeoutlinestipple) "<bitmap>"
set TypeHints(common,activestipple) "<bitmap>"
-set TypeHints(common,activewidth) "<real>"
+set TypeHints(common,activewidth) "<real> 0 10 .1"
set TypeHints(common,arrow) "<choice> none first last both"
set TypeHints(common,arrowshape) "<string>"
set TypeHints(common,background) "<color>"
@@ -194,7 +194,7 @@
set TypeHints(common,disabledoutline) "<color>"
set TypeHints(common,disabledoutlinestipple) "<bitmap>"
set TypeHints(common,disabledstipple) "<bitmap>"
-set TypeHints(common,disabledwidth) "<real>"
+set TypeHints(common,disabledwidth) "<real> 0 10 .1"
set TypeHints(common,exportselection) "<boolean>"
set TypeHints(common,fill) "<color>"
set TypeHints(common,font) "<font>"
@@ -327,7 +327,7 @@
set TypeHints(tkCanvArc.c,font) "<font>"
set TypeHints(tkCanvArc.c,foreground) "<color>"
set TypeHints(tkCanvArc.c,format) "<string>"
-set TypeHints(tkCanvArc.c,from) "<real>"
+set TypeHints(tkCanvArc.c,from) "<real> -360 360 1"
set TypeHints(tkCanvArc.c,handlepad) "<pixels>"
set TypeHints(tkCanvArc.c,handlesize) "<pixels>"
set TypeHints(tkCanvArc.c,height) "<pixels>"
@@ -338,7 +338,7 @@
set TypeHints(tkCanvArc.c,highlightthickness) "<pixels>"
set TypeHints(tkCanvArc.c,image) "<string>"
set TypeHints(tkCanvArc.c,inactiveselectbackground) "<color>"
-set TypeHints(tkCanvArc.c,increment) "<real>"
+set TypeHints(tkCanvArc.c,increment) "<real> 0 2 0.1"
set TypeHints(tkCanvArc.c,indicatoron) "<boolean>"
set TypeHints(tkCanvArc.c,insertbackground) "<color>"
set TypeHints(tkCanvArc.c,insertborderwidth) "<pixels>"
@@ -385,7 +385,7 @@
set TypeHints(tkCanvArc.c,spacing1) "<pixels>"
set TypeHints(tkCanvArc.c,spacing2) "<pixels>"
set TypeHints(tkCanvArc.c,spacing3) "<pixels>"
-set TypeHints(tkCanvArc.c,start) "<real>"
+set TypeHints(tkCanvArc.c,start) "<real> -360 360 1"
set TypeHints(tkCanvArc.c,state) "<choice> normal disabled hidden"
set TypeHints(tkCanvArc.c,stipple) "<bitmap>"
set TypeHints(tkCanvArc.c,style) "<choice> pieslice chord arc"
@@ -396,9 +396,9 @@
set TypeHints(tkCanvArc.c,tearoffcommand) "<string>"
set TypeHints(tkCanvArc.c,text) "<string>"
set TypeHints(tkCanvArc.c,textvariable) "<variable>"
-set TypeHints(tkCanvArc.c,tickinterval) "<real>"
+set TypeHints(tkCanvArc.c,tickinterval) "<real> 0 5 0.1"
set TypeHints(tkCanvArc.c,title) "<string>"
-set TypeHints(tkCanvArc.c,to) "<real>"
+set TypeHints(tkCanvArc.c,to) "<real> -360 360 1"
set TypeHints(tkCanvArc.c,tristateimage) "<string>"
set TypeHints(tkCanvArc.c,tristatevalue) "<string>"
set TypeHints(tkCanvArc.c,troughcolor) "<color>"
@@ -409,7 +409,7 @@
set TypeHints(tkCanvArc.c,values) "<string>"
set TypeHints(tkCanvArc.c,variable) "<variable>"
set TypeHints(tkCanvArc.c,visual) "<string>"
-set TypeHints(tkCanvArc.c,width) "<real>"
+set TypeHints(tkCanvArc.c,width) "<real> 0.1 10 0.1"
set TypeHints(tkCanvArc.c,wraplength) "<pixels>"
set TypeHints(tkCanvArc.c,xscrollcommand) "<string>"
set TypeHints(tkCanvArc.c,xscrollincrement) "<pixels>"
@@ -430,7 +430,7 @@
set TypeHints(tkCanvBmap.c,autoseparators) "<boolean>"
set TypeHints(tkCanvBmap.c,background) "<color>"
set TypeHints(tkCanvBmap.c,before) "<string>"
-set TypeHints(tkCanvBmap.c,bigincrement) "<real>"
+set TypeHints(tkCanvBmap.c,bigincrement) "<real> 0 100 1"
set TypeHints(tkCanvBmap.c,bitmap) "<bitmap>"
set TypeHints(tkCanvBmap.c,blockcursor) "<boolean>"
set TypeHints(tkCanvBmap.c,borderwidth) "<pixels>"
@@ -814,7 +814,7 @@
set TypeHints(tkCanvLine.c,values) "<string>"
set TypeHints(tkCanvLine.c,variable) "<variable>"
set TypeHints(tkCanvLine.c,visual) "<string>"
-set TypeHints(tkCanvLine.c,width) "<real>"
+set TypeHints(tkCanvLine.c,width) "<real> 0.1 10 0.1"
set TypeHints(tkCanvLine.c,wraplength) "<pixels>"
set TypeHints(tkCanvLine.c,xscrollcommand) "<string>"
set TypeHints(tkCanvLine.c,xscrollincrement) "<pixels>"
@@ -949,7 +949,7 @@
set TypeHints(tkCanvPoly.c,values) "<string>"
set TypeHints(tkCanvPoly.c,variable) "<variable>"
set TypeHints(tkCanvPoly.c,visual) "<string>"
-set TypeHints(tkCanvPoly.c,width) "<real>"
+set TypeHints(tkCanvPoly.c,width) "<real> 0.1 10 0.1"
set TypeHints(tkCanvPoly.c,wraplength) "<pixels>"
set TypeHints(tkCanvPoly.c,xscrollcommand) "<string>"
set TypeHints(tkCanvPoly.c,xscrollincrement) "<pixels>"
@@ -1987,7 +1987,7 @@
set TypeHints(tkRectOval.c,values) "<string>"
set TypeHints(tkRectOval.c,variable) "<variable>"
set TypeHints(tkRectOval.c,visual) "<string>"
-set TypeHints(tkRectOval.c,width) "<real>"
+set TypeHints(tkRectOval.c,width) "<real> 0.1 10 0.1"
set TypeHints(tkRectOval.c,wraplength) "<pixels>"
set TypeHints(tkRectOval.c,xscrollcommand) "<string>"
set TypeHints(tkRectOval.c,xscrollincrement) "<pixels>"
Modified: trunk/lib/tier2a-win32/tier2a-tk_button.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_button.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_button.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_arc.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_arc.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Arc type activewidth <real>
+Tk_Canvas_Arc type activewidth {<real> 0 10 .1}
Tk_Canvas_Arc slot> dash {} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Arc type disabledwidth <real>
+Tk_Canvas_Arc type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Arc slot> extent {90} {
set p [$self slot _primary]
@@ -264,7 +264,7 @@
}
}
-Tk_Canvas_Arc type start <real>
+Tk_Canvas_Arc type start {<real> -360 360 1}
Tk_Canvas_Arc slot> state {} {
set p [$self slot _primary]
@@ -319,7 +319,7 @@
}
}
-Tk_Canvas_Arc type width <real>
+Tk_Canvas_Arc type width {<real> 0.1 10 0.1}
Tk_Canvas_Arc slot primaryClass arc
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_bitmap.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_bitmap.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_image.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_image.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_line.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_line.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -77,7 +77,7 @@
}
}
-Tk_Canvas_Line type activewidth <real>
+Tk_Canvas_Line type activewidth {<real> 0 10 .1}
Tk_Canvas_Line slot> arrow {none} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Line type disabledwidth <real>
+Tk_Canvas_Line type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Line slot> joinstyle {round} {
set p [$self slot _primary]
@@ -275,7 +275,7 @@
}
}
-Tk_Canvas_Line type width <real>
+Tk_Canvas_Line type width {<real> 0.1 10 0.1}
Tk_Canvas_Line slot primaryClass line
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_oval.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_oval.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Oval type activewidth <real>
+Tk_Canvas_Oval type activewidth {<real> 0 10 .1}
Tk_Canvas_Oval slot> dash {} {
set p [$self slot _primary]
@@ -286,7 +286,7 @@
}
}
-Tk_Canvas_Oval type width <real>
+Tk_Canvas_Oval type width {<real> 0.1 10 0.1}
Tk_Canvas_Oval slot primaryClass oval
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_polygon.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_polygon.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Polygon type activewidth <real>
+Tk_Canvas_Polygon type activewidth {<real> 0 10 .1}
Tk_Canvas_Polygon slot> dash {} {
set p [$self slot _primary]
@@ -187,7 +187,7 @@
}
}
-Tk_Canvas_Polygon type disabledwidth <real>
+Tk_Canvas_Polygon type disabledwidth {<real> 0 10 .1}
Tk_Canvas_Polygon slot> fill {black} {
set p [$self slot _primary]
@@ -319,7 +319,7 @@
}
}
-Tk_Canvas_Polygon type width <real>
+Tk_Canvas_Polygon type width {<real> 0.1 10 0.1}
Tk_Canvas_Polygon slot primaryClass polygon
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_rectangle.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_rectangle.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
@@ -99,7 +99,7 @@
}
}
-Tk_Canvas_Rectangle type activewidth <real>
+Tk_Canvas_Rectangle type activewidth {<real> 0 10 .1}
Tk_Canvas_Rectangle slot> dash {} {
set p [$self slot _primary]
@@ -286,7 +286,7 @@
}
}
-Tk_Canvas_Rectangle type width <real>
+Tk_Canvas_Rectangle type width {<real> 0.1 10 0.1}
Tk_Canvas_Rectangle slot primaryClass rectangle
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_text.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_canvas_window.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_canvas_window.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_canvas_window.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_canvas_window.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_checkbutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_checkbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_entry.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_entry.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_entry.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_frame.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_frame.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_frame.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_label.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_label.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_label.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_labelframe.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_labelframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_listbox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_listbox.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_listbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_listbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_cascade.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_cascade.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_cascade.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_cascade.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_checkbutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_checkbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_command.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_command.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_command.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_command.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_radiobutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_radiobutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menu_separator.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menu_separator.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menu_separator.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menu_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_menubutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_menubutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_message.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_message.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_message.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_message.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_panedwindow.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_panedwindow.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_radiobutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_radiobutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_scale.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_scale.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_scale.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_scrollbar.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_scrollbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_spinbox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_spinbox.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_spinbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_spinbox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_text.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_text.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_text.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_text.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-tk_toplevel.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-tk_toplevel.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-tk_toplevel.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-tk_toplevel.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_button.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_button.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_button.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_button.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_checkbutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_checkbutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_checkbutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_checkbutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_combobox.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_combobox.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_combobox.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_combobox.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_entry.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_entry.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_entry.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_entry.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_frame.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_frame.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_frame.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_frame.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_label.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_label.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_label.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_label.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_labelframe.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_labelframe.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_labelframe.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_labelframe.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_menubutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_menubutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_menubutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_menubutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_notebook.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_notebook.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_notebook.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_notebook.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_panedwindow.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_panedwindow.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_panedwindow.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_panedwindow.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_progressbar.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_progressbar.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_progressbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_progressbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_radiobutton.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_radiobutton.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_radiobutton.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_radiobutton.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_scale.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_scale.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_scale.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_scale.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_scrollbar.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_scrollbar.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_scrollbar.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_scrollbar.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_separator.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_separator.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_separator.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_separator.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_sizegrip.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_sizegrip.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_sizegrip.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_sizegrip.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2a-win32/tier2a-ttk_treeview.tcl
===================================================================
--- trunk/lib/tier2a-win32/tier2a-ttk_treeview.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2a-win32/tier2a-ttk_treeview.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -2,7 +2,7 @@
### tier2a-ttk_treeview.tcl
###
### Automatically generated by ../../instlib/assimilate.tcl
-### on 2008-01-10 at 11:09AM
+### on 2008-10-09 at 05:50PM
### for the win32 platform.
###
### Do not edit!
Modified: trunk/lib/tier2b/tier2b-tk_spinbox.tcl
===================================================================
--- trunk/lib/tier2b/tier2b-tk_spinbox.tcl 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/lib/tier2b/tier2b-tk_spinbox.tcl 2008-10-10 01:02:16 UTC (rev 40)
@@ -4,8 +4,13 @@
### Each of the attributes of a spinbox is represented
### by a write-active slot of the same name on this object.
###
-### This object has no additional methods. Refer to the
-### manual for spinbox for more info.
+### This object has some methods that override the defaults
+### to make it possible to set ``from`` and ``to`` separately.
+### If you set the ``from`` value to something greater than
+### ``to``, ``to`` will also be set to that. Similar behavior
+### happens if you try to set ``to`` to less than ``from``.
+###
+### Otherwise, see the manual for spinbox for more info.
##
## Do not remove these lines:
##
@@ -13,10 +18,33 @@
TkWidget construct Tk_SpinBox
::Poet::loadlib tier2a-tk_spinbox
##
-## Add any additional methods for Tk_SpinBox here. This file will
-## not be overwritten if it exists when assimilate is run.
+## See the comment above as to why we do this.
##
-## If you add stuff here, fix the comment above.
-##
+# Override autogen'd version for safety
+#
+Tk_SpinBox slot> from {0} {
+ set p [$self slot _primary]
+ if {$p eq ""} return
+ set to [$p cget -to]
+ if {$to < $value} {
+ $p configure -from $value -to $value
+ } else {
+ $p configure -from $value
+ }
+}
+
+# Override autogen'd version for safety
+#
+Tk_SpinBox slot> to {0} {
+ set p [$self slot _primary]
+ if {$p eq ""} return
+
+ set from [$p cget -from]
+ if {$from > $value} {
+ $p configure -from $value -to $value
+ } else {
+ $p configure -to $value
+ }
+}
Modified: trunk/testing/debug.poet/Thing_AnonCounter.thg
===================================================================
--- trunk/testing/debug.poet/Thing_AnonCounter.thg 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/testing/debug.poet/Thing_AnonCounter.thg 2008-10-10 01:02:16 UTC (rev 40)
@@ -1,17 +1,17 @@
-## Persistent storage for Thing_AnonCounter.
-## Do not edit this file!
-##
-
-
-Thing construct Thing_AnonCounter
-
-
-
-
-
-Thing_AnonCounter slot loaded "0"
-Thing_AnonCounter slot n "@1"
-Thing_AnonCounter slot nDel "1"
-Thing_AnonCounter slot saved "0"
-
-Thing_AnonCounter Thing_postload
+## Persistent storage for Thing_AnonCounter.
+## Do not edit this file!
+##
+
+
+Thing construct Thing_AnonCounter
+
+
+
+
+
+Thing_AnonCounter slot loaded "0"
+Thing_AnonCounter slot n "@1"
+Thing_AnonCounter slot nDel "1"
+Thing_AnonCounter slot saved "0"
+
+Thing_AnonCounter Thing_postload
Modified: trunk/testing/debug.poet/tclIndex
===================================================================
--- trunk/testing/debug.poet/tclIndex 2008-10-01 17:45:58 UTC (rev 39)
+++ trunk/testing/debug.poet/tclIndex 2008-10-10 01:02:16 UTC (rev 40)
@@ -1,12 +1,12 @@
-# Tcl autoload index file, version 2.0
-# This file is generated by ThingPool (Poet Tier 1)
-# and sourced to set up indexing information for one or
-# more Poet objects. Typically each line is a command that
-# sets an element in the auto_index array, where the
-# element name is the name of a command and the value is
-# a script that loads the command.
-#
-# Note: the comment after some lines is used by ThingPool list
-
-
-set auto_index(Thing_AnonCounter) [list source [file join $dir Thing_AnonCounter.thg]] ;# parent: Thing
+# Tcl autoload index file, version 2.0
+# This file is generated by ThingPool (Poet Tier 1)
+# and sourced to set up indexing information for one or
+# more Poet objects. Typically each line is a command that
+# sets an element in the auto_index array, where the
+# element name is the name of a command and the value is
+# a script that loads the command.
+#
+# Note: the comment after some lines is used by ThingPool list
+
+
+set auto_index(Thing_AnonCounter) [list source [file join $dir Thing_AnonCounter.thg]] ;# parent: Thing
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-10-01 17:46:16
|
Revision: 39
http://poet.svn.sourceforge.net/poet/?rev=39&view=rev
Author: mercurio
Date: 2008-10-01 17:45:58 +0000 (Wed, 01 Oct 2008)
Log Message:
-----------
Added Poet addLibrary and Poet preload methods, to make
it easier to preload individual application files when
using Poet's autoloading mechanism.
Modified Paths:
--------------
trunk/lib/Poet.tcl
trunk/lib/tier1/tier1-poet.tcl
trunk/lib/tier1/tier1-thingpool.tcl
trunk/testing/debug.poet/Thing_AnonCounter.thg
trunk/testing/debug.poet/tclIndex
Modified: trunk/lib/Poet.tcl
===================================================================
--- trunk/lib/Poet.tcl 2008-08-25 22:43:21 UTC (rev 38)
+++ trunk/lib/Poet.tcl 2008-10-01 17:45:58 UTC (rev 39)
@@ -809,6 +809,9 @@
# Load all of the objects in one of the preload_indexes.
#
+# This is the version used internally within Poet, applications
+# that need preloading should call ``Poet preload``.
+#
proc ::Poet::preloadSet {index} {
if {[info exists ::Poet::preload_index($index)]} {
foreach p [set ::Poet::preload_index($index)] {
Modified: trunk/lib/tier1/tier1-poet.tcl
===================================================================
--- trunk/lib/tier1/tier1-poet.tcl 2008-08-25 22:43:21 UTC (rev 38)
+++ trunk/lib/tier1/tier1-poet.tcl 2008-10-01 17:45:58 UTC (rev 39)
@@ -6,9 +6,41 @@
# PJM 20070529 Methods for manipulating the constraint network
# added, using poetGlobals
# PJM 20080103 Added style, wrapper for ttk::style
+# PJM 20080926 Added addLibrary and preload
Object construct Poet
+# Add the given path as a Poet library, set up for autoloading.
+# We add it to ::auto_path and source poetIndex, if present.
+# There should be a tclIndex file present too.
+#
+Poet method addLibrary {dir} {
+ lappend ::auto_path $dir
+ catch {source [file join $dir poetIndex]}
+}
+
+# Load all of the objects in one of the preload_indexes.
+#
+# When autoloading, you can mark a file for preloading
+# with (must start in column 1):
+#``
+# ::Poet::Preload <tag>
+#``
+# where <tag> is a unique string, most likely the name of
+# your application. Then, as part of your initialization,
+# invoke this method with that tag as the argument. All
+# the objects marked with ::Poet:Preload will be loaded.
+# If the tag is invalid or nothing has been marked, no
+# error is generated.
+#
+Poet method preload {tag} {
+ if {[info exists ::Poet::preload_index($tag)]} {
+ foreach p [set ::Poet::preload_index($tag)] {
+ $p noop
+ }
+ }
+}
+
# Return the version string, which is of the
# form ``major.minor.release``. Individual
# components can be returned by giving them
Modified: trunk/lib/tier1/tier1-thingpool.tcl
===================================================================
--- trunk/lib/tier1/tier1-thingpool.tcl 2008-08-25 22:43:21 UTC (rev 38)
+++ trunk/lib/tier1/tier1-thingpool.tcl 2008-10-01 17:45:58 UTC (rev 39)
@@ -326,7 +326,7 @@
}
while {[gets $f line] >= 0} {
- if {[regexp {auto_index\((.+)\).*;# parent: (.+)$} $line ign obj mom]} {
+ if {[regexp {auto_index\((.+)\).*;# parent: (.+)$} $line -> obj mom]} {
lappend res [list $obj $mom]
}
}
Modified: trunk/testing/debug.poet/Thing_AnonCounter.thg
===================================================================
--- trunk/testing/debug.poet/Thing_AnonCounter.thg 2008-08-25 22:43:21 UTC (rev 38)
+++ trunk/testing/debug.poet/Thing_AnonCounter.thg 2008-10-01 17:45:58 UTC (rev 39)
@@ -1,17 +1,17 @@
-## Persistent storage for Thing_AnonCounter.
-## Do not edit this file!
-##
-
-
-Thing construct Thing_AnonCounter
-
-
-
-
-
-Thing_AnonCounter slot loaded "0"
-Thing_AnonCounter slot n "@1"
-Thing_AnonCounter slot nDel "1"
-Thing_AnonCounter slot saved "0"
-
-Thing_AnonCounter Thing_postload
+## Persistent storage for Thing_AnonCounter.
+## Do not edit this file!
+##
+
+
+Thing construct Thing_AnonCounter
+
+
+
+
+
+Thing_AnonCounter slot loaded "0"
+Thing_AnonCounter slot n "@1"
+Thing_AnonCounter slot nDel "1"
+Thing_AnonCounter slot saved "0"
+
+Thing_AnonCounter Thing_postload
Modified: trunk/testing/debug.poet/tclIndex
===================================================================
--- trunk/testing/debug.poet/tclIndex 2008-08-25 22:43:21 UTC (rev 38)
+++ trunk/testing/debug.poet/tclIndex 2008-10-01 17:45:58 UTC (rev 39)
@@ -1,12 +1,12 @@
-# Tcl autoload index file, version 2.0
-# This file is generated by ThingPool (Poet Tier 1)
-# and sourced to set up indexing information for one or
-# more Poet objects. Typically each line is a command that
-# sets an element in the auto_index array, where the
-# element name is the name of a command and the value is
-# a script that loads the command.
-#
-# Note: the comment after some lines is used by ThingPool list
-
-
-set auto_index(Thing_AnonCounter) [list source [file join $dir Thing_AnonCounter.thg]] ;# parent: Thing
+# Tcl autoload index file, version 2.0
+# This file is generated by ThingPool (Poet Tier 1)
+# and sourced to set up indexing information for one or
+# more Poet objects. Typically each line is a command that
+# sets an element in the auto_index array, where the
+# element name is the name of a command and the value is
+# a script that loads the command.
+#
+# Note: the comment after some lines is used by ThingPool list
+
+
+set auto_index(Thing_AnonCounter) [list source [file join $dir Thing_AnonCounter.thg]] ;# parent: Thing
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-08-25 22:43:20
|
Revision: 38
http://poet.svn.sourceforge.net/poet/?rev=38&view=rev
Author: mercurio
Date: 2008-08-25 22:43:21 +0000 (Mon, 25 Aug 2008)
Log Message:
-----------
Change to C code: we now use Tcl_EvalObjEx(...
TCL_EVAL_DIRECT) in several places, where the
object being eval'd is about to be discarded
anyway. This is based on a suggestion by
Mykhaylo Sorochan. The Window DLLs are current,
all others will need to be recompiled.
Changes to Object to support logging when a
method is invoked (Object logWhereMethods {}).
Minor changes to bindings for the window
resizer in MainFrameTool.
Modified Paths:
--------------
trunk/generic/poet.c
trunk/lib/Poet.tcl
trunk/lib/tier1/tier1-object.tcl
trunk/lib/tier2/tier2-mainframetool.tcl
trunk/vim/tcl.vim
trunk/win/Poet21-84.dll
trunk/win/Poet21-85.dll
trunk/win/libPoet21.a
Added Paths:
-----------
trunk/testing/bench-poet.tcl
Modified: trunk/generic/poet.c
===================================================================
--- trunk/generic/poet.c 2008-04-29 21:42:35 UTC (rev 37)
+++ trunk/generic/poet.c 2008-08-25 22:43:21 UTC (rev 38)
@@ -279,11 +279,18 @@
* slotConstrain is now _slotConstrain, the rest is in tier 1
*
* 20071003 mer...@ac...
- * Significant changes to deal witht he Great Var Reform of '07. We
+ * Significant changes to deal with the Great Var Reform of '07. We
* finesse the whole thing by avoiding hash tables and vars, instead
* we eval the array command. We only needed to be able to iterate
* through an array, which got much more difficult with the Var Reform.
*
+ * 20080825 mer...@ac...
+ * Based on a contribution by Mykhaylo Sorochan, m.s...@gm...,
+ * many instances of Tcl_EvalObj() have been replaced with
+ * Tcl_EvalObjEx(...TCL_EVAL_DIRECT), which makes more sense if the
+ * object being evaluated is about to be discarded anyway. Doesn't seem
+ * to affect performance at all.
+ *
****************************************************************************/
@@ -885,7 +892,7 @@
Tcl_ListObjAppendElement(interp,com,mObj);
Tcl_ListObjAppendElement(interp,com,slot);
Tcl_ListObjAppendElement(interp,com,pop->trueName);
- Tcl_EvalObj(interp,com);
+ Tcl_EvalObjEx(interp,com,TCL_EVAL_DIRECT);
Tcl_DecrRefCount(com);
return(ans);
@@ -1116,7 +1123,7 @@
debug_print("Poet_QueueEvent: %s\n", Tcl_GetStringFromObj(com,NULL));
#endif /* DEBUG_EVENTS */
- Tcl_EvalObj(interp,com);
+ Tcl_EvalObjEx(interp,com,TCL_EVAL_DIRECT);
Tcl_DecrRefCount(e);
Tcl_DecrRefCount(com);
@@ -1179,7 +1186,7 @@
}
/* If not inited or the eval fails, at least print something to stderr */
- if(!pg->inited || Tcl_EvalObj(interp,com) != TCL_OK) {
+ if(!pg->inited || Tcl_EvalObjEx(interp,com,TCL_EVAL_DIRECT) != TCL_OK) {
Tcl_Channel out = Tcl_GetChannel(interp,"stderr",NULL);
Tcl_Write(out, "** Tier0 ",-1);
Tcl_Write(out, type,-1);
@@ -1842,7 +1849,7 @@
for(i=0; i < objc; i++)
Tcl_ListObjAppendElement(interp,com,objv[i]);
- i = Tcl_EvalObj(interp,com);
+ i = Tcl_EvalObjEx(interp,com,TCL_EVAL_DIRECT);
Tcl_DecrRefCount(com);
if(i == TCL_ERROR) return(TCL_ERROR);
@@ -2564,7 +2571,7 @@
for(i=2; i < objc; i++)
Tcl_ListObjAppendElement(interp,com,objv[i]);
- result = Tcl_EvalObj(interp, com);
+ result = Tcl_EvalObjEx(interp, com, TCL_EVAL_DIRECT);
Tcl_DecrRefCount(com);
return(result);
}
@@ -2633,7 +2640,7 @@
Tcl_AppendStringsToObj(com,Str(val),
" {self ",Str(args),"} {",Str(body),"}",NULL);
- result = Tcl_EvalObj(interp,com);
+ result = Tcl_EvalObjEx(interp,com,TCL_EVAL_DIRECT);
Tcl_DecrRefCount(com);
Tcl_DecrRefCount(val);
Modified: trunk/lib/Poet.tcl
===================================================================
--- trunk/lib/Poet.tcl 2008-04-29 21:42:35 UTC (rev 37)
+++ trunk/lib/Poet.tcl 2008-08-25 22:43:21 UTC (rev 38)
@@ -213,6 +213,14 @@
puts stderr " => [::Poet::parseLevelInfo $cmd]"
}
+# Called when entering a command invocation while non-interactively tracing execution,
+# prints out stack trace
+#
+proc ::Poet::enterWhere {cmd op} {
+ puts stderr [::Poet::stackTrace]
+ puts stderr " => [::Poet::parseLevelInfo $cmd]"
+}
+
# Called when leaving a command invocation while tracing execution
#
proc ::Poet::leaveLog {cmd code result op} {
@@ -389,6 +397,20 @@
trace remove exec $x leave ::Poet::leaveLog
}
+# Trace where a proc is invoked
+#
+proc ::Poet::whereProc {x} {
+ trace add exec $x enter ::Poet::enterWhere
+ trace add exec $x leave ::Poet::leaveLog
+}
+
+# Turn off where logging for a proc
+#
+proc ::Poet::unwhereProc {x} {
+ trace remove exec $x enter ::Poet::enterWhere
+ trace remove exec $x leave ::Poet::leaveLog
+}
+
## Walking through a procedure means using the Tier 3
## debugger ``theDebugger``. If that doesn't exist,
## this is the same as stepping.
Modified: trunk/lib/tier1/tier1-object.tcl
===================================================================
--- trunk/lib/tier1/tier1-object.tcl 2008-04-29 21:42:35 UTC (rev 37)
+++ trunk/lib/tier1/tier1-object.tcl 2008-08-25 22:43:21 UTC (rev 38)
@@ -1579,7 +1579,7 @@
# Non-interactively log when a method is invoked, using the trace Tcl command.
# Handles multiple arguments (each method is logged). Output is to the
-# console.
+# console. If ``*`` is given as the args, all methods are logged.
#
Object method logMethods {args} {
if {$args == "*"} {set args [$self methods]}
@@ -1613,6 +1613,45 @@
}
}
+# Non-interactively log when a method is invoked, using the trace Tcl command.
+# Handles multiple arguments (each method is logged). Output is to the
+# console. If ``*`` is given as the args, all methods are logged.
+#
+# This version causes a Poet::stackTrace to be printed when the logged method
+# is entered.
+#
+Object method logWhereMethods {args} {
+ if {$args == "*"} {set args [$self methods]}
+
+ foreach m $args {
+ if {![$self hasMethod $m]} continue
+
+ if {[$self _isTier0Method $m]} {
+ UserMsg warning "|$self logWhereMethods $args| $m is a Tier0 method defined in poet.c, can't log it"
+ continue
+ }
+
+ global _om_${self}
+ ::Poet::whereProc [set _om_${self}($m)]
+ }
+}
+
+# Turn off where logging for a method or list of methods
+#
+Object method unlogWhereMethods {args} {
+ foreach m $args {
+ if {![$self hasMethod $m]} continue
+
+ if {[$self _isTier0Method $m]} {
+ UserMsg warning "|$self unlogWhereMethods $args| $m is a Tier0 method defined in poet.c, can't log it"
+ continue
+ }
+
+ global _om_${self}
+ ::Poet::unwhereProc [set _om_${self}($m)]
+ }
+}
+
# Interactively walk through a method invocation, using the Debugger,
# if available. The debugger is opened via ``Debugger open`` (Poetics
# is required, so ``$::env(POET_TIER)`` must have been set to 3
@@ -1676,11 +1715,15 @@
trace variable _os_$self $ops $command
}
+# Untrace the slots of an object
+#
Object method untrace {ops command} {
global _os_$self
trace vdelete _os_$self $ops $command
}
+# List the traces on the slots of an object
+#
Object method listTrace {} {
global _os_$self
return [trace vinfo _os_$self]
@@ -1716,6 +1759,8 @@
trace vdelete _o${d}_${s} $ops $command
}
+# List the traces on a dimension
+#
Object method listTraceDim {dim} {
set d [string index $dim 0]
global _o${d}_$self
Modified: trunk/lib/tier2/tier2-mainframetool.tcl
===================================================================
--- trunk/lib/tier2/tier2-mainframetool.tcl 2008-04-29 21:42:35 UTC (rev 37)
+++ trunk/lib/tier2/tier2-mainframetool.tcl 2008-08-25 22:43:21 UTC (rev 38)
@@ -148,10 +148,16 @@
bindtags $p.resizer [list all $t Resizer $p.resizer]
- bind Resizer <ButtonPress-1> [list $self resizeBegin %W %X %Y]
- bind Resizer <B1-Motion> [list $self resizeContinue %W %X %Y]
- bind Resizer <ButtonRelease-1> [list $self resizeEnd %W %X %Y]
+ # original version, not clear why this is necessary. Rather
+ # have more specific bindings, below.
+ # bind Resizer <ButtonPress-1> [list $self resizeBegin %W %X %Y]
+ # bind Resizer <B1-Motion> [list $self resizeContinue %W %X %Y]
+ # bind Resizer <ButtonRelease-1> [list $self resizeEnd %W %X %Y]
+ bind $p.resizer <ButtonPress-1> [list $self resizeBegin %W %X %Y]
+ bind $p.resizer <B1-Motion> [list $self resizeContinue %W %X %Y]
+ bind $p.resizer <ButtonRelease-1> [list $self resizeEnd %W %X %Y]
+
raise $p.resizer
return $p.resizer
Added: trunk/testing/bench-poet.tcl
===================================================================
--- trunk/testing/bench-poet.tcl (rev 0)
+++ trunk/testing/bench-poet.tcl 2008-08-25 22:43:21 UTC (rev 38)
@@ -0,0 +1,32 @@
+# Version of bench.tcl that only does the Poet
+# benchmark.
+#
+
+package require Tcl 8.5
+
+proc cps {script {iters 100000}} {
+ set s [uplevel 1 [list time $script $iters]]
+ set cps [expr {1/([lindex $s 0]/1e6)}]
+ puts "$cps calls per second of: $script"
+}
+
+puts "using Poet..."
+set env(POET_TIER) 1 ;# don't need Tk
+package require Poet
+
+Object construct Foo
+Foo slot x 0
+Foo method init {} {
+ $self slot x 1
+}
+Foo method bar {} {
+ $self slot x [expr {![$self slot x]}]
+}
+
+Foo construct f
+cps {f bar}
+f destruct
+
+cps {[Foo construct f] destruct} 10000
+
+Foo destruct
Modified: trunk/vim/tcl.vim
===================================================================
--- trunk/vim/tcl.vim 2008-04-29 21:42:35 UTC (rev 37)
+++ trunk/vim/tcl.vim 2008-08-25 22:43:21 UTC (rev 38)
@@ -21,6 +21,7 @@
syn keyword tclDebug ifdebug
syn keyword tclDebug debug
syn keyword tclDebug dbvar
+syn keyword tclDebug dblog
syn keyword tclDebug dbstack
syn keyword tclDebug observe
@@ -93,6 +94,7 @@
syn keyword tclPoet listTraceDim
syn keyword tclPoet listTraceSlot
syn keyword tclPoet logMethods
+syn keyword tclPoet logWhereMethods
syn keyword tclPoet matches
syn keyword tclPoet method
syn keyword tclPoet methodAppend
@@ -167,6 +169,7 @@
syn keyword tclPoet uncached-allPubSlots
syn keyword tclPoet unformula
syn keyword tclPoet unlogMethods
+syn keyword tclPoet unlogWhereMethods
syn keyword tclPoet unmethod
syn keyword tclPoet unparent
syn keyword tclPoet unslot
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-04-29 21:42:34
|
Revision: 37
http://poet.svn.sourceforge.net/poet/?rev=37&view=rev
Author: mercurio
Date: 2008-04-29 14:42:35 -0700 (Tue, 29 Apr 2008)
Log Message:
-----------
Fixed regexp in MainFrameTool getGeometry (again)
Modified Paths:
--------------
trunk/lib/tier2/tier2-mainframetool.tcl
Modified: trunk/lib/tier2/tier2-mainframetool.tcl
===================================================================
--- trunk/lib/tier2/tier2-mainframetool.tcl 2008-04-28 17:56:47 UTC (rev 36)
+++ trunk/lib/tier2/tier2-mainframetool.tcl 2008-04-29 21:42:35 UTC (rev 37)
@@ -270,7 +270,7 @@
set t [winfo toplevel [$self slot _primary]]
set g [wm geometry $t]
- regexp {([0-9]+)x([0-9]+)([+-][0-9]+)([+-][0-9]+)} $g -> w h x y
+ regexp {([0-9]+)x([0-9]+)\+*(-*[0-9]+)\+*(-*[0-9]+)} $g -> w h x y
incr x 0
incr y 0
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-04-28 17:56:41
|
Revision: 36
http://poet.svn.sourceforge.net/poet/?rev=36&view=rev
Author: mercurio
Date: 2008-04-28 10:56:47 -0700 (Mon, 28 Apr 2008)
Log Message:
-----------
Fixed regexp in MainFrameTool getGeometry, added
keyword to tcl.vim
Modified Paths:
--------------
trunk/lib/tier2/tier2-mainframetool.tcl
trunk/vim/tcl.vim
Modified: trunk/lib/tier2/tier2-mainframetool.tcl
===================================================================
--- trunk/lib/tier2/tier2-mainframetool.tcl 2008-02-09 01:56:39 UTC (rev 35)
+++ trunk/lib/tier2/tier2-mainframetool.tcl 2008-04-28 17:56:47 UTC (rev 36)
@@ -270,7 +270,7 @@
set t [winfo toplevel [$self slot _primary]]
set g [wm geometry $t]
- regexp {([0-9]+)x([0-9]+)\+(-*[0-9]+)\+(-*[0-9]+)} $g -> w h x y
+ regexp {([0-9]+)x([0-9]+)([+-][0-9]+)([+-][0-9]+)} $g -> w h x y
incr x 0
incr y 0
Modified: trunk/vim/tcl.vim
===================================================================
--- trunk/vim/tcl.vim 2008-02-09 01:56:39 UTC (rev 35)
+++ trunk/vim/tcl.vim 2008-04-28 17:56:47 UTC (rev 36)
@@ -141,6 +141,7 @@
syn keyword tclPoet slotNodeInfo
syn keyword tclPoet slotOff
syn keyword tclPoet slotOn
+syn keyword tclPoet slotPeek
syn keyword tclPoet slotPop
syn keyword tclPoet slotPush
syn keyword tclPoet slotRange
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-02-09 01:56:33
|
Revision: 35
http://poet.svn.sourceforge.net/poet/?rev=35&view=rev
Author: mercurio
Date: 2008-02-08 17:56:39 -0800 (Fri, 08 Feb 2008)
Log Message:
-----------
Update to documentation (Object resumeFormula)
Modified Paths:
--------------
trunk/doc/handmade/tier0autodoc.tcl
trunk/html/doc/tier1-Object.html
trunk/lib/images/Thumbs.db
trunk/lib/tclIndex
trunk/vim/tcl.vim
Added Paths:
-----------
trunk/testing/bench.out
trunk/testing/bench.tcl
Modified: trunk/doc/handmade/tier0autodoc.tcl
===================================================================
--- trunk/doc/handmade/tier0autodoc.tcl 2008-01-17 05:21:33 UTC (rev 34)
+++ trunk/doc/handmade/tier0autodoc.tcl 2008-02-09 01:56:39 UTC (rev 35)
@@ -100,7 +100,7 @@
used directly, use the methods of the ``Poet`` object instead.}
newmethod {tier1/tier1-object.tcl} 0 {Object} {resumeFormula} {{?token?}} {A formula doesn't need to
complete its calculation in one pass. It can indicate that it is not completed by returning
-with ``return -code $::Poet::Continue token``, where ``token`` is a unique identifier (like a
+using ``error suspend token``, where ``token`` is a unique identifier (like a
Poet object name). The formula can later resume working on the final value via ``Object resumeFormula token``
(it doesn't matter what object the method is invoked on), and then stop working on it again
via ``Object resumeFormula`` with no token argument (closing that destination node for the time being).
Modified: trunk/html/doc/tier1-Object.html
===================================================================
--- trunk/html/doc/tier1-Object.html 2008-01-17 05:21:33 UTC (rev 34)
+++ trunk/html/doc/tier1-Object.html 2008-02-09 01:56:39 UTC (rev 35)
@@ -984,7 +984,7 @@
<blockquote>
A formula doesn't need to
complete its calculation in one pass. It can indicate that it is not completed by returning
-with <code>return -code <code><font color=green>$::Poet::Continue</font></code> token</code>, where <code>token</code> is a unique identifier (like a
+using <code>error suspend token</code>, where <code>token</code> is a unique identifier (like a
Poet object name). The formula can later resume working on the final value via <code>Object resumeFormula token</code>
(it doesn't matter what object the method is invoked on), and then stop working on it again
via <code>Object resumeFormula</code> with no token argument (closing that destination node for the time being).
Modified: trunk/lib/images/Thumbs.db
===================================================================
(Binary files differ)
Modified: trunk/lib/tclIndex
===================================================================
--- trunk/lib/tclIndex 2008-01-17 05:21:33 UTC (rev 34)
+++ trunk/lib/tclIndex 2008-02-09 01:56:39 UTC (rev 35)
@@ -195,10 +195,10 @@
set auto_index(ObjectNameEntry) [list source [file join $dir tier3 tier3-objectnameentry.tcl]] ;# parent: BW_Entry
set auto_index(ObjectNameHistory) [list source [file join $dir tier3 tier3-objectnamehistory.tcl]] ;# parent: ObjectNameCombo
set auto_index(ObjectNameWidget) [list source [file join $dir tier3 tier3-objectnamewidget.tcl]] ;# parent: Mixin
+set auto_index(Poetics) [list source [file join $dir tier3 tier3-poetics.tcl]] ;# parent: Object
set auto_index(ObjectTableBook) [list source [file join $dir tier3 tier3-objecttablebook.tcl]] ;# parent: BW_NoteBook
set auto_index(ObjectTreeBook) [list source [file join $dir tier3 tier3-objecttreebook.tcl]] ;# parent: BW_NoteBook
set auto_index(PocketTable) [list source [file join $dir tier3 tier3-pockettable.tcl]] ;# parent: BW_ScrolledWindow
-set auto_index(Poetics) [list source [file join $dir tier3 tier3-poetics.tcl]] ;# parent: Object
set auto_index(PoeticsToolbox) [list source [file join $dir tier3 tier3-poeticstoolbox.tcl]] ;# parent: MainFrameTool
set auto_index(Sage) [list source [file join $dir tier3 tier3-sage.tcl]] ;# parent: Object
set auto_index(Scroll) [list source [file join $dir tier3 tier3-scroll.tcl]] ;# parent: Object
Added: trunk/testing/bench.out
===================================================================
--- trunk/testing/bench.out (rev 0)
+++ trunk/testing/bench.out 2008-02-09 01:56:39 UTC (rev 35)
@@ -0,0 +1,12 @@
+using itcl...
+318027.7192960139 calls per second of: f bar
+61823.802163833076 calls per second of: delete object [foo f]
+using xotcl...
+349892.58297702606 calls per second of: f bar
+63788.12137603736 calls per second of: [Foo create f] destroy
+using tcloo...
+407931.82643316645 calls per second of: f bar
+43518.562842980675 calls per second of: [foo create f] destroy
+using Poet...
+24016.806000166678 calls per second of: f bar
+7640.417502974032 calls per second of: [Foo construct f] destruct
Added: trunk/testing/bench.tcl
===================================================================
--- trunk/testing/bench.tcl (rev 0)
+++ trunk/testing/bench.tcl 2008-02-09 01:56:39 UTC (rev 35)
@@ -0,0 +1,155 @@
+# From wiki.tcl.tk/18152
+#
+
+package require Tcl 8.5
+
+proc cps {script {iters 100000}} {
+ set s [uplevel 1 [list time $script $iters]]
+ set cps [expr {1/([lindex $s 0]/1e6)}]
+ puts "$cps calls per second of: $script"
+}
+
+puts "using itcl..."
+package require Itcl 3.4
+namespace path itcl
+
+class foo {
+ variable x
+ constructor {} {
+ set x 1
+ }
+ method bar {} {
+ set x [expr {!$x}]
+ }
+}
+
+foo f
+cps {f bar}
+delete object f
+
+cps {delete object [foo f]} 10000
+
+delete class foo
+
+puts "using xotcl..."
+package require XOTcl 1.5.5
+namespace path xotcl
+
+Class create Foo
+Foo parameter x
+Foo instproc init {} {
+ my set x 1
+}
+Foo instproc bar {} {
+ my instvar x
+ set x [expr {!$x}]
+}
+
+Foo create f
+cps {f bar}
+f destroy
+
+cps {[Foo create f] destroy} 10000
+
+Foo destroy
+
+puts "using tcloo..."
+package require TclOO 0.1
+namespace path oo
+
+class create foo {
+ constructor {} {
+ variable x 1
+ }
+ method bar {} {
+ variable x
+ set x [expr {!$x}]
+ }
+}
+
+foo create f
+cps {f bar}
+f destroy
+
+cps {[foo create f] destroy} 10000
+
+foo destroy
+
+puts "using Poet..."
+set env(POET_TIER) 1 ;# don't need Tk
+package require Poet
+
+Object construct Foo
+Foo slot x 0
+Foo method init {} {
+ $self slot x 1
+}
+Foo method bar {} {
+ $self slot x [expr {![$self slot x]}]
+}
+
+Foo construct f
+cps {f bar}
+f destruct
+
+cps {[Foo construct f] destruct} 10000
+
+Foo destruct
+
+if 0 { ;# snit skipped
+
+puts "using snit..."
+package require snit 2.1
+
+snit::type foo {
+ variable x
+ constructor {} {
+ set x 1
+ }
+ method foo {} {
+ set x [expr {!$x}]
+ }
+}
+
+foo create f
+cps {f bar}
+f delete
+
+cps {[foo create f] destroy} 10000
+
+foo destroy
+
+} ;# end of snit skipped
+
+if 0 { ;# stooop skipped
+
+puts "using stooop..."
+# Must go last because it plays games with proc which might disturb the
+# performance of other OO systems. Note that stooop has both virtual and
+# non-virtual methods, with very different performance profiles. The virtual
+# ones are much more comparable in capability to other OO systems...
+
+package require stooop 4.4.1
+namespace path stooop
+
+class foo {
+ proc foo {this} {
+ set ($this,x) 1
+ }
+ proc ~foo {this} {}
+ virtual proc bar {this} {
+ set ($this,x) [expr {!$($this,x)}]
+ }
+ proc bar-nv {this} {
+ set ($this,x) [expr {!$($this,x)}]
+ }
+}
+
+set f [new foo]
+cps {$f bar}
+cps {$f bar-nv}
+delete $f
+
+cps {delete [new foo]} 10000
+
+} ;# end of stooop skipped
Modified: trunk/vim/tcl.vim
===================================================================
--- trunk/vim/tcl.vim 2008-01-17 05:21:33 UTC (rev 34)
+++ trunk/vim/tcl.vim 2008-02-09 01:56:39 UTC (rev 35)
@@ -182,7 +182,7 @@
" A bunch of useful keywords
syn keyword tclStatement proc global return lindex source catch
-syn keyword tclStatement llength lappend lreplace lrange lsearch list concat incr
+syn keyword tclStatement llength lappend lassign lreplace lrange lsearch list concat incr
syn keyword tclStatement uplevel upvar set
syn keyword tclLabel case default
syn keyword tclConditional if then else elseif switch
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-01-17 05:21:27
|
Revision: 34
http://poet.svn.sourceforge.net/poet/?rev=34&view=rev
Author: mercurio
Date: 2008-01-16 21:21:33 -0800 (Wed, 16 Jan 2008)
Log Message:
-----------
One-character typo in ReadMe.txt
Modified Paths:
--------------
trunk/ReadMe.txt
trunk/lib/version.tcl
Modified: trunk/ReadMe.txt
===================================================================
--- trunk/ReadMe.txt 2008-01-17 04:45:41 UTC (rev 33)
+++ trunk/ReadMe.txt 2008-01-17 05:21:33 UTC (rev 34)
@@ -238,7 +238,7 @@
20080116 Release 2.1.0. Updated for Tcl/Tk 8.5, including wrapping of
Ttk widgets. Added <style> type (see "Poet style" command). Changed
Poet popup menu. Numerous bug fixes, including one in the C code.
- Now supports MasOS X (Tcl 8.5 only, 8.4 compilation fails because
+ Now supports MacOS X (Tcl 8.5 only, 8.4 compilation fails because
TclObjLookupVar() can't be found (this is probably an ActiveState problem)).
We now use Ttk_ComboBox, when available, and Tk_SpinBox in ObjectEditor.
Modified: trunk/lib/version.tcl
===================================================================
--- trunk/lib/version.tcl 2008-01-17 04:45:41 UTC (rev 33)
+++ trunk/lib/version.tcl 2008-01-17 05:21:33 UTC (rev 34)
@@ -1 +1 @@
-set ::Poet::version 2.1.0
+set ::Poet::version 2.1.1
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-01-17 04:45:36
|
Revision: 33
http://poet.svn.sourceforge.net/poet/?rev=33&view=rev
Author: mercurio
Date: 2008-01-16 20:45:41 -0800 (Wed, 16 Jan 2008)
Log Message:
-----------
Release 2.1.0
Added Paths:
-----------
tags/2.1.0/
Copied: tags/2.1.0 (from rev 32, trunk)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mer...@us...> - 2008-01-17 04:26:47
|
Revision: 32
http://poet.svn.sourceforge.net/poet/?rev=32&view=rev
Author: mercurio
Date: 2008-01-16 20:26:52 -0800 (Wed, 16 Jan 2008)
Log Message:
-----------
Rebuilt PoetShow.exe, updated comment in BuildBothMac
Modified Paths:
--------------
trunk/sample/PoetShow.exe
trunk/unix/BuildBothMac
Modified: trunk/sample/PoetShow.exe
===================================================================
(Binary files differ)
Modified: trunk/unix/BuildBothMac
===================================================================
--- trunk/unix/BuildBothMac 2008-01-17 03:30:57 UTC (rev 31)
+++ trunk/unix/BuildBothMac 2008-01-17 04:26:52 UTC (rev 32)
@@ -6,6 +6,10 @@
rm -rf ./generic
cp -R ../generic ./generic
+## Note: build against ActiveState Tcl 8.4 fails because TclObjLookupVar
+## is missing. The 8.4 dylib in this directory does not work. PJM 2008-01-16
+##
+
#./configure --prefix=/usr/local --libdir=/Library/Tcl \
# --with-tcl=/Library/Frameworks/Tcl.framework/Versions/8.4 \
# --with-tclinclude=/Library/Frameworks/Tcl.framework/Versions/8.4/Headers \
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|