Patches to STk-3.0b1

From: Moises Lejter <mlm_at_cs.brown.edu>
Date: Wed, 6 Dec 1995 03:27:25 -0500 (EST)

While on that topic... ;-) I also needed to apply this to E2.stklos,
to get it to run...

Moises

-----cut here-----

*** E2.stklos Wed Dec 6 03:18:25 1995
--- E2.stklos~ Wed Dec 6 02:30:41 1995
***************
*** 57,63 ****
  (define-method initialize-item ((self <Boxed-Text>) canvas coords args)
    (let* ((parent (slot-ref self 'parent))
         (text (get-keyword :text args ""))
! (t (make <Text-item> :text text
                            :anchor "nw" :parent parent :coords coords))
         (coords-rect (bounding-box t))
         (r (make <Rectangle> :parent parent :coords coords-rect))
--- 57,63 ----
  (define-method initialize-item ((self <Boxed-Text>) canvas coords args)
    (let* ((parent (slot-ref self 'parent))
         (text (get-keyword :text args ""))
! (t (make <Canvas-Text> :text text
                            :anchor "nw" :parent parent :coords coords))
         (coords-rect (bounding-box t))
         (r (make <Rectangle> :parent parent :coords coords-rect))

-----cut here-----
Received on Wed Dec 06 1995 - 09:29:24 CET