This file is indexed.

/usr/share/doc/tix/examples/MkDirLis.tcl is in tix-dev 8.4.3-10.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: MkDirLis.tcl,v 1.4 2004/03/28 02:44:56 hobbs Exp $
#
# MkDirLis.tcl --
#
#	This file implements the "Directory List" page in the widget demo
#
#	This file has not been properly documented. It is NOT intended
#	to be used as an introductory demo program about Tix
#	programming. For such demos, please see the files in the
#	demos/samples directory or go to the "Samples" page in the
#	"widget demo"
#
#
# Copyright (c) 1996, Expert Interface Technologies
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#

proc MkDirList {nb page} {
    set w [$nb subwidget $page]

    set name [tixOptionName $w]
    option add *$name*TixLabelFrame*label.padX 4

    tixLabelFrame $w.dir  -label "tixDirList"
    tixLabelFrame $w.fsbox -label "tixExFileSelectBox"
    MkDirListWidget [$w.dir subwidget frame]
    MkExFileWidget  [$w.fsbox subwidget frame]

    tixForm $w.dir  -top 0 -left 0 -right %40 -bottom -1
    tixForm $w.fsbox -top 0 -left %40 -right -1 -bottom -1
}

proc MkDirListWidget {w} {
    set name [tixOptionName $w]

    message $w.msg \
	-relief flat -width 240 -anchor n\
	-text "The TixDirList widget gives a graphical representation of\
		the file system directory and makes it easy for the user\
		to choose and access directories."

    tixDirList $w.dirlist -options {
	hlist.padY 1
	hlist.width 25
	hlist.height 16
    }

    pack $w.msg     -side top -expand yes -fill both -padx 3 -pady 3
    pack $w.dirlist -side top  -padx 3 -pady 3
}

proc MkExFileWidget {w} {
    set name [tixOptionName $w]

    message $w.msg \
	-relief flat -width 240 -anchor n\
	-text {The TixExFileSelectBox widget is more user friendly \
		   than the Motif style FileSelectBox.}

    tixExFileSelectBox $w.exfsbox -bd 2 -relief raised

    pack $w.msg    -side top -expand yes -fill both -padx 3 -pady 3
    pack $w.exfsbox -side top  -padx 3 -pady 3
}