This file is indexed.

/usr/lib/gcl-2.6.12-prof/gcl-tk/demos/mkLabel.lisp is in gcl 2.6.12-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
;;# mkLabel w
;;
;; Create a top-level window that displays a bunch of labels.
;;
;; Arguments:
;;    w -	Name to use for new top-level window.

(in-package "TK")
(defun mkLabel (&optional (w '.l1)) 
;    (global :tk_library)
    (if (winfo :exists w :return 'boolean) (destroy w))
    (toplevel w)
    (dpos w)
    (wm :title w "Label Demonstration")
    (wm :iconname w "Labels")
    (message (conc w '.msg) :font :Adobe-times-medium-r-normal--*-180* :aspect 300 
	    :text "Five labels are displayed below: three textual ones on the left, and a bitmap label and a text label on the right.  Labels are pretty boring because you can't do anything with them.  Click the \"OK\" button when you've seen enough.")
    (frame (conc w '.left))
    (frame (conc w '.right))
    (button (conc w '.ok) :text "OK" :command `(destroy ',w))
    (pack (conc w '.msg) :side "top")
    (pack (conc w '.ok) :side "bottom" :fill "x")
    (pack (conc w '.left) (conc w '.right) :side "left" :expand "yes" :padx 10 :pady 10 :fill "both")

    (label (conc w '.left.l1) :text "First label")
    (label (conc w '.left.l2) :text "Second label, raised just for fun" :relief "raised")
    (label (conc w '.left.l3) :text "Third label, sunken" :relief "sunken")
    (pack (conc w '.left.l1) (conc w '.left.l2) (conc w '.left.l3) 
	    :side "top" :expand "yes" :pady 2 :anchor "w")

    (label (conc w '.right.bitmap) :bitmap "@": *tk-library* : "/demos/images/face" 
	    :borderwidth 2 :relief "sunken")
    (label (conc w '.right.caption) :text "Tcl/Tk Proprietor")
    (pack (conc w '.right.bitmap) (conc w '.right.caption) :side "top")
)