Q) Frame's Relief keyword

From: Jong-Won Choi <jwchoi_at_gsenl5.gsen.goldstar.co.kr>
Date: Fri Dec 29 09:38:21 1995

Hi schemers,

I'm teaching myself STklos, so I'm reading Ousterhout's Tcl/Tk
book and trying to translate the example codes in the book to
STklos(I'm newbie on Tk). Here is an example one:

;;;;-----------------------------------------------------------------
;;;;
;;;; Example STklos codes from Ousterhout's book
;;;;
;;;;

(require "Tk-classes")

;;;;
;;;; A tour of the Tk widgets
;;;;

;;;; Frames (pp. 158)
(let ((t (make <Toplevel> :background "gray")))
  (for-each (lambda (relief)
              (pack (make <Frame> :width "15m" :height "10m"
                          :relief relief :borderwidth 4
                          :background "green" :parent t)
                    :side "left" :padx "2m" :pady "2m"))
            '("raised" "sunken" "flat" "groove" "ridge")))
;;;;-------------------------------------------------------------------

But, the relief keyword didn't work.

So, I tryed another one. My sample session is:

-----------------------------------
STk> (define top (make <Toplevel>))

STk> (describe frame-1)
#[<frame> #p1259f4] is an instance of class <frame>
Slots are:
     id = #[Tk-command .v14.v15]
     eid = #[Tk-command .v14.v15]
     parent = #[<toplevel> #p126204]
     width = 53
     height = 35
     background = "green"
     border-width = 0
     cursor = ""
     relief = "sunken"
     geometry = ""
     class = "Frame"
#f

STk> (define frame-1 (make <Frame> :width "15m" :height "10m"
                   :relief "sunken" :borderwidth 4
                   :background "green" :parent top))

STk> (pack frame-1 :side "left" :padx "2m" :pady "2m")
--------------------------

But, same result. What is my fault?/What I should know?

Thanks
Jong-Won Choi

=======================++=====================================
 R&D DA DEVELOPMENT ||
     DM TEAM ||
 LG Semicon Co., Ltd. || Direct: +82 (2)526-4052
 16, Woomyeon-dong, || Fax: +82 (2)526-4136
 Seocho-gu, Seoul, || email: jwchoi_at_gsen.goldstar.co.kr
 137-140, Korea. ||
=======================++=====================================
Received on Fri Dec 29 1995 - 09:38:21 CET