/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
}
|