Xotcl March 2001

xotcl@alice.wu.ac.at

11 participants
10 discussions

The debian packages
by Kristoffer Lawson 27 Mar '01

27 Mar '01

Just tested the debian packages for XOTcl 0.83 by Teemu and they seem to be working fine now, including the pkgIndex.tcl generation, which was a problem before. - ---------- = = ---------//--+ | / Kristoffer Lawson | www.fishpool.fi|.com +-> | setok(a)fishpool.com | - - --+------ |-- Fishpool Creations Ltd - / | +-------- = - - - = --------- /~setok/

4 4

small example: clock.xotcl
by Gustaf Neumann 23 Mar '01

23 Mar '01

Dear community, here is a really small example of XOTcl + Tk: a small digital clock that runs under unix and Win. best regards -gustaf =============================================================================== #!/usr/local/bin/xowish Class Clock -parameter top Clock instproc init {} { [self] instvar W set W [label [[self] set top].[self]] pack $W [self] tick } Clock instproc tick {} { [[self] set W] conf -text [clock format [clock seconds] -format %H:%M:%S] after 1000 [self] tick } Clock c -top .

1 0

Tcl and XOTcl für Windows
by Margit de Toma 22 Mar '01

22 Mar '01

Hallo Liste! Kann mir jemand erklären, wie ich mir die Entwicklungsumgebung auf einem Windows-Rechner einrichte, welche Versionen und Files ich brauche usw. Ich habe mir tcl832.zip und xotcl-0-84-bin-win32.zip geholt, da entpackt er dann zwar wie wild, aber es gibt keine install- oder setup-Files und ich weiß eigentlich nicht, was ich damit anfangen soll. Da ich aber kaum Zeit habe, mich ins Labor zu setzen, wäre eine Entwicklungsumgebung am Rechner zu Hause bzw. im Büro sehr wichtig! LG Margit de Toma

1 0

Railroad example in XOTcl
by Gustaf Neumann 16 Mar '01

16 Mar '01

