Xotcl April 2001

xotcl@alice.wu.ac.at

5 participants
3 discussions

Method inheritance on class side
by Artur Trzewik 25 Apr '01

25 Apr '01

Hallo By building some Xotcl Class System I have following problem. Consider the example % Class A A % A proc test {} { puts "method test" } % Class B -superclass A B % B test test % I would expect by calling B test to invoke A proc test and not to create new instance of B. I know this bahavior from Smalltalk. It is very usefull for building special creating method on class side or some method that not need a instance For Example (getter for a system constant) Class A A proc getSystemPath {} { return \usr } Class B -superclass A B proc getConfigFile {} { return [file join [[self] getSystemPath] System.cfg] } This would create new Instance of B with name getSystemPath Now I have to write: B proc getConfigFile {} { return [file join [A getSystemPath] System.cfg] } or implement proc search on class side by myself This was rather simple example but there are many examples in smalltalk libraries for reasonable use of this bahavior. Is there a chance to change it in next version? It would make my system easier and cleaner mfG ========================================= Artur Trzewik http://www.xdobry.de =========================================

4 6

a small spreadsheet in xotcl
by Gustaf Neumann 13 Apr '01

13 Apr '01

Dear Community, here is a little spreadsheet programm in xotcl (well, it adds rows and columns). maybe, someone has a usage for it. best regards -gustaf #!/usr/local/bin/xowish # a little spreadsheet class, translated from Richard Suchenwirth's example # using tcl with namespages -gustaf neumann Class SpreadSheet -parameter {widget {rows 3} {cols 2} {width 8}} SpreadSheet instproc cell {pair value} { [self] set data($pair) $value } SpreadSheet instproc init {} { [self] instvar rows cols width widget [self] set last $rows,$cols ;# keep grand total field trace var [self]::data w [list [self] redo] frame $widget for {set y 0} {$y <= $rows} {incr y} { set row [list] for {set x 0} {$x <= $cols} {incr x} { set e [entry $widget.$y,$x -width $width \ -textvar [self]::data($y,$x) -just right] if {$x==$cols || $y==$rows} { $e config -state disabled -background grey -relief flat } lappend row $e } eval grid $row -sticky news } $e config -relief solid set widget } SpreadSheet instproc redo {varname el op} { [self] instvar cols rows if {$el != [[self] set last]} { foreach {y x} [split $el ,] break if {$x!=""} { [self] sum $y,* $y,$cols [self] sum *,$x $rows,$x } ;# otherwise 'el' was not a cell index } ;# prevent endless recalculation of grand total } SpreadSheet instproc sum {pat target} { set sum 0 set it "" ;# default if no addition succeeds foreach i [[self] array names data $pat] { if {$i!=$target} { catch {set it [set sum [expr {$sum+[[self] set data($i)]}]]} } ;# don't pull the total into the total } [self] cell $target $it } # test and usage example SpreadSheet x -widget .s -cell 0,0 Spread1 -cell 1,0 47 -cell 2,1 11 SpreadSheet y -widget .t -rows 4 -cols 4 -cell 0,0 Spread2 -cell 1,0 12 -cell 2,2 22 pack .s .t -fill both

1 0

Re: [Xotcl] The debian packages
by Teemu Hukkanen 03 Apr '01

03 Apr '01

Teemu Hukkanen <tjhukkan(a)fishpool.fi> writes: > On Tue, Mar 27, 2001 at 06:39:47PM +0200, Catherine Letondal wrote: > > Is there a debian package for the 0.84 release of XOtcl? > > Or even a 0.83? > > > > I found this in a previous email: > > > > deb http://bugger.fishpool.fi/debian tcl / > > deb-src http://bugger.fishpool.fi/debian tcl / > > > > but there is nothing there? And nothing on the XOtcl server either... > > I've reorganised my package repositories, here's the new apt stanza: > > deb http://bugger.fishpool.fi/debian unstable main > deb-src http://bugger.fishpool.fi/debian unstable main And here are packages for the stable distribution (along with tcl8.3 and tk8.3 recompiled for stable): deb http://bugger.fishpool.fi/debian stable tcl deb-src http://bugger.fishpool.fi/debian stable tcl

1 0

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 April 2001