You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
70 lines
2.0 KiB
70 lines
2.0 KiB
# -*-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
|
|
}
|
|
|