Here is a small fun-example of a Tk program translated to XOTcl. Start it with xowish enjoy -gustaf ===================================================================================== #!/usr/local/bin/xowish # Example by <Richard Suchenwirth> translated from Tcl to XOTcl by gustaf neumann # Left mousebutton starts, middle slows down, right stops package require XOTcl Class Wheel -parameter {r x y {spokes 24} {pivot 0} {color red} {tag ""}} Wheel instproc drawSpokes {} { [[self] info parent] instvar c alpha [self] instvar W color spokes r x y set delta [expr {360./$spokes}] set deg2arc [expr {atan(1.0)*8/360.}] for {set i 0} {$i<$spokes} {incr i} { set x1 [expr {$x+cos($deg2arc*$alpha)*$r}] set y1 [expr {$y+sin($deg2arc*$alpha)*$r}] $c create line $x $y $x1 $y1 -fill $color -tag spoke set alpha [expr {$alpha+$delta}] } if {[[self] exists act_pivot]} { foreach {item perc} [[self] set act_pivot] break set rp [expr {$r*$perc}] set xp [expr {$x-$rp*cos($deg2arc*$alpha)}] set yp [expr {$y-$rp*sin($deg2arc*$alpha)}] $c coords $item $xp $yp [expr {$xp+1}] [expr {$yp+1}] } } Wheel instproc init {} { [[self] info parent] instvar c alpha [self] instvar pivot color tag W r x y set alpha 0. set y [expr {$y-$r}] $c create oval [expr {$x-$r}] [expr {$y-$r}] [expr {$x+$r}] [expr {$y+$r}] \ -outline white set r1 [expr {$r-2}] set W [$c create oval [expr {$x-$r1}] [expr {$y-$r1}] [expr {$x+$r1}] \ [expr {$y+$r1}] -outline $color -width 2] [self] drawSpokes if {$pivot} { set deg2arc [expr {atan(1.0)*8/360.}] set rp [expr {$r1*$pivot}] set xp [expr {$x-$rp*cos($deg2arc*$alpha)}] set yp [expr {$y-$rp*sin($deg2arc*$alpha)}] set new_pivot [$c create rect $xp $yp \ [expr {$xp+1}] [expr {$yp+1}] -fill $color \ -tag [list $tag pivot]] [self] set act_pivot [list $new_pivot $pivot] $c create arc [expr {$x-$r1}] [expr {$y-$r1}]\ [expr {$x+$r1}] [expr {$y+$r1}] \ -style chord -fill $color -start 310\ -extent 80 -tag counterweight set pivot $new_pivot } set rh [expr {$r/12.}] $c create oval [expr {$x-$rh}] [expr {$y-$rh}] [expr {$x+$rh}] \ [expr {$y+$rh}] -fill white -tag hub set r $r1 } Class Railroad -parameter {{speed 4}} Railroad instproc turn {} { [self] instvar c alpha speed set alpha [expr {round($alpha+360-$speed)%360}] foreach i [$c find withtag counterweight] { $c itemconfig $i -start [expr {310-$alpha}] } $c delete spoke foreach wheel [[self] info children] { $wheel drawSpokes } $c raise hub set xp0 [expr {105+15*sin(($alpha-90)*atan(1.0)*8/360)}] $c delete piston eval $c coords p0 $xp0 120 [expr {$xp0+2}] 122 ;#CW $c create line 90 121 $xp0 121 -width 2 -fill white -tag piston ;#CW [self] drawRod p0 p1 p2 p3 $c raise p0 foreach i [$c find withtag smoke] { if {[lindex [$c bbox $i] 3]<0} { $c delete $i } else { $c move $i [expr {rand()*$speed/3.}] [expr {rand()*2-2}] } } set t [eval $c create oval [$c bbox chimney] -fill white -outline white -tag smoke] $c move $t 0 -10 $c lower smoke } Railroad instproc drawRod {p0 p1 p2 p3} { [self] instvar c $c delete rod eval $c create rect [$c bbox $p1 $p3] -fill white -tag rod eval $c create line [lrange [$c bbox $p0] 0 1] \ [lrange [$c bbox $p2] 0 1] -width 3 -fill white -tag rod $c raise rod $c raise pivot } Railroad instproc tick {} { [self] turn foreach i [after info] {after cancel $i} after 10 [self] tick } Railroad instproc throttle {} { [self] incr speed 6 [self] tick } Railroad instproc break {} { [self] incr speed -2 if {[[self] set speed]<0} {[self] set speed 0} [self] tick } Railroad instproc emergencyBreak {} { [self] set speed 0 [self] tick } Railroad instproc init {} { [self] instvar c set c [canvas .c -width 600 -height 160 -background lightblue] pack $c bind $c <1> [list [self] throttle] bind $c <2> [list [self] break] bind $c <3> [list [self] emergencyBreak] $c delete all $c create rect 32 115 360 125 -fill black ;# frame $c create rect 22 118 32 122 -fill grey30 ;# buffer $c create line 22 115 22 125 $c create poly 60 95 40 115 50 115 70 95 -fill black $c create rect 60 45 310 95 -fill grey25 ;# boiler $c create oval 55 50 65 90 -fill black ;# smokebox $c create rect 70 32 85 50 -fill black -tag chimney $c create rect 40 52 90 75 -fill black ;# wind diverter $c create oval 130 36 150 52 -fill black ;# dome $c create rect 195 35 215 50 -fill black ;# sandbox $c create oval 260 36 280 52 -fill black ;# dome $c create rect 65 100 90 135 -fill black ;# cylinder $c create rect 90 120 92 122 -fill red -tag p0 ;# crossbar $c create rect 72 87 82 100 -fill black ;# steam tube $c create rect 310 40 370 115 -fill black ;# cab $c create rect 310 32 390 42 -fill grey30 ;# cab roof $c create text 338 82 -text "01 234" -fill gold -font {Times 7} $c create rect 318 48 333 66 -fill white ;# cab window #1 $c create rect 338 48 355 66 -fill white ;# cab window #2 Wheel newChild -x 50 -y 150 -r 13 -spokes 12 Wheel newChild -x 105 -y 150 -r 13 -spokes 12 Wheel newChild -x 150 -y 150 -r 30 -pivot 0.5 -tag p1 Wheel newChild -x 215 -y 150 -r 30 -pivot 0.5 -tag p2 Wheel newChild -x 280 -y 150 -r 30 -pivot 0.5 -tag p3 [self] drawRod p0 p1 p2 p3 Wheel newChild -x 340 -y 150 -r 16 -spokes 12 $c create rect 360 110 380 118 -fill black $c create rect 380 65 560 125 -fill black -tag tender $c create rect 560 118 570 122 -fill grey30 ;# buffer $c create line 571 116 571 125 $c create rect 390 45 525 65 -fill black -tag tender Wheel newChild -x 395 -y 150 -r 13 -spokes 12 Wheel newChild -x 440 -y 150 -r 13 -spokes 12 $c create rect 380 132 456 142 -fill red Wheel newChild -x 495 -y 150 -r 13 -spokes 12 Wheel newChild -x 540 -y 150 -r 13 -spokes 12 $c create rect 480 132 556 142 -fill red -outline red $c create rect 0 150 600 160 -fill brown ;# earth $c create line 0 150 600 150 -fill grey -width 2 ;# rail [self] tick } Railroad r

