stk/Contrib/STk-wtour/lessons/label3.stk

11 lines
296 B
Plaintext
Raw Normal View History

1996-09-27 06:29:02 -04:00
;; A label widget, with a bitmap instead of text
;; We use here the fact that "wtour-lessondir" contains the path of the
;; wtour demo
(label '.lab2 :bitmap (string-append "@" wtour-lessondir "/../lib/iu.ridge.xbm")
:relief "raised"
:borderwidth 2)
(pack .lab2)