;; 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)