1 0

0.84 mixin behaviour changed ??
by Zoran Vasiljevic 13 Mar '01

13 Mar '01

Hi ! I strongly suspect that in0.84 version, the mixin process is changed, which brings some incompatibilities. Please consider this simple example Class A Class B A instproc init {args} { [self] instvar C [self] mixin B set C(Aelement) 1 } B instproc init {args} { [self] instvar C set C(Belement) 1 } A instproc foo {args} { puts "[self] A bar" } B instproc foo {args} { puts "[self] B bar" } The 0.83 behaviour... % A a % a foo ::a B bar % a array get C Belement 1 Aelement 1 The 0.84 behaviour % A a % a foo ::a B bar % a array get C Aelement 1 WHERE is the "Belement" ?????? It seems that 0.84 does not properly calls the "init" on the B class before doing an mixin ? Or am I missing something completely? Any ideas ? Cheer's Zoran Vasiljevic Archiware

2 1

Simple example: TicTacToe
by Rick Hedin 13 Mar '01

13 Mar '01

Hello all. I was having some trouble understanding basic things about XOTcl. I found an old TicTacToe program written in OTcl (by Gustaf?) and translated it so it would run on Tk rather than Mofe. It's self-contained, involves several cooperating objects, and has a simple domain. Maybe some other beginner would find going through it useful. I have attached the script to this mail message. Regards, Rick

2 1

XOTcl 0.84 Release
by Uwe Zdun 12 Mar '01

12 Mar '01

