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.
ORPA-pyOpenRPA/WPy32-3720/python-3.7.2/tcl/tix8.4.3/demos/MkDirLis.tcl

70 lines
2.0 KiB

6 years ago
# -*-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
}