>>>>> "Erick" == Erick Gallesio <eg_at_kaolin.unice.fr> writes:
Erick>STk 2.2 is out!
Erick>You can ftp it from kaolin.unice.fr:/pub/STk-2.2.tar.gz
Erick>It is close from 2.2 except that
Erick>- there are improved hash tables
Erick>- there are no more pathnames hardcoded in the interpreter; it will be
Erick>possible to distribute binaries.
Erick>- Elf support should work (I'm not able to test yet).
Erick>- a new option -interactive to use STk with ILISP under Emacs
Erick>I will post a more detailled list in a few days
Erick>Happy Scheming
Erick>-- Erick
Hello,
I just obtained STk 2.2 and build it on a Siemens Nixdorf RM600
system, which runs a MIPS processor based SVR4.
The build run without any problems. I could do some simply scheme
code, which seems to work.
However the stklos extension doesn't seem to work. If I try the
filebox demo, I get the following errors.
After that error, I am only able the terminate stk by killing
it. '(exit)' doesn't work.
Any hints are welcome.
=========================================================
fgth_at_utensil (2316) $ filebox.stklos
*** Error at line 84 of file /home/tools/lib/stk/2.2/STk/Basics.stk:
bad Scheme name (setter background)
STk>
The dialog box show the following stack trace:
(error "bad Scheme name ~S" l)
(let ((name (build-scheme-name name))) (quasiquote (begin (unless (and (symbol-bound? (quote (unquote name))) (is-a? (unquote name) <generic>)) (def ...
(%replace params (apply (lambda (name args . body) (let ((name (build-scheme-name name))) (quasiquote (begin (unless (and (symbol-bound? (quote (unq ...
(define-method (setter background) ((self #[<tk-metaclass> <tk-simple-widget>]) v) (slot-set! self (quote background) v))
(eval (quasiquote (begin (define-method (unquote accessor-name) ((self (unquote class))) (slot-ref self (quote (unquote (car s))))) (define-method ( ...
(for-each (lambda (s) (if (pair? s) (let ((accessor-name (get-keyword :accessor (cdr s) #f))) (if accessor-name (eval (quasiquote (begin (define-met ...
(next-method)
(initialize instance initargs)
(let ((instance (allocate-instance class initargs))) (initialize instance initargs) instance)
(make-instance class initargs)
(%syntax-define <tk-simple-widget> (make (or <tk-metaclass> #[<class> <class>]) :dsupers (list <tk-widget>) :slots (quote ((background :accessor bac ...
(load what)
(begin (load what) (if (not (member what provided)) (begin (format #t "WARNING: ~S was not provided~%" what))))
(require "Basics")
(load what)
(begin (load what) (if (not (member what provided)) (begin (format #t "WARNING: ~S was not provided~%" what))))
(require "Toplevel")
(load what)
(begin (load what) (if (not (member what provided)) (begin (format #t "WARNING: ~S was not provided~%" what))))
(require "Filebox")
<<< STACK BOTTOM >>>
--
MfG/Regards
/==== Siemens Nixdorf Informationssysteme AG
/ Ridderbusch / , Abt.: SU MR PD254
/ /./ Heinz Nixdorf Ring
/=== /,== ,===/ /,==, // 33106 Paderborn, Germany
/ // / / // / / \ Tel.: (49) 05251-8-15211
/ / `==/\ / / / \ NERV:ridderbusch.pad
Email: ridderbusch.pad_at_sni.de
Received on Wed Jul 19 1995 - 10:28:32 CEST