Announcing XOTcl 0.84. ********************** WHAT IS XOTCL? XOTcl is object-oriented extension of Tcl that was derived from OTcl. In short, XOTcl tries to provide a highly flexible, reflective, component-based, and object-oriented environment. It integrates language support for high level concepts which are not found in other languages, with reasonable performance. It prevails the Tcl programming style and the dynamic/introspective nature of the language, rather than introducing other language's styles and rigidness (such as C++) into Tcl. RECENT CHANGES IN VERSION 0.84 The most important changes relative to 0.83 are: - Object recreation scheme (instead of destroying object on overwrites; the semantics of recreation can be configured now). - Enhanced destroy and create logic (much more customizable). - Heavily improved compilation support for Windows versions + full test suite running on Win with nmake. - Improved test suite. - XOTcl wrapper for various persistent stores, including Gdbm, Sdbm, TextFile, Mem. These are transparently used for object persistence. - All stores have a new interface resembling the interface to (non-persistent) objects (e.g. set-method writes an entry into the persistent store, unset deletes it from there, etc.). - New static and dynamic analyzer packages for @ metadata and self-documentation facility. - Hierarchical package naming, like xotcl::store::gdbm, xotcl::comm::httpAccess, ... - New package for serialization of workspace contents (either whole workspace, or certain classes/objects) to Tcl file. - Moved callstack information (calledproc, callingproc, callingobject, etc.) into ``self'' command (WARNING: potential incompatibility esp. for filters). - New callstack information ``self next''. - Search process for XOTcl packages improved (see ChangeLog file). - ::xotcl namespace for runtime information. - htmllib by Antti Salonen: HTML Builder for HTML documents. - XOTcl is now thread-savvy. It can be used in Tcl8.3.2+ with tclthread2.2+ extension w/o modifications. However, at the moment, interp memory is freed, when the thread exists, not when the interp is deleted (due to Tcl lacking a proper hook). If somebody needs assistance in bringing it to work with AOLserver 3+, contact Zoran Vasiljevic <zoran(a)archiware.com>. - Speedup for xotcl primitives bwtn. 5% (typically) and 55% (next) - Bug fixes & more documentation. MORE INFO General information about XOTcl and its components can be found at http://www.xotcl.org Mailing list: http://wi.wu-wien.ac.at/mailman/listinfo/xotcl Best regards, Gustaf Neumann Uwe Zdun

1 0

Xotcl on Windows
by Proche, Patrick 07 Mar '01

07 Mar '01

Hallo, Xotcl on Linux runs great so far, but I have problems with installing it on my Windows machine (NT4.0, SP 6a). Though earlier postings helped a lot (the "libtclgdbm.dll"-problem that Mr LeBlanc posted in January), the example "Counter.xotcl" still doesn´t work. After starting the xotcl HTTP server, I get the message "couldn´t find procedure Tclgdbm_Init". I looked into the sources but couldn´t find it either. Does anybody know a solution to this? Thanks, Patrick Proché

2 1

Multithreading, memory usage, etc.
by Zoran Vasiljevic 05 Mar '01

05 Mar '01

Hi Xotcl collegues ! My name is Zoran Vasiljevic. Uwe and Gustaf already know me, as I've helped them for rolling-out the 0.83 version. I did some multithreading-related fixes and Purify tests. I've been using Xotcl in an multithreading environment, i.e. within the AOLserver Web server, version 3.2. I did have to make certain modifications to the server in order to intergrate Xotcl there, but that was not so difficult. After some (deployment) time I've noticed certain memory (well, not exactly leaks, rather uncontrolled) consumptions which I was not able to track-down with Purify. I've invested some days investigating this and have found the cause of problems. I also have the needed changes to xotcl.c to correct this behaviour. My question is: when is the next Xotcl version planned and to whom should I send the changes so they get integrated into the main distro ? Uwe ? Gustaf ? Cheer's Zoran Vasiljevic Archiware

1 0

Xotcl IDE
by Artur Trzewik 02 Mar '01

02 Mar '01

Hello I learn Xotcl in my study time. A was a student of prof. Neumann. Now I work with Smalltalk. After I have get some experience with Smalltalk environments I noticed that xotcl is ideal to build such developing systems as Smalltalk have. It means it is dynamically and has introspection functionality. I wrote the first Browsers now. It is the first attempt but it can be already used for developing (or browsing Xotcl) I named the application XotclIDE the tar archive can be downloaded from http://www.xdobry.de/xotclIDE I am interested in suggestion for next developing. Share your experience with xotclIDE On my site are also another xotcl development (Database application xdobry) with such goodies as - factory classes for building gui from XML - Xotcl database interface to mysql, postgres - GUI builder (yes with drag and drop) - Xotcl wrapper library for tk,tix I plan to add it (after refactoring) to xotclIDE ========================================= Artur Trzewik http://www.xdobry.de =========================================

3 2

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

Xotcl March 2001